afficher une Form de bienvenu

Bonsoir.

Voila je tombe sur un petit probleme encore :aie:

En fait lors de l'ouverture du programme je veux regarder si il n'y a pas de client dans la base de donnée et donc si il n'y en a pas il faudra creer un client qui sera en faite l'utilisateur du programme.

Donc ta ma Form1 j'ai mis ce code dans l'evenement OnCreate

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

SQLQuery1->Active=false; SQLQuery1->SQL->Clear(); SQLQuery1->SQL->Add("SELECT RefClient FROM clients ORDER BY RefClient DESC LIMIT 1"); AnsiString test = SQLQuery1->RecordCount; SQLQuery1->Open();   if (test > 0) {   } else { // afficher une page de bienvenu Bienvenu->ShowModal(); }

---

Mais apparement builder n'aime pas je comprends pas pourquoi.
si vous pouvez m'aiclaircir a ce sujet :)

ps : j'ai bien inclus les units

moi je mettrais plutot ceci comme code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

SQLQuery1->SQL->Clear(); SQLQuery1->SQL->Add("SELECT RefClient FROM clients "); SQLQuery1->Prepare(); SQLQuery1->Open();   if (SQLQuery1->RecordCount != 0) {   } else { // afficher une page de bienvenu Bienvenu->ShowModal(); }

---

oui c'est pareil pour la condition mais builder bloque pour le showModal.

la condition est bonne :king:

justement il n'y aurait pas un souci dans la condition ?

s'il n'y a pas de client dans la base, alors on en crée un, sinon on affiche la fenêtre de bienvenue.

Code:

---

1 2 3 4 5 6 7 8 9

if (SQLQuery1->RecordCount == 0) { FicheCreerClient->ShowModal(); } else { Bienvenu->ShowModal(); }

---

sinon je vois pas l'erreur dans le code.

en fait si je met pas de Bienvenu->ShowModal(); il lance mon programme corectement cad il ouvre la Form1

Mais si je met Bienvenu->ShowModal dans mon code il plante a cette ligne.

j'ai trouver le bug.

Il fallait mettre le code non pas dans FormCreate mais Dans OnActivate !