Boucle if avec trois test

Fermé
shanon58 Messages postés 163 Date d'inscription lundi 31 mars 2008 Statut Membre Dernière intervention 9 septembre 2011 - 22 juin 2011 à 12:29
Heremion Messages postés 539 Date d'inscription vendredi 20 mai 2011 Statut Membre Dernière intervention 1 juin 2022 - 1 sept. 2011 à 12:05
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;






1 réponse

Heremion Messages postés 539 Date d'inscription vendredi 20 mai 2011 Statut Membre Dernière intervention 1 juin 2022 101
1 sept. 2011 à 12:05
Quel est le troisième test?
0