Discussion :

[the watcher]

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

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

[Cl@udius]

Salut

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

@+

[peter27x]

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

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

Voici ton code indenté et corrigé:

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

[the watcher]

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

[the watcher]

Désolé les amis, j'ai maintenant compris
Vous êtes trop cool
Longue vie à Developpez.com

[peter27x]

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 :

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

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.

[Cl@udius]

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

@+

[Dr.Who]

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