FastReport4-动态报表制作.doc

《FastReport4-动态报表制作.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、FastReport4 动态报表制作 注：1、窗体报表控件　FR：TfrxReport;frDB：TfrxDBDataset2、调用自定义函数：GetPrnFieldWidth(ADOQ_List);//取得查询结果中各字段宽度3、全局变量：Prn_FieldWidth:Array  of  integer;//打印时各字段宽度数组通过GetPrnFieldWidth修改其值4、uses PRINTERS; 代码：procedureTFrm_yppf_prn_pfd.ToolButton3Click(Sender:TObject);Var//DataPage:TfrxDataPa

2、ge;Page:TfrxReportPage;PageTitle:TfrxReportTitle;PageHeader:TfrxPageHeader;//Band:TfrxBand;MastData:TfrxMasterData;PageSummary:TfrxReportSummary;Memo:TfrxMemoView;i:integer;MLeft:Real;//表头字段在mastdata中的左边距PaperWidth:Real;//纯报表(不含边距)宽度(毫米)begin//清除报表FR.Clear;//1====添加页Page:=TfrxReportPage.Creat

3、e(FR);Page.CreateUniqueName;//创建唯一名称//Page.SetDefaults;//设置默认字段大小, 纸张//自定义纸张大小//Page.PaperWidth:=210;//纸张宽//Page.PaperHeight:=297;//纸张高Page.PaperSize:=9;//a4纸Page.Orientation:=poPortrait;//纸张纵向//Page.Orientation:=poLandscape;//纸张横向Page.TopMargin:=25;//上边距Page.BottomMargin:=15;Page.LeftMargin:

4、=15;Page.RightMargin:=15;//2====添加一个报表标题栏PageTitle:=TfrxReportTitle.Create(Page);PageTitle.CreateUniqueName;PageTitle.Top:=0;PageTitle.Height:=140;  //留出空白行//得到报表不含边距的宽度(毫米)转换为像素时需乘以3.77953//SetBounds中用的是像素值PaperWidth:=(Page.PaperWidth-page.LeftMargin-page.RightMargin)*3.77953;//添加标题memoMemo:

5、=TfrxMemoView.Create(PageTitle);Memo.CreateUniqueName;Memo.HAlign:=haCenter;//左右居中Memo.VAlign:=vaCenter;//上下居中Memo.Font.Size:=14;Memo.Text:='药品批发单';Memo.Height:=40;Memo.Align:=baWidth;//伸展坐标到标题栏的宽度//摘要第一行Memo:=TfrxMemoView.Create(PageTitle);Memo.CreateUniqueName;Memo.HAlign:=haLeft;//左右居中Memo

6、.VAlign:=vaCenter;//上下居中Memo.Text:='单号:'+LEdit_dh.Hint;Memo.Height:=20;Memo.Frame.Typ:=[ftLeft,ftRight,ftTop,ftBottom];//显示边线Memo.SetBounds(0,60,PaperWidth/3,20);//Memo:=TfrxMemoView.Create(PageTitle);Memo.CreateUniqueName;Memo.HAlign:=haLeft;//左右居中Memo.VAlign:=vaCenter;//上下居中Memo.Text:='单位:'

7、+LEdit_dwmc.Text;Memo.Height:=20;Memo.Frame.Typ:=[ftLeft,ftRight,ftTop,ftBottom];//显示边线Memo.SetBounds(PaperWidth/3,60,PaperWidth/3,20);//Memo:=TfrxMemoView.Create(PageTitle);Memo.CreateUniqueName;Memo.HAlign:=haLeft;//左右居中Memo.VAlign:=vaCente