Discussion :

[helmis]

Bonjour

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

exp:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

J'y arrive pas.

[ShaiLeTroll]

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 ...

[SergioMaster]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[helmis]

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

[ShaiLeTroll]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

puis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[helmis]

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.

[ShaiLeTroll]

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 ...

[helmis]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
CREATE TABLE EXOIMPOT 
(
 
  CID VARCHAR(8) DEFAULT 'NON' NOT NULL COLLATE NONE,
 
);