mts是微软为其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文件，再安装客户端程序即可运行。
以上代码来自： 源代码数据库(sourcedatabase)
当前版本： 1.0.392
作者： shawls
个人主页： http://shawls.yeah.net
e-mail： shawfile@163.net
qq： 9181729
