Discussion :

[karinya]

Bonjour,

J’utilise une base B_COMPTE.DBF qui comporte une dizaine de champs, dont les champs Credit, Debit et Code.
Credit et Debit ayant des valeurs décimales positives ou négatives
Quand il y a une valeur dans le champ Credit, le champ Debit est vide et inversement.

Je souhaite respectivement afficher dans :
EditCredit.Text la somme du champ Credit quand code = B02;
EditDebit.Text la somme du champ Debit quand code = B02;

Avec le code ci-dessous j’obtiens des valeurs dans EditCredit.Text et EditDebit.Text qui ne correspondent pas aux valeurs attendues

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.BitBtn8Click(Sender: TObject);
var
  TCredit, TDebit : currency;
begin
  with Query1 do  
  begin
    Active:=False;
    SQL.Clear;
    SQL.Add('SELECT SUM(Credit) AS TCredit, SUM(Debit) AS TDebit from B_COMPTE.DBF WHERE CODE=''B02''');
    ExecSQL;
  end;
  EditCredit.Text:= floattostr(TCredit);
  EditDebit.Text:= floattostr(TDebit);
end;

Je dois certainement oublier quelque chose.

[qi130]

Oui, tu oublies d'extraire TCredit du résultat de la requète
genre

Code :

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

EditCredit.Text:=floattostr(query1.fields[0].value;

Attention: ne connaissant pas la classe de Query1, je ne peux affirmer que cette méthode est la bonne, mais l'idée est là.

[SergioMaster]

- ce n'est pas un ExecSQL qu'il faut mais un Open ou Active=True

- ne pas oublier de fermer la query après transformation des Champs

pour la transformation des champs l'utilisation du code proposé par QI130 (que je salue au passage) ou l'utilisation de Format . ce qui donne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.BitBtn8Click(Sender: TObject);
begin
  with Query1 do  
  begin
    Active:=False;
    SQL.Clear;
    SQL.Add('SELECT SUM(Credit) AS TCredit, SUM(Debit) AS TDebit from   B_COMPTE.DBF WHERE CODE=''B02''');
    Active:=true;

  EditCredit.Text:= Format('%3.2f',Fields[0].asCurrency);    
  EditDebit.Text:= format('%3.2f',FieldbyName('TDebit').asCurrency);
    Active:=False;
  end;   // fin du with Query1
end;

[karinya]

Merci à QI130 et SergioMaster.

En ce qui concerne la transformation des champs, le code proposé par QI130 fonctionne parfaitement.

En ce qui concerne le ExecSQL, j’adopte la solution proposée par SergioMaster.

Je fais donc un Active=True puis après transformation des Champs je ferme Query avec Active:=False.

Tout serait parfait sauf qu’avec l'utilisation de Format proposée par SergioMaster :

Code :

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

1
2
  EditCredit.Text:= Format('%3.2f',Fields[0].asCurrency);    
  EditDebit.Text:= format('%3.2f',FieldbyName('TDebit').asCurrency);

J’ai l’erreur suivante lors de la compilation:
« Aucune version surchargée de 'Format' ne peut être appelée avec ces arguments ».

[Cl@udius]

Petite erreur d'inattention:

Code :

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

EditCredit.Text:= Format('%3.2f', [Fields[0].AsCurrency]);

Ne pas oublier les crochets.

[karinya]

C'est parfait !
Merci.