bu şekilde bir quantum giridde örneğin kalem sorgulayacaksam kaç tane kalem girmiş kaç tane kalem çıkmış buluyorum.Yani kaleme ait stoku diğer stoklar içerisinden filitreleyerek buluyorum.S:='';
if stkod.Text<>'' Then
Begin
S:=Format('(stokkod=%s)',[stkod.text]);
end;
if stadi.Text<>'' Then
Begin
S:=Format('(stokkod=%s)',[VartoStr(stadi.LookupKeyValue)]);
end;
if S<>'' Then
begin
S:='Where '+S;
S:='Select * From stok INNER JOIN hareket ON stok.ID=Hareket.STID '+S+'Order By tarih';
DM.qsorgu.Close;
Dm.qsorgu.SQL.Clear;
Dm.qsorgu.SQL.Add(S);
Dm.qsorgu.ExecSQL;
Dm.qsorgu.Open;
Tablo ile ifade edecek olursam
şeklindeStok Adı-----------Giren----Çıkan----Kalan
Kalem---------------10------- 5---------5
Kalem---------------20-------10--------10
Kalem---------------10-------10---------0
Toplam--------------40-------25--------15
Sorum Şu Bu tablodaki gibi gridin altına toplam nasıl aldırırım.
formda arama yaptım
şeklinde bir kod ile toplam yapıldığı belirtilmiş. Kısaca sum ile yapıldığı bildirilmiş. Bu kodu yukarıda belirtmiş olduğum sorgu butonunun altında bulunan kodun neresine yazmam gerekiyor. Sonuna yazıyorumwith DM.Qsorgu do
begin
Dm.Qsorgu.Close;
Dm.Qsorgu.SQL.Clear;
Dm.Qsorgu.SQL.Add('select sum(stgiris) from hareket');
Open;
end;
Qsorgu:Filed 'ID' not found şeklinde hata ile karşılaşıyorum.
Ayrıca yukarıda sadece stok giriş toplamını aldırdım. STok çıkış ve kalan için nasıl bir kod yazmam gerekir.Dm.Qsorgu.SQL.Add('select sum(stgiris),(stçıkıs),(stkalan) from hareket'); gibimi yoksa daha farklı bir kodmu? Başba bir kodmu yazmam gerekiyor Üstadlar bana yardımcı olabilirmisiniz.Şimdiden teşekkürler...
Not: Programda Access veri tabanı kullandım