Connexion par mot de passe grâce à une bdd

Télécharger le projet
Commenter

Description

Bonjour, voici ma première source sur le site ! J'espère que celle-ci pourra aider des gens !

Il s'agit donc d'une interface assez graphique qui permet de se connecter par mot de passe à un programme et ce avec plusieurs compte. Vous pourrez même créer un nouvel utilisateur. Je pense qu'il y a un tout petit bug au niveau de la propriété Visible de certain objet mais bon cela n'est pas forcément compliqué à trouver si pas je regarderais pour mettre une version hyper parfait si cela reste possible lol car améliorer c'est toujours possible.

Pour la connexion j'utilise l'objet ControlData.

Pour le code qui vérifie si le nom d'utilisateur et le mot de passe sont bon, les connexion à la BDD sont faites par programmation avec les chemins complets !

Si quelqu'un à une idée ou quelque chose à proposer par rapport à ce code, je suis ouvert à toute proposition ainsi qu'à toute question !

Voilà amusez-vous bien J-il

P.S : vous pouvez me joindre aussi sur ce forum où je suis modérateur c'est un pptit forum de pote pour l'école mon pseudo y est J-il

Source / Exemple : 


Private Sub bou_ajouter_nouveau_compte_Click()

motpas.Recordset.AddNew

End Sub

Private Sub bou_annuler_ajout_Click()

    'Affichage de certains bouton et etiquette
    eti_utilisateur.Visible = True
    eti_mot_de_passe.Visible = True
    eti_nouveau_compte.Visible = True
    eti_connexion.Visible = True
    txt_utilisateur.Visible = True
    txt_mot_de_passe.Visible = True
    bou_annuler.Visible = True
    Command2.Visible = True
    
    'affichage des boutons pour l'ajout
    eti_ajout_mot_de_passe.Visible = False
    eti_ajout_utilisateur.Visible = False
    eti_creer_utilisateur.Visible = False
    txt_ajout_utilisateur.Visible = False
    txt_ajout_mot_de_passe.Visible = False
    bou_annuler_ajout.Visible = False
    bou_enregistrer_ajout.Visible = False
    bou_ajouter_nouveau_compte.Visible = False
    
End Sub

Private Sub bou_annuler_Click()

End

End Sub

Private Sub bou_enregistrer_ajout_Click()

    motpas.Recordset.Update

    'Affichage de certains bouton et etiquette
    eti_utilisateur.Visible = True
    eti_mot_de_passe.Visible = True
    eti_nouveau_compte.Visible = True
    eti_connexion.Visible = True
    txt_utilisateur.Visible = True
    txt_mot_de_passe.Visible = True
    bou_annuler.Visible = True
    Command2.Visible = True
    
    'affichage des boutons pour l'ajout
    eti_ajout_mot_de_passe.Visible = False
    eti_ajout_utilisateur.Visible = False
    eti_creer_utilisateur.Visible = False
    txt_ajout_utilisateur.Visible = False
    txt_ajout_mot_de_passe.Visible = False
    bou_annuler_ajout.Visible = False
    bou_enregistrer_ajout.Visible = False
    bou_ajouter_nouveau_compte.Visible = False

End Sub

Private Sub Command2_Click()

On Error GoTo erreur 'Gestion des erreurs

'Déclaration des variables
Dim str_nom_utilisateur As String
Dim str_mot_de_passe As String

'Affectation des variables aux boites de textes
str_nom_utilisateur = txt_utilisateur.Text
str_mot_de_passe = txt_mot_de_passe.Text

'Recherche dans la BDD avec le FindFirst sur les champs de la base
motpas.Recordset.FindFirst "nom_utilisateur like '" & str_nom_utilisateur & "' "
motpas.Recordset.FindFirst "mot_de_passe like '" & str_mot_de_passe & "' "

'Test pour vérifier l'existance du nom d'utilisateur et du mot de passe
If str_nom_utilisateur = motpas.Recordset.Fields("nom_utilisateur") And str_mot_de_passe = motpas.Recordset.Fields("mot_de_passe") Then
    
    MsgBox "Codes d'accès acceptés"
    frm_prog.Show
    Unload frm_connexion

Else
        
    MsgBox "Vérifiez votre nom d'utilisateur ou mot de passe !"
    txt_utilisateur.Text = ""
    txt_mot_de_passe.Text = ""
    txt_utilisateur.SetFocus
            
End If

Exit Sub                                                                                            '
erreur:                                                                                             'Gestion des erreurs
MsgBox "L'erreur suivante s'est produite : " & Err.Description, vbInformation + vbOKOnly, "Erreur"  '

End Sub

Private Sub eti_nouveau_compte_Click()

    'effacement écran de certains bouton et etiquette
    eti_utilisateur.Visible = False
    eti_mot_de_passe.Visible = False
    eti_nouveau_compte.Visible = False
    eti_connexion.Visible = False
    txt_utilisateur.Visible = False
    txt_mot_de_passe.Visible = False
    bou_annuler.Visible = False
    Command2.Visible = False
    
    
    'affichage des boutons pour l'ajout
    eti_creer_utilisateur.Visible = True
    bou_ajouter_nouveau_compte.Visible = True
    eti_ajout_utilisateur.Visible = True
    eti_creer_utilisateur.Visible = True
    eti_ajout_mot_de_passe.Visible = True
    txt_ajout_utilisateur.Visible = True
    txt_ajout_mot_de_passe.Visible = True
    bou_annuler_ajout.Visible = True
    bou_enregistrer_ajout.Visible = True

End Sub
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (chouchou270403)