下载文档原格式
Delphi报表制作入门Delphi 7.0 中实现报表的方法称为 Rave。
Rave 报表是一种基于组件的可视化报表设计工具，使用它可以简化设计过程，提高设计效率。
只要将 Rave 报表组件添加到应用程序中后，就可以创建各种类型的报表。
本文将以 ADO 组件连接数据库，向读者介绍怎样利用 Rave Report5.0 快速设计报表。
还是赶快行动起来，体验一下 Rave Reports 的强大功能吧！1.准备好范例数据库，笔者使用 Access 建立数据库Student.mdb,创建一个表：StuInf(学生基本信息)，包含Sno(学号),Sname(姓名),Sex(性别),Class(班级),Birthday(出生日期)... 等字段，所有字段名先使用括号中的中文；再写入几条数据备用。
2.启动Delphi7.0 建立一个工程，在窗体上放置一个ADOQuery 控件，设置其ConnectionString 属性，连接数据库 Student,设置 SQL 属性为“select * from StuInf；”，Active 属性为 True 。
为了能看到库中的数据，再往窗体上放置一个DBGrid 和一个 DataSource ,设置相关属性，使 DBGrid 中显示数据。
3.在窗体上添加一个 GroupBox,设置其 Caption 为“选择报表式样”；往其中添加两个 RadioButton ，Caption 分别为“条列形式”、“表格形式”；往窗体上添加一个按钮，Caption 为“显示报表”。
现在，准备工作已经完成了，保存工程，下面开始报表的设计。
4.在窗体上添加一个RvDataSetConnection组件，设置其DataSet为ADOQuery1，这样，就提供了 Rave 报表与数据源之间的连接。
5.在 Delphi 主菜单的 Tools 中选择 RaveDesigner 启动 Rave Reports5.0。
Delphi编程实现Excel报表自动生成和发布文章介绍如何使用Delphi 编程通过定义报表内容描述、Excel 模板文件和服务器描述文件实现Oracle 数据库和Excel 模板文件的数据交换，并以Ftp 方式自动发布到Web 数据发布平台。
标签：Delphi；Excel模板；报表定义；Ftp1 引言随着计算机应用技术的快速发展，Excel 电子表格的普及，工作中常常需要从不同的信息管理系統中查询统计数据并以Excel 表格方式展现报表。
由于行业或者业务部门需求的变化，导致报表格式、种类繁多。
一些复杂报表，需求在软件开发期间都无法明确，为了解决此类问题，采用了表格功能强大的Excel 作为报表模板，Delphi 程序根据报表数据定义动态填入数据，完成数据填充后以Ftp 方式上传填写完数据的文件到Web 数据发布平台，从而实现Excel 报表的自动生成和发布功能。
2 实现原理2.1 按照业务部门的需求，根据需要的报表格式，编辑好Excel报表模板文件；根据报表的数据内容和区域，编写好报表定义文件。
2.2 以报表定义文件文件名作为运行的参数，在操作系统下创建批处理命令，并可以根据实际需要把批处理加入操作系统的计划任务，实现按程序自动运行。
2.3 程序根据报表定义文件的描述，主要做如下操作：①读取指定的Excel 模板文件；②到指定的数据库服务器查询数据并填充Excel 模板文件；③以Ftp 方式上传生成好的Excel报表文件到FTP服务器。
3 实现过程描述3.1 报表定义文件采用可扩展标记语言（XML文件描述），主要内容描述如下：report nameD：＼xxxx＼template_xxx.xlsD：＼xxxx＼xxxxxx.xls1ftp server nameftp remote dir……database name1n1，n2，n3，n4select col1，col2，… from table_name…………在Delphi 中使用控件解析方法生成XML 文件接口框架代码，通过生成的接口单元读取XML 文件，主要代码如下：Var xmlReport：IXMLReportType；//定义报表定义文件变量……xmlReport ：= LoadReport（报表定义XML文件）；//读取报表定义文件if length（trim（xmlReport.Ftpserver））>0 then //是否指定FTP上传服务器uplaodFile（xmlReport.output）；//上传文件到Ftp服务器……3.2 服务器定义文件文件格式同报表定义文件，主要内容及描述如下：server name user/pwd@ip：port：sid……ftp server namexxx.xxx.xxx.xxx215000usernamepassword……Delphi 处理该文件方法同上，根据指定服务器名称取查找服务器子节点，主要代码如下：//根据指定的FTP名称，取服务器定义文件中FTP 中节点for i ：= 0 to xmlServers.Ftp.ChildNodes.Count - 1 do beginif （trim（xmlServers.Ftp.server[i].Name）= trim（serverName））then begin result ：= xmlServers.Ftp.server[i]；exit；end；end；3.3 采用第三方數据库控件ODAC 访问Oracle 数据库ODAC 全称Oracle Data Access Components，是Oracle 数据存取组件，直接使用Oracle 接口（OCI），在应用中建立连接可以使用ODAC Net 选项无需在客户机上安装Oralce 客户端，仅需TCP/IP 支持，本次开发中使用了TOraSession 和TOraQuery 两个控件，主要代码如下：if oraSession.Connected then oraSession.Close；//关闭数据库连接oraSession.ConnectString ：= getOracleServerNode （OracleServerNname）.ConnectString；//修改连接字串，函数getOracleServerNode 返回变量Oracle 服务器节点；oraSession.Connect；//连接数据库；ToraQuery 的使用方法同Delphi 中TQuery；3.4 Oracle 数据集填充Excel 数据区域根据指定数据区域和SQL语句向Excel模板文件中填写数据，注意点：SQL 语句运行结果和指定数据区域要一一对应。
DELPHI报表的动态生成(Create Delphi Dynamic Report)摘要：本文主要介绍如何在DELPHI开发环境下动态生成报表，给出公用模块，并结合具体示例分析了实现的主要技术问题，给出解决这些问题的技术细节。
关键词：DELPHI报表、动态创建一、引言报表是数据库应用程序的重要部分，可是报表的生成也是数据库开发中最麻烦的一项工作。
报表格式复杂多样，一直是使程序员头疼的事。
DELPHI 在其3．0以后版本中加入了QUICKREPORT，使这种情形有所改变。
它的全部可视化编程以及设计和运行过程中都可以进行预览等特性给程序开发带来了很大的方便。
我们可以通过在应用程序设计阶段往窗体中添加报表控件，再与数据库表组件Ttable，查询组件Tquery等数据访问组件相关联，从而实现报表的预览与报表的输出。
但在许多应用程序中，程序员往往期望从静态或者动态生成的数据库表中动态提取所需数据，进而生成报表输出。
本文介绍的就是如何动态选择所需数据，动态生成报表的公用模块。
这种动态方式生成的报表更加灵活，也更加容易做到报表的格式统一。
动态报表主要是在程序运行阶段利用Creat方法动态创建控件，设置其Parent属性来设置其容器控件。
然后，在程序中根据所选择的数据库表中的数据字段的长度和数目，通过修改控件的大小和位置属性，来控制控件的大小和外观，如果该控件有事件，可直接把函数或过程名赋给它的相应事件名。
二、动态报表的实现下面结合一个具体实例来说明如何其实现的方法和技术。
1、基本思路数据来源，我们以DELPHI自带的DBDEMOS中的employee.db表为例，它共有6个字段。
在F_main主窗体中（如图一），可以自由选择所需要打印的字段。
它的主要控件及属性设置如下：①．Table1:Databasename设置为DEDEMOS,Tablename设置为employee.db②．Listbox1:显示所连数据库表中的全部字段③．Listbox2:用于选择所需报表输出的字段④．AddBitBtn:用于把所选择的字段名添加到Listbox2中⑤．DeleteBitBtn:用于把Listbox2中的字段名去掉⑥．PreviewBitBtn:用于报表的预览⑦．PrintBitBtn:用于报表的输出⑧．CloseBitBtn:用于关闭应用程序在F_report窗体中，放置了以下主要控件，并设置属性，以减少程序的篇幅：①．Table1:Databasename设置为DEDEMOS,Tablename设置为employee.db②．QuickRep1：papesize属性为A4，dataset属性为Table1，bands 属性中的hascolumnheader、hasdetail、hastitle设置为True显示数据库表中的全部字段在F_report的Oncreate事件中加入了如下代码：Table1.Open;if Table1.Active thenTable1.GetFieldNames(Listbox1.Items);// 获得数据库表中的全部字段名DeleteBitBtn.Enabled:=False; //在Listbox2中无字段时，DeleteBitBtn变灰2、从Listbox1中选择字段添加到Listbox2中为AddBitBtn的Onclick事件加入如下代码：if listbox1.Items.Count=0 then exit; //如Listbox1中无可供选择的字段，则执行空操作if listbox1.Selected[listbox1.ItemIndex] then //在Listbox1中选择字段beginListbox2.Items.Add(Listbox1.Items[Listbox1.ItemIndex]);//往Listbox2中增加选中的字段Listbox1.Items.Delete(Listbox1.ItemIndex);//从Listbox1中删除此字段if Listbox2.Items.Count>=1 then //在Listbox2中有字段才允许执行删DeleteBitBtn.Enabled:=True;end;3、从Listbox2中删除不需要的字段为DeleteBitBtn的Oncreate事件添加如下代码：if Listbox2.Items.Count=0 then exit; // 如果Listbox2中无字段，则执行空操作if listbox2.Selected[Listbox2.ItemIndex] then //在Listbox2中选择字段beginListbox1.Items.Add(Listbox2.items[Listbox2.itemindex]); //添加到Listbox1中Listbox2.Items.Delete(Listbox2.itemindex); //从Listbox2中删除此字段end;if Listbox2.Items.Count=0 then //如果Listbox2中无字段，则DeleteBitBtn变灰DeleteBitBtn.Enabled:=False;4、在报表中动态添加一列的步骤:①.TitleBand1中打印的是报表的名称，这里假设为：动态报表生成示例。
最近在做一个Delphi的发货清单的打印程序，其中涉及到需要计算清单的小计和总计的功能，文字难以表达清楚，上图吧：报表第一页的小计计算当前页面的商品价格总和，总计目前和小计一样是计算截止到当前页面的所有商品的金额和，下图为最后一页：这下大家明白了吧，就是要实现这样的报表。
废话不多说了，开始讲解我的思路：1.既然要计算小计，就是每页的金额和了，加入ReportMachine的计算文本框（TRMCalcMemoView），然后设置要汇总的字段值为数据字段“factSum”，然后选择计算文本框的属性面板中的“CalcOptions”选中“统计Brand”为要汇总的主项数据，统计类型为“合计（Sum）”，如图所示：2.最难的部分就是总计的计算，这不能简单的用计算文本框就能解决的，于是不得不用ReportMachine 的代码来处理，也就是在总计的文本框的OnBeforePrint事件中计算之前的小计文本框的值的和，然后赋值给总计文本框显示，先看下设计的报表：红色文字为两项总计的文本框的Name属性值。
下面是ReportMachine中自定义的OnBeforePrint事件函数代码如下：unit Report;varlValue,tValue: Double;//lValue=金额总计 tValue=税额总计procedure Memo1_OnBeforePrint(Sender: TObject);beginlValue:=lValue+CalcMemo1.CalcValue; //CalcMemo1为金额小计的文本框 TRMMemoView(Sender).Memo.Text := lValue;end;procedure Memo40_OnBeforePrint(Sender: TObject);begintValue:=tValue+CalcMemo2.CalcValue;//CalcMemo2为税额小计的文本框 TRMMemoView(Sender).Memo.Text := tValue;end;procedure Main;beginMemo1.OnBeforePrint:= Memo1_OnBeforePrint; //指定金额总计的文本框的OnBeforePrint事件的处理函数Memo40.OnBeforePrint:= Memo40_OnBeforePrint;//指定税额总计的文本框的OnBeforePrint事件的处理函数end;end.上面的代码先声明了两个事件函数用于计算两个累加的总计的值，然后赋值给相应的总计文本框；然后再Main中指定给总计文本框的事件，这样当打印总计之前先汇总赋值并打印。
delphi使⽤QuickReoprt⽣成报表1.添加报表控件1>点击菜单命令‘’Componet/Install Packages‘’2>在弹出的对话框，点击Add3>在delphi⽂件夹下-bin⽬录-选择dclqrt70.dpl⽂件，点击添加安装好之后，在控件⾯板上可以找到Qreport ⾯板。
2.添加QuickRep控件创建⼀个 QuickRep1 对象。
TQuickRep控件是设置报表的核⼼控件，相当于打印范围，是其他控件的⽗级。
3.添加Adoquery1 对象1>将 QuickRep1的 DataSet 属性设置为 Adoquery1。
2>在 Adoquery1 的 SQL 属性⾥添加SQL语句。
3>设置ADOQuery1的connectstring属性为，根据实际数据库进⾏更改：Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=DB;Data Source=.4>设置ACtive属性为True。
4.添加标题栏，数据栏，统计信息栏1>在 QuickRep1 上添加 3 个对象：QRBand1、QRBand2 和 QRBand32>QRBand1 主要是作为表头来显⽰头部信息。
属性：BandType 设置为：rbPageHeader3>QRBand2 主要⽤来显⽰数据记录信息。
属性： BandType 设置为：rbDetail4>QRBand3 主要⽤来存放统计信息。
BandType 设置为：rbSummary5.在数据栏中添加QRDBText1（⽂本控件）⽤来显⽰数据库信息1>DataSet 属性设置为：ADOQuery1。
2>DataField属性设置为：所需要显⽰的数据库字段.6.在统计信息栏添加统计信息属性：Data 设置为：qrsDetailCount7.添加事件在对应的按钮事件中添加如下代码：Form1.QuickRep1.Preview ;。
在Delphi中实现数据分析模块的动态报表⼀、问题的提出Delphi作为强⼤的数据库开发⼯具，正被愈来愈多的编程⼈员所采⽤，"聪明的程序员⽤Delphi"更形象⽣动的道出⼴⼤程序员的⼼声，但这并不意味着所有功能的实现都⾮常容易，例如，笔者在开发军队的某个信息系统中，就在为数据分析模块中DecisionGrid1控件的数据进⾏报表输出时⾛了不少的弯路。
⼴⼤的Delphi的爱好者在今后的学习或⼯作中也有可能会遇到类似的问题，⽽在许多参考书中，很少有甚⾄没有关于它们的解决⽅法，于是，我想花费⼀点时间把它整理出来，以供⼤家参考。
本⽂中报表动态⽣成的公⽤模块具有很⼤的灵活性和易操作性，其中的思路、实现的功能和通⽤性等⽅⾯的优缺点就由⼤家看了本⽂后⾃有定论。
⼆、建⽴报表的动态输出公⽤模块下⾯，结合公司⼈事管理信息系统说明其实现的⽅法和技术。
1、基本思路：⾸先从DecisionGrid1中获得报表所需数据，放到⼆维数组PA中，然后在C:\DataWork中动态创建⼀个数据表tjb.dbf，存放报表数据，最后⽤T able1与tjb.dbf相连接，以后⼯作就与⼀般的动态输出报表(如查询报表)相类似，在这⾥我就⽆须赘述了。
2、建⽴窗体⽂件：放⼊六个⽤于数据分析的常⽤控件DecisionQuery1、DecisionSource1、DecisionCube1、DecisionGraph1、DecisionPivot1、DecisionGrid1，设置DecisionSource1的decisionCube属性为decisionCube1，decisionCube1的Dataset属性为decisionQuery1、decisionQuery1的DatabaseName属性为c:\datawork；⼀个Table1控件，⽤于连接数据表tjb.dbf；⼀个QuickRep1控件，⽤于数据的报表输出；两个Button1和Button2控件，其Caption分别设为"报表输出"和"返回"。
批最近刚刚做完一个项目，使用到了ＲＡＶＥ进行报表设计，在使用中也查阅了很多资料，但总觉得网上的资料过于分散，而且都不是很全面，所以决定将如何在Delphi 7中使用RAVE报表写成几篇文章，由于本人从小语文学得不好，不是写作高手，这次也是第一次写这样的文章。
希望看到这篇文章的网友能多提意见，欢迎大家指教。
可以给我留言。
言归正传，在我们要给用户编写的软件中往往需要生成各种各样的报表,报表是数据库中数据的最终表现形式，在Delphi 6以前，编写报表都在使用Qusoft公司的Quick report，而且在Delphi中集成了Quick report。
在Borland Delphi™ 7 Studio 集成开发环境（IDE）的控件面板中取消了Quick report项，取而代之以Nevrona公司Rave Reports项，且在Tools中有Rave Designer 5.0 。
打开Rave Designer 5.0，我们可以如图所示的一个报表设计界面，开发人员可以开发出符合用户要求的报表来，而且这个报表的设计、使用与Delphi集成开发环境几乎是完全的一样，这可能是Rave与其它的报表组件最大的外观上的不同。
我在使用中下载了Rave Reports v5.1.3，你可以在这里或者这里下载，在写这篇文章时，上面上已经发布了Rave Reports 6.0，不过文章还是以Rave Reports v5.1.3为准。
打开Delphi，可以控件面板看到如图：Delphi7下的Rave打开Tools中的Rave，看到的报表设计界面如图：Rave5的报表设计界面一、Rave5的报表设计界面首先，介绍一下Rave的报表设计器的各组件和相关的属性。
Rave Designer集成开发环境的界面包括标题栏、菜单栏、快捷工具栏、组件栏和一些窗口：·标题栏显示了当前的工程名，位于最上部。
·菜单栏，一些功能可通过菜单栏的菜单命令实现。
·快捷工具栏为位图按钮，一些常用的菜单命令用这些按钮实现。
·报表组件栏分页显示各种组件（Standard、Report、Zoom、Colors、Lines、Fills、Fonts、Drawing、Bar Code、Alignment），在利用Rave开发应用程序的过程中，正确、合理地使用组件非常重要。
用它可设计基于数据库和文本的复杂报表。
·左边半部分像Delphi的object inspector工具，可设置报表元件的属性，它的下部分有对应属性的简短提示。
·正中部分为设计区域，开发者可在上面添加各种设计元件，如Drawing的横线、直线、矩形、椭圆，Barcode中各种常用的条码，Standand 中的Text、Memo、Section、Bitmap、Metafile等等。
·右边为设计导航区，可查看报表的各元件的更多信息，如报表库和数据显示目录，设计时也可快速定位元件位置。
[本帖最后由feyun 于2007-9-16 16:41 编辑]论坛模式推荐收藏分享给好友管理TAG:feyun发布于2007-09-16 16:42:07二、Rave的报表设计器,组件栏的各组件：１、Drawing （绘图）组件页：Line component ：画线组件，所画的线较灵活。
可以看到其属性入图，有颜色、线宽、线行等属性，设计者根据需要更改属性。
改变线的长短位置，选中线条后，选择一个端点则光标会变为十子型，拖动即可。
Hline component ：画水平线组件。
Vline component ：画垂直线组件。
Rectangle component ：画长方形组件，可以使用fill组件填充。
Square component ：画正方形组件，可以使用fill组件填充。
Ellipse component ：画椭圆组件，可以使用fill组件填充。
Circle component ：画圆形组件，可以使用fill组件填充。
２、Bar Code（条形码）组件页：PostNetBarCode ：打印邮件标签上包括POSTNET 条码。
I2of5BarCode ：打印Interleaved 2 of 5条码。
Code39BarCode ：打印standard and extended Code 39条码。
Code128BarCode ：打印A, B and C Code 128条码。
UPCBarCode ：打印UPC-12条码。
EANBarCode ：打印EAN-13条码。
３、Standard（标准）组件页：Text ：这个组件是在报表上固定的文字，例如报表的标题等，可以设置字体的大小、颜色，Rotation属性可以使要显示的字为任意角度。
Memo ：Memo组件提供了多行文本的文字，与delphi中的相似，属性很多,但我们应用的不多，可以使用text属性添加文本。
Section ：这个组件是其他组件的容器，将其他组件固定在此组件中。
Bitmap ：这个组件是在报表中放置bmp文件(*.bmp)，FileLink属性连接bmp文件。
MetaFile ：这个组件在报表中放置meta文件(*.wmf)，FileLink属性连接meta文件。
FontMaster ：这个组件控制报表中的任何的text字的属性。
在要使用该字体的text组件或memo组件的fontmirrot属性选择FontMaster。
PageNumInit :报表显示页码的初始页码。
如图的InitValue的值为5，则报表的初始页为5，页码从５开始。
４、Report（报表）组件页：如果报表需要的是数据库的数据，则这个组件页中的组件使用比较频繁。
feyun发布于2007-09-16 16:42:18DataText：用来显示数据库中内容比较短的信息，要用它显示相应的数据库字段信息，则要使用到DataField 和DataView两个属性，用来连接数据库和字段。
DataText用来设计主从报表时，LookupDataView是相应的数据连接、LookupDisplay是显示内容、LookupField是主报表相应的数字段进行关联的字段的内容，也就是主数据字段进行连接的字段。
LookupInvalid是控制相应错误产生后的情况。
DataMemo：在Memo的基础上支持了数据库的字段显示, 使用DataField 和DataView两个属性，用来连接数据库和字段。
除了输出相应的文本内容外，还可以输出RTF格式，显示RTF格式，需要设置ContainsRTF属性为True。
CalcTex：这个组件用来统计报表字段的最大值、最小值、总和、统计值等内容直接使用，只需要通过CalcType属性来设置，CalcType属性包括了ctAverage(求平均值)、CtCount(求个数)、ctMax(求最大值)、ctMin(求最小值)、ctSum(求累加和)。
DataMirror Section：和Section组件相似。
Region：如果要进行报表的打印，Region组件规定了打印区域，可以设置Columns来分栏。
Band：这个组件算是一个容器组件，包括text、Memo组件等，包括的是非数据库库信息，Band组件要放置在Region中，选择BandStyle属性后，出现如下图的属性对话框。
左边为报表中Band的列表，右面的PrintLocation包括：Body Header(页眉)、Group Header（组眉）、Row Header （行眉）、Detail（表体）、Row Footer（行脚）、Group Footer（组脚）和Body Footer（页脚），BandStyle属性可以多选。
Print Occurrence属性包括：First（首页打印）、New Page（打印新一页）、New Column（新分栏）。
选择First（首页打印）也就是Band包括的内容只在第一页打印，选择New Page（打印新一页），Band包括的内容必须在新的一页打印，选择New Column（新分栏），Band包括的内容必须在新的分栏中打印。
DesignerHide属性：当一个报表有多个Band时，选择查找Band变得比较麻烦，设置DesignerHide属性为True时，没有选择到的Band内容被隐藏。
GroupDataView 和GroupKey属性：如果想要以相应的数据结果作为报表分组的依据，那么就必须设置这两个属性，GroupDataView是相应的数据源，GroupKey是数据源的索引，分组是靠GroupKey中的值进行分组的。
DataBand：是直接作用于数据库，且可以在其中摆放相应数据库报表组件，这样通过它就可以让相应的报表具有数据库书库打印功能。
其中DataView属性是设置相应的数据源，GroupDataView是相应的报表中的分组数据源。
DataCycle：与DataBand相似的地方在于循环的显示数据，DataBand是数据库内容的循环打印，而DataCycle不需要使用Region，它打印的区域为页面，每页只能打印一个组件设计好的内容。
使用DataBand是根据Region的范围来分页，而DataCycle则是每一页只现实一条信息根据数据的多少分页。
CalcOp：该组件提供了报表相应的计算功能，具体的使用会在以后讲解。
CalcTotal：与CalcOp结合使用来完成日常报表的统计功能。
５、Zoom（缩放）组件：在设计报表时，放大、缩小报表页面。
６、Colors（颜色）组件：对选择的对象快速的设置颜色。
７、Lines（线型）组件：对于选择的线，更改其线型。
８、Fills （填充）组件：对于正方形等图形填充样式。
９、Fonts（字体）组件：进行字体的设置。
１０、Alignment（队列）组件：调整对齐组件和组建的层次。
feyun发布于2007-09-16 16:42:39隔了好长时间终于有时间继续向大家介绍RAVE了，这次主要介绍Delphi7下的Rave组件。
打开Delphi7，看到的rave页如下：Delphi7下的Rave包括有RvProject、RvSystem、RvNDRWriter、RvCustomConnection、RvDataSetConnection、RvTableConnection、RvQueryConnection、RvRenderPreview、RvRenderPrinter、RvRenderPDF、RvRenderHTML、RvRenderRTF、RvRenderText这几个组件。
一、RvProject组件在使用rave报表中，这个组件是最为重要的一个，是使用频率最高的一个组件，开发人员可以通过这个报表完成报表的打印、文件的生成、输出，土过此事可以使用设计状态，也可以通过它来点用相应的报表设计器。
