delphi制作报表

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 语句运行结果和指定数据区域要一一对应。

说明：该控件只能画直线和斜线，如果读者需要画矩形和园，可以使用TQShape控件来实现。
２、控件设计步骤
步骤１、使用Delphi提供的控件向导，选择TQShape为父类，建立新类TMyQRShape，并选择适当的包(Package)，最后生成单元文件。
Text。为了使报表更加美观和生动,可以设置打印机画布的字体、大小,还可以插入图片等。
用Qreport组控件制作报表
QuickReport是Quick Soft Development公司专为Delphi设计的用于制作报表的工具。Delphi3中Qreport组控件十分丰富,只要很好地利用这些控件就能制作出效果不错的报表来。
procedure TForm1.Print-repClick(Sender:Tobject);
var I,j,cp,ph,pw,w,h:integer;
beginif printdg1.Execute then //打开打印对话框
begin
for cp:=1 to printdg1.copies do //打印份数
数做为度量单位是一个明智的选择。具体做法如下：
VarPointX,PointY:integer;PointX:=GetDeviceCaps(printer
Handle,LOGPIXELSX);PointY:=GetDeviceCaps(printerHandle,LOGPIXELSX);printer
Delphi应用程序中中国式报表的制作
在众多可视化数据库开发工具中,
Delphi以其真正的面向对象、高效率、支持多层结构应用开发、支持多层B/S结构开发等优良特性脱颖而出，成为广大编程人员的首选开发工具。
在数据库应用程序开发中，系统设计员、程序设计员需要考虑的一个重要问题是如何设计和输出报表，在Delphi中我们可以采用多种方案来解决这一问题，如运用OLE自动化技术将数据输出到MS-WORD、MS-EXCEL中等，但其中最直接、最本地化的还是使用Delphi3.0/40中的QuickReport报表组件，它是挪威QuSoft公司专门为Delphi

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中打印的是报表的名称，这里假设为：动态报表生成示例。

该组件用来显示报表的备注信息。该备注信息并不是数据库表格中的备注字段， 而是通过设置TQRMemo组件的Line属性来添加备注信息。 该组件用来显示报表中的RTF类型的文件。该组件的ParentRichEdit属性允许将 TQRRichText组件连接到TRichEdit组件上，这样TQRRichText组件就可以反映另一 个组件RTF类型的备注信息。 该组件可以在报表中显示数据库表格中的记录的备注信息，用法和TQRRichText组 件相似。

Delphi为设计者提供了QuickReport Wizard来快捷、方便地生报表，使用 QuickReport Wizard可以创建列表类型的报表。 ① 选择QuickReport Wizard。 在File菜单中选择New，在New Items中选择Business选项。 ② 开始QuickReport Wizard。 选择QuickReport Wizard，单击OK按钮，就打开Start Wizard对话框，开始 QuickReport Wizard。 ③ 设置数据源。 在选择报表类型对话框中单击Start Wizard按钮，开始设置数据源。选择了数 据源后，单击按钮Finish，就完成了报表的设计。

13.1.1 13.1.2 13.1.3 13.1.4 13.1.5 13.1.6 13.1.7
TQuickRep组件 TQRSubDetail组件 TQRBand组件 TQRChildBand组件 TQRExpr组件 TQRSysData组件 其他一些组件
13.1.1 TQuickRep组件

13.1.4 TQRChildBand组件

该组件用来为一个边条创建一个子边条。在该子边条中可以显示 明细边条中的备注信息。

