动态创建FastReport01

FastReport快速入门  https://www.cnblogs.com/win32pro/p/5321392.html

FastReport快速安装教程  https://www.cnblogs.com/win32pro/p/5321278.html

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

 

 

 

===========================================================

动态创建fastReport报表02

frReport1.Pages.Clear;

frReport1.Pages.Add; // create page

Page := frReport1.Pages[0];

frdbdataset1.DataSet := dm.dts_salary;

b := TfrBandView.Create; // create Title band

b.SetBounds(0, 20, 0, 79); // position and size in pixels

b.BandType := btReportTitle;

// (only and Height are significant

Page.Objects.Add(b); // for the band)

v := TfrMemoView.Create; // create memo

v.SetBounds(20, 60, 300, 23);

v.BandAlign := baWidth;

v.Prop['Alignment'] := frtaCenter;

// another way to access properties

v.Prop['Font.size'] := 14;

v.Prop['Font.name'] := '隶书';

v.Memo.Add('公司' + inttostr(u_main.pub_year) + '年' + inttostr(u_main.pub_month)+ '月' + '工资表');

Page.Objects.Add(v);

DocMode := dmDesigning;

b := TfrBandView.Create;

b.SetBounds(0, 100, 800, 22);

b.BandType := btgroupheader; // 标题表头

b.Prop['formnewpage'] := True;

b.name := 'groupheader1';

b.Prop['condition'] := '[dm.dts_salary."name"]';

// b.GroupCondition:='[]';

Page.Objects.Add(b);

v := TfrMemoView.Create; // create memo

v.SetBounds(25, 101, 65, 15);

v.Memo.Text := '姓名';

// v.Parent.Name:='groupheader1';

v.Prop['Font.size'] := 10;

v.Prop['Font.name'] := '宋体';

Page.Objects.Add(v);

b := TfrBandView.Create;

b.SetBounds(0, 125, 700, 20);

b.BandType := btMasterData; // 主项数据

b.DataSet := 'frDBDataSet1';

Page.Objects.Add(b);

i := 1;

while a_field_no[i] <> '' do

begin

v := TfrMemoView.Create; // create memo

v.SetBounds(25 + 65 * (i - 1), 126, 65, 15);

v.Memo.Add('[dm.dts_salary.' + '"' + a_field_no[i] + '"' + ']');

v.Prop['Font.size'] := 10;

v.Prop['Font.name'] := '宋体';

Page.Objects.Add(v);

i := i + 1;

end;

frReport1.ShowReport