Structure conditionnelle avec CheckedBox

Version imprimable

Bonjour les amis, J'ai mis en place cette condition sur un checkbox.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 procedure TFrmAutoPrelevement.CheckBox1Click(Sender: TObject); begin if CheckdBox1.Checked=True then begin With DataModule1.IBQueryMTProd do begin close; ParamByName('LIB_PROD').Value := 'ASSURANCE MALADIE'; Open; if not Eof then begin MontantMaladie.Value:=FieldValues['MT_PROD']; end else if CheckBox1.Checked=False then MontantMaladie.Value:=0; end; end; Calcul.Execute; end;
L'idée est que si je clique sur le checkbox pour mettre sa propriété checked à True, l'information est récupérée dans la base de donnée et s'affiche dans le currencyedit. Et si je clique à nouveau sur le checkebox pour que sa proprieté checked soit à false, la valeur de currencyedit redevient zéro. Dans le premier cas il fonctionne mais pas dans le second cas. Quelque chose manque t-elle dans mon codes ?

11/12/2009, 09h10
Cl@udius

Salut

La condition Checked = False (que tu devrais écrire: not Checked) est mal placée, puisque au sein du 1° bloc then. :aie:

@+

Et oui tu n'indentes pas bien ton code !!! :aie::aie::aie:

tu es un codeur brouillon ! C'est pas propre et ça induit des bugs évidents !!!

Voici ton code indenté et corrigé:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure TFrmAutoPrelevement.CheckBox1Click(Sender: TObject);
begin
     if CheckdBox1.Checked=True then
     begin
       With DataModule1.IBQueryMTProd do
       begin
          close;
          ParamByName('LIB_PROD').Value := 'ASSURANCE MALADIE';
          Open;
          if not Eof then
          begin
            MontantMaladie.Value:=FieldValues['MT_PROD'];
          end
       end
     end
     else if CheckBox1.Checked=False then
        MontantMaladie.Value:=0;
 
     Calcul.Execute;
end;

11/12/2009, 09h16
the watcher

Excuse-moi Cl@udius je n'ai pas bien compris. où devrais-je placer la condition not checked ?
11/12/2009, 09h23
the watcher

Désolé les amis, j'ai maintenant compris
Vous êtes trop cool
Longue vie à Developpez.com :ccool:
11/12/2009, 09h29
peter27x
Citation:

Envoyé par the watcher

Excuse-moi Cl@udius je n'ai pas bien compris. où devrais-je placer la condition not checked ?

Il veut dire que tu peux écrire différemment tes tests, par exemple comme ceci:
Code:

1 2 3 4 if checkBox1.checked then ... else ...
ça suffit ! pas besoin de mettre "=true" et "=false", mais ça c'est pas bien grave comparé à ton erreur initiale.
11/12/2009, 09h31
Cl@udius

Tout comme Peter, je te conseille de bien indenter ton code, cela évite de commettre de type d'erreur. ;)

@+

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TFrmAutoPrelevement.CheckBox1Click(Sender: TObject);
begin
  MontantMaladie.Value := 0;
 
  if CheckdBox1.Checked then
    with DataModule1.IBQueryMTProd do
    begin
      Close;
      ParamByName('LIB_PROD').Value := 'ASSURANCE MALADIE';
      Open;
      if not Eof then
        MontantMaladie.Value := FieldValues['MT_PROD'];
    end
 
  Calcul.Execute;
end;