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 30 31 32 33 34
| procedure TForm2.btConnectClick(Sender: TObject);
begin
with ZQuery1 do
Begin
Close;
SQL.Clear;
SQL.add('SELECT Login, Password FROM COMPTE WHERE Login = '+ ''''+ eUser.Text + '''' +' AND Password = '+ ''''+ ePass.Text + '''' +'');
try Open;
except ShowMessage('Erreur');
end;
//Si la requete est 'vide'
if IsEmpty then
Begin
//Affiche erreur
ShowMessage('Le mot de passe ou le nom utilisateur saisie est incorrect');
//Reset du champ texte ePass pour resaisir un mot de passe
ePass.Clear;
end
//Sinon lancement du formBaseDeDonnée
else
begin
// On ferme la fiche de connection
fiche.close;
// On fait pointer la variable fiche sur nil (rien)
fiche:=nil;
// on libère la mémoire
fiche.free;
// On créé l'espace mémoire pour la fiche de paramètre COM
fiche2:=TForm3.create(application);
// On affiche la fiche de paramètre COM de manière modale
fiche2.showmodal;
end;
end;
end; |
Partager