Menggunakan Fast Report Secara Runtime

Pada contoh yang ane pakai adalah delphi 2007 dan Fast Report 4.12.

Untuk databasenya ane pakai Ms. Access. Langsung sajalah... :D

Recompile Fast Report sesuaikan dengan versi delphi yang dipakai.
contoh seperti gambar berikut :

Setelah tercompile akan terbentuk folder LibD11 (Delphi2007), nah didalam folder itu berisi paket-paket komponen fast report yang nanti akan dipakai.

Tambahkan library path pada delphi, pada contoh :

"C:\Program Files\CodeGear\RAD Studio\5.0\FastReport 4.12\LibD11"

Compile file-file berikut :   tanda (*) merupakan versi dari delphi yang dipakai.

1. fs*.dpk     - FastScript, main package
2. fsDB*.dpk   - FastScript, DB classes and controls
3. fsBDE*.dpk  - FastScript, BDE components
4. fsADO*.dpk  - FastScript, ADO components
5. fsIBX*.dpk  - FastScript, IBX components 
6. fsTee*.dpk  - FastScript, TeeChart components 
7. frx*.dpk    - FastReport, main package
8. frxDB*.dpk  - FastReport, TDataSet wrapper (TfrxDBDataSet)
9. frxIBO*.dpk - FastReport, IB_Objects wrapper (TfrxIBODataSet)
10. frxBDE*.dpk - FastReport, end-user BDE components
11. frxADO*.dpk - FastReport, end-user ADO components
12. frxIBX*.dpk - FastReport, end-user IBX components
13. frxDBX*.dpk - FastReport, end-user DBX components
14. frxTee*.dpk - FastReport, TeeChart components
15. frxe*.dpk   - FastReport, export filters

Sekarang kita buat program sederhana, buatlah kira-kira seperti gambar berikut :

1 ADOConnection

1 ADOTable

3 Button

Tambahkan Uses : frxClass, frxDBSet, frxDesgn

interface<br /> uses<br /> Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, frxClass, frxDBSet, frxDesgn, StdCtrls, DB, ADODB;

Tambahkan variabel : dbPath, frx, frxDB

var<br />   Form1  : TForm1;   dbPath : string;   frx    : TfrxReport;   frxDB  : TfrxDBDataset;

Berikut Source Code untuk tombol Design Report, Preview Report dan Print Report :

// Tombol Design Report<br /> procedure TForm1.Button1Click(Sender: TObject);<br /> begin<br />   frxDB.DataSet  := ADOTable1;<br />   frxDB.UserName := 'mahasiswa';<br />   frx.DesignReport;<br /> end;<br /> <br /> // Tombol Preview Report<br /> procedure TForm1.Button2Click(Sender: TObject);<br /> begin<br />   frxDB.DataSet  := ADOTable1;<br />   frxDB.UserName := 'mahasiswa';<br />   frx.LoadFromFile(ExtractFilePath(ParamStr(0))+'Reports\cobacoba.fr3');<br />   frx.ShowReport;<br /> end;<br /> <br /> // Tombol Print Report<br /> procedure TForm1.Button3Click(Sender: TObject);<br /> begin<br />   frxDB.DataSet  := ADOTable1;<br />   frxDB.UserName := 'mahasiswa';<br />   frx.LoadFromFile(ExtractFilePath(ParamStr(0))+'Reports\cobacoba.fr3');<br />   frx.PrepareReport;<br />   frx.Print;<br /> end;

Full Source Code

unit Unit1;<br /> interface<br /> uses<br /> Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, frxClass, frxDBSet, frxDesgn, StdCtrls, DB, ADODB; <br /> type<br />   TForm1 = class(TForm)<br />     Button1: TButton;<br />     Button2: TButton;<br />     Button3: TButton;<br />     ADOConnection1: TADOConnection;<br />     ADOTable1: TADOTable;<br />     procedure FormCreate(Sender: TObject);<br />     procedure Button1Click(Sender: TObject);<br />     procedure Button2Click(Sender: TObject);<br />     procedure Button3Click(Sender: TObject);<br />   private<br />     { Private declarations }<br />   public<br />     { Public declarations }<br />   end;<br /> <br /> var<br />   Form1  : TForm1;   dbPath : string;   frx    : TfrxReport;   frxDB  : TfrxDBDataset; implementation<br /> {$R *.dfm}<br /> // Tombol Design Report<br /> procedure TForm1.Button1Click(Sender: TObject);<br /> begin<br />   frxDB.DataSet  := ADOTable1;<br />   frxDB.UserName := 'mahasiswa';<br />   frx.DesignReport;<br /> end;<br /> <br /> // Tombol Preview Report<br /> procedure TForm1.Button2Click(Sender: TObject);<br /> begin<br />   frxDB.DataSet  := ADOTable1;<br />   frxDB.UserName := 'mahasiswa';<br />   frx.LoadFromFile(ExtractFilePath(ParamStr(0))+'Reports\cobacoba.fr3');<br />   frx.ShowReport;<br /> end;<br /> <br /> // Tombol Print Report<br /> procedure TForm1.Button3Click(Sender: TObject);<br /> begin<br />   frxDB.DataSet  := ADOTable1;<br />   frxDB.UserName := 'mahasiswa';<br />   frx.LoadFromFile(ExtractFilePath(ParamStr(0))+'Reports\cobacoba.fr3');<br />   frx.PrepareReport;<br />   frx.Print;<br /> end;<br /> <br /> procedure TForm1.FormCreate(Sender: TObject);<br /> begin<br />   dbPath:=ExtractFilePath(ParamStr(0))+'\coba.mdb';<br />   ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+dbPath+';Persist Security Info=False';<br />   ADOConnection1.Connected := True;<br />   ADOTable1.TableName := 'mhs';<br />   ADOTable1.Active    := True;<br />   frx    := TfrxReport.Create(Self);<br />   frxDB  := TfrxDBDataset.Create(Self);<br /> end;<br /> end.

Setelah selesai sekarang Fast Report sudah bisa dipakai secara runtime, meskipun agak ribet sih.. wkwkwk... :D Jalankan program dan klik tombol Design Report maka akan muncul Fast Report Designer, nah disitu kita bisa buat atau mendesain tampilan report sesuai yang diinginkan.

Pada saat mendesain report kita tambahkan dulu dataset nya dengan cara klik pada menu Report > Data > tambahkan dataset yang diberi nama mahasiswa tadi. seperti gambar berikut :

 

Contoh desain Fast Report yang ane buat, dan ane beri nama cobacoba.fr3

Berikut hasil reportnya yang ane screen shot :D

Yang lagi males ngoding nih ada Full Source Code dan Programnya, silahkan download aja DISINI