一、概述  

　　1. 分布式應(yīng)用  

　　隨著Internet技術(shù)的發(fā)展，應(yīng)用軟件開發(fā)已經(jīng)從桌面應(yīng)用開發(fā)轉(zhuǎn)向兩層、三層、多層應(yīng)用的開發(fā)，特別是電子商務(wù)的出現(xiàn)，更促進(jìn)了基于Internet的多層分布式應(yīng)用開發(fā)。分布式應(yīng)用程序至少由如下三層構(gòu)成：  

　　表示層：實現(xiàn)與用戶的交互，調(diào)用商務(wù)層組件響應(yīng)用戶的請求。該層可由 HTML、DHTNL、ASP、Act iveX控件、WIN32應(yīng)用等來實現(xiàn)。  

　　商務(wù)層：實現(xiàn)商務(wù)規(guī)則，滿足企業(yè)的商務(wù)需求，處理、分析商務(wù)數(shù)據(jù)，獲得商務(wù)結(jié)果。  

　　數(shù)據(jù)層：為商務(wù)層提供數(shù)據(jù)服務(wù)，訪問后臺數(shù)據(jù)庫如MS SQL SERVER 7、ORACE等。

　　2. 分布式組件對象模型DCOM  

　　對于分布式應(yīng)用來說，上述三層邏輯上已經(jīng)完全分開，物理上可能分布在不同機(jī)器上、使用不同的操作系統(tǒng)、使用不同的網(wǎng)絡(luò)協(xié)議。但各層之間要實現(xiàn)相互通信。為此微軟提出了分布式組件對象模型（Distributed Compon ent Object Model簡稱DCOM），在DCOM的支持下，各層之間通過組件(Component)實現(xiàn)相互通信從而構(gòu)成一個完整的分布式應(yīng)用，并且與機(jī)器的物理位置、操作系統(tǒng)、協(xié)議都無關(guān)。  

　　3. 微軟事務(wù)服務(wù)器MTS  

　　多層分布式應(yīng)用中的組件可能對數(shù)據(jù)庫的表、非數(shù)據(jù)庫的實體如消息隊列進(jìn)行操作，而這種組件卻可能被多個用戶調(diào)用，這樣就會出現(xiàn)多個操作并發(fā)的問題，必須采取事務(wù)方法來管理所有操作，保證所有事務(wù)要么被全部成功地提交，要么全部回滾到事務(wù)初始狀態(tài)。為此，微軟實現(xiàn)了一個管理支持事務(wù)的組件的服務(wù)器：微軟事務(wù)服務(wù)器MTS(Microsoft Transaction Server)�？蛻艨梢酝ㄟ^調(diào)用SetComplete和SetAbort函數(shù)實現(xiàn)提交與回滾。  

　　二、商務(wù)組件  

　　商務(wù)組件包含了一個企業(yè)的商務(wù)規(guī)則、邏輯。它能使企業(yè)為了盡快地滿足市場的變化而對商務(wù)規(guī)則、邏輯進(jìn)行調(diào)整，它主要處理前端客戶的請求。同時它也使得企業(yè)的商務(wù)規(guī)則不會暴露在用戶眼前，從而使應(yīng)用更安全。在設(shè)計商務(wù)組件時，我們應(yīng)該注意如下幾點：  

　　1. 與數(shù)據(jù)組件的區(qū)分：數(shù)據(jù)組件主要用來管理、操縱后臺的數(shù)據(jù)，并不直接響應(yīng)用戶的請求。  

　　2. 組件的粒度即組件包含的功能：組件的粒度不宜過大，也不宜過小，因為粒度太大，不便于應(yīng)用的更新。粒度太小，則應(yīng)用的組件太多，不便于管理與調(diào)用。  

　　3. 是否支持事務(wù)控制MTS：如果支持MTS，組件必須是一個動態(tài)連接庫而不能是一個可執(zhí)行文件。 商務(wù)組件可以使用很多語言開發(fā)，如Visual C++ 6.0、Visual Basic 6.0、 Visual J+ + 6.0 、Visual Foxpro 6.0等。下面我們來介紹一下怎樣用Visual Basic 6.0創(chuàng)建一個商務(wù)組件。  

　　三、創(chuàng)建商務(wù)組件  

　　下面以某一航空訂票系統(tǒng)為例，為大家介紹如何創(chuàng)建商務(wù)組件，步驟如下：  

　　1. 啟動Visual Basic6.0。  

　　2.創(chuàng)建一個新項目，項目類型為ActiveX DLL。

　　3. 設(shè)置項目屬性，如項目名，線程模型等。設(shè)置完后，通過項目瀏覽器可看到。

　　4. 設(shè)置class1的屬性：Name、MTSTransactionMode。屬性設(shè)置后的界面。  

　　5. 通過Add Procedure 對話框增加該類方法。  

　　6. 實現(xiàn)類方法。  

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

　　8. 保存項目并創(chuàng)建ActiveX DLL。  

　　9. 測試、使用組件。  

　　* 使用Visual Basic 6.0測試  

　　在你的項目組加入一個標(biāo)準(zhǔn)EXE類型的新項目，實例化組件然后測試該組件。下列代碼是航空訂票系統(tǒng)中測試組件的RetriveHistory方法，該方法返回一個記錄集。  

　　Dim objTest as new FrequentFlyer （也可以使用CreateObject 方法創(chuàng)建實例）  

　　Dim rs as new Ado.Recordset  

　　Set rs=objTest.RetriveHistory(CusterID)  

　　* 使用ASP測試  

　　啟動Visual InterDev 6.0，使用ASP的Server對象創(chuàng)建組件實例，然后調(diào)用其方法。  

　　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"))  

　　四、小結(jié)  

　　本文給大家介紹了如何使用Visual Basic 6.0創(chuàng)建支持事務(wù)的商務(wù)組件，其實同時也為大家開發(fā)分布式應(yīng)用特別是電子商務(wù)應(yīng)用提供了一個很好的解決方案。即：  

　　1. 把應(yīng)用分為三層或多層；  

　　2. 使用Visual C++ 6.0、Visual Basic 6.0、 Visual J++ 6. 0 、Visual Foxpro 6.0等語言創(chuàng)建支持MTS的組件，并測試；  

　　3. 在Win32應(yīng)用中或基于ASP的Web應(yīng)用中使用組件、調(diào)用組件的方法。