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;