VB6中用DataReport做报表

原创 2004年07月04日 20:27:00

  我不是VB熟练工,最近刚刚用VB做完一个程序,其中控制部分没费太大周折,倒是报表部分颇让我费了一翻脑筋。在网上找了半天,也没找到关于VB6的 DataReport的详细介绍,于是想借鉴"前辈"们的经验,用CrystalReport或EXCEL,感觉也不省劲,于是决定回头再去"啃"DataReport,别说,还真让有所收获,下面就简单的介绍一下我的体会,希望对大家能有所帮助。

  首先介绍一下DataReport对象的几个常用属性。一是DataSource,用于设置一个数据源,通过该数据源,数据使用者被绑定到一个数据库;二是DataMember,从DataSource提供的几个数据成员中设置一个特定的数据成员;三是LeftMargin、RightMargin、TopMargin、BottomMargin等,用于指定报表的左右上下的页边距;四是Sections,即DataReport的报表标头、页标头、细节、页脚注、报表脚注5个区域,如果加上分组(可以有多层分组),则增加一对区域,即分组标头、分组脚注。其中DataSource一般是一个数据环境或是ADODB.Connection类型的变量,而DataMember则对应数据环境中的Command或是ADODB.RecordSet类型的变量,推荐使用数据环境及Command,页边界大家肯定都很清楚,下面我主要介绍以下Sections,这也是DataReport的精髓所在。

  Sections是一个集合,您可以为每一个Section指定名称,也可以用其缺省的索引,从上到下依次为1、2…。每个Section均有Height和Visible属性,您可以在一定条件下使一个Section不可见。在Section中可以放置各种报表控件,其中RptLabel、RptImage、RptShape和RptLine可以放在任意的Section中,用于输出各种文字、图形及表格线;RptTextBox只能放在细节中,一般用于绑定输出DataMemeber提供的数据字段;RptFunction只能被放置在分组注脚中,用于输出使用各种内置函数计算出的合计、最大值、最小值、平均值、记数等等。上述报表控件中常用公共属性有用于控制位置及高度宽度的Top、Left、Height、Width和控制可见性的Visible;其中RptTextBox还有DataField、DataMember、DataFormat及Font属性;其他属性不再多说。

  然后介绍一下我的使用经验。一是对想控制的报表控件按类型有规律的命名;二是用RptShape的矩形框做表格线框,比用RptLine画框省事多了,只有斜线才使用RptLine;三是报表标题及报表中的表头文字、日期及页码用RptLabel,其中Caption属性支持转义字符,%D为长格式日期,%d为短格式日期,%P为总页数,%p为当前页码;四是对固定报表在设计窗口直接将报表控件摆放到位,对于活报表,应首先考虑报表最大的情形,将足够的控件分别放置在不同区域,位置大小可以不必深究,然后在报表输出前用VBA代码对所有控件的属性进行调整,包括位置、高度、宽度、字体、对齐方式、显示格式、可见性等等,相应的对Section也应根据情况调整其高度和可见性。
 
最后用一个实例模板来说明其使用方法。

  连接数据库

With 数据环境.rsCommand名
If .State = adStateOpen Then .Close
.Source = SQL语句
.Open 打开想输出的数据库数据项以便输出
End With
With 报表名
 .DataSource=数据环境
 .DataMember=Command名 这两行也可固定设好而不必每次设置
 设置页表头部分(RpttLabel…为报表控件名)
 .Sections(2).Controls("RptLabelPage").Caption = "共%P页第%p页"
 .Sections(2).Controls("RptLabelDate").Caption = "打印日期:%D"
 .Sections(3).Controls("RptLabel1").Left=…
 …
 设置细节部分(RptShapeX、RptTextBoxX为报表控件名)
 .Sections(3).Controls("RptShape1").Left=…
 .Sections(3).Controls("RptShape1").Top=…
 .Sections(3).Controls("RptShape1").Height=…
 .Sections(3).Controls("RptShape1").Width=…
 .Sections(3).Controls("RptTextBox1").DataMember=Command名
 .Sections(3).Controls("RptTextBox1").DataField=字段1
 .Sections(3).Controls("RptTextBox1").Font.Name=…
 …
 .Sections(3).Controls("RptShapeN").Visible=False
 .Sections(3).Controls("RptTextBoxN").Visible=False
 …
 . Sections(3).Height=计算出的或固定的细节高度
动态调整报表标题(RptLabelTitle为报表标签控件名)
 .Sections(2). Controls("RptLabelTitle").Left=…
 …
 .Sections(2). Controls("RptLabelTitle").Alignment=…
 …
 调整完毕后
 .Show 或 .PrintReport
End With

VB6基本数据库应用(一):数据库基础

这是本套教程的第一课,讲述的是数据库结构的基础。学好数据库就必须了解清楚数据库的结构,其实并不困难。本套教程将从最基础的开始来讲述VB6的基础数据库操作。...
  • JiLuoXingRen
  • JiLuoXingRen
  • 2013年07月24日 17:14
  • 9776

浅谈VB6中的自定义类的使用

[SHR]浅谈VB6中的自定义类的使用    PS:除非特别声明,本文所说VB指的是VB6,而非VB.NET。    大家都知道,VB是一种半面向对象(也有人称之为“伪面向对象”)的语言,...
  • chinajobs
  • chinajobs
  • 2015年06月30日 11:28
  • 2578

VB6基本数据库应用(二):建立数据库

这是同样系列的第二篇,上一篇在:http://blog.csdn.net/jiluoxingren/article/details/9451987。这一章将会讲述如何在Access中建立数据库。我将同...
  • JiLuoXingRen
  • JiLuoXingRen
  • 2013年07月25日 00:32
  • 9520

在VB6中用CopyMemory

  • 2015年05月14日 17:28
  • 244KB
  • 下载

VB6 在笛卡尔坐标系中用PlgBlt函数以坐标点为顶点贴平行四边形图片

  • 2014年01月21日 15:57
  • 54KB
  • 下载

精彩编程与编程技巧-CrystaIReports for vb6报表编程经验...

  • 2009年10月10日 17:11
  • 2KB
  • 下载

VB6从excel导入Access并打印报表源码

  • 2011年11月29日 10:16
  • 66KB
  • 下载

VBExplorer1.1,可以对vb6做的程序进行逆向

  • 2009年07月31日 13:31
  • 406KB
  • 下载

VB6做的搭桥小游戏V2.1(附含带源码) 英雄难过

  • 2017年03月12日 15:49
  • 967KB
  • 下载

VB6做的搭桥小游戏V2.0(附带源码)

  • 2017年03月10日 09:12
  • 967KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB6中用DataReport做报表
举报原因:
原因补充:

(最多只允许输入30个字)