Boucle if avec trois test

shanon58 Messages postés 163 Date d'inscription   Statut Membre Dernière intervention   -  
Heremion Messages postés 564 Statut Membre -
Bonjour, je developpe une application de gestion du personnel sous Delphi 5, je souhaite imprimer la mise en démeur d'un employés, pour cela j'utilise deux form une pour la selection de l'employé et la deuxième pour l'impression, dans la première form je saisie le nom de l'employés dans un édit, quand je clic sur le boutton ok, le programme doit verifier si cet employés existe si c'est le cas je dois verfier s'il a déja le champ "Mise_Demeur" a la valeur oui et si l'edit est vide j'affiche un message ('Entrer d'abord le nom...)

Je dois donc comparer le contenu de l'edit avec le contenu de la table, puis effectuer le code SQL, le code suivant s'éxécute très bien, pouvez vous m'aidz à ajouter le troisième test?

if Edit1.Text='' then showmessage('Entrer le nom de l''employé!')
else
begin
QRListform8.Query1.SQL.Clear;
QRListform8.Query1.SQL.Add('Select *');
QRListform8.Query1.SQL.Add('From employes');
QRListform8.Query1.SQL.Add('Where nom=QuotedStr(edit1.text)');
QRListform8.Query1.SQL.Add('Where nom=' + QuotedStr(edit1.text));
QRListform8.Query1.Active:=True;
QRListform8.QuickRep1.Preview;
Form16.Close;


A voir également:

1 réponse

Heremion Messages postés 564 Statut Membre 102
 
Quel est le troisième test?
0