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

原创 2001年08月24日 10:17:00
用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文件,再安装客户端程序即可运行。




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

  MTS是微软为其Windows NT操作系统推出的一个中间件产品,由于它具有强大的分布事务支持、安全管理、资源管理和多线程并发控制等特性,使其成为在Windows平台上开发大型数据库应用系统的首选...
  • shawls
  • shawls
  • 2002年02月21日 11:09
  • 651

使用C#开发数据库应用系统----------------- 第三章 上机练习

using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; usin...
  • weixin_36024620
  • weixin_36024620
  • 2016年12月07日 16:54
  • 268

使用C#开发数据库应用系统_构建布局良好的Windows程序

第2章 构建布局良好的Windows程序 一.使用菜单栏和工具栏 菜单(Menu)最初是指餐馆提供的列有各种菜肴的清单。在计算机应用中,菜单指应用程序运行中出现在界面上的选项列表,供用户选择执行。 ...
  • hacker_A
  • hacker_A
  • 2017年11月06日 22:30
  • 258

使用C#开发数据库应用系统_初识Windows程序

第1章 初识Windows程序 一.第一个Windows程序 1.创建Windows程序 不需要一行代码,就能够运行出一个窗体,这得益于Visual Studio和.NET Framework的...
  • hacker_A
  • hacker_A
  • 2017年11月06日 22:24
  • 331

数据库应用系统 第二章上机1-4

private void button1_Click(object sender, EventArgs e) { if (InsertStudent()) ...
  • qq_36074043
  • qq_36074043
  • 2016年12月07日 19:31
  • 178

做ERP是vb.net好呢还是C#好呢,新款的用友用的什么语言?

我以前的版本是vb的现在看来跟不上潮流了,win7下面不稳定,我编过很多种语言了汇编,c,sdk的C++,java,vc,vb,c#在erp里,台高端的重绘界面的地方不多,用哪个也就是查查语法的事.v...
  • hb0523
  • hb0523
  • 2010年10月07日 16:53
  • 1963

数据库应用程序开发基础篇—— .NET中SQL Server数据库的操作C#篇之一

数据库应用程序开发基础篇—— .NET中SQL Server数据库的操作C#篇之一 写在前面:前面介绍了数据库系统的基本概念,SQl语句基本使用方法,接下来通过学习具体语言和具体数据库结合的应用开发...
  • ziyuanxiazai123
  • ziyuanxiazai123
  • 2013年03月15日 13:39
  • 7729

【数据库】oracle数据库对象---->视图

数据库的真实数据都是存在于数据表中,数据表是反映现实世界的实体关系。但是,为现实世界的所有关系创建数据表是不现实的。数据库中的视图解决了这一问题。视图以物理数据未基础,利用更灵活的策略来实现关系。接下...
  • liuxinsysu
  • liuxinsysu
  • 2016年04月08日 17:42
  • 432

在数据库应用系统中数据库的开发

  在数据库应用系统中数据库的开发一个成功的信息管理系统由50%的业务+50%的软件组成;而50%的软件又是由25%的程序+25%的数据库组成。由此可见数据库在信息管理系统中占的重要位置,或许会有人说...
  • syjs2000
  • syjs2000
  • 2006年11月23日 16:36
  • 925

三层体系结构与数据库 编程

接要 本文主要介绍了基于三层体系结构的网络数据库设计,并结合面向对象,分布式数据库开发等理论。全文围绕一个典型而简单的例子,通过VB编程语言,从分析、建模、设计、编码等各个角度对三层体系与数据库进行了...
  • didoleo
  • didoleo
  • 2005年01月03日 14:47
  • 1628
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:用VB和MTS开发多层数据库应用系统
举报原因:
原因补充:

(最多只允许输入30个字)