Discussion :

[helmis]

Bonjour

J'utilise un checkbox avec les composants Interbase de Borland, le checkbox ecrit les valeurs dans la table mais à la lecture il n'affiche rien



Une idée ?

[apad]

1) Vérifier si le champ lié au DBCheckBox est null. Si c'est le cas, le composant doit être informé de la façon de représenter une valeur null (grisé par défaut de mémoire).
2) Vérifier si la propriété AllowGrayed du DBCheckBox est à True. Dans ce cas, la valeur grisée est utilisée pour représenter la valeur null.

Cdlt

[helmis]

Verifié tout est ok
Champs n'est pas null
AllowGrayed du DBCheckBox est à True

[apad]

Le champ lié au DBCheckbox est bien de type booléen ?

[helmis]

Y'a pas ce type avec Firebird

[apad]

La réponse à ton problème est surement dans la méthode suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
function TDBCheckBox.GetFieldState: TCheckBoxState;
var
  Text: string;
begin
  if FDatalink.Field <> nil then
    if FDataLink.Field.IsNull then
      Result := cbGrayed
    else if FDataLink.Field.DataType = ftBoolean then
      if FDataLink.Field.AsBoolean then
        Result := cbChecked
      else
        Result := cbUnchecked
    else
    begin
      Result := cbGrayed;
      Text := FDataLink.Field.Text;
      if ValueMatch(FValueCheck, Text) then Result := cbChecked else
        if ValueMatch(FValueUncheck, Text) then Result := cbUnchecked;
    end
  else
    Result := cbUnchecked;
end;

Par déduction, ta case est grisée soit :
1) Ton champ est null
2) Ton champ n'est pas du type booléen et les valeurs stockées dans ton champ ne correspondent pas aux valeurs des propriétés ValueChecked, ValueUnchecked du TDBCheckBox ...

Par exemple
Si ton champ est de type entier, indique 1 pour ValueChecked et 0 pour ValueUnchecked
Si ton champ est de type chaîne, indique "vrai" pour ValueChecked et "faux" pour ValueUnchecked.
Bien sûr ce ne sont que des conventions que je donne à titre d'exemple, à toi de choisir quelle est la valeur pour cocher ou pour décocher.

[helmis]

Merci, On peut contourner ça avec ses propres procédures & fonctions , le problème que depuis mon passage sous firebird, je ne fais que reprogrammer avec propres fonction, ce ma tracasse énormément vu le temps que ça prend.

Merci en tout cas.

[apad]

On peut contourner ça avec ses propres procédures & fonctions

Je ne suis pas sûr d'avoir bien compris cette phrase.
Je pense qu'il n'y a pas de contourner le fonctionnement standard du TDBCheckBox. Il suffit juste de renseigner les propriétés ValueChecked, ValueUnchecked et AllowGrayed pour définir le comportement du composant.

Si ton champ prend les valeurs de 1 à 5 et que tu veux cocher la case uniquement pour les valeurs 1 et 3, il suffit de renseigner la propriété ValueChecked avec "1;3" et ValueUnchecked avec "2;4;5"

Cdlt

[helmis]

ça ne marche pas, j'ai déjà essayer il faux toucher le checkbox car il a besoin d'un champs booléen pour tourner correctement.

[apad]

ça ne marche pas, j'ai déjà essayer il faux toucher le checkbox car il a besoin d'un champs booléen pour tourner correctement.

Ah ? Quels sont les symptomes ? La case reste grisée ?

[helmis]

Exactement,Merci pour ton aide.

[SergioMaster]

je ne comprends pas . J'utilise les TDBCheckBox sans problèmes avec un Champ ayant les valeurs 'O' ou 'N' déclaré Char(1) en Interbase donc non boolean au sens strict du terme et cela fonctionne parfaitement
bien sûr si la valeur est null la case est grisée mais là c'est un problème de 'gestion' de Default Value . Dans mon , mes , cas et sauf rares exceptions le champ ne peut avoir que ces deux valeurs (apres tout il n'y a que deux etats possible , coché ou non , 'O' ou 'N',)
lors de la creation d'un champ de ce type je le declare donc

Code :

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

CHAMP_BOOLEAN CHAR(1) NOT NULL DEFAULT 'O'

, et pour betonner je rajoute une contrainte de valeur

Code :

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

CONSTRAINT UNBOOLEAN CHECK CHAMP_BOOLEAN IN ('O','N')

ou le rattache a un DOMAIN

[helmis]

C'est résolu après avoir changé le type 'Char' en 'VarChar'.
Explication ???