动态创建Fastreport（delphi）

动态创建Fastreport分以下几个步骤：

1.首先清空Fastreport，定义全局变量，并加载数据集
   frReport.Clear;
   frReport.DataSets.Add(frxDBDataset1);
   DataHeight :=28;
   DataWidth :=80;
   FirstTop := 50;
   FirstLeft := 15;

2.创建frxReportPage,并设置纸张大小
  Page := TfrxReportPage.Create(frReport);
  Page.CreateUniqueName;
  page.Orientation := poLandscape;
  Page.SetDefaults;  //默认大小
  //Page.PaperWidth := 210;
  //Page.PaperHeight := 297;

//以下为动态设置纸张大小

{if
(qryPrn.FieldCount-4)<=6 then   //当列小于6
  begin
    Page.PaperWidth := 210;
    Page.PaperHeight := 279.4;
    page.Orientation := poPortrait;
  end
  else
  begin
    page.Orientation := poLandscape;
    iWidth := 40+85+90+(qryPrn.FieldCount-4)*84+30;

//fr01cm=3.77953;
    if iWidth<297*fr01cm then

//fr01cm为frxClass中定义的常量，为每毫米像素值,或PerMillPix
:=     25.38/Screen.PixelsPerInch;(25.38为每英寸毫米数)
    begin
      Page.PaperSize :=DMPAPER_A4;   //设置为A4,因为激光打印机不支持自定义纸张的横打
    end
    else
    begin
      Page.PaperWidth :=iWidth/fr01cm;
      Page.PaperHeight := 210;
    end;
  end;}
  
3.生成PageBand,并指定高度
  Band :=
TfrxPageHeader.Create(Page);        //页首
  Band.Top := 10;
  Band.Height := 150;
  
  BandFoot := TfrxColumnFooter.Create(Page);   //页脚
  BandFoot.Top := 10;
  BandFoot.Height := 50;
  
4.画页脚栏
  //画操作员
  memFoot := TfrxMemoView.Create(BandFoot);
  with memFoot do
  begin
    CreateUniqueName;
    HAlign := haLeft;
    VAlign := vaCenter;
    Memo.Text := '操作员：程序员';
    SetBounds(40, 10, 150, 20);
    ParentFont := False;
    Font.Name := '宋体';
    Font.Size := 10;
  end;

//画打印时间
  memFoot := TfrxMemoView.Create(BandFoot);
  with memFoot do
  begin
    CreateUniqueName;
    Align := baLeft;
    HAlign := haLeft;
    VAlign := vaCenter;
    Memo.Text := '打印时间：' + FormatDateTime('yyyy-mm-dd hh:mm:ss', Now);
    SetBounds(280, 10, 270, 20);
    ParentFont := False;
    Font.Name := '宋体';
    Font.Size := 11;
  end;
  
5.画标题栏
  //画标题
  Memo := TfrxMemoView.Create(Band);
  with Memo do
  begin
    CreateUniqueName;
    Align := baCenter;
    Memo.Text := '******余额汇总表';
    Frame.Typ :=[ftBottom];
    Frame.BottomLine.Style :=fsDouble;   //行类型 
    Top := FirstTop;
    Height := 30;
    AutoWidth :=True;
    HAlign := haCenter;
    ParentFont := False;
    Font.Name := '黑体';
    Font.Size := 16;
  end;  
  
  //画单位
  Memo := TfrxMemoView.Create(Band);
  with Memo do
  begin
    CreateUniqueName;
    HAlign := haLeft;
    VAlign := vaCenter;
    Memo.Text := '单位：************';
    FirstTop := FirstTop + 40;
    FirstWidth := 200;
    FirstHeight := 30;
    SetBounds(40, FirstTop, FirstWidth, FirstHeight);
    ParentFont := False;
    Font.Name := '宋体';
    Font.Size := 10;
  end;

//画日期
  Memo := TfrxMemoView.Create(Band);
  with Memo do
  begin
    CreateUniqueName;
    Align := baLeft;
    VAlign := vaCenter;
    HAlign := haLeft;
    Memo.Text := '日期：' + FormatDateTime('yyyy-mm-dd', Date);
    FirstWidth := 10 + FirstWidth + 200;
    FirstLeft := FirstLeft + FirstWidth;
    SetBounds(FirstLeft, FirstTop, 200, FirstHeight);
    ParentFont := False;
    Font.Name := '宋体';
    Font.Size := 10;
  end;

