VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 用Visual Basic 6创建基于MTS的商务组件
发表评论(0)作者:, 平台:, 阅读:12937, 日期:2000-09-19
大家网
用Visual Basic 6创建基于MTS的商务组件

一、概述


  1. 分布式应用


  随着Internet技术的发展,应用软件开发已经从桌面应用开发转向两层、三

层、多层应用的开发,特别是电子商务的出现,更促进了基于Internet的多层分

布式应用开发。分布式应用程序至少由如下三层构成:


  表示层:实现与用户的交互,调用商务层组件响应用户的请求。该层可由 H

TML、DHTNL、ASP、Act iveX控件、WIN32应用等来实现。


  商务层:实现商务规则,满足企业的商务需求,处理、分析商务数据,获得

商务结果。


  数据层:为商务层提供数据服务,访问后台数据库如MS SQL SERVER 7、ORA

CLE等。


  2. 分布式组件对象模型DCOM


  对于分布式应用来说,上述三层逻辑上已经完全分开,物理上可能分布在不

同机器上、使用不同的操作系统、使用不同的网络协议。但各层之间要实现相互

通信。为此微软提出了分布式组件对象模型(Distributed Compon ent Object

Model简称DCOM),在DCOM的支持下,各层之间通过组件(Component)实现相互通

信从而构成一个完整的分布式应用,并且与机器的物理位置、操作系统、协议都

无关。


  3. 微软事务服务器MTS


  多层分布式应用中的组件可能对数据库的表、非数据库的实体如消息队列进

行操作,而这种组件却可能被多个用户调用,这样就会出现多个操作并发的问题

,必须采取事务方法来管理所有操作,保证所有事务要么被全部成功地提交,要

么全部回滚到事务初始状态。为此,微软实现了一个管理支持事务的组件的服务

器:微软事务服务器MTS(Microsoft Transaction Server)。客户可以通过调用S

etComplete和SetAbort函数实现提交与回滚。


  二、商务组件


  商务组件包含了一个企业的商务规则、逻辑。它能使企业为了尽快地满足市

场的变化而对商务规则、逻辑进行调整,它主要处理前端客户的请求。同时它也

使得企业的商务规则不会暴露在用户眼前,从而使应用更安全。在设计商务组件

时,我们应该注意如下几点:


  1. 与数据组件的区分:数据组件主要用来管理、操纵后台的数据,并不直接

响应用户的请求。


  2. 组件的粒度即组件包含的功能:组件的粒度不宜过大,也不宜过小,因为

粒度太大,不便于应用的更新。粒度太小,则应用的组件太多,不便于管理与调

用。


  3. 是否支持事务控制MTS:如果支持MTS,组件必须是一个动态连接库而不能

是一个可执行文件。 商务组件可以使用很多语言开发,如Visual C++ 6.0、Vis

ual Basic 6.0、 Visual J+ + 6.0 、Visual Foxpro 6.0等。下面我们来介绍一

下怎样用Visual Basic 6.0创建一个商务组件。


  三、创建商务组件


  下面以某一航空订票系统为例,为大家介绍如何创建商务组件,步骤如下:




  1. 启动Visual Basic6.0。


  2.创建一个新项目,项目类型为ActiveX DLL。


  3. 设置项目属性,如项目名,线程模型等。设置完后,通过项目浏览器可看

到。


  4. 设置class1的属性:Name、MTSTransactionMode。属性设置后的界面。



  5. 通过Add Procedure 对话框增加该类方法。


  6. 实现类方法。


  7. 引用Microsoft Transaction Server Type Library(mtxa s.dll)。


  8. 保存项目并创建ActiveX DLL。


  9. 测试、使用组件。


  * 使用Visual Basic 6.0测试


  在你的项目组加入一个标准EXE类型的新项目,实例化组件然后测试该组件。

下列代码是航空订票系统中测试组件的RetriveHistory方法,该方法返回一个记

录集。


  Dim objTest as new FrequentFlyer (也可以使用CreateObject 方法创建

实例)


  Dim rs as new Ado.Recordset


  Set rs=objTest.RetriveHistory(CusterID)


  * 使用ASP测试


  启动Visual InterDev 6.0,使用ASP的Server对象创建组件实例,然后调用

其方法。


  Session("email") = Request.Form("email")


  Session("Password") = Request.Form("Password")


  set oCustomer = Server .CreateObject("ExplorationAi r .Customer")



  set RS = oCustomer.Validate(Session("email"),Sessio n("Password"))




  四、小结


  本文给大家介绍了如何使用Visual Basic 6.0创建支持事务的商务组件,其

实同时也为大家开发分布式应用特别是电子商务应用提供了一个很好的解决方案

。即:


  1. 把应用分为三层或多层;


  2. 使用Visual C++ 6.0、Visual Basic 6.0、 Visual J++ 6. 0 、Visual

Foxpro 6.0等语言创建支持MTS的组件,并测试;


  3. 在Win32应用中或基于ASP的Web应用中使用组件、调用组件的方法。