salam,, Langsung saja gan,,
Saya mau buat Form Untuk Mencetak Report Fastreport,
Tampilannya seperti ini :



lalu, untuk Skripnya kayak gini gan yang sudah ane buat :

unit f_cetaklapbuku;



interface



uses

 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

 Dialogs, StdCtrls, Buttons, ComCtrls, DB, ZAbstractRODataset,

 ZAbstractDataset, ZDataset, ZConnection, RpCon, RpConDS, RpDefine,

 frxClass, frxDBSet,DBCtrls, frxGradient, frxADOComponents;



type

 Tfrm_laporandatabuku = class(TForm)

 ZConnection1: TZConnection;

 ZQuery1: TZQuery;

 GroupBox1: TGroupBox;

 BitBtn1: TBitBtn;

 frxReport1: TfrxReport;

 frxDBDataset1: TfrxDBDataset;

 RadioButton1: TRadioButton;

 RadioButton2: TRadioButton;

 ZQuery2: TZQuery;

 ComboBox1: TComboBox;

 ComboBox2: TComboBox;

 procedure BitBtn1Click(Sender: TObject);

// procedure DBComboBox1Change(Sender: TObject);

 procedure ComboBox1Change(Sender: TObject);

 private

 { Private declarations }

 public

 { Public declarations }

 end;



var

 frm_laporandatabuku: Tfrm_laporandatabuku;



implementation



{$R *.dfm}



procedure Tfrm_laporandatabuku.BitBtn1Click(Sender: TObject);

begin

if RadioButton1.Checked then

 begin

 frm_laporandatabuku.frxReport1.LoadFromFile('lapbuku1.fr3');

 frm_laporandatabuku.frxReport1.ShowReport(true);

 end;

if RadioButton2.Checked then

 begin

 with ZQuery1 do

 begin

 close;

 sql.Clear;

 sql.Add('select * from tb_barang where :cb1=:cb2');

 ParamByName('cb1').AsString:=ComboBox1.Text;

 ParamByName('cb2').AsString:=ComboBox2.Text;

 open;

 end;

 if ZQuery1.RecordCount > 0 then

 begin

 if frxReport1.LoadFromFile('lapbuku1.fr3') then

 frxReport1.ShowReport(true);

 end

 else

 ShowMessage('Data Tidak Ada');

 end;

 end;



procedure Tfrm_laporandatabuku.ComboBox1Change(Sender: TObject);

begin

if ComboBox1.Text='Kategori' then

 begin

 ComboBox2.ClearSelection;

 ComboBox2.Items.Add('Anak');

 ComboBox2.Items.Add('Agama');

 ComboBox2.Items.Add('Komputer');

 ComboBox2.Items.Add('Hukum');

 ComboBox2.Items.Add('Novel');

 ComboBox2.Items.Add('Pendidikan');

 ComboBox2.Items.Add('Umum');

 end;

if ComboBox1.Text='Penerbit' then

 begin

 ComboBox2.ClearSelection;

 ComboBox2.Items.Add('Andi');

 ComboBox2.Items.Add('Benteng Pustaka');

 ComboBox2.Items.Add('Mizan');

 ComboBox2.Items.Add('Gramedia Pustaka');

 ComboBox2.Items.Add('Cinta');

 end;

end;



end.

ane bermasalah di listing ini gan :

[B]sql.Add('select * from tb_barang where :cb1=:cb2');

 ParamByName('cb1').AsString:=ComboBox1.Text;

 ParamByName('cb2').AsString:=ComboBox2.Text;[/B]

ceritanya buat di sql nya itu yang jadiparameter atau filternya di tentukan sendiri melalui combobox yang tersedia, programnyya jalan emang , tapi selalu saja tampil data tidak ada,,

apa sql ane salah, atau salah, tolong penjelasannyaagan-agan yang mastah