Discussion :

[doolar]

slt,
J'ai entrain de concevoir une application de gestion d'autorisation d'accés. Le code est le suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
//fonction qui permet de retourner le résultat d'une requête r
function requete(r:string):string;
begin
//acces.ADOQuery1.Close;
acces.ADOquery1.SQL.Clear;
acces.ADOquery1.SQL.Add(r);
acces.ADOquery1.open;
requete:=acces.adoquery1.Fields[0].AsString;
acces.adoquery1.Close;
end;
 
procedure Tacces.validerClick(Sender: TObject);
var trouve:boolean;
begin
trouve:=false;
adoquery1.First;
while (not acces.adoquery1.Eof) and (trouve=false) do
begin
 if (ident.Text=requete('select login from utilisateur where login="'+ident.Text+'"')) and(mdp.Text=requete('select psw from utilisateur where psw="'+mdp.Text+'"'))
    then trouve:=true;
 acces.ADOQuery1.Next;
end;
if trouve then
            begin
             acces.Hide;
             accueil.Show;
            end
 else MessageDlg('Nom d''utilisateur ou mot de passe erroné.',mtError	, [mbOk], 0);
end;

j'ai pas compris le message d'erreur retourné
Merci pour votre aide.

[Frank]

C'est simple, ta requête est fermée.

Executes le code en mode pas à pas, tu verras bien à quel moment ça plante

[edam]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
//fonction qui permet de retourner le résultat d'une requête r
function requete(r:string):string;
begin
//acces.ADOQuery1.Close;
acces.ADOquery1.SQL.Clear;
acces.ADOquery1.SQL.Add(r);
acces.ADOquery1.open;
requete:=acces.adoquery1.Fields[0].AsString;
acces.adoquery1.Close;
end;

procedure Tacces.validerClick(Sender: TObject);
var trouve:boolean;
begin
trouve:=false;
adoquery1.First;
while (not acces.adoquery1.Eof) and (trouve=false) do
begin
 if (ident.Text=requete('select login from utilisateur where login="'+ident.Text+'"')) and(mdp.Text=requete('select psw from utilisateur where psw="'+mdp.Text+'"'))
    then trouve:=true;
 acces.ADOQuery1.Next;
end;
end;

tu utlise la même adoquery