Salut à TOUS!

 

J'ai écris ces codes qui me permettent d'avoir accès à mon logiciel.

Mais il y a une question que je ne comprends pas:

Primo, quand j'introduis le nom de l'"utilisateur" et ensuite le "mot de passe" correctes. Ça passe pratiquement!

 

Segundo, s'il arrive que j'introduise incorrectement une de ses "obligations". Le message de

non accès apparait: Mot de passe incorrecte!

Mais quand je réintroduit correctement ses "obligations". Il y a bloquage...rien ne marche!

 

Pour que ça marche, je dois reinicialiser le programme afin d'introduire correctement les dites obligations.

 

 

 

var achou : boolean;

  begin

    achou := false;

          try

            while  not ADOMotPasseEntre.eof do begin

              if (ADOMotPasseEntre.fieldbyname('utilizador').asstring = Utilisateur.text) and

                 (ADOMotPasseEntre.fieldbyname('senha').asstring = MotPasse.text)

               then begin

                  achou := true;

                  Entre.show;

              end;

                ADOMotPasseEntre.next;

            end;

            if not achou  then begin

                showMessage('Mot de passe incorrecte!');

            end;

          finally   

          end;

LunaSoft

Bonjour,

tu devrais peut-être faire une requête plûtot que parcourir ta table entièrement.

Mais dans ton cas, je pense qu'il faut que tu repositionnes ta table sur la première ligne de donnèes. Car à la fin de ta procèdure, tu es en dernière position, donc il ne reparcourt pas.

Enfin, à priori, tu stockes tes mots de passe en clair dans ta base de données. Pense à les crypter. Il y a plein d'exemples sur ce site.

var achou : boolean;

  begin

    achou := false;

          try 

            ADOMotPasseEntre.First;
            while  not ADOMotPasseEntre.eof do begin

              if (ADOMotPasseEntre.fieldbyname('utilizador').asstring = Utilisateur.text) and

                 (ADOMotPasseEntre.fieldbyname('senha').asstring = MotPasse.text)

               then begin

                  achou := true;

                  Entre.show;

              end;

                ADOMotPasseEntre.next;

            end;

            if not achou  then begin

                showMessage('Mot de passe incorrecte!');

            end;

          finally   

          end;

Cordialement

Davix123