可视化程序设计语言 Delphi 7
第 12 章
报表和图表设计
12.1 数据报表的设计
1.设计数据源 1.设计数据源
Form1→Table1→Button1 DBDEMOS Parts.DB RvDataSetConnection组件 Rave卡 组件( RvDataSetConnection组件(Rave卡) DataSet:Table1 RuntimeVisibility:rtDeveloper
2.设计Rave报表 2.设计Rave报表 设计Rave
(1)…….(15) .(15) (1) P295-298 P295-
3.编写程序代码及运行结果 3.编写程序代码及运行结果
Procedure TForm1.Button1Click(Sender:Tobject); begin RvProject1.Execute; end;
[例12-2]简单统计表 12-2] 组件 该组件用于显示与数据相对应的图形。 该组件用于显示与数据相对应的图形。数据来自于 DecisionSource 通过【 Graph】 通过【Editing Decision Graph】→Chart →Series 用来选择不同的图形。 用来选择不同的图形。 (6)DecisionGrid 组件 (6)DecisionGrid DecisionGraph组件不同的是该组件以表格形式对数 与DecisionGraph组件不同的是该组件以表格形式对数 据进行统计显示，可以根据需要设计表格的外观。 据进行统计显示，可以根据需要设计表格的外观。
12.2 图表设计
1.简单统计图生成 1.简单统计图生成
[例12-1]简单统计图的设计 12-1]简单统计图的设计
2.统计组件的介绍 2.统计组件的介绍 (1)DecisionQuery 组件 (1)DecisionQuery 该组件与Query组件相似， SQL语句 Query组件相似 语句。 该组件与Query组件相似，是SQL语句。 (2)DecisionCube 组件 该组件用来分析数据库表中的字段， 该组件用来分析数据库表中的字段，任何数据库表都可 以作为它的数据源，但一般都用DecisionQuery DecisionQuery查询结 以作为它的数据源，但一般都用DecisionQuery查询结 果作为它的数据源。 果作为它的数据源。 (3)DecisionPivot 组件 该组件与DBNavigator组件相似，用于导航不同的统计图。 DBNavigator组件相似 该组件与DBNavigator组件相似，用于导航不同的统计图。 (4)DecisionSource 组件 该组件与DataSource组件相似， DataSource组件相似 该组件与DataSource组件相似，起到连接数据集和数据 控制组件的作用。 控制组件的作用。

最近在做一个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报表还可以与其他软件集成，如Excel、Access等，从而实现数据的共享和交 互。
简单报表：只包含 基本的数据展示和 格式设置
报表交互：设置报 表的交互功能，如 筛选、排序、钻取 等
报表控件：使用TDBGrid控件实现报表的显示和编辑
报表事件：通过编写事件处理程序实现报表的交互功能
报表打印：使用TQRPrinter控件实现报表的打印功能
报 表 导 出 ： 使 用 TQ R E x p o r t 控 件 实 现 报 表 的 导 出 功 能 ， 如 导 出 为 P D F 、 E xc e l 等 格式
优化报表 布局：合 理布局报 表元素， 提高报表 的可读性 和易用性
优化报表 交互：减 少报表交 互次数， 提高报表 交互效率
01 检查报表设计是否正确，包括字段、 格式、计算等
02 使用断点调试，查看报表执行过程中 的变量值和错误信息
03 利用日志文件，记录报表执行过程中 的详细信息，便于定位问题
04
利用第三方工具，如SQL Server Profiler， 监控报表执行过程中的SQL语句和性能指标
05 优化报表性能，包括减少数据量、优 化SQL语句、使用缓存等
06 定期备份报表，防止数据丢失或损坏
错误类型：语法错误、逻辑错误、 数据错误等
异常处理：记录异常信息，显示异 常信息，重新执行异常代码
PART FIVE
导出格式：支持多种格式，如PDF、Excel、Word等 导出设置：可以设置导出文件的名称、路径等 打印设置：可以设置打印纸张大小、方向、页边距等 保存设置：可以设置报表的保存路径、文件名等

在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 fastreport 用法Delphi FastReport 用法Delphi 是一种强大的编程语言，它提供了快速开发应用程序的能力。

而 FastReport 是一个插件，能够为 Delphi 提供报表设计和生成功能。

本文将介绍 Delphi FastReport 的用法，包括报表设计、数据源使用、导出和打印等。

1. 报表设计打开 Delphi，创建一个新的项目，加入 FastReport 模块后，双击报表设计器，进入报表设计界面。

在左侧的工具栏中，有各种控件，如标签、文本框、图像等。

可以将这些控件拖到报表上，设置它们的属性，如字体、大小、颜色等。

2. 数据源使用在报表设计中，如何引用数据源呢？首先需要将数据源组件（如FIBPlus、IBX、ADO 等）添加到 Delphi 项目中。

然后，可以在报表设计器中找到 Data Tree 栏，在其中选择需要使用的数据源和数据表。

3. 报表导出在制作完报表后，需要将其导出为其他格式，比如 PDF、Excel、Word、HTML 等。

FastReport 在导出前，需要安装相关的导出 DLL 文件。

