Affecter la valeur Null à la propriété Checked d'un CheckBox

Bonjour

J'aimerai affecter la valeur Null à la propriété Checked d'un checkbox

exp:

Code:

---

if TExoinfo.FieldByName('enf').Value = Null then DBCheckBox1.Checked := False;

---

J'y arrive pas.

8O pourquoi modifier la valeur d'un DBCheckBox, autant le lié à la table directement, sinon voir AllowGrayed qui donne l'aspect ni oui, ni non, en Win2K c'est un croix gris foncé, en XP c'est un carré vert, en vista, j'ai pas encore vu ...

Code:

---

1 2 3 4

if TExoinfo.FieldByName('enf').isnull then CheckBox1.Checked := False; //ou CheckBox1.Checked:=not TExoinfo.FieldByName('enf').isnull

---

nota : tu avais indiqué DBCheckBox1 , celui -ci étant certainement liè a un champ cela ne pourrait pas fonctionner

EXACT
J'aimerai avoir un
Checked ou unChecked

Pas de Gris

La valeur "Null" à Uncheked

J'ai pas trouvé de Solution,sauf initialiser tout les champs avec une valeur après l'événement AfterInsert

Donc c'est bien un DBCheckBox ou CheckBox à la base ? ... effectivement AllowGrayed ne fonctionne que pour le click utilisateur, mais le premier affichage est foireux, ... c'est con ça

Donc ça ne fonctionne pas, et effectivement, en fait je me suis fait trompé par les habitudes de ma boite, c'est parce qu'avec MySQL, on déclare nos champs boolean comme ceci

Code:

---

1 2 3

char(1) DEFAULT '' char(1) DEFAULT 'N' TinyInt(1) DEFAULT 0

---

puis

Code:

---

1 2	DBCheckBox.ValueChecked := 'Y'; DBCheckBox.ValueUnChecked := ';N';

---

le '' ou le 'N' sont false tous les deux ...

Et donc, les valeurs sont pré-remplis, si tu ne te préoccupe pas du null (là où je travaille on a très peu d'appli ou cela est pré-occupant ou alors la notion échappe à l'utilisateur), tu devrais faire pareil si ton moteur de DB le gère (ou alors un code d'init long et souvent piégeux à maintenir, une petite encapsulation en objet métier ferait merveille) ... en fait, je me rend compte, que j'ai eu assez peu de DBCheckBox dans mes projets dans mes anciennes boites, et en fait, le null avait son importance que ce soit en Cardiologie, en Santé Publique, ... en industrie, je n'avais pas de booléen à afficher, j'avais des vrais lampes sur les machines pour le faire :mouarf:,

Comme quoi, revenir à l'essentiel, ça a du bon ... à force de faire toujours la même chose, on oublie, ces petits détails ...


Donc la Solution a été donné par SergioMaster, il faut prendre un simple TCheckBox

Code:

---

CheckBox.Checked := not TExoInfo.FieldByName('enf').IsNull and TExoInfo.FieldByName('enf').AsBoolean

---

enf c'est un entier ou une chaine, ou un vrai Booléen ?

Bonjour

C'est un VarChar, avec un CheckBox je serai obligé de programmer moi même les valeur du champs 'enf' aux saisi, donc ça revient aux même,il vaux mieux initialiser les champs par une valeur dans la Base Firebird.

VarChar, effectivement, j'ai le même soucis, des fois c'est '0', 'N', 'F', 'Faux', 'Non' ... tout ça parce qu'il n'y a pas les bases d'un modèle réfléchi dans nos applications, il y a toute une lib qui fait plein de chose qui ne sert à rien, mais n'a pas les fonctions les plus élémentaires, comme un AsBoolean commun à toute les applications ...

En FireBird, le DEFAULT du SQL, est possible ? si oui, autant en profiter ...

Code:

---

1 2 3 4 5 6 7

CREATE TABLE EXOIMPOT (   CID VARCHAR(8) DEFAULT 'NON' NOT NULL COLLATE NONE,   );

---