delphi传递变量给fastreport

Posted 2021-01-29 bwdblogs

delphi传递变量给fastreport

 

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 ;