vrachid
Messages postés109Date d'inscriptionlundi 6 mars 2006StatutMembreDernière intervention 5 octobre 2011
-
25 mars 2008 à 11:22
vrachid
Messages postés109Date d'inscriptionlundi 6 mars 2006StatutMembreDernière intervention 5 octobre 2011
-
30 mars 2008 à 17:42
bj a tous
pouvez vous m'aider a savoir ce qui cloche dans ça:
procedure TForm3.BitBtn1Click(Sender: TObject);
begin
with QCaisse do begin
with sql do
begin
Clear;
Add(' SELECT SUM(Hono) as TotalH from Recette ');
add('SELECT SUM(Depense) as TotalD from Recette');
end;
open;
end;
Label5.Caption:=CurrToStrF(QCaisse.fieldbyname('TotalH').asCurrency,fffixed,2);
Label6.Caption:=CurrToStrF(QCaisse.fieldbyname('TotalD').asCurrency,fffixed,2);
QCaisse.FieldByName('TotalG').AsCurrency :=QCaisse.FieldByName('TotalH').AsFloat - QCaisse.FieldByName('TotalD').AsCurrency;
Label7.Caption:=CurrToStrF(QCaisse.fieldbyname('TotalD').asCurrency,fffixed,2);
end;
merci