用VB和MTS开发多层数据库应用系统

用vb和mts开发多层数据库应用系统
（作者：于华　2001年03月14日 11:30）

　　mts（microsoft transaction server）是微软为其windows nt操作系统推出的一个中间件产品，由于它具有强大的分布事务支持、安全管理、资源管理和多线程并发控制等特性，使其成为在windows平台上开发大型数据库应用系统的首选产品。

　　由于mts屏蔽了底层实现的复杂性，极大地简化了这类应用的开发，程序员可以将精力集中在业务逻辑上，因而有效地提高了软件的开发效率。本文将通过实例介绍用vb和mts开发多层数据库应用系统的方法和步骤。

　　基于mts开发多层数据库应用系统的步骤是：第一步，开发mts组件提供服务，程序员可以用任何一种支持com的语言编写mts组件，如vb、vc、delphi和cobol等；第二步，分发mts组件到mts软件包中，并且把mts软件包安装到mts环境之中；第三步，编写客户端程序调用执行在mts环境之中的mts组件，以取得服务。详细开发过程如下：

　　1. 创建mts组件
　　本例中我们将编写一个mts组件，运行于中间层的应用服务器上，由它建立与数据库服务器的连接，完成对某课程的授课教师信息的查询。

　　启动visual basic，新建一activex dll项目。选择工程选单，在引用窗口中选中microsoft activex object library 和microsoft transaction sever type library。按“确定”将这两项加到项目中。

　　从工程选单中选择工程属性，在通用选项中将项目名称改为mtsdemo。线程模块选择分部线程dll，将类模块名称改为course，将下列程序加入类模块的通用声明中：

　　option explicit

　　public function listcourses( byval mcourse as string) as adodb.recordset

　　 on error goto errorhandle

　　 dim strsql as string

　　 dim objcontext as.objectcontext

　　 set objcontext = getobjectcontext()

　　 ' 建立事务性组件

　　 dim objadoconn as adodb.connection

　　 ' 利用ado访问数据库

　　 dim objrs as adodb.recordset

　　 set objadoconn = new adodb.connection

　　 with objadoconn

　　 .connectiontimeout=10

　　 .connectionstring="provider=sqloledb.1;userid=sa;initial catalog=dbcourse"

　　' 通过oledb建立与数据库的连接

　　 .open

　　 end with

　　 set objrs = new adodb.recordset

　　 strsql="select

　　teacher.name,teacher.sex,techer.age,teacher.edu_level,teacher.tiltle"

　　 strsql=strsql&&" from teacher,teachercourse,courses "

　　 strsql=strsql&& "where teacher.teacher_no=teachercourse.teacher_no

　　 and teachercourse.course_no=courses.course_no

　　 and courses.course like'" && mcourse && "'"

　　'“like”关键字可实现模糊查询

　　 objrs.open strsql, objadoconn

　　 ' 进行数据库查询

　　 set listcourses = objrs

　　 objcontext.setcomplte

　　 ' 若事务成功完成，则提交该事务

　　 objadoconn.close

　　 set objadoconn = nothing

　　 set objrs=nothing

　　 strsql = ""

　　 '关闭数据库连接，释放所有对象

　　 exit function

　　errorhandle:

　　objcontext. setabort

　　set listcourses=nothing

　　 ' 若事务失败，则回滚事务

　　end function

　　2. 注册mts组件
　　所有运行于服务器端的activex dll都应在mts中注册，这是通过transaction server explorer完成的。其过程如下：

　　(1)创建软件包

　　软件包是在同一进程中运行的组件集合，不同软件包中的组件以进程隔离的方式运行在隔离的进程中。在创建软件包时，开发者应尽量把共享资源的组件分配在同一软件包内；考虑到软件包中各个组件所共享的资源类型，可以把那些共享“昂贵”资源（如对某个特定数据库的连接）的组件编为一组。

　　(2)向软件包添加组件

　　在想安装组件的包中选择component文件夹，单击install new component(s) 按钮，当提示添加文件时找到新生成的mtsdemo.dll文件将其加入。

　　3. 编写客户端程序
　　创建一个标准exe项目。选择工程选单，接着选择引用，在引用窗口中选中刚才创建的mtsdemo，加入到项目中。

　　向窗体中添加如下内容：

　　　　　　　 名称　　　　 标题

　　标签　　　　 label1　　 请输入课程名：

　　文本框　　 txtcourse 　

　　命令按扭　　 cmdok　　　　查询

　　数据网格　　 dgresult 　

　　再将下列程序加入通用声明中：

　　private sub cmdok_click()

　　 dim rsresult as adodb.recordset

　　 dim objmts as object

　　 dim mcourse as string

　　 mcourse = trim(txtcourse.text)

　　 set objmts = createobject(mtsdemo.course)

　　 set rsresult = objcourse.listcourses(mcourse)

　　 if rsresult.eof then

　　 msgbox ("无满足条件的记录!")

　　 exit sub

　　 end if

　　 set dgresult.datasource = rsresult

　　 dgresult.columns(0).caption = "姓名"

　　 dgresult.columns(1).caption = "性别"

　　 dgresult.columns(2).caption = "年龄"

　　 dgresult.columns(3).caption = "学历"

　　 dgresult.columns(4).caption = "职称"

　　 dgresult.refresh

　　 set objmts = nothing

　　end sub

　　4. 运行客户端
　　首先将编写好的客户端程序进行编译发布，然后在microsoft management console中找到新的软件包，击右键选择导出，将它导出到c:\program file\packages中，在该文件夹的client下自动生成了mtsdemo的客户端安装程序。在客户机上运行client文件夹下的setup.exe文件，再安装客户端程序即可运行。