ADOQuery + DBText

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:

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;

Re: ADOQuery + DBText

Citation:

Envoyé par yanba

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:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
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;

Salut !

Ça ne fonctionne pas parce que tu n'assignes jamais à solde la valeur de la colonne Solde de ta requête. Il faut alors ajouter cette ligne:

Code:

1
2
 
solde := SoldeADOQuery.FieldByName('Solde').AsFloat;

Aussi, personellement, j'ajouterais une paire de parenthèses dans la requête (je sais pas si ça change qqchose mais bon...).

Voici le code complet une fois corrigé:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
procedure TForm1.CalculSolde;
var
  solde: double;
 
begin
  SoldeADOQuery.Close;
  SoldeADOQuery.SQL.Clear; // Effacement de la requete
  SoldeADOQuery.SQL.Text := 'select (sum(debit) - sum(remb)) As Solde from compte';
  SoldeADOQuery.Open;
 
  solde := SoldeADOQuery.FieldByName('Solde').AsFloat;
 
  with SoldeDBText do
  begin
    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;
 
    DataField := 'Solde';
  end;
end;

A+!

C'est cool ca marche, merci !!