没有合适的资源?快使用搜索试试~ 我知道了~
精彩编程与编程技巧-数据报表设计器在多层结构开发的应用...
需积分: 3 3 下载量 37 浏览量
2009-10-09
22:20:02
上传
评论
收藏 6KB TXT 举报
温馨提示
试读
7页
精彩编程与编程技巧-数据报表设计器在多层结构开发的应用 ...
资源推荐
资源详情
资源评论
数据报表设计器在多层结构开发的应用
珠海
刘平
---- 在Visual Basic中制作报表,一般是用数据环境设计器(Data Environment Designer)与数据报表设计器(Data Report Designer)相结合来实现的。上述方法通常应用于客户/服务器(C/S)结构。下面,让我们一起来探讨一下Data Report Designer 在多层结构中的应用。
---- 一 、前言
---- 多层应用开发之所以能够成为程序开发的主流技术,是与其具有的数据访问和事务处理能力紧密相关的。多层应用开发在逻辑上则分为三层:客户(表现层),应用服务器(业务层)和数据库(数据层)。客户向服务器发请求,作为中间层的服务器接收请求提供相应的逻辑、性能和目录服务,并最终通过服务器建立与数据库的连接。多层应用开发中很重要的一点是将应用逻辑集中于服务器,这样一个进程便可以为多个客户服务,而不用再为每客户都建立一个服务器进程。下文可作为表现层的一个例子。
---- 二、数据结构
---- 假设我们要打印两项数据,其定义如下:
字段名 数据类型 数据长度
tid char 10
tname char 20
---- 三、创建工程
---- (1)在新建工程中选取“标准 EXE”后按“确定”键,修改工程名为Rptprint,修改Form1的name 属性为 frmreport。增加一个类模块,修改Class1的name 属性为clsreport。如果在“工程”菜单中未发现“添加Data Report”的子菜单,则要进行以下操作,单击“工程”菜单中的“部件”,选中“设计器”中的“Data Report”选项后单击“确定”按钮。此时应在“工程”菜单中发现“添加Data Report”的子菜单,单击该子菜单添加一个Data Report 到工程。
---- (2)添加四个CommandButton 控件(name属性分别为Command1、Command2与Command3,Command4,caption属性分别为“增加” 、“预览” 、“打印“与“返回”)和两个TextBox控件(name属性分别为TxtID与TxtName) 到frmreport窗体。
---- (3)双击工程中的 DataReport1 打开设计器,添加两个RptTextBox 控件(名称分别为Text1和Text2)到“细节(Section1)”分组中,修改Text1的DataField 属性为 tid ,Text2的 DataField属性为 tname。
---- (4)引用Microsoft ActiveX Data Objects 2.0 Library类库,做完以上操作后保存工程。
---- 四、编写程序
---- (1)在clsreport 类模块输入如下代码:
珠海
刘平
---- 在Visual Basic中制作报表,一般是用数据环境设计器(Data Environment Designer)与数据报表设计器(Data Report Designer)相结合来实现的。上述方法通常应用于客户/服务器(C/S)结构。下面,让我们一起来探讨一下Data Report Designer 在多层结构中的应用。
---- 一 、前言
---- 多层应用开发之所以能够成为程序开发的主流技术,是与其具有的数据访问和事务处理能力紧密相关的。多层应用开发在逻辑上则分为三层:客户(表现层),应用服务器(业务层)和数据库(数据层)。客户向服务器发请求,作为中间层的服务器接收请求提供相应的逻辑、性能和目录服务,并最终通过服务器建立与数据库的连接。多层应用开发中很重要的一点是将应用逻辑集中于服务器,这样一个进程便可以为多个客户服务,而不用再为每客户都建立一个服务器进程。下文可作为表现层的一个例子。
---- 二、数据结构
---- 假设我们要打印两项数据,其定义如下:
字段名 数据类型 数据长度
tid char 10
tname char 20
---- 三、创建工程
---- (1)在新建工程中选取“标准 EXE”后按“确定”键,修改工程名为Rptprint,修改Form1的name 属性为 frmreport。增加一个类模块,修改Class1的name 属性为clsreport。如果在“工程”菜单中未发现“添加Data Report”的子菜单,则要进行以下操作,单击“工程”菜单中的“部件”,选中“设计器”中的“Data Report”选项后单击“确定”按钮。此时应在“工程”菜单中发现“添加Data Report”的子菜单,单击该子菜单添加一个Data Report 到工程。
---- (2)添加四个CommandButton 控件(name属性分别为Command1、Command2与Command3,Command4,caption属性分别为“增加” 、“预览” 、“打印“与“返回”)和两个TextBox控件(name属性分别为TxtID与TxtName) 到frmreport窗体。
---- (3)双击工程中的 DataReport1 打开设计器,添加两个RptTextBox 控件(名称分别为Text1和Text2)到“细节(Section1)”分组中,修改Text1的DataField 属性为 tid ,Text2的 DataField属性为 tname。
---- (4)引用Microsoft ActiveX Data Objects 2.0 Library类库,做完以上操作后保存工程。
---- 四、编写程序
---- (1)在clsreport 类模块输入如下代码:
Option Explicit
Private RST_RPT As ADODB.Recordset
'定义一个记录集变量
Private Sub Class_Initialize()
Set RST_RPT = CreateObject("ADODB.Recordset")
'创建一个空的记录集
With RST_RPT
.Fields.Append "tid", adChar, 10
.Fields.Append "tname", adChar, 20
'往记录集中添加字段(此例假设只有两个,
如需要可增加多个字段)
.CursorLocation = adUseClient
'设置CursorLocation属性为“客户端游标”
End With
RST_RPT.Open
'打开记录集
Set DataReport1.DataSource = RST_RPT
'设置DataReport1设计器的数据源为 RST_RPT 记录集
End Sub
Private Sub Class_Terminate()
If Not RST_RPT Is Nothing Then
RST_RPT.Close
'关闭记录集
End If
Set RST_RPT = Nothing
剩余6页未读,继续阅读
资源评论
求伯乐
- 粉丝: 22
- 资源: 3095
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功