Mega Code Archive
Quick report ta qrexpr kullanimi
<![CDATA[
Merhabalar. Quick Report Delphi ile gelen bir raproşama aracıdır.Kullanımı kolaydır.
Quick Report ta hesaplamalar için kullanılan nesnenin adi QRExpr1 dir.Bu bileşen ile neler yapabiliriz?....
Table daki iki field ı aritmetik işlemlere tabi tutabiliriz.
Örn.: Adı ve Soyadı gibi iki farklı field ı raporlarken tek bir field gibi olmasını istiyorsak
QRExpr1.Expression:=Table1.NAME + Table1.AREA
Peki bunu nasıl belirtecez..
QRExpr1 in propertieslerinden biri olan Expression alanındaki üç nokta tıklanır.Çıkan
Pencerede DatabaseField seçildiğinde karşımıza mevcut table lar çıkar(Sol tarafta).Sağ tarafta ise
seçili olan table ın fieldları gelir.(Not:Buradaki fiealdlar table nesnesine eklenmiş olan fieldlardır).
İşlem yapacağınız field ı seçin.Sonra Ok basın .Pencerede Örneğin Table1.NAME yazacak.sonra +
ya basıp tekrar database field tıklanarak aynı işlemleri yapabilirsiniz.
İsterseniz ilk gelen alana (Expression propertiesine tıklayınca),el ile yazabilirsiniz.
İşte size Örnekler;
SUM(Query1.TOPSATTL)....: Query1 deki TOPSATTL alanını toplar,
IF (
SUM(QueryCARIHAREKET.TOPBORC) < SUM(QueryCARIHAREKET.TOPALACAK) ,
SUM(QueryCARIHAREKET.TOPALACAK)-SUM(QueryCARIHAREKET.TOPBORC),
SUM(QueryCARIHAREKET.TOPBORC)-SUM(QueryCARIHAREKET.TOPALACAK)
)...: Eğer Cariharekette toplam alacak borçtan büyük ise alacakta borcu çıkarır.
Eğer Cariharetette toplam borç alacaktan büyük ise borçtan alacak çıkarır.
Eğer Cariharekette toplam alacak ve borç eşit ise borçtan alacak çıkartır.
IF(......,(bu virgülün anlamı THEN).....,.(bu virgülün anlamı ELSE)....) yani
IF(
SUM(QueryCARIHAREKET.TOPBORC) < SUM(QueryCARIHAREKET.TOPALACAK),
'ALACAK',
IF(
SUM(QueryCARIHAREKET.TOPBORC) >SUM(QueryCARIHAREKET.TOPALACAK) ,
'BORÇ',''
)
)......:burada iç içe iki if vardır. Eğer TOPBORC<TOPALCAK ise ALACAK yazar,
Eğer değilse içteki if çalışır.
İçteki IF te eğer TOPBORC>TOPALACAK ise BORÇ yazar değil ise BORÇ yazar.
QuickReport kullanımı ile ilgili ve delphi ile ilgili kodlar ve gösterimler erdemhilmi.kolayweb.com adresimde var
mail.:erdemhilmi@mynet.com
]]>