Delphiden FastReporta Değer Atamak

Yazdığınız makaleleri ve üyelerimizin işine yarayacağını düşündüğünüz kodlarınızı gönderebilirsiniz. Bu foruma soru sormayın!
Cevapla
Kullanıcı avatarı
Fatih!
Kıdemli Üye
Mesajlar: 1172
Kayıt: 26 Kas 2004 10:46
Konum: Malatya
İletişim:

Delphiden FastReporta Değer Atamak

Mesaj gönderen Fatih! »

formunuza frxReport bileşeni ekleyin. çift tıklayıp fastreport raporlama aracına ulaşıyoruz. rapor > değişkennler menüsünden aşağıdaki pencereye ulaşıyoruz.

Resim
Bu işlemi yaptıktan sonra raporlama aracının sağ tarafında bulunan kısımdan değişkenler bölümüne geçiyoruz. burada oluşturduğumuz değişkeni rapor üzerine istediğimiz yere sürükleerek bırakıyoruz.



delphiden aşağıdaki şekilde önizleme veya yazdırma komutunu vermeden değişkene değeri atıyoruz.



frxReport1.Variables.Variables['degiskenim']:='''www.delphidunyasi.com''';

frxReport1 yerine sizin frxReport bileşeninin ismi

degiskenim yerinede sizin tanımladığınız değişken ismi gelmeli.



Yukarıda değişkene atadığımız http://www.delphidunyasi.com yazısını 3 tırnak arasına aldığımızı görüyorsunuz.

başta ve sonda ilk tırnaklar delphide bildiğimiz sring atamalarda kullndığımız kuraldır. diğer 4 tırnak ise fastreport için gerekli.



değişkene edit vb. bileşenlerin içeriğini atamak için şağıdaki yöntemi kullanıyoruz.



frxReport1.Variables.Variables['degiskenim']:=''''+edit1.text+'''';



buradada dikkat ederseniz yukarıdaki işlemi yapıyoruz. çift tırnaklar içindeki çift tırnaklarla edit içindeki bilgiyi birleştiriyoruz. umarım çift tırnakları anlatabilmişimdir :-)



değişken kullanmadan aşağıdaki şekilde rapordaki nesnelere ddeğer atayabiliriz.

örnkte memo nesnesine değer atıyorum



(frxReport1.FindObject('memo1') as Tfrxmemoview).Memo.Text:='MERHABA';





Resim Gösterme


forma visible özelliği false olan bir image bileşeni ekle.

şu şekilde rapor al

Kod: Tümünü seç

image1.Picture.LoadFromFile('C:\Belgelerim\Resimlerim\UNTITL ED.BMP'); //imageye resmi atıyoruz.

//Rapordaki Picture1 Bileşenine imagedeki resmi kopyalıyoruz
(frxReport1.FindObject('Picture1') as TfrxPictureview).Picture.Assign(image1.Picture);
frxReport1.ShowReport; //Önizleme 
Kullanıcı avatarı
aslangeri
Moderator
Mesajlar: 4322
Kayıt: 26 Ara 2003 04:19
Konum: Ankara
İletişim:

Mesaj gönderen aslangeri »

s.a.
bi teşekkürde bu mesaj için....
Duyduğun Şeylerin Söylediklerim Olduğuna Eminim Ama
Anladığın Şeylerin Anlatmak İstediklerim Olduğuna Emin Değilim
Cevapla