QuickReport2

QuickReport2

 

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

步骤二：向Form1中，添加2个Table组件（BDE组中），DatabaseName---STANDARD1， TableName---分别设置为Pza.DBF， Pzb.DBF 。

添加2个DataSource 组件（DataAccess组中），DataSet---分别设置为Table1和Table2。

添加3个DBEdit，分别用来输出“编号”，“日期”，“备忘录”，Datasource----Datasource1,  Datafield----分别为NO,DATE, MEMO。

添加DBGrid组件（DataControls 组中） DataSource---DataSource2。添加DBNavigator（DataControls 组中），DataSource---DataSource1 ， VisibleButton----后6个设置为false。

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

设置Table2---MasterSourse---DataSource1,  MasterFields---ID。

创建Form2, 在Unit2中 implementation后面一行写上 Uses Unit1,向Form2中，添加1个QuickRep组件(QReport组中)，DataSet---Table1。

添加QRGroup组件(QReport组中)，Expression---Table1.ID。 添加QRBand（QRBand1）组件(QReport组中), BandType---rbDetail。 添加QRSubDetail组件（QReport组中），DataSet---Form1.Table2。添加QRBand(QRBand2)组件（QReport组中），BandType---rbGroupFooter。

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

向QRBand1中添加3个QRDBText组件(QReport组中), DataSet---都设置成Table1,DataField----分别设置成NO, DATE, MEMO。

向QRSubDetail1中添加4个QRDBText组件(QReport组中)，DataSet---都设置成Table2,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(右对齐)。

步骤三：1.在Form1中， 在Unit1中 implementation后面一行写上 Uses Unit2,

        2. 在Form1中，Button1（打印）：

         form2.QuickRep1.Preview;