无数据库报表打印研究与实现.docVIP

无数据库报表打印研究与实现 　　摘要 在一些进行数据计算的应用程序中,有时会生成有规律的数据,报表会把数据按需要的形式输出,但报表一般都是跟数据库联合在一起使用的,这样会对用户使用带来不便。本文结合作者本身进行程序开发的实践经验,简要介绍了实现无数据库报表打印的一般实现方法,重点对数组与记录集的通信方法进行了探讨。 　　关键词 无数据库;报表;实现;VB6.0 　　中图分类号 TP392 文献标识码 A 文章编号 1674-6708(2009)07-0011-02 　　 　　0 引言 　　 　　在不使用数据库技术的应用程序中,对计算得到的数据,如果符合表格特征,也可以像使用数据库技术一样,利用报表输出令用户满意的结果文件。 　　解决以上问题的核心是记录集对象。一般来说,记录集是负责在数据库和应用程序(也包含报表)之间通信的一个重要媒介。如果我们能将有规律的表格数据提供给记录集,那就可以实现使用报表的目标了,对于报表来说,它并不会关心数据的来源是否是数据库。在实际的程序设计中,二维数组或结构体数组等都是符合条件的有规律的表格数据。 　　本文结合实际,简要介绍了在VB6.0开发环境中如何实现无数据库报表打印功能。 　　 　　1 技术实现过程 　　 　　在某个应用系统开发过程中,需要将结构体数组中的数据使用报表输出。大体的解决步骤是:先计算出数组中的数据,然后按数组的结构构造出空的记录集结构,将数组中的数据追加到记录集中,最后利用VB6.0自带的报表输出。完整的实现过程使用代码描述如下: 　　1.1 记录集定义及数组初始化 　　定义初始记录集,可以放在公共模块中定义 　　 Public rsobj As New Recordset 　　定义结构体,可以放在公共模块中定义,为简单起见本结构体仅含有5个元素 　　Public Type typUser 　　 Toothid As Integer 　　 Caliber As Double 　　 SideAngle As Double 　　 THeight As Double 　　 ApAngle As Double 　　End Type 　　定义动态数组,用来保存计算的结果数据,可以放在公共模块中 　　Public CatNum() As typUser 　　在使用的时候使数组长度初始化,“ToothNum”为一预先计算值,加20是为了保证数组有足够的容量 　　ReDim CatNum(ToothNum + 20) 　　数组0行数据初始化,此处数组的数据计算是依据某种算法,读者不必关注 　　CatNum(0).Toothid = 0 　　CatNum(0).Caliber = ToothDis / 2 　　CatNum(0).ApAngle = Atn((ToothDis / 2) / Focal) 　　CatNum(0).SideAngle = (Atn((Sin(CatNum(0).ApAngle)) / (n1 - Cos(CatNum(0).ApAngle)))) 　　 CatNum(0).THeight = Tan(CatNum(0).SideAngle) * ToothDis 　　使用循环结构计算余下的数据行 　　For i = 1 To ToothNum - 1 　　 CatNum(i).Toothid = (CatNum(i - 1).Toothid + 1) 　　 CatNum(i).Caliber = ((ToothDis / 2) + (i * ToothDis)) 　　 CatNum(i).ApAngle = (Atn(CatNum(i).Caliber / Focal)) 　　 CatNum(i).SideAngle = (Atn((Sin(CatNum(i).ApAngle)) / (n1 - Cos(CatNum(i).ApAngle)))) 　　 CatNum(i).THeight = (Tan(CatNum(i).SideAngle) * ToothDis) 　　Next i 　　1.2 构造记录集并导入数据 　　 rptMemberInfo为报表控件名,本行代码为设置报表标头中某个标签项的输出信息,其余以此类推 　　 rptMemberInfo.Sections(Section4).Controls(Label11).Caption = + ProdName 　　 从初始记录集按结构体数组格式构造出对应的记录集格式 　　 rsobj.Fields.Append Toothid , adVarChar, 6为记录集增加字段、指定数据类型和长度 　　 rs