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


这样做的优点是报表设计时简单,调整方便、随意,只需更改一点代码,而不必为了一点点的

修改而费神的在设计窗口调整半天。
以上代码要写在 DataReport 窗体里的Load事件。
rsCommand名 是DataReport数据环境里设置的命令名。就是Command。

2.

我们在数据库的编程中经常会用到报表的打印,
其中datareport就是一个一个打印报表的控件,
如果想要比较好的打印效果那么就要用到水晶报表了。
那么首先datareport是怎么打印出报表来的呢?
(一)首先在引用中选择mocrosoft data report designet v6.0
然后在设计器里添加控件。
(二)在窗体里调用设计器进行打印。
例子代码如下:
dim ff as instorereport
Set ff.DataSource = rs
If Cmbstore.Text <> "" Or Cmbstore.Text <> Null Then

ff.Sections("section2").Controls.Item("lostore").Caption = Cmbstore.Text
Else
ff.Sections("section2").Controls.Item("lostore").Caption = ""
End If
If Cmbistore.Text <> "" Or Cmbistore.Text <> Null Then
ff.Sections("section2").Controls.Item("listore").Caption = Cmbistore.Text
Else
ff.Sections("section2").Controls.Item("listore").Caption = ""
End If

If Tdjh.Text <> "" Or Tdjh.Text <> Null Then
ff.Sections("section2").Controls.Item("ldjh").Caption = Tdjh.Text
Else
ff.Sections("section2").Controls.Item("ldjh").Caption = ""
End If

temp.Open "select * from CompanyInfo ", cn, 3, 2
If temp.EOF = False Then
ff.Sections("section2").Controls.Item("LCompany").Caption = Trim(temp.Fields

(0)) '公司名称
End If
ff.Sections("section2").Controls.Item("LTitle").Caption = "单据"
ff.Caption = "打印"
temp.Close 
  • 0
    点赞
  • 0
    评论
  • 4
    收藏
  • 一键三连
    一键三连
  • 扫一扫,分享海报

©️2021 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值