Delphi, oracle, création de mot de passe
liacad3
Messages postés
45
Date d'inscription
Statut
Membre
Dernière intervention
-
lakhdari -
lakhdari -
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
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
A voir également:
- Delphi, oracle, création de mot de passe
- Trousseau mot de passe iphone - Guide
- Mot de passe - Guide
- Mot de passe administrateur - Guide
- Mot de passe bios perdu - Guide
- Delphi 7 - Télécharger - Langages
1 réponse
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
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
mais je ne comprends rien de ttes ces instructions
ex
messageDlg(' *Le mot de passe que vous avez entré est incorrect*',mtINFORMATION,[mbOK,mbCancel],0)=mryes then
messagebeep(mb_iconquestion);
edit1.Text:='';
edit1.SetFocus;