QuickReport3

QuickReport3

 

步骤一:开始---程序---Borland Delphi 6---BDE---Object---New---OK(默认STANDARD)---PATH---设置为含有数据库文件的目录下。

步骤二:向Form1中,添加1个Table组件(BDE组中),DatabaseName---STANDARD1, TableName---分别设置为Pzb.DBF。

添加1个DataSource组件(DataAccess组中),DataSet---设置为Table1。

                      添加QRSubDetail.

添加DBGrid组件(Data Controls 组中) DataSource---DataSource1。

添加1个Button组件,Caption----打印。

添加1个QuickRep组件(QReport组中),DataSet---Table1。

添加QRGroup组件(QReport组中),Expression---Table1.ID。 添加QRBand(QRBand1)组件(QReport组中), BandType---rbDetail。添加QRBand(QRBand2)组件(QReport组中),BandType---rbGroupFooter。

 设置QRGroup1---FooterBand---QRBand2。

向QRGroup1中添加1个 QRLabel1(QReport组中) ,Caption----分组,添加1个QRDBText组件(QReport组中), DataSet---设置成Table1,DataField----ID。

向QRBand1中添加3个 QRDBText (QReport组中)  DataSet---都设置成Table1,DataField----ORDER, CODE, DB, CR,Alignment---都设置成taRightJustify(右对齐)。

向QRBand2中添加3个QRExpr组件(QReport组中)(QRExpr1,QRExpr2,QRExpr3),Master----都设置成QRSubDetail1,Expression----分别设置成COUNT, SUM(Table2.DB), SUM(Table2.CR), ResetAfterPrint---都设置成True,Alignment---都设置成taRightJustify(右对齐)。

Form1----AutoScroll----False;

步骤三:1. Button1(打印):

          QuickRep1.Preview;

2. Form1----OnActivate:

          Table1.Open;

 

阅读更多
个人分类: delphi
想对作者说点什么? 我来说一句

QuickReport3开发指南(英文版)

2011年03月01日 121KB 下载

quickreport自动换行

2010年12月07日 481KB 下载

FreeReport V2.34 Full Source

2011年11月22日 794KB 下载

没有更多推荐了,返回首页

不良信息举报

QuickReport3

最多只允许输入30个字

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