【文章內(nèi)容簡介】 class名字、實例類型、線程模型，如圖46所示：圖46 向?qū)渲迷贑oclass Name指定類名，程序?qū)⒔⒁粋€新的單元，它是TRemoteDataModule的派生，在此我們輸入Engine。Instancing是指定實例的類型，我們選擇默認(rèn)的Multiple Instance，這樣每個遠(yuǎn)程數(shù)據(jù)模塊是單個客戶端連接專有的，但他們都共享同一進程空間。在Threading Model中，選擇Apartment能夠確保遠(yuǎn)程數(shù)據(jù)模塊的任何實例在同一時間內(nèi)只服務(wù)于一個請求，這樣能夠避免線程沖突。到此，應(yīng)用服務(wù)器大體搭建完畢，運行程序，應(yīng)用服務(wù)器將完成注冊，此時系統(tǒng)將提供一個唯一的GUID值（如圖47），供客戶端連接驗證。圖47 GUID值 客戶端架構(gòu)概述1. 連接服務(wù)器方式的選擇在TwoTier模式中，客戶端程序是直接和數(shù)據(jù)庫服務(wù)器的數(shù)據(jù)源相連的，而MultiTier模式，多個客戶端連接的是應(yīng)用程序服務(wù)器，它們之間是通過IAppServer接口進行通信的，而客戶端則是通過一個連接組件得到這個接口。在Delphi中，存在著多種連接組件，它們對應(yīng)著不同的通信協(xié)議，對應(yīng)于應(yīng)用服務(wù)器上的不同種類的遠(yuǎn)程數(shù)據(jù)模塊，客戶端也需要不同的種類的連接組件，如表4所示：表4 連接組件比較組件協(xié)議連接到的遠(yuǎn)程數(shù)據(jù)模塊TDCOMConnectionDCOMRemoteDataModule或者MTSDataModuleTSocketConnectionWindows Socket (TCP/IP)RemoteDataModule或者MTSDataModuleTWebConnectionHTTPRemoteDataModule或者MTSDataModuleTSoapConnectionSOAP (HTTP和XML)SoapDataModuleTCorbaConnectionCORBA(IIOP)CorbaDataModule由于應(yīng)用服務(wù)器所選用的遠(yuǎn)程數(shù)據(jù)模塊是RemoteDataModule，并且系統(tǒng)基于C/S架構(gòu)，因此所選用的連接組件將是TDCOMConnection或TSocketConnection。TDCOMConnection 提供了核心的NTLM的安全性和驗證機制。在COM/DCOM里面我們可以很輕松地使用早聯(lián)編（earlybinding）、 回調(diào)機制（callback）和連結(jié)點機制（ConnectionPoints）。 但是它的不利因素就是配置客戶端的DCOM和讓DCOM透過防火墻（FireWall）相當(dāng)麻煩．而相對于TDCOMConnection，TSocketConnection雖然不支持早聯(lián)編（earlybinding），但它無疑是最容易配置的連接方式，而且TSocketConnection只使用一個端口（默認(rèn)211）來進行通訊，這樣如果在擁有防火墻的系統(tǒng)中，管理員會更樂意接受。在安裝中間層的機器上，（如圖48）就可以和客戶端建立Socket的連接了。（）如圖48 2. 客戶端架構(gòu)的搭建使用File菜單下的New Application建立一個新應(yīng)用程序。，并在其中放置一個連接組件SocketConnection1 (TsocketConnection組件)如圖49所示，其IP屬性中本應(yīng)指定應(yīng)用程序服務(wù)器的IP地址，但由于要實現(xiàn)動態(tài)連接應(yīng)用服務(wù)器，而且我們開發(fā)客戶端程序的時候必須注冊應(yīng)用服務(wù)器，所以為了開發(fā)方便，使用的是同一臺。這樣在ServerName屬性中設(shè)置應(yīng)用程序服務(wù)器（在這里，），就可以定位應(yīng)用服務(wù)器和IAppServer接口。圖49 TsocketConnection組件圖410 SocketConnection1屬性配置3. 動態(tài)連接應(yīng)用服務(wù)器、用戶登陸界面客戶端程序在運行時，需要連接應(yīng)用服務(wù)器程序以取得服務(wù)。但是，在系統(tǒng)實際應(yīng)用的時候，運行應(yīng)用服務(wù)器程序的計算機是經(jīng)常改變的，因此在客戶端程序啟動時，應(yīng)該先找到運行應(yīng)用服務(wù)器程序的計算機的設(shè)置。我們將這個配置信息存儲在windows系統(tǒng)的注冊表中，（分支：HKEY_LOCAL_MACHINE\SOFTWARE\唯信機械MIS系統(tǒng)），客戶端啟動時如果能夠找到配置信息，便進行嘗試連接，連接成功則進入用戶賬號登陸界面，如果連接失敗，則彈出應(yīng)用服務(wù)器配置界面重新配置。為了適應(yīng)這些界面的邏輯調(diào)度，（客戶端一運行即在后臺啟動，但不顯示），然后調(diào)用函數(shù)（ConnectAppServ）讀取注冊表進行連接，連接成功則顯示賬戶的頁面，連接失敗則出現(xiàn)客戶端配置界面如圖411。 圖411 客戶端配置界面 本單位資料管理模塊 子模塊劃分與數(shù)據(jù)流圖根據(jù)系統(tǒng)功能，本單位將資料管理劃分為幾個模塊，如圖412所示。圖412 本單位資料模塊構(gòu)架圖本單位資料設(shè)置的數(shù)據(jù)流圖（DFD圖）如圖413所示。圖413 本單位資料數(shù)據(jù)流圖 數(shù)據(jù)庫設(shè)計1. 基本表設(shè)計根據(jù)上述數(shù)據(jù)流圖，本單位資料管理中共包含4個數(shù)據(jù)庫表，依次為職工資料信息表clerk_table－保存公司職工的基本信息，倉庫信息表depot_table－用于設(shè)置公司倉庫，部門信息表dep_table－設(shè)置公司的部門種類，職稱信息表title_table－設(shè)置公司的職稱類型。這里只列出表clerk_table的具體設(shè)計，如表5所示。表5 職工資料信息表clerk_table序號字段名類型長度精度小數(shù)位數(shù)默認(rèn)值允許空主鍵說明0clerk_idvarchar50√職工編號1clerk_namevarchar50職工姓名2clerk_sexvarchar4職工姓別3clerk_diplomavarchar50√職工學(xué)歷4clerk_dep_idvarchar50職工所在部門ID5clerk_title_idvarchar50職工職稱ID6clerk_birthdaysmalldatetime4√職工生日7clerk_workdaysmalldatetime4職工入職日期8clerk_phonevarchar50√職工電話9clerk_varchar50√職工電子信箱10clerk_addressvarchar50職工居住地址11clerk_markvarchar300√備注2. 存儲過程創(chuàng)建由于本系統(tǒng)采用三層結(jié)構(gòu)，對數(shù)據(jù)的查詢、增加、修改等均采用存儲過程來操作。對于數(shù)據(jù)庫運算處理頻繁或數(shù)據(jù)運算量較大的任務(wù)，用存儲過程實現(xiàn)，可以提高系統(tǒng)整體的運行效率；此外，存儲過程在數(shù)據(jù)庫服務(wù)器端執(zhí)行，只將執(zhí)行結(jié)果返回到客戶端。而本單位資料管理中，涉及到的存儲過程有職工資料信息的增加或修改－update_clerk_info，倉庫信息的增加或修改－update_depot_info，部門信息的增加或修改－update_dep_info，職稱信息的增加或修改update_title_info。這里只給出update_clerk_info的具體程序，如下所示： // update_clerk_infoCREATE PROCEDURE update_clerk_info( @t int, 判斷插入還是修改 @update_id int, 插入的要修改的id數(shù)值 @id varchar(50), @name varchar(50), @sex char(2), @diploma char(10), @vdep_id varchar(50), @vdep_name varchar(50), @vtitle_id varchar(50), @vtitle_name varchar(50), @birthday smalldatetime, @workday smalldatetime, @phone varchar(50), @ varchar(50), @address varchar(50), @mark varchar(300)) asif (@t=1)begin select @vdep_id=dep_id from dep_table where dep_name=@vdep_name。 select @vtitle_id=title_id from title_table where title_name=@vtitle_name。update clerk_table set clerk_name=@name,clerk_sex=@sex, clerk_diploma=@diploma, clerk_dep_id=@vdep_id,clerk_title_id=@vtitle_id, clerk_birthday=@birthday,clerk_workday=@workday,clerk_phone=@phone, clerk_=@,clerk_address=@address,clerk_mark=@mark where clerk_id=@id 。endif (@t=2)begin select @vdep_id=dep_id from dep_table where dep_name=@vdep_name。 select @vtitle_id=title_id from title_table where title_name=@vtitle_name。insert clerk_table values(@id,@name,@sex,@diploma,@vdep_id,@vtitle_id,@birthday,@workday,@phone,@,@address,@mark)。 update auto_add_table set clerk_id= @update_id where auto_id=1。 endGO 本單位資料模塊詳細(xì)設(shè)計本單位資料設(shè)置主要是讓管理員管理職工資料、部門信息、倉庫信息、職稱信息。采用用戶點擊完，彈出具體頁面讓用戶設(shè)置。1. “職工資料－詳細(xì)信息”子窗體設(shè)計完成后的“職工資料－詳細(xì)信息”子窗體如圖414所示。圖414 “職工資料－詳細(xì)信息” 子窗體該窗體用于查看所有職工的基本信息，在窗體里添加一個clientdataset1，（主窗體用于連接應(yīng)用程序服務(wù)器server），ProviderName屬性值為‘get_clerk_dsp’（應(yīng)用程序服務(wù)器server中用于連接數(shù)據(jù)庫的存儲過程的TDataSetProvider），通過設(shè)置數(shù)據(jù)庫控件的以上屬性，將Client端數(shù)據(jù)庫控件與Server端遠(yuǎn)程數(shù)據(jù)模塊中的數(shù)據(jù)庫控件連接起來，這是多層數(shù)據(jù)庫應(yīng)用程序設(shè)計中最為關(guān)鍵的屬性設(shè)置。當(dāng)單擊“增加”或“編輯”按鈕后，彈出“職工資料－錄入”子窗體，如圖415所示。當(dāng)單擊“刪除”按鈕后，彈出對話框確認(rèn)是否刪除，其中“刪除”事件調(diào)用server中的Appserver函數(shù)del_clerk(clerk_id,vdeled)。當(dāng)單擊“查找”按鈕時，彈出如圖4