//画页码
  Memo := TfrxMemoView.Create(Band);
  with Memo do
  begin
    CreateUniqueName;
    Align := baLeft;
    HAlign := haLeft;
    VAlign := vaCenter;
    Memo.Text := '第[Page#]/[TotalPages#]页';     //[]中括起来的是FastReport系统变量
    FirstWidth := 10 + FirstWidth;
    FirstLeft := FirstLeft + 200;
    SetBounds(FirstLeft, FirstTop, 100, FirstHeight);
    HAlign := haCenter;
    ParentFont := False;
    Font.Name := '宋体';
    Font.Size := 10;
  end;  
  
  for i := 1 to qryPrn.FieldCount - 4 do
  begin
    //画数据集的标题
    Memo := TfrxMemoView.Create(Band);
    Memo.CreateUniqueName;
    Memo.ParentFont := False;
    Memo.Font.Name := '宋体';
    Memo.Font.Size := 10;
    Memo.Text := qryPrn.Fields[i + 3].FieldName;
    Memo.Frame.Typ := [ftTop, ftBottom, ftRight];
    Memo.SetBounds(220 + (i - 1) * DataWidth, Band.Height -
DataHeight, DataWidth, DataHeight);
    Memo.HAlign := haCenter;
    Memo.VAlign := vaCenter;
  end;
  
6.画数据集
  DataBand := TfrxMasterData.Create(Page);
  DataBand.CreateUniqueName;
  DataBand.DataSet := frxDBDataset1;
  DataBand.Top := 200;
  DataBand.Height := DataHeight;

Memo1 := TfrxMemoView.Create(DataBand);
  with Memo1 do
  begin
    CreateUniqueName;
    ParentFont := False;
    SetBounds(30, 0, 90, DataHeight);
    VAlign := vaCenter;
    HAlign := haLeft;
    Font.Name := '宋体';
    Font.Size := 10;
    DataSet := frxDBDataset1;
    DataField := 'locus';
    Frame.Typ := [ftRight, ftBottom, ftLeft];
  end;

Memo1 := TfrxMemoView.Create(DataBand);   
  with Memo1 do
  begin
    CreateUniqueName;
    ParentFont := False;
    SetBounds(120, 0, 100, DataHeight);
    VAlign := vaCenter;
    HAlign := haRight;
    Font.Name := '宋体';
    Font.Size := 10;
    DataSet := frxDBDataset1;
    DataField := 'TotalMoney';
    Frame.Typ := [ftRight, ftBottom];     //加上右边和底部的边框
  end;

for i := 1 to qryPrn.FieldCount - 4 do
  begin
    Memo1 := TfrxMemoView.Create(DataBand);
    Memo1.CreateUniqueName;
    Memo1.ParentFont := False;
    Memo1.SetBounds(220 + (i - 1) * DataWidth, 0, DataWidth,
DataHeight);
    Memo1.DisplayFormat.DecimalSeparator := '.';
    //Memo1.ExpressionDelimiters := ',';
    //Memo1.DisplayFormat.FormatStr := '%2.2f';  定义显示格式
    //Memo1.DisplayFormat.Kind := fkNumeric;
    Memo1.VAlign := vaCenter;
    Memo1.HAlign := haRight;
    Memo1.Font.Name := '宋体';
    Memo1.Font.Size := 10;
    Memo1.DataSet := frxDBDataset1;
    Memo1.DataField := qryPrn.Fields[i + 3].FieldName;
    Memo1.Frame.Typ := [ftRight, ftBottom];
  end;  
  
7.显示
  frReport.PrepareReport();
  frReport.ShowReport();

8.将以上代码用函数表示

(1)定义

TBandType=(PageHeader,PageFooter);

procedure
CreatePage(var 　  　　　　　　　Page:TfrxReportPage;frxReport:TfrxReport;iWidth,iHeight:Double;pDirect:TPrinterOrientation);
procedure CreateBand(var
band:TfrxBand;Page:TfrxReportPage;iTop,iHeight:Double;BandType:TBandType);
    procedure CreateDataBand(var
band:TfrxMasterData;Page:TfrxReportPage;DbSet:TfrxDBDataset;iTop,iHeight:Integer);
    procedure CreateMemoData(var memView: TfrxMemoView; Band:
TfrxBand;
      iLeft, iTop, iWidth, iHeight: Extended;
fontname: string; fontsize: Integer;
      Halign: TfrxHAlign; Valign: TfrxVAlign; frxData:
TfrxDBDataset; DField: string;
      FrameType: TfrxFrameTypes; Delimiters, ForStr:
string; fkKind: TfrxFormatKind);
    procedure CreateMemo(var memView: TfrxMemoView; Band:
TfrxBand;
      iLeft, iTop, iWidth, iHeight: Extended;
fontname: string; fontsize: Integer;
      Halign: TfrxHAlign; Valign: TfrxVAlign; FrameType:
TfrxFrameTypes; sText: string);

