Gülünç bir problem :|

[ByDeniS]

Arkadaşlar merhaba diyerek yardımlar için teşekkürder ederek başlıyorum bu yazıya sinirden gelen gülme krizleri içerisinde

Delphi'de rastlanması zor bir hata yada benim yazdığım koddan kaynaklanan bir hata. Ama mantıken çok saçma bir hata yapılmak istense yapılamaz sanırım

Sorun :

DBGrid üzerindeki bir kolana ait tüm verileri toplamak istiyorum. Yani bir kolana girilmiş olan tüm fiyatları toplayıp toplamını vermekte diyebilirim buna. Şöyle bir kod türettim biraz uğraşarak.

Kod: Tümünü seç

Type
TGrid=class(TDBGrid);

procedure TKasa.Button1Click(Sender: TObject);
var
 adet,satir,i:Integer;
 toplam:Double;
begin
 Table1.Open;
 toplam:=0;
 adet:=StrToInt(Format('%2d',[TGrid(DBGrid1).RowCount-1]));
 Table1.First;
 for i:=0 to adet do
 begin
  toplam:=toplam+DBGrid1.Fields[5].AsCurrency;
  Table1.Next;
 end;
 Label2.Caption:=(FloatToStrF(toplam,ffCurrency,14,0));
end;

Aldığım hata :
Programı başlatıp form'a girdiğim zaman herşey hatasız ve işlemide yaptırıyorum hiç bir hata yok. Ama sadece ekranda gözle görülür olan satırları topluyor
Yani 10 satılık ekranda 2 satır görünüyorsa 2 satırı topluyor.. 5 Satır görünüyorsa 5 satırı topluyor. (hatanın enteresan tarafı gözle görülür yerlerde işlem yapması)

Aradığım çözüm gözle görülmeyen kısımları nasıl toplarım

Saygılarımla.

[ikra]

gözle görünmeyen taraflarini görünürken olusturuyor ve veritabanindan görünecegi zaman cekiyor olabilir. FETCH komutunu bi arastir. yada sql ile direk SUM al, sonuca daha hizli ulasirsin. kolay gelsin

[tuna]

Kod: Tümünü seç

Type
TGrid=class(TDBGrid);

procedure TKasa.Button1Click(Sender: TObject);
var
adet,satir,i:Integer;
toplam:Double;
begin
Table1.Open;
toplam:=0;
adet:=StrToInt(Format('%2d',[TGrid(DBGrid1).RowCount-1]));
Table1.First;
for i:=0 to table1.recordcount-1 do
begin
  toplam:=toplam+DBGrid1.Fields[5].AsCurrency;
  Table1.Next;
end;
Label2.Caption:=(FloatToStrF(toplam,ffCurrency,14,0));
end;

Sanırım döngü bitişini gridin rowcount'una bağladığın için oluyor. döngünü yukarıda yazdığım gibi değiştirip denermisin.

[aslangeri]

s.a.
maden tablodaki tüm kayıtları alacaksın bu iş için yapılmış olan eof bilgilerini kullansana.
sen döngüyü şöyle yap

Kod: Tümünü seç

.....
Table1.First;
while not Table1.Eof do
begin
  toplam:=toplam+DBGrid1.Fields[5].AsCurrency;
  //burada dbgridin fieldiyle değil tablodaki alanla toplasan daha iyi olur. alanın adını bilmediğim için şöyle yazıyorum
  //toplam:=toplam+table1toplanmakistenenalanadi.ascurrency;
  Table1.Next;
end;
Label2.Caption:=(FloatToStrF(toplam,ffCurrency,14,0));
......

[emin_as]

Table1.Open komutundan sonra bir kez table1.last dersen tüm satırlar veritabanından fetch edilir. Fakat bu yöntem iyi değildir. Bu tür toplamları sql ile yapman daha performanslı olur.

[conari]

gridde gösterdiğin kayıtları SQL den çeken cümleye ait farklı bir cümle oluşturarak sum() ekle olsun bitsin. döngü ile veya o kadar fieldla uğraşma..

[ByDeniS]

Sum ile yapmayı bende denedim ama başaramadım sum ile yada beceremedim
Sum için bir örnek verebilirmisiniz.

[ikra]

Kod: Tümünü seç

select sum(tutar) as toplamtutar from islemtablosu where kriter=kriter