再使用 Export 模块，选择需要导出的文件格式，单击导出即可。

4. 报表打印制作好的报表导出后，还需要将其打印出来。

EasyPrint 模块为FastReport 提供了强大的打印功能。

首先需要在程序中载入EasyPrint 模块，并设置打印参数。

接着使用 Report.Print 方法，即可将报表打印出来。

总结：以上是 Delphi FastReport 的简单用法介绍，具体使用还需要根据实际情况进行调整。

同时，建议多多研究相关的 API 文档和示例代码，以加深对 FastReport 和 Delphi 的理解和掌握。

DELPHI制作复杂报表实例,特别推荐!我近段时间一直在做各种各样的报表,特别是那些复杂报表,如下图所示:像这类报表若说用第三方控件,说实在,你还得重做一次表,你做的又不一定符合人家原来做的要求,若用用友软件,那得交一笔不小的数目的钱哦!可我们公司一直要求以最小的投入获取最大的回报,所以是不可能的,后面想想,他们是用EXCEL做成的表给我的,我为什么不可以直接调用它们的表呢,我只要把这些表做成模板再与数据库相连,便可实现了,后来就按这方案去进行了,结果当然是搞定了,现在公布出来与大家共享,当然,对与高手而言也许不是怎么高的水平,但我相信会对部分人有用的,像这类报表做的思想就是:!一.定义各类数据的行列;二,连接模板;三,按要求进行相关的数据提取和相关的运算,对于数据运算一定要尽量想到EXCE 的强大的运算功能,只要它能帮解决的就不要程序里面编写,否则运行起来就不是那么快了,相关代码如下:procedure Tdp_bb.dp_okClick(Sender: TObject);varcbw,zbw,wbw,rjw,ph,ExeRootPath:string;i,j,k:integer;t1,t2:Ttime;beginrjw:=trim(datetostr(dp_dtp.Date));cbw := trim(dp_cbbc.Text);zbw := trim(dp_cbbz.Text);wbw := trim(dp_cbbw.Text);t1:=0;t2:=0;if (cbw<>'') and (zbw<>'') and (wbw<>'') thenbegintryChDir(ExtractFilePath(Application.ExeName));ChDir('..');ExeRootPath := GetCurrentDir;dp_exapt.Connect;dp_exapt.Visible[0]:=false;dp_exapt.Workbooks.Add(ExeRootPath+'/config/sjcs.xls',0);dp_exwb.ConnectTo(dp_exapt.Workbooks[1]);dp_exws.ConnectTo(dp_exwb.Sheets[1] as _worksheet);j:=6;//起始行初始化with dp_form.dp_adoq1 dobeginclose;sql.Clear;sql.Add('select GWDY_SJPH,GWDY_ZTP from TB_GWDY order by GWDY_XH asc');open;while not eof dobeginph:=fieldbyname('GWDY_SJPH').AsString;i:=fieldbyname('GWDY_ZTP').AsInteger;if i=6 then{时间类型}begin{早班数据位置}with dp_form.dp_adoq2 dobeginclose;sql.Clear;sql.Add('select YS_YPTM from TB_YS where YS_SJPH='''+ph+''' andYS_BB='''+cbw+''' and YS_DATE='''+rjw+''' order by YS_XH asc');open;for k:=6 to RecordCount+5 dobegindp_exws.Cells.Item[j,k]:=trim(fieldbyname('YS_YPTM').AsString);next;end;end;{中班数据位置}with dp_form.dp_adoq2 dobeginclose;sql.Clear;sql.Add('select YS_YPTM from TB_YS where YS_SJPH='''+ph+''' and YS_BB='''+zbw+''' and YS_DATE='''+rjw+''' order by YS_XH asc');open;for k:=11 to RecordCount+10 dobegindp_exws.Cells.Item[j,k]:=trim(fieldbyname('YS_YPTM').AsString);next;end;end;{晚班数据位置}with dp_form.dp_adoq2 dobeginclose;sql.Clear;sql.Add('select YS_YPTM from TB_YS where YS_SJPH='''+ph+''' and YS_BB='''+wbw+''' and YS_DATE='''+rjw+''' order by YS_XH asc');open;for k:=16 to RecordCount+15 dobegindp_exws.Cells.Item[j,k]:=trim(fieldbyname('YS_YPTM').AsString);next;end;end;{月平均}with dp_form.dp_adoq2 dobeginclose;sql.Clear;sql.Add('select YS_YPTM from TB_YS where YS_SJPH='''+ph+''' and month(YS_DATE)='''+formatdatetime('mm',dp_dtp.Date)+''' order by YS_XH asc');open;while not eof dobegint1:=t1+strtotime(trim(fieldbyname('YS_YPTM').AsString));next;end;dp_exws.Cells.Item[j,22]:=timetostr(t1);t1:=0;end;{榨季平均}with dp_form.dp_adoq2 dobeginclose;sql.Clear;sql.Add('select YS_YPTM from TB_YS where YS_SJPH='''+ph+''' order by YS_XH asc');open;while not eof dobegint2:=t2+strtotime(trim(fieldbyname('YS_YPTM').AsString));next;end;dp_exws.Cells.Item[j,23]:=timetostr(t2);t2:=0;end;endelse{非时间类型}begin{早班数据位置}with dp_form.dp_adoq2 dobeginclose;sql.Clear;sql.Add('select YS_YPS from TB_YS where YS_SJPH='''+ph+''' and YS_BB='''+cbw+''' and YS_DATE='''+rjw+''' and YS_YPTM in(''2:30'',''4:30'',''6:30'',''8:30'','''') order by YS_XH asc');open;for k:=6 to RecordCount+5 dobegindp_exws.Cells.Item[j,k]:=trim(fieldbyname('YS_YPS').AsString);next;end;end;{中班数据位置}with dp_form.dp_adoq2 dobeginclose;sql.Clear;sql.Add('select YS_YPS from TB_YS where YS_SJPH='''+ph+''' and YS_BB='''+zbw+''' and YS_DATE='''+rjw+''' and YS_YPTM in(''10:30'',''12:30'',''14:30'',''16:30'','''') order by YS_XH asc');open;for k:=11 to RecordCount+10 dobegindp_exws.Cells.Item[j,k]:=trim(fieldbyname('YS_YPS').AsString);next;end;end;{晚班数据位置}with dp_form.dp_adoq2 dobeginclose;sql.Clear;sql.Add('select YS_YPS from TB_YS where YS_SJPH='''+ph+''' and YS_BB='''+wbw+''' and YS_DATE='''+rjw+''' and YS_YPTM in(''18:30'',''20:30'',''22:30'',''00:30'','''') order by YS_XH asc');open;for k:=16 to RecordCount+15 dobegindp_exws.Cells.Item[j,k]:=trim(fieldbyname('YS_YPS').AsString);next;end;end;{月平均}with dp_form.dp_adoq2 dobeginclose;sql.Clear;sql.Add('select avg(YS_YPS) as A from TB_YS where YS_SJPH='''+ph+''' and month(YS_DATE)='''+formatdatetime('mm',dp_dtp.Date)+''' group by YS_SJPH');open;if not eof thenbegindp_exws.Cells.Item[j,22]:=trim(fieldbyname('A').AsString);end;end;{榨季平均}with dp_form.dp_adoq2 dobeginclose;sql.Clear;sql.Add('select avg(YS_YPS) as B from TB_YS where YS_SJPH='''+ph+''' group by YS_SJPH');open;if not eof thenbegindp_exws.Cells.Item[j,23]:=trim(fieldbyname('B').AsString);end;end;end;j:=j+1;next;end;end;dp_exws.Cells.Item[2,1] := rjw;dp_exws.Cells.Item[4,6] := cbw;dp_exws.Cells.Item[4,11]:= zbw;dp_exws.Cells.Item[4,16]:= wbw;bb_tm.Enabled:=true;exceptshowmessage('模板路径出错或者是您还没有安装OFFICE办公软件');close;end;end;end;。

