DBGRID içinde listenen alanların toplamını almak

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
emrekilinc1984
Üye
Mesajlar: 58
Kayıt: 15 Eyl 2016 12:13

DBGRID içinde listenen alanların toplamını almak

Mesaj gönderen emrekilinc1984 »

Merhaba arkadaşlar dbgrid içinde listelediğim verilerin genel toplamını nasıl alabilirim bilgisi olan varsa lütfen yardımcı olsun.
carsoft
Üye
Mesajlar: 138
Kayıt: 01 Ağu 2014 12:27

Re: DBGRID içinde listenen alanların toplamını almak

Mesaj gönderen carsoft »

Gridden değilde Queryden yaparsanız daha hızlı olur

Kod: Tümünü seç

procedure  TFrmTahsAl.BakiyeHesapla;
var
    qryBakiyeDurum : TADOQuery;
begin
        qryBakiyeDurum:=TADOQuery.Create(Self);
        qryBakiyeDurum.Connection:= DM1.conETS;
        qryBakiyeDurum.close;
        qryBakiyeDurum.SQL.clear;
        qryBakiyeDurum.SQL.Add('SELECT (Sum(Borc)-Sum(Alacak)) AS Bakiye  ');
        qryBakiyeDurum.SQL.Add('FROM Hesaplar ');
        qryBakiyeDurum.SQL.Add('Where = Kriter ');
       qryBakiyeDurum.filtered := True;
        qryBakiyeDurum.Open;
      
          Bakiyesi.Text := qryBakiyeDurum.fieldbyname('Bakiye').AsString;
        qryBakiyeDurum.Free;
end;
Cevapla