Autentificatin

Signaler
-
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
-
j'ai un programme en vb 6.0 j'ai ais le code d'autentification mais quand j'execute mon p
rogramme la forme d'autentification ne s'affiche pas 


If txtlogin.Text = "" Then
MsgBox "Entrer le login", vbInformation, "information"
txtlogin.SetFocus
Else
If txtpassword.Text = "" Then
MsgBox "Entrer le mot de passe", vbInformation, "information"
txtpassword.SetFocus
Else
If txtlogin.Text <> "gi2010" Then
MsgBox "login est incorect", vbInformation, "information"
txtpassword.SetFocus
Else
If txtlogin.Text = "gi2010" And txtpassword.Text <> "gl2010" Then
MsgBox "mot de passe incorrect", vbInformation, "information"
txtpassword.SetFocus
Else
If txtlogin.Text "gi2010" And txtpassword.Text "gl2010" Then
Form1.Show
authentification.Hide
Else
MsgBox "login ou mot de passe incorrect", vbInformation, "information"
txtlogin.SetFocus
End If
End If
End If
End If
End If



j'ais trois form: client.frm form2.frm form3.frm et autentification.frm

3 réponses

[del]salut, bonjour
/del
est-ce que tu as définis la forme d'autentification comme objet de démarrage?

Soyons Toujours à la disposition des autres
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
239
Bonjour,
Ta discussion concerne vraiment le plus "élémentaire"
Tes else imbriqués finissent par se faire des croche-pieds.
Intéresse-toi à deux choses :
1) ElseIf
2) Exit sub
Trop élémentaire pour ne pas te laisser travailler un peu tout seul sur un tel point.

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
239
Enfin quoi !
Croche-pieds, ai-je dit ? ===>> regarde les commentaires que j'ai ajoutés à ton propre code :
If txtlogin.Text = "" Then
    MsgBox "Entrer le login", vbInformation, "information"
    txtlogin.SetFocus
  Else ' donc textlogin.text <> ""
    If txtpassword.Text = "" Then ' donc ne risque même pas de rentrer pas dans cette condition
      MsgBox "Entrer le mot de passe", vbInformation, "information"
      txtpassword.SetFocus
    Else ' donc textlogin.text <> "" et txtpassword.text <> ""
      If txtlogin.Text <> "gi2010" Then
        MsgBox "login est incorect", vbInformation, "information"
        txtpassword.SetFocus
      Else ' donc textlogin.text <> "" et txtpassword.text <> "" et textlogin.text = "gi2010"
        If txtlogin.Text = "gi2010" And txtpassword.Text <> "gl2010" Then ' donc
          MsgBox "mot de passe incorrect", vbInformation, "information"
          txtpassword.SetFocus
        Else
           If txtlogin.Text "gi2010" And txtpassword.Text "gl2010" Then ' ne passera donc pas par cette condition
             Form2.Show
             authentification.Hide
           Else
              MsgBox "login ou mot de passe incorrect", vbInformation, "information" ' ===>> et donc , hein ===>
              txtlogin.SetFocus
           End If
        End If
      End If
    End If
  End If

Question de logique, non ? (avant même de parler syntaxe. Juste de logique).

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.