●南京帆软软件公司 ●商务咨询电话：86-025-5186 2240在Delphi 编程中利用Excel 实现动态报表0 引言随着计算机技术的不断普及, 办公的数字化程度越来越高, 出现了大量的计算机系统, 如固定资产管理系统、人事工资管理系统等等。

这其中存在大量的MIS 系统。

MIS 系统的一个重要特点是需要处理大量数据并形成报表。

由于行业或者其他一些原因, 这些报表的格式种类繁多, 而且还有一些复杂报表。

这些报表的格式在开发期间可能都无法设定。

为了解决这些问题, 本文采用了表格功能强大的Excel 作为报表模板, 用户可以按照自己的要求设置报表格式, 程序运行时再根据用户的设置动态填入数据, 从而实现动态报表功能。

1 实现原理先由用户按照自己的格式生成Excel 报表模板, 系统读取模板文件, 并把模板文件存入数据库, 保存用户输入的报表信息, 如某一字段填入第几行第几列。

报表打印时, 提取相应的Excel 文件, 利用Delphi 的Excel 控件填入数据库的数据, 实现动态报表功能。

2 实现过程2. 1 定义数据表系统使用MsSql Server2000数据库,定义两个表,一个是MB,用来存储报表基本信息和Excel 文件,一个是MB_Detail 存放报表的详细信息,如对应字段的行号和列号。

