Dbgridde toplam alma ve bunu Edit1.text'se aktarma

[denizfatihi]

dbgride sql ile toplam alıyorum yanlız bunu Edit1.text birtürlü göndermeyi
başaramadım (Not: Bütün işlemler tek bir tablodan yapılıyor Stok_Hareket_Tablosu)
ayrıca bu sql komutunu direkt fromun içine mi yazmam gerekiyor yoksa query'nin içine mi yazmam gerekir........

Bilen arkadaşlar lütfen yardım etsinler yardımlarınız için şimdiden teşekürler.

[selm@n]

Benim projemde IBQuery ile tutar alanımı toplamt alanıma alyorum ve
edit1 in içine atıyorum..
IBQuery

Kod: Tümünü seç

select sum(TUTAR) as toplamt  from FATURA

IBDataSet in AfterPost'tunda her kayıt eklediğimde edit1 e aktarıyorum..

Kod: Tümünü seç

edit1.Text:=inttostr(Dm.IBQuery1TOPLAMT.Value);

İyi çalışmalar..

[P206]

Birde kayıdın silinebileceğini unutmamak lazım öyle bir ihtimal varsa. BeforeDelete event ı nıda bu durum için kullanabilrsiniz.

[denizfatihi]

yardımcı olan arkadaşları çok teşekkürler ama ben aşağıdaki gibi çözmeyi başardım

query6.close;
query6.SQL.clear;
Query6.sql.Text:='SELECT sum (STHAR_BF) FROM STHAR WHERE FISNO = "'+ Edit1.Text +'"';
QUERY6.OPEN;
edit13.text:=query6.Fields[0].asstring;
edit13.text:= formatfloat('###,###',strtofloat(edit13.text));

[vkamadan]

Merhaba,
Daha temiz bir kod yazmak istersen die bilgi amaçlı söylüyorum yukarıdaki son 2 Satırdaki kodu tek satırda şöyle yapabilirsin,

Kod: Tümünü seç

edit13.text:=FormatCurr('.#,##',Query6.Fields[0].AsCurrency);

Başarılar.