cs_siah
Messages postés3Date d'inscriptionvendredi 7 mars 2008StatutMembreDernière intervention 8 mars 2008
-
8 mars 2008 à 19:15
cs_siah
Messages postés3Date d'inscriptionvendredi 7 mars 2008StatutMembreDernière intervention 8 mars 2008
-
8 mars 2008 à 19:58
salut!
J'ai écrit des codes permettant de me dire s'il y a d'Edits non rempli.
Les dits codes marchent bien. Seulement je remarque une chose:
au moment ou un Edit est vide, le message apparait. Mais le comble est qu'il fini par sauvegarder les données. C'est ce que je ne veux pas du tout!. Parce qu'un message doit s'afficher (donc, il averti et ne peut enregistrer Sauf en une conditon de voir aucun Edit ou autres composants vides)
Juste un ajout de codes permettant de ne pas sauvegarder lorsqu'il affiche le message de manque d'Edits rempli.
En conclusion, mes codes signifie juste pour deux edits. Mais quand est-il pour plusieurs composants (edits, combobox, etc... si l'un deux est vide)
.....OnClick....
begin if (edit1.Text ' ') or (edit2.Text ' ') then
begin
ShowMessage('edit vide');
begin
Adotable1.Append;
Adotable1.FieldByName('nom'):= edit1.Text;
Adotable1.FieldByName('Prenom'):= edit2.Text;
Adotable1.FieldByName('sexe'):= combobox1.Text;
Adotable1.Post;
Cirec
Messages postés3833Date d'inscriptionvendredi 23 juillet 2004StatutModérateurDernière intervention18 septembre 202250 8 mars 2008 à 19:27
Salut,
.....OnClick....
begin if (edit1.Text ' ') or (edit2.Text ' ') then
//begin
ShowMessage('edit vide')
Else
begin
Adotable1.Append;
Adotable1.FieldByName('nom'): = edit1.Text;
Adotable1.FieldByName('Prenom'):= edit2.Text;
Adotable1.FieldByName('sexe'):= combobox1.Text;
Adotable1.Post;
cs_siah
Messages postés3Date d'inscriptionvendredi 7 mars 2008StatutMembreDernière intervention 8 mars 2008 8 mars 2008 à 19:58
Merci Cirec de m'avoir apporter assistance.
Je ne sais pas si ça serait demander beaucoup. Ma question est celle-ci?
Quand est-il s'il s'agirait de plusieurs composants à la fois (edits et comboboxs). Par exemple, au lieu d'
écrire ces codes (coloré en rouge). Que peut on ecrire?
.....OnClick....
begin if (edit1.Text ' ') or (edit2.Text ' ') then
//begin
ShowMessage('edit vide')
Else
begin
Adotable1.Append;
Adotable1.FieldByName('nom'): = edit1.Text;
Adotable1.FieldByName('Prenom'):= edit2.Text;
Adotable1.FieldByName('sexe'):= combobox1.Text;
Adotable1.Post;