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;

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

Quickreport PowerPack v1.21 for D4-7/CB456

2006年01月13日 230KB 下载

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

关闭
关闭