ReportMachine中文手册可编辑范本.docVIP

RepoｒtMａｃhｉne(RM）报表控件简单用法

RM(RepｏrtMachｉne)是一个功能强大的Dｅｌphｉ报表控件包。使用它可以制作出非常复杂的报表。下面讲述最简单的用法:

在Fｏｒｍ上放上两个数据库控件:ＡDＯＣonｎectｉoｎ和ADＯQuery?设置好ADOConnectiｏn的ConｎectｉoｎStrｉng．ＬoｇinＰｒｏmpt=Falｓe。

ADOQuｅｒy的Cｏnnection指向ＡDＯＣonneｃｔiｏn.?ＡDOＱueｒy的ＳQＬ设置好数据查询语句.

在Form上放上两个RＭ报表控件：RMDBDataSet和RMReport。?RMDBＤatａSet的DatａSｅt指向ADＯQuery。

RＭＲeport的DataSet指向RMDBDataSｅｔ。

(如果想使最终生成的应用程序具备报表设计能力，还需要放上ＲＭDesigneｒ控件，不需要设置任何属性）

双击ＲMReporｔ控件，开始设计报表模板。

对于一般比较规则的报表,只需向模板中加入四个Banｄ对象，分别是：

1)、页标头：通常用来显示报表名称，时间等

2)、主项标头：通常用来显示栏目名称。?3)、主项数据:用来显示数据。

４)、页注脚:用来显示页号,日期等。

设计好的模板可以保存在ＤFM中，也可以保存到独立的模板文件中,扩展名为RＭF,运行时调入。下面给出几个代码片断:

ｐroｃedurｅTＢrowseFoｒm。Bｕtｔｏn5Cｌick（Sender：TＯbjｅct)；

var???RMRepｏｒt:ＴＲMReｐoｒt；

beｇin

??ｉｆＡDＯQｕｅry1。IsEmptｙthｅn?????Ｅｘit;???trｙ

????ＲMRepoｒt:=TＲMReｐoｒt。Ｃｒeａtｅ(Sｅｌf)；?????RMReporｔ。LoadFrｏmFｉle（’Match。rmf);

????RMＲepoｒt.PreｐareＲｅpoｒｔ;

????RMRepｏｒt。ＳhowReport;???fiｎaｌly

????ＲＭRepoｒt.Fｒee；

??ｅnd；

ｅｎd;

ｐroｃｅdureＴForｍ1。Button1Click(Sender：ＴObｊect）;?begin???RMＲeport1.ShowReｐort；?end;

//设计报表模板

procedureTFｏrm1.Bｕｔtoｎ2Cliｃk(Sｅndｅｒ：TObjeｃt）；

ｂeｇin

??RMReｐｏｒｔ1.ＬｏaｄＦｒomＦiｌe(TTT.rmf’）;

??RMRｅport１。DeｓiｇnReｐｏｒt;?ｅｎd;

对于大多数规则的报表,以上知识就足够了。但这只是ＲＭ最简单的用法,远远没体现出RM功能的强大。

RM有两个吸引人的功能是我目前最需要的：

1)、数据可以来自数据库，也可以来自其它任何地方，如文件中、内存中等。?2）、不一定需要预先制作好模板，可以在运行时刻通过代码生成模板,这对于数据中字段个数不定的情况非常有用.

ＲM虽然功能强大，但用起来并不觉的很复杂，它是我见过的为数不多的报表控件中最好的一个。

１。对于一张纸要两面打的报表你有什么好办法?

打印时可以选择打奇数页还是打偶数页.

2。怎么能在一个页面中打印固定的条数,另外最后一页记录不够时怎么打出空白的格子出来啊。?固定条数:设置LineｓＰerＰage?空白格子:设置AｕtoＡppｅｎｄBlank=True

3。怎样屏蔽双击报表进入设计报表的界面？

RＭＲeｐorｔ1。ＭoｄifyPｒｅpared:=Ｆalsｅ

４。怎样在报表中增加表合计？？?

可以放在标题栏,页面设置中选两遍报表”

汇总框的TotalCalc=True即可

5。我想用代码把参数传递给报表中的某一个TＲMMemoＶｉｅｗ该怎么做??RMReport1。FｉndObject(‘Mｅmo1‘）。Memo。Teｘｔ:=‘dｄｄｄd‘

或者?RＭVａriablｅs[‘a1‘]:=‘ｄddｄd‘；//这样就可以在报表中使用变量‘ａ１‘了。?6。如何能够不打印重复内容??Supｐreｓ=True

7。如何让打印预览时双击不能进入报表编辑器!

设置RMRｅｐoｒt。ＭoｄｉfyＰrevieｗ＝Fａｌse?８.如何在报表程序中控制MEMO的边框是否显示?在dｅｌpｈi中:

ｍｅmｏ１．LefｔＦraｍe。Visible：＝Fａlse

ｍemo１。TopFrame.Vｉsible：=False；

mｅｍｏ1．RiｇhtFraｍe．Visiblｅ:=False;?meｍo1．BoｔtoｍFｒame．Ｖｉsｉbｌe:=Ｆalse?在报表的ｓcript中?memo1．FrameTｙp：=15;／/