Discussion :

[scofield1]

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TFacces.BitBtn1Click(Sender: TObject);
begin
 if modulstation.Tutilisateur.Locate('identifiant','Edit1',[LocaseInsensitive])
 and if modulstation.Tutilisateur.Locate('pass','Edit2',[LocaseInsensitive]) then
    ShowMessage('Login ou mot de passe correct')
    Fmenu.ShowModal;
        else
    ShowMessage('Login ou mot de passe incorrect')
 end;
end.

Il m'affiche operande ou ; manquant

[tourlourou]

le second if est probablement de trop... et il manque un bloc begin...end :

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TFacces.BitBtn1Click(Sender: TObject);
begin
  if modulstation.Tutilisateur.Locate('identifiant','Edit1',[LocaseInsensitive])
  and modulstation.Tutilisateur.Locate('pass','Edit2',[LocaseInsensitive]) 
  then begin
    ShowMessage('Login ou mot de passe correct')
    Fmenu.ShowModal;
  end  
  else ShowMessage('Login ou mot de passe incorrect')
end;

[Paul TOTH]

d'autant qu'il ne faut pas chercher un identifiant et un mot de passe mais un identifiant avec CE mot de passe

[scofield1]

Merci pour votre aide, le probleme est réglé