procedure TRapor.SpeedButton1Click(Sender: TObject);
var
B : TBookmark;
FaturaToplam : double ;
begin
AdoQueryCariKart.first;
while not AdoQueryCariKart.eof do
begin
FaturaToplam := 0;
try
B :=AdoQueryCariKart.getbookmark;
AdoTableFaturalar.first;
while not AdoTableFaturalar.eof do
begin
FaturaToplam := FaturaToplam + AdoTableFaturalar.FieldByName('Fatura_Toplam').value ;
AdoTableFaturalar.next;
end;
finally
AdoQueryCariKart.gotobookmark(B);
AdoQueryCariKart.edit;
AdoQueryCariKartToplam.value := FaturaToplam ;
AdoQueryCariKart.post;
AdoQueryCariKart.freebookmark(B);
end;
AdoQueryCariKart.next;
end;
end;
En son erdogan_ozkaya tarafından 11 Mar 2010 08:59 tarihinde düzenlendi, toplamda 1 kere düzenlendi.
Tam olarak ne yaptığını çözmedim ama anladığım kadarı ile hesaplama yapıyorsan bunu sql ile yapmanı tavsiye ederim sorgu sonucuda toplam değeri istediğin yere alırsın bu şekilde sistem hem yavaş ilerler hemde veri tabanı kullanım mantığının dışına çıkmış olursun. Tama olarak ne yapmak istediğini yazar isen daha etkili yarımcı olmaya çalışırım. Kolay gelsin.
Arkadaşlar,
2 tablom var 1.tablo carikart 2.tablo kesilenfaturalar 1.tabloda firmaAdi, firmaRef ve ToplamBorç var 2.tabloda ise firmaRef ve FaturaTutarı var 1 tablo ikinci tabloyu filtreleyerek firmaRef numaraları aynı olanları toplayıp ToplamBorç'a yazıyo buraya kadar bir sorun yok asıl sorum diyelimki firmanın belli tarih aralığındaki borçları görmek istiyorum aşağıdaki koda bir kaç deneme yaptıysamda sürekli hata aldım ve veritabanı sql değil access nasıl bir kod ekleyebilirimki tarih aralığını alayım ?
procedure TRapor.SpeedButton1Click(Sender: TObject);
var
B : TBookmark;
FaturaToplam : double ;
begin
AdoQueryCariKart.first;
while not AdoQueryCariKart.eof do
begin
FaturaToplam := 0;
try
B :=AdoQueryCariKart.getbookmark;
AdoTableFaturalar.first;
while not AdoTableFaturalar.eof do
begin
FaturaToplam := FaturaToplam + AdoTableFaturalar.FieldByName('Fatura_Toplam').value ;
AdoTableFaturalar.next;
end;
finally
AdoQueryCariKart.gotobookmark(B);
AdoQueryCariKart.edit;
AdoQueryCariKartToplam.value := FaturaToplam ;
AdoQueryCariKart.post;
AdoQueryCariKart.freebookmark(B);
end;
AdoQueryCariKart.next;
end;
end;
Şefkat-u Merhamette Güneş Gibi Ol.
Başkalarının Kusurunu Örtmekte Gece Gibi Ol.
Sehavet-u Cömertlikte Akarsu Gibi Ol.
Hiddet-u Asabiyette Ölü Gibi Ol.
Tevazu-u Mahviyette Toprak Gibi Ol.
Ya Olduğun Gibi Görün Ya Göründüğün Gibi Ol.
