IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Cool SQL iki tarih arası sütun toplamı
Kod:
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;