关闭

QuickReport2

119人阅读 评论(0) 收藏 举报

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;

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:28474次
    • 积分:856
    • 等级:
    • 排名:千里之外
    • 原创:63篇
    • 转载:0篇
    • 译文:0篇
    • 评论:2条
    文章存档
    最新评论