Bonjour,

J'utilise un ADOQuery pour afficher mon calcul dans un DBText. Selon le resultat, il change de couleur. Mon problème est qu'il considere "solde" toujours positif. Pourquoi ?

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
23
24
procedure TForm1.CalculSolde;
Var solde:real;
Begin
    SoldeADOQuery.active:=false;
    SoldeADOQuery.SQL.Clear; // Effacement de la requete
    SoldeADOQuery.SQL.Text:='select sum(debit) - sum(remb) As Solde from compte';
    SoldeADOQuery.active:=true;
    With SoldeDBText do
        If solde<0 then
            Begin
                  // Affichage : Solde Négatif
                  Font.Name:=FontNameSoldeN;
                  Font.Color:=FontColorSoldeN;
                  Font.Size:=FontSizeSoldeN;
            End
        Else
            Begin
                  // Affichage : Solde Positif
                  Font.Name:=FontNameSoldeP;
                  Font.Color:=FontColorSoldeP;
                  Font.Size:=FontSizeSoldeP;
            End;
    SoldeDBText.DataField:='Solde';
end;