(2)实现

procedure
TForm1.CreatePage(var Page: TfrxReportPage;
  frxReport: TfrxReport; iWidth, iHeight: Double;
  pDirect: TPrinterOrientation);
begin
  Page := TfrxReportPage.Create(frxReport);
  Page.CreateUniqueName;
  Page.PaperWidth :=iWidth;
  Page.Height :=iHeight;
  Page.Orientation :=pDirect;
end;

procedure
TForm1.CreateBand(var band: TfrxBand; Page: TfrxReportPage; iTop,
  iHeight:Double;BandType:TBandType);
begin
  case BandType of
    PageHeader: band :=TfrxPageHeader.Create(Page);
    PageFooter: band :=TfrxPageFooter.Create(Page);
  end;
  band.CreateUniqueName;
  band.Top :=iTop;
  band.Height :=iHeight;
end;

procedure
TForm1.CreateDataBand(var band: TfrxMasterData;
  Page: TfrxReportPage; DbSet: TfrxDBDataset; iTop, iHeight: Integer);
begin
  band :=TfrxMasterData.Create(Page);
  band.CreateUniqueName;
  band.DataSet := DbSet;
  band.Top :=iTop;
  band.Height :=iHeight;
end;

procedure
TForm1.CreateMemo(var memView: TfrxMemoView; Band: TfrxBand;
  iLeft, iTop, iWidth, iHeight: Extended; fontname: string;
  fontsize: Integer; Halign: TfrxHAlign; Valign: TfrxVAlign;
  FrameType: TfrxFrameTypes; sText: string);
begin
  memView := TfrxMemoView.Create(Band);
  memView.CreateUniqueName;
  memView.ParentFont := False;
  memView.Font.Name := fontname;
  memView.Font.Size := fontsize;
  memView.SetBounds(iLeft, iTop, iWidth, iHeight);
  memView.HAlign := Halign;
  memView.VAlign := Valign;
  memView.Frame.Typ := FrameType;
  memView.Memo.Text := sText;
end;

procedure
TForm1.CreateMemoData(var memView: TfrxMemoView; Band: TfrxBand;
  iLeft, iTop, iWidth, iHeight: Extended; fontname: string;
  fontsize: Integer; Halign: TfrxHAlign; Valign: TfrxVAlign;
  frxData: TfrxDBDataset; DField: string; FrameType: TfrxFrameTypes;
  Delimiters, ForStr: string; fkKind: TfrxFormatKind);
begin
  memView := TfrxMemoView.Create(Band);
  memView.CreateUniqueName;
  memView.ParentFont := False;
  memView.Font.Name := fontname;
  memView.Font.Size := fontsize;
  memView.SetBounds(iLeft, iTop, iWidth, iHeight);
  memView.HAlign := Halign;
  memView.VAlign := Valign;
  memView.DataSet := frxData;
  memView.DataField := DField;
  memView.Frame.Typ := FrameType;
  memView.ExpressionDelimiters := Delimiters;
  memView.DisplayFormat.FormatStr := ForStr;
  memView.DisplayFormat.Kind := fkKind;
end;

（３）引用代码

const
  arrFields:array[1..12,1..2] of string=(('Quantity_Start','数量'),('Expense_Start','金额'),
    ('Quantity_Buy_Add','数量'),('Quantity_Buy_Add','金额'),
    ('Quantity_Other_Add','数量'),('Expense_Other_Add','金额'),
    ('Quantity_Out_Reduce','数量'),('Expense_Out_Reduce','金额'),
    ('Quantity_Other_Reduce','数量'),('Expense_Other_Reduce','金额'),
    ('Quantity_End','数量'),('Expense_End','金额')
    );

var
  FirstTop, FirstWidth, FirstHeight, i, DataWidth, DataHeight, MlWidth:
Integer;
  Page: TfrxReportPage;
  BandHeader, BandFoot: TfrxBand;
  DataBand: TfrxMasterData;
  Memo, Memo1, memFoot: TfrxMemoView;
  iLeft, iWidth, iLeft1: Integer;
  PerMillPix: Double;
  iFont: Integer;
  haAl: TfrxHAlign;
  MemArray: array[0..4] of TfrxMemoView;
  MemArray1, MemDataArray: array[0..12] of TfrxMemoView;
  MemArray2, MemArray3: array[0..3] of TfrxMemoView;
  frx:TfrxComponent;
