用Visual Basic 6创建基于MTS的商务组件

一、概述  

　　1. 分布式应用  

　　随着Inte.net技术的发展，应用软件开发已经从桌面应用开发转向两层、三层、多层应用的开发，特别是电子商务的出现，更促进了基于Internet的多层分布式应用开发。分布式应用程序至少由如下三层构成：  

　　表示层：实现与用户的交互，调用商务层组件响应用户的请求。该层可由 HTML、DHTNL、ASP、Act iveX控件、WIN32应用等来实现。  

　　商务层：实现商务规则，满足企业的商务需求，处理、分析商务数据，获得商务结果。  

　　数据层：为商务层提供数据服务，访问后台数据库如MS SQL SERVER 7、ORACE等。

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

　　对于分布式应用来说，上述三层逻辑上已经完全分开，物理上可能分布在不同机器上、使用不同的操作系统、使用不同的网络协议。但各层之间要实现相互通信。为此微软提出了分布式组件对象模型（Distributed Compon ent Object Model简称DCOM），在DCOM的支持下，各层之间通过组件(Component)实现相互通信从而构成一个完整的分布式应用，并且与机器的物理位置、操作系统、协议都无关。  

　　3. 微软事务服务器MTS  

　　多层分布式应用中的组件可能对数据库的表、非数据库的实体如消息队列进行操作，而这种组件却可能被多个用户调用，这样就会出现多个操作并发的问题，必须采取事务方法来管理所有操作，保证所有事务要么被全部成功地提交，要么全部回滚到事务初始状态。为此，微软实现了一个管理支持事务的组件的服务器：微软事务服务器MTS(Microsoft Transaction Server)。客户可以通过调用SetComplete和SetAbort函数实现提交与回滚。  

　　二、商务组件  

　　商务组件包含了一个企业的商务规则、逻辑。它能使企业为了尽快地满足市场的变化而对商务规则、逻辑进行调整，它主要处理前端客户的请求。同时它也使得企业的商务规则不会暴露在用户眼前，从而使应用更安全。在设计商务组件时，我们应该注意如下几点：  

　　1. 与数据组件的区分：数据组件主要用来管理、操纵后台的数据，并不直接响应用户的请求。  

　　2. 组件的粒度即组件包含的功能：组件的粒度不宜过大，也不宜过小，因为粒度太大，不便于应用的更新。粒度太小，则应用的组件太多，不便于管理与调用。  

　　3. 是否支持事务控制MTS：如果支持MTS，组件必须是一个动态连接库而不能是一个可执行文件。 商务组件可以使用很多语言开发，如Visual C++ 6.0、Visual 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应用中使用组件、调用组件的方法。 

原文转自：http://www.ltesting.net