如何用fastreport2.6让用户自定义报表 (50分)

  • 主题发起人 主题发起人 生命如歌
  • 开始时间 开始时间

生命如歌

Unregistered / Unconfirmed
GUEST, unregistred user!
整好我正在作一数据库程序,用fastreport
var
fname: string;
filter: boolean;
i: Integer;
begin
sjlr_report.ADOTable1.TableName:='cs22';
sjlr_report.adotable1.Active :=true;
fname:='RQ';
sjlr_report.ADOTable1.filter:=fname + '>=' + '''' + edit1.Text + '''';
// sjlr_report.ADOTable1.filter:=sjlr_report.ADOTable1.filter + fname + '<=' + '''' + edit2.Text + '''';
sjlr_report.ADOTable1.filtered:=true;
i:=sjlr_report.frReport1.DesignReport;
if i=-1 then
close;
 
加一个设计器控件,通过程序控制装载报表文件,这样在运行的时候就可以让用户
自己定义报表,用FR还可以在运行的时候设计报表的数据源,功能很强,你的报表要怎么设计,
就怎么设计,还可以自己定一常用的函数库,系统变量等,真的很好!
 
cs8_report.ADOTable1.TableName:='cs8';
cs8_report.adotable1.Active :=true;
cs8_report.Refresh ;
fname:='RQ';
cs8_report.ADOTable1.filter:=fname + '>=' + '''' + edit1.Text + '''';
cs8_report.ADOTable1.filtered:=true;
i:=cs8_report.frReport1.DesignReport;
本人在作一程序用fastreport设计器
 
多人接受答案了。
 
后退
顶部