delphi传递变量给fastreport
2021-06-24 14:04
1、打开frReport报表设计。
2、打开file->data dictionary加变量。这里比如加title,bm,zbr,gj,zrs
3、在报表控件主放一个richtext或一个rectangle数据控件，选择刚才添加的变量。
4、选择中frReport的GET Value方法，如下表:
procedure Tgjdb.frReport1GetValue(const ParName: String;
var ParValue: Variant);
begin
with frReport1.Dictionary do
begin
frVariables[‘title‘]:=query2cllbmc.AsString+‘发放历史表‘;
frVariables[‘bm‘]:=‘部门:‘+query2bmmc.AsString;
frVariables[‘zbr‘]:=‘制表人:‘+ Zlogin.Zusername;
frVariables[‘gjm‘]:=query2.Fields[13].AsString+‘名称‘;
frVariables[‘zrs‘]:=‘总人数:‘+inttostr(query2.RecordCount);
end;
end;
5、为什么报表显示空白。
将报表StoreInDFM属情设为TRUE即可。
6、如何打开报报，例:
frreport1.DesignReport;
frreport1.LoadFromFile(extractfilepath(paramstr(0)+‘gjdb.frf‘));
frreport1.PrepareReport;
frreport1.ShowReport ;