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