1、打開(kāi)frReport報(bào)表設(shè)計(jì)。
2、打開(kāi)file->data dictionary加變量。這里比如加title,bm,zbr,gj,zrs
3、在報(bào)表控件主放一個(gè)richtext或一個(gè)rectangle數(shù)據(jù)控件，選擇剛才添加的變量。
4、選擇中frReport的GET Value方法，如下表：
procedure Tgjdb.frReport1GetValue(const ParName: String;
  var ParValue: Variant);
begin
  with frReport1.Dictionary do
   begin
      frVariables[‘title‘]:=query2cllbmc.AsString+‘發(fā)放歷史表‘;
      frVariables[‘bm‘]:=‘部門：‘+query2bmmc.AsString;
      frVariables[‘zbr‘]:=‘制表人：‘+ Zlogin.Zusername;
      frVariables[‘gjm‘]:=query2.Fields[13].AsString+‘名稱‘;
      frVariables[‘zrs‘]:=‘總?cè)藬?shù)：‘+inttostr(query2.RecordCount);
   end;
end;
5、為什么報(bào)表顯示空白。
將報(bào)表StoreInDFM屬情設(shè)為TRUE即可。
6、如何打開(kāi)報(bào)報(bào)，例：

  frreport1.DesignReport;
  frreport1.LoadFromFile(extractfilepath(paramstr(0)+‘gjdb.frf‘));
  frreport1.PrepareReport;
  frreport1.ShowReport ;