【正文】 施瓦爾貝；IT 項目管理；機械工業(yè)出版社； 20212. 潘愛民；COM 原理與應用；清華大學出版社；1999。衷心感謝老師在我們開發(fā)系統(tǒng)時的細心指導及學院為我們提供了這么好的開發(fā)環(huán)境。找到的這些不足將是我今后努力的方向。再加上對技術(shù)的深入學習，包括 COM、ADO、多層體系結(jié)構(gòu)、面向?qū)ο笤O計方法等多種技術(shù)，使我 們對現(xiàn)代先進的計算機技術(shù)有了更深一步的了解，并在開發(fā)過程中得到了許多寶貴的編程經(jīng)驗。在整個軟件設計過程中，我們雖然遇到不少問題 ，在舒老 師的耐心指導和自己的努力之下，解決了一些較為簡單的困難。這是因為當客戶端在修改數(shù)據(jù)時，可能已經(jīng)有其他的用戶改變了數(shù)據(jù)源中的數(shù)據(jù)，因此當客戶端把修改的數(shù)據(jù)更新回數(shù)據(jù)源時便可能會發(fā)生數(shù)據(jù)沖突或是錯誤的情形。此外由于 BatchUpdate 是把客戶端對于數(shù)據(jù)的修改暫時儲存在客戶端內(nèi)存中，因此它對于數(shù)據(jù)的修改動作非?？焖?，只在最后把所有的修改更新回數(shù)據(jù)源時才需要比較多的時間。使用 BatchUpdate 方法來處理數(shù)據(jù)的好處是客戶端和數(shù)據(jù)源之間不會產(chǎn)生密切的互動，因此可以降低數(shù)據(jù)源的負荷。它的工作原理就是當ADO從數(shù)據(jù)源取得數(shù)據(jù)之后，客戶端 對于所有數(shù)據(jù)的修改6 參考《Delphi ADO/MTS/COM+ 高級程序設計篇》第二章學士學位畢業(yè)論文41都暫時儲存在客戶端的緩存中，而不是立刻更新回數(shù)據(jù)源中。end。 //以獲得的當前日期為前綴保存文件 。39。39。39。c:\doc\39。,Time)。 datetimetostring(Date,39。 //ss,sss 均為全局變量用于 儲存創(chuàng)建的 Ole 對象begin GetLocalTime(SystemTime)。 Date:string。var SystemTime: TSystemTime。 //釋放 variant 變量end。 App:=Unassigned。 ss:=。)。 books:=(39。39。)。 //ss,sss 均為全局變量用于儲存創(chuàng)建的 Ole 對象begin App:=createoleobject(39。//打開一個已有的 WBS Excel 文件的方法procedure (Sender: TObject)。end。提示39。已保存成功！請到 C:\doc\目錄下察看39。 。)。39。+Date+39。39。 //獲得當前日期 (39。yyyymmdd39。 Time:= SystemTimeToDateTime(SystemTime)。 App,book,sss,ss:Variant。 Time:TdateTime。//關閉項目申報計劃書 Word 文件并保存procedure (Sender: TObject)。 books:=Unassigned。 sss:=App。,MB_OK)。,39。 (39。)。 book:=（39。39。)。 //創(chuàng)建 Ole 對象 book:=createoleobject(39。39。 //ss,sss 均為全局變量用于儲存創(chuàng)建的 Ole 對象begin s:=true。學士學位畢業(yè)論文39圖 43 Word 對象結(jié)構(gòu)圖具體算法如下：//打開一個已有的項目申報計劃書 Word 文件的方法PROCEDUER (Sender: TObject)。后一個 Ole 對象指定工作簿或當前活動工作簿中所有工作表的集合，它的主要任務是完成對工作簿中各工作表的各種操作。首先，引用單元ComObj 的函數(shù) CreateOleObject（）產(chǎn)生一個 類型的 Ole對象和一個 類型的 Ole 對象。保存后的所有文檔均存放在 C:\doc 目錄 下。只有把 VBA 代碼嵌入到 Delphi 中，才能 實現(xiàn)用 Delphi 操作 office 工具。另一方面，Microsoft Office 軟件中的宏能以VBA 代碼的形式記錄下你的操作過程。 在 Delphi 中直接調(diào)用 Office 工具算法在 Microsoft Office 軟件中有一種內(nèi)嵌的 編程語言，即 VBA，它是VB 的子集。 end。 //字段值 RE:=(Fields,values,count)。 3: begin //按資源種類進行查詢 Fields:=’dtPurchaseDate’。 //字段值 RE:=(Fields,values,count)。 2: begin //按采購日期進行查詢 Fields:=’vcKindsNo’。 //字段值 RE:=(Fields,values,count)。 1: begin //按資源名稱進行查詢 Fields:=’vcResourceName’。 end。 except (‘數(shù)據(jù)庫連接錯誤， 請檢查！’,’ 提示’,MB_OK)。 //調(diào)用服務器方法 If count = 0學士學位畢業(yè)論文37 Then (‘沒有符合條件的記錄， 請重新 輸入！’,’ 提示’,MB_OK) Else Begin :=RE。 //字段名 Values:= 。 If (=’’)Then (‘請選擇查詢 方式’,’提示’,MB_OK) //未選擇查詢條件 ElseReNo := (self)。RE:OLEvariant。Values:string。實現(xiàn)如下：PROCEDURE (Sender: TObject)。end。 //未找到符合條件的結(jié)果集 except exit。 result := 。 //未選擇查詢方式學士學位畢業(yè)論文36 try 。 。 Out count: OleVariant): OleVariant。傳入?yún)?shù) Field用于傳入查詢方式，即所需 查詢的字段名稱；傳入?yún)?shù) Value 用于傳入查詢條件，即該字段的值；傳 出參數(shù) count 用于返回查尋到記錄的數(shù)量，也學士學位畢業(yè)論文35作為一個判斷是否找到符合記錄的標志；Parama3 用于儲存回傳的記錄集。因此，在此次系統(tǒng)設計中，我們就把 對項目相關信息的檢索作為重點來看待，這里主要就對項目資源采購的信息檢索所運用到的相關技術(shù)進行說明。這樣，當點擊 btnAuto 按鈕 后， 則在 dbedtEmployeeNo 中將自動顯示自動產(chǎn)生的員工編號。 :=result。 //自動截取日期中的四位年份 Result:=(year)。 Auto:= (self)。 Result:OLEvariant。① 在客戶端 btnAuto 中添加 onClick 事件，調(diào)用AutoEmployeesId 方法： PROCEDURE (Sender: TObject)。 //執(zhí)行存儲過程函數(shù) result:=(‘RETURN_VALUE’).Value。Begin (‘sYear’).Value:=Year。End AutoEmployeesNo。 End If。 Else varEmployeesNo2 := sYear || ltrim(to_char(x))。/*按格式產(chǎn)生編號*/ Elsif x100 then varEmployeesNo2 := sYear || ‘00’ || ltrim(to_char(x))。 Else X := to_number(SUBSTR(varEmployeesNo1,5,4))+1。 Select NVL(max(vcEmployeesNo),’0’) into varEmployeesNo1 From 學士學位畢業(yè)論文33 Where vcEmployeesNo like sYear || ‘%’。 varEmployeesNo2 varchar2(10)。 CREATE or REPLACE FUNCTION (sYear in varchar2)RETURN VARCHAR2 Is X number。⑵自動產(chǎn)生員工編號：根據(jù)所輸入的員工參加工作的日期，截取四位年份，自動產(chǎn)生員工編號，格式為：四位年份+ 四位年內(nèi)流水號，即：XXXX+xxxx 。end。 Result:=(KindsNo)。 ReNo := (self)。 Result:OLEvariant。③ 在客戶端 btnAutoId 中添加 onClick 事件，調(diào)用AutoResourceNo 方法：PROCEDURE (Sender: TObject)。 //執(zhí)行存儲過程函數(shù)result:=(‘RETURN_VALUE’).Value。Begin (‘RKINDS’).Value:= KindsNo。End AutoProResourceNo。 End If。 Else vcProResource2 := Rkinds || ltrim(to_char(x))。 If x 10 then vcProResource2 := Rkinds || ‘00’ || ltrim(to_char(x))。 /*獲取該種類下的最大編號*/ If vcProResource1 = ‘0’ /*有該種類的資源，編號從 001 開始*/ Then vcProResource2 := Rkinds || ‘001’。 Begin vcProResource1 := ‘’。 vcProResource1 varchar2(6)。① 數(shù)據(jù)庫的實現(xiàn)函數(shù)如下，其中 Rkinds 即為輸入的資源種類參數(shù)。下面主要以項目資源編號和員工編號的自動產(chǎn)生為例進行說明。 end。 except(‘數(shù)據(jù)庫連接錯誤， 請檢查！ ’,’提示’,MB_OK)。 := True。Result := (Id)。Begin SLogin := (self)。VarId : string。接著，在客戶端的 edtUserId 中添加 onChange 事件，當 edtUserId 的Text 屬性改 變時 ，則調(diào)用服務器端的 GetNames 方法。end。 //返回傳回的數(shù)據(jù)集及員工姓名學士學位畢業(yè)論文30 exceptexit。//動態(tài) SQL 語句,用以根據(jù) Id 自動獲得員工姓名 try。如圖 43 所示：圖 43 GetNames Type Library 圖GetNames 的方法 實現(xiàn)如下：FUNCTION (const Id: WideString): OleVariant。圖 42 ADOExpress 組件組架構(gòu)圖 輸入用戶編號后自動取得用戶名算法由于“項目干系人系 統(tǒng)登錄 密碼表” （IBUserPassword）中并不儲存有學士學位畢業(yè)論文29用戶姓名字段，需要根據(jù)所輸入的員工編號到“項目干系人基本信息表 ” （IBEmployeesBasic）中去搜 尋，因此便需要在 SQL 語句中動態(tài)傳入用戶編號，用以完成系統(tǒng)登錄及獲得當前用戶姓名。5 參考《Delphi ADO/MTS/COM+ 高級程序設計篇》第一、二章學士學位畢業(yè)論文28圖 41 ADO 數(shù)據(jù)存取架構(gòu)圖⑵ADOExpress 組件Delphi 5 以數(shù)據(jù)集組件的形式封裝了原生 ADO 對象， 這樣就將ADO 技 術(shù)與 Delphi 的 VCL 組 件構(gòu)架緊密地結(jié)合在一起形成了ADOExpress 組件組，讓 Delphi 的程序員能夠更充分地運用 ADO 技術(shù)來開發(fā)系統(tǒng)。ADO 封裝了 OLEDB 的復雜的接口，以極為簡單的 COM接口存取數(shù)據(jù)。ADO 可以存取不同類型的數(shù)據(jù)，無 論 是傳統(tǒng)的關系數(shù)據(jù)庫，還是非傳統(tǒng)的數(shù)據(jù)庫，它都可以存取自由。下面就ADO 技 術(shù)原理作一些說明。在超大規(guī)模網(wǎng)絡革命到來的今天，ADO 將有著更為廣闊的應 用前景。 ADO 技術(shù)原理ADO 數(shù)據(jù)引擎不僅適合于單機應