begin
  frReport.Clear;
  iFont := iFont10;
  frxDBDataset1.DataSet := qryPrn;
  frReport.DataSets.Add(frxDBDataset1);
  CreatePage(Page, frReport, 210, 279.4, poLandscape);

//fr01cm :=3.77953;
  DataHeight := 25; //DataHeight*3为栏首高度(目录高度)
  MlWidth := 84; //目录宽度
  DataWidth := 40;
  FirstTop := 40;
  FirstHeight := 30;
  iLeft := 60;
  iLeft1 := 40;

CreateBand(BandHeader, Page, 10, 220, PageHeader);
  CreateBand(BandFoot, Page, 10, 50, PageFooter);

//画操作员
  CreateMemo(memFoot, BandFoot, 65, 10, 150, 20, FName, iFont, haLeft,
vaCenter,
    [], '操作员：'+IGlobalVar.GetUserName);
  //画打印时间
  CreateMemo(memFoot, BandFoot, 280, 10, 270, 20, FName, iFont, haLeft,
vaCenter,
    [], '打印时间：' + FormatDateTime('yyyy-mm-dd hh:mm:ss', Now));

//画标题
  Memo := TfrxMemoView.Create(BandHeader);
  with Memo do
  begin
    CreateUniqueName;
    Align := baCenter;
    Memo.Text := '**********汇总表';
    Frame.Typ := [ftBottom];
    Frame.BottomLine.Style := fsDouble;
    Top := FirstTop;
    Height := 24;
    AutoWidth := True;
    HAlign := haCenter;
    ParentFont := False;
    Font.Name := '黑体';
    Font.Size := 16;
  end;

//画单位
  FirstTop := FirstTop + 40;
  FirstWidth := 150;
  CreateMemo(MemArray[0], BandHeader, 65, FirstTop, FirstWidth,
FirstHeight, FName, iFont, haLeft,
    vaCenter,
    [], '单位：'+IGlobalVar.GetUnitID);

//画日期
  CreateMemo(MemArray[1], BandHeader, 128, MemArray[0].Top,
    270, FirstHeight, FName, iFont, haLeft, vaCenter,
    [], '日期：' +
FormatDateTime('yyyy年mm月dd日', Date) + '至' +
    FormatDateTime('yyyy年mm月dd日', Date));

//画仓库
  FirstWidth := 170;
  CreateMemo(MemArray[2], BandHeader, MemArray[0].Left, MemArray[0].Top +
20, FirstWidth,
    FirstHeight, FName, iFont, haLeft, vaCenter,
    [], '仓库：'+LcbWh.Text);

//画分类方法
  FirstWidth := 10 + FirstWidth;
  CreateMemo(MemArray[3], BandHeader, MemArray[1].Left, MemArray[2].Top,
200, FirstHeight, '宋体',
    iFont, haLeft, vaCenter,
    [], '分类方法：'+lcb1.Text);

//画页码
  FirstWidth := 10 + FirstWidth;
  CreateMemo(MemArray[4], BandHeader, MemArray[3].Left + MemArray[3].Width
+ 100, MemArray[2].Top,
    100, FirstHeight, FName, iFont, haLeft, vaCenter,
    [], '第[Page#]页 共[TotalPages#]页');

