IBTable kullanarak DBGridte filtrelemeye bağlı kayıt sayısı

[dynamo]

IBTable kullanarak DBGridte filtrelemeye bağlı kayıt sayısını ve integer/double alan toplamını nasıl yapabilirim?

Örneğin tablo şu alanlardan oluşsun."SIRA,MUS_KODU,URUN_ADI,TARIH,TUTAR"
Burada SIRA key ve autoinc alan.Müşterilere bir günde değişik ürünler
satılıyor ve o günün tarihi kaydediliyor."23.09.2005" tarihinde a
müşterisine yapılan satışları ve toplam tutarını görmek istiyorum.Tabloda toplam 30 kayıt var."23.09.2005" tarihine ait a müşterisine için 6 kayıt bulunmakta.

Kod: Tümünü seç

procedure TForm1.IBTable1FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin

 Accept:=(Dataset.FieldValues['TARIH']=(datetimepicker1.Date));
end;

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
    toplam_tutar:Double;
    i:integer;
begin
  toplam_tutar:=0;
  ibtable1.Filtered:=false;
  ibtable1.Filtered:=true;
  for i:=1 to dbgrid1.DataSource.DataSet.RecordCount do
    toplam_tutar:=toplam_tutar+ibtable1TUTAR.Value;

  Label1.Caption:=floattostr(toplam_tutar);

end;

Button1e bastığımda grid1'de datetimepicker1'de seçilen tarihe göre a
müşterisine ait 6 kaydı görebiliyorum.fakat
dbgrid1.DataSource.DataSet.RecordCount
6 değil tablodaki toplam kayıt sayısı.toplam_tutar ise bu 6 kaydın toplamı değil tabloda 30 kayıt için yapılan toplam.

[kadirkurtoglu]

merhaba, sana tavsiyem IBQuery veya IBDataset kullan, bu yapmak istediklerini çok kolay bir şekilde sql sorgularıyla yapabilirsin.

select count sira_no from TABLO kayıt sayısını verir.

select sum (tutar) as top_tutar from TABLO belirtilen alan toplamını alır.

kolay gelsin...