用 QUICKREPORT FOR DELPHI 制作报表(转)

 quick Report for Delphi是Delphi中由QuSoft公司开发的一套用于制作报表的构件组。使用它们可以制作一些相当复杂的报表,并且可以为你的报表加入各式各样的页眉、页脚、标题、水印、表格线等
  Ⅰ.制作一个简单的报表
  在这一步,我们先看看如何制作一个仅包含有列标题和数据内容的报表(如表1):
  1.建立一个新的Form;字体设置为宋体五号,PrintScale属性设置为False;
  2.在该Form上放入两个QuickReport组中的TQRBand构件Band1,BandDetail;将其type属性设置为rbColumnHeading,rbDetail;
  3.放入一个TTtable构件Table1,设置其DataBase属性为DBDemos,TableName属性为Custermer,Active属性为Ture,再放入一个TDataSource构件DataSourcel,设置DataSet属性为Table1;
  4.在Band1上加入三个TQRLabel构件,将其Caption属性值分别设为“公司名称”、“电话”、“传真”;在BandDetail中加入三个TQRDB Text构件,将其DataSource属性设为DataSourcel;DataField属性分别设为Company,Phone,Fax;
  5.加入一个QuickReport构件Report1,用右键单击,并选择Preview项,可预览报表,此时你可发现该报表仅显示当前一条记录,将TQuickReport构件DataSource属性设为DataSource1,再进行预览就可看到所有的记录均显示在报表中;
  6.至此报表已基本完成,可在程序中加入Form1.Report1.Priview;对该报表进行预览,加入Form1.Report1.Print;打印该报表。
  Ⅱ.制作带有主从关系的复杂报表
  1.加入一个新的TTable构件Table2,设置其DataBase属性值为DBDemos,TableName为Orders,Active为Ture,设置MaserSource为DataSource1,建立主从关系为CustNo;增加DataSource2,设置其DataSet属性值为Table2;
  2.增加一个TQRBand构件Band3,设置其Type为rbSubDetail;
  3.在Band3中增加两个TQRLabel构件,设置其Caption分别为“订单编号”、“金额”;相应在该TQRLabel构件后增加两个TQRDBText构件,设置其DataSource属性为Datasource2,DataField属性分别为Order,AmountPaid;
  4.增加一个TQRDetailLink构件QRDetailLink1,设置DataSource属性值为DataSource2,设置Master属性为Report1,DetailBand为Band3;
  5.主从关系报表即可完成,形式表2。
  Ⅲ.给报表增加页眉和页脚
  为了美观和方便,我们常希望能在报表每页的页眉或页脚中打印出页码、总页数、打印日期等等。在QuickReport中也提供了简便的方法:
  1.在该Form中再增加一个TQRBand构件Band4,将其Type属性设置为rbPageHeader,即可将Band4中的内容作为页眉打印出来;
  2.在Band4中加入TQRLabel构件,以在报表中每页显示文字;加入TQRSYSdata构件,设置其Data属性值,可在报表中显示页码、打印日期、打印时间、记录序号等等文档信息;
  3.如希望在每页中显示总页数,则必须写入下面几行程序:
  Report1.Prepare;
  Count:=QRPrinter.PageCount;
  QRLabell.Caption:=InttoStr(Conut);
  Report1.Cleanup;
  Report1.Preview;
  Ⅳ.为报表增加标题和封面
  我们希望在第一页上加上标题或给报表加上封面,在使用QuickReport制作报表时,也是很简单的。在报表中增加一个TQRBand构件,将其属性设为rbTitle,在Band5中所加的文字和图形,均在第一页中打印出来。当用于封面时,可在该Band的AfterPrint事件中加入Report1.NewPage,即可。
  Ⅴ.为报表增加表格线
  可以使报表看起来更为清晰明朗。在QuickReport中提供了两种方法:一是使用TQuickReport和TQRBand构件的Frame属性;二是直接使用TQRSharp构件。
  使用TQuickReport和TQRBand构件的Frame属性的优点是设置简单,不需要写程序代码;缺点就是不能随意修改其位置和大小。使用TQRSharp则恰恰相反。而且在其所属Band的AfterPrint事件中可自由修改其位置、线型、粗细等参数。
  Ⅵ.制作一个自己的Priview窗口
  QuickReport提供了一个缺省的Preview窗口,在TQuickReport构件上单击右键选择Preview显示报表时使用的也是该Preview窗口。但由于该Preview窗口是英文版,当我们需要显示的是中文时,就需要制作一个自己的Preview窗口,其方法简单叙述如下:
  1.建一个新Form:Form2;
  2.在其上加入一个TQRPreview构件;
  3.增加几个Tbutton构件,使用其OnClick事件调用该TQRPreview构件的ZoomtoFit方法,ZoomToWidth方法或修改PageNumber和Zoom属性值即可自由调整TQRPreview
构件中所显示报表的显示状态;
  4.为了能在程序中调用Preview方法时显示的是自己的Preview屏幕,还须在程序的主单元中写入下面的代码:
  QRPrinter.OnPreview:=OnPreview;
  ProcedureTMyMainForm.OnPreview;
  begin
  Form2.ShowModal;
  end;
  5.至此你便拥有了自己的Preview屏幕

       值得注意的是此屏幕只能在程序执行的过程中显示。
  综上所述,使用QuickReportforDelphi制作报表主要是通过将包含打印内容的构件TQRLabel、TQRDBText、TQRCacl、TQRSysData、TQRSharpTQRMemo等等放置在相应的T
QRBand上,并设置TQRBand构件的Type属性以确定该Band打印位置,从而实现页眉、页脚、标题、水印、表格线等报表的特殊效果,并可使用TQRDetailLink、TQRGroup等辅
助构件给Band间建立连接关系及对数据内容进行分组,以实现明细表、数据分类等特殊的报表要求。

原文地址:https://www.cnblogs.com/chenbg2001/p/1628407.html