Imports System.
Data
Imports [Link]
Public Class Login
Public Sub SwitchPanel(ByVal panel As Form) 'Procédure pour changer les panneaux. (Ex
: page d'authentification a la page principal )
[Link]()
[Link] = False
[Link](panel)
[Link]()
End Sub
Private Sub UnsecuredLogin() ' Procédure d'authentification non sécurisée.
Dim username = [Link]
Dim password = [Link]
Dim cnx As SqlConnection = New SqlConnection("Data Source=ADMINISTRATOR;Initial
Catalog=bibliofile;Integrated Security=True")
Dim Sql = "select * from admin where username ='" + username + "'and password=
'" + password + "' COLLATE SQL_Latin1_General_CP1_CS_AS"
Dim cmd As SqlCommand = New SqlCommand(Sql, cnx)
Dim dr As SqlDataReader
[Link]()
dr = [Link]()
If ([Link] = 0 And [Link] = 0) Then
[Link] = "Veuillez remplir les champs au-dessus"
Else
If ([Link]) Then
SwitchPanel(MainForm) 'Login avec succès
Else
[Link] = "Le mot de passe ou le nom d'utilisateur est incorrecte"
End If
End If
[Link]()
End Sub
Private Sub SecuredLogin() ' Procédure d'authentification sécurisée.
Dim username = [Link]
Dim password = [Link]
Dim cnx As SqlConnection = New SqlConnection("Data Source=ADMINISTRATOR;Initial
Catalog=bibliofile;Integrated Security=True")
Dim dr As SqlDataReader
Dim Sql = "select * from admin where username = @Name and password= @Password
COLLATE SQL_Latin1_General_CP1_CS_AS"
Dim cmd As SqlCommand = New SqlCommand(Sql, cnx)
Dim param(1) As SqlParameter 'Déclaration des paramètres
param(0) = New SqlParameter("@Name", [Link], 30) 'Création du premier
paramètre
param(0).Value = username 'Affectation de la valeur Nom au premier paramètre
param(1) = New SqlParameter("@Password", [Link], 30) 'Création du
deuxième paramètre
param(1).Value = password 'Valeur du mot de passe affectée au deuxième paramètre.
[Link](param) 'L'ajout des paramètres a l'objet SqlCommand
[Link]()
dr = [Link]()
If ([Link] = 0 And [Link] = 0) Then
[Link] = "Veuillez remplir les champs au-dessus"
Else
If ([Link]) Then
SwitchPanel(MainForm) 'Login avec succès
Else
[Link] = "Le mot de passe ou le nom d'utilisateur est incorrecte"
End If
End If
[Link]()
End Sub
Private Sub IsPassword() 'Procédure pour afficher ou cacher le mot de passe
If [Link] Then
[Link] = False
Else
[Link] = True
End If
End Sub
Private Sub GunaCheckBox1_CheckedChanged_1(sender As Object, e As EventArgs) Handles
[Link]
IsPassword() 'L'appel de procédure IsPassword
End Sub
Private Sub BtnSecured_Click_1(sender As Object, e As EventArgs) Handles
[Link]
Try 'L'appel de procédure SecuredLogin dans un bloc try catch
SecuredLogin()
Catch ex As Exception
MsgBox([Link])
End Try
End Sub
Private Sub BtnUnsecurd_Click_1(sender As Object, e As EventArgs) Handles
[Link]
Try
UnsecuredLogin()
Catch ex As Exception
MsgBox([Link])
End Try
End Sub
End Class
Substring(Int32) : Récupère une sous-chaîne de cette instance. La sous-chaîne commence à
une position de caractère spécifiée et continue jusqu'à la fin de la chaîne.
Ex :
Dim var As String = “Hello Word”
Dim Var2 = var. Substring(3)
Resultat : “Var2 = lo Word“
Substring(Int32, Int32) : Récupère une sous-chaîne de cette instance. La sous-chaîne
commence à une position de caractère spécifiée et sa longueur est définie.
Ex :
Dim var As String = “Hello Word”
Dim Var2 = var. Substring(2,5)
Resultat : ” Var2 = llo W“
