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 ?