frxreport bileşeninin içini temizlemeliyiz.
tabloyla bağlantı kurulmalı
rapora rapor sayfası eklemeliyiz.
rapor sayfasına Bandları eklemeliyiz.
band özelliklerini ayarlayıp veritabanıyla ilişkilendirmeliy4iz.
Nesneleri rapora eklemeliyiz.
nesnelerin özelliklerini ayarlayıp veritabanı bağlantılarını yapmalıyız.
formunuzda database bağlantınızı yapıp frxReport ve frxDBReport bileşeni ekleyip hiç bir özelliğne dokunmayın.
aşağıdaki değişkenleri tanımlayın.
Kod: Tümünü seç
var
Page: TfrxReportPage;
Band: TfrxBand;
DataBand: TfrxMasterData;
Memo: TfrxMemoView;Kod: Tümünü seç
{frxDBDataset1 bileşeni ile tabloya bağlanıyoruz.}
frxDBDataset1.DataSet:=IBQuery1;
{ Raporu Temizle}
frxReport1.Clear;
{ FastReportun Veri Ağacına Tablo Alanlarını Listele }
frxReport1.DataSets.Add(frxDBDataSet1);
{Rapora Sayfa Ekle}
Page := TfrxReportPage.Create(frxReport1);
{ Başka Nesnede olmayan bir isim ver}
Page.CreateUniqueName;
{Alan ve sayfa genişliklerini varsayılan olarak ayarla }
Page.SetDefaults;
{Kenar boşluklarını Ayarla. 10=1 cm}
page.TopMargin:=20;
page.LeftMargin:=20;
{sayfanın boyutunu ayarlayın.1 VE 2.PARAMETREYE SIFIR VERİN.3.PARAMETRE SAYFA GENİŞLİĞİNİ 4.PARAMETRE SAYFA YÜKSEKLİĞİNİ VERİR}
page.SetBounds(0,0,21,29.70);
{raporun yatay veya dikey olması. kullanabilmek için uses'a Printers ekleyin}
page.Orientation:=poLandscape;
{ report title (Sayfa Başlığı) bandı Ekle}
Band := TfrxReportTitle.Create(Page);
Band.CreateUniqueName;
{ band kooordinatlarını veriyoruz. Top Ve Height özellikleri Yeterli}
Band.Top := 0;
Band.Height := 20;
{ Rapor Başlığına Metin Nesnesi Ekle ve Başlığı Yaz }
Memo := TfrxMemoView.Create(Band);
Memo.CreateUniqueName;
Memo.Text := 'Merhaba FastReport!';
Memo.Height := 20;
{ Metin Nesnesini band geniliğince Genişlet}
Memo.Align := baWidth;
{ masterdata bandı ekle }
DataBand := TfrxMasterData.Create(Page);
DataBand.CreateUniqueName;
{masterdata bandının DataSetine forma eklediğimiz frxDBDataSet bileşeninni göster}
DataBand.DataSet := frxDBDataSet1;
DataBand.Top := 100;
DataBand.Height := 20;
{ masterdata ya nesne Ekle}
Memo := TfrxMemoView.Create(DataBand);
Memo.CreateUniqueName;
{ Dataya Bağlan }
Memo.DataSet := frxDBDataSet1;
Memo.DataField := 'FIRST_NAME';
Memo.SetBounds(0, 0, 100, 20);
{nESNEYİ sAĞA HİZALA }
Memo.HAlign := haRight;
{ RAPORU GÖSTER}
frxReport1.ShowReport;
Kullanıcının raporu düzenlemesini sağlamak için forma frxDesigner bileşenini ekleyip.
frxReport1.DesignReport; komutuyla rapor düzeleme penceresini açın.