1、打開frReport報表設(shè)計。
2、打開file->data dictionary加變量。這里比如加title,bm,zbr,gj,zrs
3、在報表控件主放一個richtext或一個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、為什么報表顯示空白。
將報表StoreInDFM屬情設(shè)為TRUE即可。
6、如何打開報報，例：

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