[Kaf_Dağı]

Cool SQL iki tarih arası sütun toplamı

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

SQL iki tarih arası sütun alanının toplamı, kayıt sayısını alıp label de gösterme.
 
Ör :
 
01.01.2010 - 31.01.2010
 
Kayıt sayısı : 175
Nakit        : 41.825,50 TL
Kontenjan    :  8.595,65 TL
Genel Toplam : 50.425,11 TL
 
 
procedure TSorgulamaForm.BitBtn2Click(Sender: TObject);
var
  GridNAKIT,GridKONTENJAN:Currency;
begin
  DataModule1.Query1.close;//kapat
  DataModule1.Query1.SQL.clear;//temizle
  DataModule1.Query1.SQL.Add('SELECT * FROM kontenjangir');//table
  DataModule1.Query1.sql.add('Where TARIH BETWEEN '+chr(39)+MaskEdit1.Text+chr(39)+' and '+chr(39)+maskedit2.Text+chr(39)+'');//2 tarih arası
  DataModule1.Query1.filtered := True;
  DataModule1.Query1.Open;//aç
       DataModule1.Query1.First;//ileri
                while not DataModule1.Query1.eof do
                begin
                       GridNAKIT:=GridNAKIT+StrtoFloat(DataModule1.Query1.fieldbyname('NAKIT').asstring);
                       GridKONTENJAN:=GridKONTENJAN+StrtoFloat(DataModule1.Query1.fieldbyname('KONTENJAN').asstring);
                       DataModule1.Query1.Next;
                end;
 
    Label5.Caption:=Floattostr(GridNAKIT);//nakit topla
    Label6.Caption:=Floattostr(GridKONTENJAN);//kontenjan topla
    Label10.Caption:=Floattostr(GridNAKIT+GridKONTENJAN);//nakit+kontenjan topla
    Label1.Caption:=Inttostr (Datamodule1.Query1.RecordCount)+' '; //kayıt sayısını göster
 
    Label5.Caption := FormatFloat('###,##0.00',strtofloat(Label5.Caption ));//nakit toplam göster
    Label6.Caption := FormatFloat('###,##0.00',strtofloat(Label6.Caption ));//kontenjan toplamı göster
    Label10.Caption := FormatFloat('###,##0.00',strtofloat(Label10.Caption ))//nakit+kontenjan toplamını göster
 
end;