qreport ile ilgili yardım lütfen

[aydogan46]

merhabalar;
arkadaşlar benim iki sorum olacak raporlama ile ilgili.
öncelikle paradox ve query kullanıyorum.
1) form1.de form üzerine bir datasource ve query koyup ayarlamaları yapıyorum ve istediğim her sorguyu çalıştırıyorum. daha sonra form2 oluşturup üzerine quickrep elemanını yerleştiriyorum ve dataset özelliğine form1.query1 veriyorum ve form1 sorguladıgım verileri istediğim gibi yazdırıyorum buraya kadar sorun yok. ama form2 üzerine Qrexpr elemanını eklediğim zaman bu elemanın dataset özelliği yok yani form1deki query1 i kullanamıyorum . neden gerek oldu derseniz integer alanların toplamını almak istiyorum. ama form2 üzerinede datasource ve query koyup ayarlamaları yaptığımda toplamı alıyor. ama ilk yol benim için çok önemli. eger bilen varsa
2) ikinci soru form1de(yukardaki ayarlamalar geçerli) query1.sql.add('select sirano,adisoyadi, sum(miktar) as TOPLAM FROM XXX ') yazdıgımda toplamı veriyor (kod tam olmayabilir) benim derdim burdaki TOPLAM alanını rapor alanında nasıl gösterip yazdırabilirim..
cevaplarınızı dört gözle bekliyorum hepinize kolay gele....

[mussimsek]

Merhaba,

1. QrExpr sadece aynı formdaki dataset'leri (Query, Table vs.) görüyor diye hatırlıyorum. İmkan varsa aynı Query'i aynı forma taşıyın.

2. Bir tane QrLabel koyup, atamayı yaparsın. Mesela QuickRep Form2'de ve qrlabel'ın ismi qrlToplam ise

......
//query ile toplamı aldık

qrlToplam.Caption := Query1.Fields[0].AsFloat;

Kolay gelsin.

[hakkus]

merhaba,
Yıllar önceki bir dökümandan aklımda kalanlar:

QRExp nin value özelliğinin veri tipi;
TQREvResult tipindedir.
Bu değişken tipi ve değeri ayrı ayrı bulundurur
Value.Kind Değer
----------- -------
resInt ise Value.IntResult
resDouble ise Value.DblResult
resString ise Value.StrResult
resBool ise Value.BooResult...
umarım bu bilgiler işine yarar
saygıyla

[akayar]

form1 de iken istediğin alanların toplamını alıp bir label'a ata ve form2 ye quickrep içinede bir label koy, ardından form1 den form2 ye geçerken form1 deki label ın değerini quickrep'teki label'a ata kolay gelsin

[mehmet_turecan_cakmak]

selam

hocam istersen form 2 ye yeni bir datasorce koy veya o forma tüm unitleri aç bunlardan bşrş mutlaka işini görür...

iyi çalışmalar...

[bobasturk]

Merhabalar,

Aynı sorunları yaşadığım için buradan devam etmek istedim. bir sorgulama sayfam var ve burada bir query ile sorgu yaptırırken diğer query ler ile bu sorgulanan tablonun bazı alanlarının toplamını aldırıyorum. bu alanlar float tanımlı.

bu sorgu ve toplama sonucunu QR ile yazdırmak istiyorum. her şeyini yaptım kayıt sorgulama çalışıyor ve kayıtlar yazdırılmaya hazır. üç toplanan alanım var queryler ile bunlarda pagefooter bant içinde yazılmaya hazır. sorun buradan sonra başlıyor. bu üç alandan ikisinin toplamından bir alanın çıkarılması ile Farkı alıyorum ve sorgu formunda dbtext içinde gösteriyorum. bu dbtext içindeki veriyi qreport ta bulunan qrlabel ile eşitleyemedim. baya uğraştım ve bu konu ile ilgili çıkan sonuçları okudum ama olmadı. qrexpr ile yapamadım. query lerim dm içinde ama örnekleri uygulamama rağmen sonuç alamadım.

neyse sorunum olan qrlabel ile dbtext eşitlemesi. en son denediğim şu

Kod: Tümünü seç

procedure TFormAidatBorcSrg.JvXPButton3Click(Sender: TObject);
begin
  formaidatsrgqryaz.quickrep1.Preview;
  formaidatsrgqryaz.QRLabel15.Caption:=floattostr((dm1.aidattoplaibquery.fieldbyname('ADET1').AsFloat+
                dm1.sutoplaibquery.fieldbyname('ADET2').AsFloat)-
                  dm1.odenentoplaibquery.fieldbyname('ADET3').AsFloat);
end;

çeşitli şekillerde denesemde olmadı.

delphi7 = firebird1,5 = winxp
bilgisayarımda şu an yazıcı yok

teşekkür ve saygılarımla
kolay gelsin

[bobasturk]

Tekrar merhabalar,

hepinizden özür dilerim. yukarıdaki mesajı gönderdim jeton düştü. demekki köşeli imiş.

şu şekil halloldu. benim gibisi çıkmaz ama yorgunlukla yapamayan olursa diye göndermek istedim.

Kod: Tümünü seç

procedure TFormAidatBorcSrg.JvXPButton3Click(Sender: TObject);
begin
  formaidatsrgqryaz.QRLabel15.Caption:=floattostr((dm1.aidattoplaibquery.fieldbyname('ADET1').AsFloat+
                dm1.sutoplaibquery.fieldbyname('ADET2').AsFloat)-
                  dm1.odenentoplaibquery.fieldbyname('ADET3').AsFloat);
  formaidatsrgqryaz.QRLabel15.Caption:=formatfloat('#,##0.#0', strtofloat(formaidatsrgqryaz.QRLabel15.Caption));
  formaidatsrgqryaz.quickrep1.Preview;
end;

önce preview diyerek formu açıyormuşum sonra qrlabel e değer gönderiyormuşum. yani ters istikametten gidiyormuşuz.

özür ve saygılarımla
kolay gelsin

[aslangeri]

s.a.
@aydoğan
1. qrexpr in expression una gelip

Kod: Tümünü seç

sum([ALANADI]) 

yazarsan çalışması lazım. qrexpression quickrep in datasetine otomatik olarak bağlanıyor. olmazsa

Kod: Tümünü seç

sum([form1.tabloadiaalanadi])

seklinde bi deneyin.

kolay gelsin.

[bobasturk]

aslangeri ustam teşekkürler,

query den dönen verileri verdiğin birinci şık ile veriyor. ikinci şıkkıda denedim ama o sonucu vermedi.

toplama alanlarım floattı bende qrexpr mask özelliğini #,##0.#0 olarak ayarladım ve sonuç float olarak döndü.

teşekkür ve saygılarımla
kolay gelsin