//画栏标题
  iWidth := 32 * Pix10; //14个汉字(28字符)所用的像素值
  CreateMemo(MemArray1[0], BandHeader, iLeft, BandHeader.Height -
DataHeight * 3, iWidth, DataHeight
    * 3, FName, iFont,
    haCenter, vaCenter, [ftTop, ftRight, ftBottom, ftLeft], '目录');
  iLeft := iLeft + iWidth;
  for i := 1 to 12 do
  begin
    if (i = 1) or (i = 2) or (i = 11) or (i = 12) then
      CreateMemo(MemArray1[i], BandHeader, MemArray1[i
- 1].Left + MemArray1[i - 1].Width,
        BandHeader.Height -
        DataHeight * 2, GetWidth(i),
        DataHeight * 2,
        FName, iFont, haCenter, vaCenter,
[ftTop, ftBottom, ftRight], arrFields[i, 2])
    else
      CreateMemo(MemArray1[i], BandHeader, MemArray1[i
- 1].Left + MemArray1[i - 1].Width,
        BandHeader.Height -
        DataHeight, GetWidth(i),
        DataHeight,
        FName, iFont, haCenter, vaCenter,
[ftTop, ftBottom, ftRight], arrFields[i, 2]);
  end;
  CreateMemo(Memo, BandHeader, MemArray1[3].Left,MemArray1[1].Top,
     MemArray1[3].Width+MemArray1[4].Width,DataHeight,
        FName, iFont, haCenter, vaCenter,
[ftTop, ftBottom, ftRight], '外购');
  CreateMemo(Memo, BandHeader, MemArray1[5].Left,MemArray1[1].Top,
     MemArray1[5].Width+MemArray1[6].Width,DataHeight,
        FName, iFont, haCenter, vaCenter,
[ftTop, ftBottom, ftRight], '其它');
  CreateMemo(Memo, BandHeader, MemArray1[7].Left,MemArray1[1].Top,
     MemArray1[7].Width+MemArray1[8].Width,DataHeight,
        FName, iFont, haCenter, vaCenter,
[ftTop, ftBottom, ftRight], '报废');
  CreateMemo(Memo, BandHeader, MemArray1[9].Left,MemArray1[1].Top,
     MemArray1[9].Width+MemArray1[10].Width,DataHeight,
        FName, iFont, haCenter, vaCenter,
[ftTop, ftBottom, ftRight], '其它');

CreateMemo(Memo, BandHeader, MemArray1[1].Left,MemArray1[0].Top,
     MemArray1[1].Width+MemArray1[2].Width,DataHeight,
        FName, iFont, haCenter, vaCenter,
[ftTop, ftBottom, ftRight], '期初余额');
  CreateMemo(Memo, BandHeader, MemArray1[3].Left,MemArray1[0].Top,
     MemArray1[3].Width+MemArray1[4].Width+MemArray1[5].Width+MemArray1[6].Width,DataHeight,
        FName, iFont, haCenter, vaCenter,
[ftTop, ftBottom, ftRight], '本期增加');
  CreateMemo(Memo, BandHeader, MemArray1[7].Left,MemArray1[0].Top,
     MemArray1[7].Width+MemArray1[8].Width+MemArray1[9].Width+MemArray1[10].Width,DataHeight,
        FName, iFont, haCenter, vaCenter,
[ftTop, ftBottom, ftRight], '本期减少');
  CreateMemo(Memo, BandHeader, MemArray1[11].Left,MemArray1[0].Top,
     MemArray1[11].Width+MemArray1[12].Width,DataHeight,
        FName, iFont, haCenter, vaCenter,
[ftTop, ftBottom, ftRight], '期末余额');

CreateDataBand(DataBand, Page, frxDBDataset1, 200, DataHeight);
  iWidth := 85;
  CreateMemoData(MemDataArray[0], DataBand, MemArray1[0].Left, 0,
MemArray1[0].Width, DataHeight,
    FName, iFont, haLeft, vaCenter,
    frxDBDataset1, 'contents', [ftRight, ftBottom, ftLeft], '',
'', fkText);
  frReport.Script.Clear;
  frReport.ScriptLanguage :='PascalScript';
 
frReport.ScriptText.LoadFromFile('C:\fr_script.pas');          
  MemDataArray[0].OnBeforePrint :='MemoOnBeforePrint';   
//动态定义OnBeforePrint事件

iLeft1 := iLeft1 + iWidth;
  for i := 1 to 12 do
  begin
    if Odd(i) then
      CreateMemoData(MemDataArray[i], DataBand,
MemArray1[i].Left, 0, MemArray1[i].Width,
        DataHeight,
        FName, iFont, haCenter, vaCenter,
frxDBDataset1, arrFields[i, 1],
        [ftRight, ftBottom], '', '', fkText)
    else
      CreateMemoData(MemDataArray[i], DataBand,
MemArray1[i].Left, 0, MemArray1[i].Width,
        DataHeight,
        FName, iFont, haRight, vaCenter,
frxDBDataset1, arrFields[i, 1],
        [ftRight, ftBottom], ',', '%2.2n',
fkNumeric);
  end;
  frReport.PrepareReport();
  frReport.ShowReport();
end;

C:\fr_script.pas中写入脚本

procedure
MemoOnBeforePrint(Sender: TfrxComponent);
begin
  if Length(TfrxMemoView(Sender).Memo.Text)>10 then
 
begin              
    TfrxMemoView(Sender).Memo.Text
:=Trim(TfrxMemoView(Sender).Memo.Text);
    TfrxMemoView(Sender).HAlign :=haLeft;  
    //TfrxMemoView(Sender).VAlign
:=VaTop;                                   
  end;
end;

begin

end.