动态创建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.
