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