Probleme avec mon programme

Version imprimable

Code:

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

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

Code:

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;

05/09/2011, 22h03
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 :)
07/09/2011, 08h42
scofield1

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

Fuseau horaire GMT +2. Il est actuellement 21h23.