delphi, oracle, création de mot de passe Fermé

Question

Bonjour,
voila g créer une base de données avec oracle 8i et une intrface delphi 
le problème est que je n'arrive pas a programmer le mot de passe 
voila ce ke g mis
/////////////*****************//////////////////////
adoquery1.Active:=false;
adoquery1.SQL.Clear;
adoquery1.SQL.text:= 'select * from motpasse where utilisateur='''+edit1.text+'''';
adoquery1.ExecSQL;
adoquery1.Active:=true;
adoquery1.first;
if((adoquery1.fields.fields[1].asstring)<>'''+edit2.text+''') then menuadmi.show;
if ((adoquery1.fields.fields[1].asstring)='''+edit2.text+''') then showmessage('votre mot de passe ne correspond pas au nom d''utilisateur inseré');
////////*****************////////////////
mm avec un else ça ne merche pas l'utilisateur peut acceder a la suite mm si le mot depasse ne correspond pas
si qq peut m'aider le plus tot possible je lui en seré tres tres reconnaissente
merci d'avence pr vos reponses

mayessoune · Answer

ESSAYEZ ça 

  faites ajouter   EDIT1   ok

puis deux boutton bitbiten 1 et bitbiten2 

le premier allez au propriéteé puis au Kind et faites OK c-à-d le premier bouton est pour le OK

quliquer sur ce bouton et ajoutez ça 

procedure TForm1.BitBtn1Click(Sender: TObject);
begin

if edit1.Text<>'' then
IF EDIT1.Text='stock' then
begin
form2.show;
form1.Hide;
end
else
begin
if messageDlg(' *Le mot de passe que vous avez entré est incorrect*',mtINFORMATION,[mbOK,mbCancel],0)=mryes then
messagebeep(mb_iconquestion);
edit1.Text:='';
edit1.SetFocus;
end
else
begin
if messageDlg('*WOOPS* vous avez oublié de faire entrer le mot de passe',mtWARNING,[mbOK,mbCancel],0)=mryes then
messagebeep(mb_iconquestion);
end;
end;



pour le deuxiéme bouton est pour annuler faites la mm chose et entrez ce code 

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
edit1.Text:='';
edit1.SetFocus;
end;



bonne chance

Delphi, oracle, création de mot de passe

1 réponse

Discussions similaires