Discussion :

[celine33]

Bonjour,

Je tente de créer un DBCtrlGrid qui contient un DBCheckBox relié à un champ calculé booléen du dataset ainsi qu'un champ Edit qui affiche un libellé relié au dataset également.
A l'affichage, les libellés s'affichent mais je n'arrive pas à gérer correctement le DBCheckBox.
Sur le OnClick du DBCheckBox, j'ai codé ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 if pdaDataModule.ADOQry_ComSauceboolSauce.Value = true then
 begin
   pdaDataModule.ADOQry_ComSauce.Edit;
   pdaDataModule.ADOQry_ComSauceboolSauce.Value := false;
   exit;
 end
 else if pdaDataModule.ADOQry_ComSauceboolSauce.Value = false then
 begin
   pdaDataModule.ADOQry_ComSauce.Edit;
   pdaDataModule.ADOQry_ComSauceboolSauce.Value := true;
   exit;
 end;

Je veux que la valeur du booléen boolSauce prenne la valeur true ou false selon que le dbcheckbox est coché ou non.
Or, avec ce code, ça boucle déjà à l'affichage du formulaire, car il passe dans le OnClick?!
Je sais qu'il existe les SMDBGrid qui permettent de gérer des multisélection mais je dois ne coder qu'avec du natif Delphi.. Grrrr!
Des idées?
Merci!

[Sunchaser]

Bonsoir,

En admettant que ton TDBCheckBox s'appelle tout simplement DBCheckBox1, pourquoi ne pas écrire tout simplement qqchose comme :

Code :

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

1
2
3
 
   pdaDataModule.ADOQry_ComSauce.Edit;
   pdaDataModule.ADOQry_ComSauceboolSauce.Value := DBCheckBox1.Checked;

?

@ +

[Yurck]

Bonjour,
ton problème doit-être résolu. Cependant si cela boucle toujours c'est parce que tu affecte une nouvelle valeur à ton TDBChecekBox via son lien datalink sur le champs dont tu changes la valeur.
Or le onclick est déclenché sur le ondatachange du champs qui lui-même suit l'ouverture de ton ensemble de données ou le changement d'enregistrement dans celui-ci. (donc à l'ouverture de ta fiche sans doute)

En conséquence de quoi ne le fait qu'en cas de besoin réel :

Code :

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

1
2
3
4
5
6
 
 if (pdaDataModule.ADOQry_ComSauceboolSauce.Value <> DBCheckBox1.Checked) then
 begin
    pdaDataModule.ADOQry_ComSauceboolSauce.Datasource.Dataset.edit;
    pdaDataModule.ADOQry_ComSauceboolSauce.Value := DBCheckBox1.Checked;
  end;

Mais ce qui m'embête c'est pourquoi coder le Onclick du DBCheckbox, ne fait-il pas lui même la mise à jour du champs "ADOQry_ComSauceboolSauce" ?

a+