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

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

　　基于MTS开发多层数据库应用系统步骤是:第步开发MTS组件提供服务员可以用任何种支持COM语言编写MTS组件如VB、VC、Delphi和COBOL等；第 2步分发MTS组件到MTS软件Software包中并且把MTS软件Software包安装到MTS环境的中；第 3步编写客户端执行在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.Record

　　 _disibledevent=>　　 ´ 建立事务性组件

　　 Dim objADOConn As ADODB.Connection

　　 ´ 利用ADO访问数据库

　　 Dim objRS As ADODB.Record

　　 Set objADOConn = New ADODB.Connection

　　 With objADOConn

　　 .connectiontimeout=10

　　 .connection=\"Provider=SQLOLEDB.1;UserID=sa;Initial Catalog=DBcourse\"

　　´ 通过OLEDB建立和数据库连接

　　 .Open

　　 End with

　　 Set ObjRS = New ADODB.Record

　　 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)创建软件Software包

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

　　(2)向软件Software包添加组件

　　在想安装组件包中选择Component文件夹单击Install New Component(s) 按钮当提示添加文件时找到新生成MtsDemo.dll文件将其加入






　　3. 编写客户端
　　创建个标准EXE项目选择工程选单接着选择引用在引用窗口中选中刚才创建MtsDemo加入到项目中

　　向窗体中添加如下内容:

　　　　　　　 名称　　　　 标题

　　标签　　　　 label1　　 请输入课程名:

　　文本框　　 txtcourse 　

　　命令按扭　　 cmdok　　　　查询

　　数据网格　　 dgresult 　

　　再将下列加入通用声明中:

　　Private Sub cmdOK_Click

　　 Dim rsResult As ADODB.Record

　　 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中找到新软件Software包击右键选择导出将它导出到c:\\Program File\\Packages中在该文件夹Client下自动生成了MtsDemo客户端安装在客户机上运行Client文件夹下Setup.exe文件再安装客户端即可运行




以上代码来自: 源代码数据库(SourceDataBase)
当前版本: 1.0.392
作者: Shawls
个人主页:
E-Mail:
QQ: 9181729