表结构如下:图1 MB 表结构 图2 MB _Detail 表结构MB 表中,“模板内容”字段为image 类型, 用来存储Excel 模板文件,“记录类型”字段用来表示是单张表格(只打印一条记录)还是列表(打印多条记录); MB Detail 表中的列号数据类型为char, 对应Excel 中的列号如A 、B 、C 等。

2. 2 保存和读取Excel 模板2. 2. 1 保存Excel 模板本系统将用户设置好的Excel 报表模板存入数据库“模板内容”字段。

由于本字段存储的是Excel 文件内容, 需要采用特殊的存储方式。

Delphi生成网页（html）报表Delphi 生成网页(html)报表在整理硬盘的时候，突然发现了这个小东西，回想起来是好多年前给永恩集团 (达芙妮) 做连锁POS系统的时候做的一个用DELPHI 生成HTML报表的测试(我已经5年没用DELPHI 了)。

为什么要求这么变态？我当初给达芙妮用 fastreport 做了一个报表，格式和数据展示完全满足要求，但最终被拒绝了，其原因是，他们原来有一套oracle erp 的打印就是用HTML 网页形式打印的。

我很崩溃，我记得oracle 里面的report builder 也很强的，为什么不用？其实到现在我仍然坚持用fastreport 做是对的，但当时，人家是客户，非得用html 的，你也没办法,人家就喜欢在浏览器里点右键打印，哎，这年头，什么样的需求都有。

当时这个团队没有去坐调研，我只好抽晚上空余时间，看了下资料，解决了这个问题，其实很简单，纯体力活。

delphi 里面有 webbrowser 控件，在这个上面直接输出html 代码就可以了。

你可以先用html做好一个模板，然后往里面填写数据即可。

这个报表很复杂的，涉及到分组，汇总聚合。

分类汇总，明细等在一个报表上。

也就是一个结构复杂的html 页面。

结构的复杂，说白了是体力活，其关键点：生成html模板举个很简单的例子，头部：{报表头部分一,6个参数}HTML_LZS_HEAD_ONE='<TABLE cellSpacing=0 border=0> '+'<TBODY> '+'<TR> '+'<TD align=right>分公司:</TD> '+'<TD align=left>%s</TD></TR> '+'<TR> '+'<TD align=right>经营小组:</TD> '+'<TD align=left>%s</TD></TR> '+'<TR> '+'<TD align=right>门店:</TD> '+'<TD align=left>%s</TD></TR>'+'<TR>'+'<TD align=right>年:</TD> '+'<TD align=left>%s</TD></TR> '+'<TR> '+'<TD align=right>月:</TD> '+'<TD align=left>%s</TD></TR> '+'<TR> '+'<TD align=right>单据状态:</TD> '+'<TD align=left>%s</TD></TR> '+'</TBODY> '+'</TABLE> ';从数据库中查询数据，得到结果，并填充F_HEAD_ONE:=Format(HTML_LZS_HEAD_ONE, [aqryPublic.FieldByName('SUBCOMPANY_ID').AsString, aqryPublic.FieldByName('WORKING_GROUP').AsString,aqryPublic.FieldByName('SHOP_ID').AsString,aqryPublic.FieldByName('REFERENCE_YEAR').AsString,aqryPublic.FieldByName('REFERENCE_MONTH').AsString,Fst ate]);这样我们就生成了一小段html 代码，如何显示在webbrowser 上呢？procedure TFrmReport.ShowHtml(content: widestring);varv: Variant;HTMLDocument: IHTMLDocument2;beginv := VarArrayCreate([0, 0], varVariant);v[0] := content;HTMLDocument := WebBrowser1.Document as IHTMLDocument2;HTMLDocument.write(PSafeArray(TVarData(v).VArray));HTMLDocument.close;HTMLDocument := nil;end;另外要注意initialization OleInitialize(nil); finalization OleUninitialize;。

