SQL İLE TOPLAM ALMAK !!!
ozcank16.06.2005 - 09:39:26
Arkadaşlar SQL in String kısmına ;

SELECT ROMUSKODU,ROMUSADI,ROMUSSOY,SUM(RO5TOPT) AS RO5T, SUM(ROILKKTOPT) AS ROILKT, SUM(RO1MICTOPT) AS RO1T,
SUM(ROMEBTOPT) AS ROMEBT, SUM(ROSONKTOPT) AS ROSONT FROM ROKAYIT
WHERE (ROMONTAJTAR BETWEEN :ROFILKTAR AND :ROFSONTAR)
GROUP BY ROMUSKODU,ROMUSADI,ROMUSSOY

bu şekilde yazdım daha sonra Button1 OnClick olayına ise ;

procedure TForm28.Button1Click(Sender: TObject);
Begin
Query1.Active:=False;
Query1.Params[0].AsDate:=DateTimePicker1.Date;
Query1.Params[1].AsDate:=DateTimePicker2.Date;
Query1.Active:=True;
Label3.Caption:=IntToStr(Query1.FieldByName('RO5T').AsInteger);
Label4.Caption:=IntToStr(Query1.FieldByName('ROILKT').AsInteger);
end;
yazdım fakat DBGrid1 e burdaki alanlar ile birlikte sadece ROMUSKODU,ROMUSADI,ROMUSSOY alanları dolu veri listeliyor ama
RO5T,ROILKT,RO1T,ROMEBT,ROSONT alanları boş olarak listeliyor aslında bu alanlarda da veri girilmiş ama listelemiyor ve dolayısıyla da toplam almıyor yardım ederseniz çok sevinirim.
 
rsimsek16.06.2005 - 10:54:22
Bahsettiğin alanlardan label a atadıklarında veri geliyorsa DBGrid in Columns Editor ünden boş gelen alanların Object Inspector den properties lerini kontrol edip FieldName leri atanmış mı kontrol et Idea
 
ozcank16.06.2005 - 12:24:55
DBGrid1 de boş geliyor.
 
vedatkaba16.06.2005 - 12:38:30
Toplam almaması gayet normal aslında kodun da çalışmaması lazım.Çünkü
select
ten sonra seçtiğin alanlar içinde
sum
fonksiyonuyla toplama yapmaya çalıştığın alanların bazılarını göremiyorum.Dikkatli bakarsan sende görürsün.toplam aldıracaksan toplam aldıracağın alanları seçmek zorundasın.Query nin içine almadığın bir alanı nasıl toplatıp dolu bir şekilde bekliyorsunki.Kolay gelsin.
 
ozcank16.06.2005 - 13:33:11
şu an ilk kayıtta ne varsa onu topluyor label e 1.250 + 250 =1.500 yapmıyor. 1.250 olarak gösteriyor.
 
cemarik19.06.2005 - 10:50:17
IBExpert ya da IB Konsülünden dönen değerleri bi kontrol et istersen sql komut satırında problem yoksa ona göre delphi kısmında durumu değerlendir.
 
NOT : Bu sayfa google'un siteyi indekslemesi içindir. www.delphiturkiye.com/forum/ adresini kullanınız!
1998-2006 www.delphiturkiye.com