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 -
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;
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:
- Boucle if avec trois test
- Steam deck oled test - Guide
- Test performance pc - Guide
- Test disque dur - Télécharger - Informations & Diagnostic
- Test composant pc - Guide
- Redmi note 14 4g test - Accueil - Téléphones