Caption
3 Rave
9.2 Rave Delphi
9-7
9-8
9.2 Rave Delphi
9-9
9.2 Rave Delphi
9-10
9.2 Rave Delphi
9-11
9.2 Rave Delphi
9-12
9.2 Rave Delphi
9-13
9.2 Rave Delphi
8
9-33
9.4 Rave
9.4.1 RaveReport Variable()
9-2 1.
DataText FontMirrorFontMaster1, DataFieldData Text Editor Report VariablesDataLong "Insert Report Var" DataText"OK" DataView
Connection TableName Active projectfile dataset
ADOConnection1 Employee True C:\Samples\9-1\myrave.rav ADOTable1
ConnectionString dbdemos.mdb
ADOTable1
9.2 Rave Delphi
�TitlePreview �TitleSetup �TitleStatus (2) TRvSystem OverridePreview, OverrideSetup OverrideStatus Rave
2. TRvNDRWriter TRvNDRWriterTRvRenderPrinter
9-26
9.3 Rave

第二十四页，共66页。
（1）Text组件 该组件用来显示文本，一般为单行文本，显示的文本由它的Text属性来
设定。 （2）Memo组件 该组件也是用来显示文本，一般为多行文本，显示的文本由它的Text
属性来设定。 （3）Section组件
相当于一个容器，可以把若干个组件组成一组，作为一个整体 使用。
（6）执行【Tools】→【Rave Designer】命令，将会出现如图12-4所示的Rave报表 设计器窗口。
（7）执行【File】→【New Data Object】命令，出现如图12-5所示的“Data Connections”对话框（一）。
（8）在该对话框中选择“Direct Data View”后，“按Next”按钮将会出现如 图12-6所示的“Data Connections”对话框（二）。
⑤Scr1CalcVar属性 该属性用来设置一个组件作为第一个操作数，
（9）选择“TRvDataConnection1”，然后按“Finish”按钮，在报表设计 器的项目管理窗口中将会出现“DataView1”节点，展开该节点，如 图12-7所示。
第六页，共66页。
图12-4 Rave报表设计器界面
第七页，共66页。
图12-5 “Data Connections”对话框（一）
第二十三页，共66页。
12.3.3 Rave报表设计器中的常用组件 1．“Standard”组件页中的组件
“Standard”组件页中的组件如图12-20所示。从第二个图标开始，组件名分别为 ：Text、Memo、Section、Bitmap、Meta和PageNumInit。
图12-20 “standard”组件页
（4）选择Rave组件页上的TRvDataConnection组件“ ”，在窗体中添加 一个TRvDataConnection组件，并设置其Dataset属性为你所要连接的 Tabel1。Rave组件页如图12-3所示。

资源，对于一个稍复杂的、有特殊要求的报表，Quick Report无法实现。这里介绍几个在编程中
遇到的比较典型的报表的实现方法。
1、哪个单位的财务科都有几本厚厚的台帐，我院财务科提出打印药库的台帐，好脱掉手工帐，也
算是办公现代化了，要求合情合理，院长也说应当如此。看着财务科提供的红绿相间的、统一印
这个过程是初始化用的，就是定义各个小矩形在纸上的位置；
printtitle(acanvas:Tcanvas);
这个过程是打印表头的，因为表头的字总是要大一些；
printdetail(acanvas:Tcanvas;Qtz:Tdataset;acount:integer;firstpage:integer);
end;
再建立过程printnow（Form的名称叫
zlk,printdot就是打印机的点数，一般针打是180);
procedure Tzlk.printnow(acanvas:Tcanvas);
var i,x,y,pc_count:integer;
myprint:array[0..200] of titleprint;
myprint[pc_count-1]^.currect,round(int
(2.5/2.54*printdot)),0);
myprint[pc_count]^.atitle:=Lxb.caption+Cxb.text;
ACanvas.LineTo(myprint[i]^.currect.right,
江苏省无锡市中医医院电脑房 袁波
myprint[i]^.currect.top-round(rowheight/5));
.......