【正文】 好是做成一個統(tǒng)一的模塊，需要時就將該模塊引入而不必直接操作數(shù)據(jù)源本身呢？數(shù)據(jù)模塊（DataModule）是解決這個問題最好的答案。簡單說來，數(shù)據(jù)模塊是用來集中管理數(shù)據(jù)源的一個窗體，該窗體可被需要的地方隨時引入。在圖 1 中，除報(bào)表窗體外所有的數(shù)據(jù)存取組件和數(shù)據(jù)源組件都在此數(shù)據(jù)模塊中進(jìn)行了定義。值得一提的是，設(shè)置了數(shù)據(jù)庫 Database 組件，該組件引入了系統(tǒng)所需的唯一的數(shù)據(jù)庫 tsxs，Database 組件的 DatabaseName 屬性設(shè)置為tsckgl。tsxs 數(shù)據(jù)庫已在 ODBC 配置程序中進(jìn)行了設(shè)置。其他的數(shù)據(jù)存取組件都是基于此數(shù)據(jù)庫組件創(chuàng)建的，這樣做的好處是，當(dāng)數(shù)據(jù)庫的別名或者其他信息改變之后，只需修改 Tdatabase 組件的 AliasName 屬性即可。15 / 25另外，在本系統(tǒng)的數(shù)據(jù)模塊窗體圖中，大多采用的 AODQuery 組件而沒有采用 BDE 組件，這主要是基于對 ADO 組件的了解。在 Delphi 的學(xué)習(xí)過程中增加了對 ADO 組件了解，使用也較 BDE 更為熟練，而且 ADO 組件的功能也較 BDE 更為強(qiáng)大，所以在這里大多采用 ADO 組件來進(jìn)行數(shù)據(jù)庫聯(lián)接。同時也使用了 BDE 組件中的 Table，因?yàn)樵谀承r候 BDE 有著其自身特有的優(yōu)越性。 主要功能模塊的實(shí)現(xiàn) 登錄模塊登錄模塊的主要功能是驗(yàn)證用戶名及密碼正確性，以及判定用戶的權(quán)限既區(qū)別管理員與一般用戶。登錄頁面主要代碼如下：strUserID:=。 //取用戶輸入的用戶名strpassword:=。 //取用戶輸入的密碼if (strUserID39。39。)and(strpassword39。39。) thenbeginwith do begin。(39。select * from Usersk where UserID=39。39。39。+strUserID+39。39。39。 and Password=39。39。39。+strpassword+39。39。39。39。)。open。if isempty then //查詢結(jié)果記錄集為空 showmessage(39。姓名或密碼錯。39。) else begin //讀取權(quán)限，并判斷權(quán)限的值。 //密碼。帳號驗(yàn)證成功的話，就進(jìn)入主采單 。:=39。39。 //清空編輯框:=39。39。end。close。 //關(guān)閉數(shù)據(jù)集 ADODataSet1end。endelseshowmessage(39。姓名、密碼不能為空。39。)。end。procedure (Sender: TObject)。begin16 / 25close。 //點(diǎn)出按紐推出。登錄界面主要功能是判斷用戶名及密碼是否正確，以及判定用戶權(quán)限。登錄效果圖：圖 2 系統(tǒng)登錄圖 系統(tǒng)主頁面系統(tǒng)主界面是整個 OA 系統(tǒng)的核心，通過前面的登錄驗(yàn)證，他將向不同的用戶開放不同的功能，系統(tǒng)主頁面代碼如下：procedur cdk:= []。(39。select PermissionID from Role_Permissionsk where Role_Name=(select Role_Name from User_Rolesk where UserID=39。+39。39。39。39。 + strUserID+ 39。39。39。39。 + 39。)39。)。while not dobegincdk:= cdk + [(39。PermissionID39。).asInteger]。end。If 1 in cdk then:= trueelse:= false。17 / 25圖 3 系統(tǒng)主界面 內(nèi)部通信模塊內(nèi)部通信是為內(nèi)部通信的模塊。在這一模塊，用戶可以通過輸入 IP 地址的方式與任何用戶進(jìn)行交流，其主要代碼如下：if(key=13)and(39。39。)then begin :=Status_Basic。 :=8888。 if []=puterName then :=ComputerName+39。自言自語到：39。+ else :=ComputerName+39。對39。+[]+39。說：39。+。 TmpStr:=。 MyStream:=。 try (TmpStr[1],length())。 if =0 then begin for i:=1 to do begin :=[i]。18 / 25 (MyStream)。 begin :=[]。 (Mystream)。 end。 finally 。 end。 :=39。39。 。 end else 。end。圖 4 內(nèi)部通信 發(fā)送通知發(fā)送通知模塊為管理員使用的模塊，通過這一模塊，可以將信息迅速傳遞個沒一個人。發(fā)送通知模塊代碼：19 / 25beginwith ClientSocket1 dobeginif Active thenbeginActive:=False。ConnectFlag:=False。end。if Length() 0 thenbegin Host:= 。 Active:=True。 end。 end。 end。procedure (Sender： TObject)。begin if ConnectFlag then () else showmessage(39。連接失敗39。)。 。 。 end圖 5 發(fā)送通知20 / 25圖 6 收到的通知 管理員操作管理員操作模塊是系統(tǒng)重要的模塊，管理員可以通過這一模塊刪除，修改，增加，用戶。對普通用戶進(jìn)行時時控制。其主要代碼如下：procedure (Sender: TObject。 Button: TNavigateBtn)。begin if Button=nbDelete then if (39。確實(shí)要刪除這行數(shù)據(jù)么？39。,39。確認(rèn)39。,MB_YESNO)=IDNO THEN aBORT。 if Button=nbinsert then if (39。確實(shí)要增加數(shù)據(jù)？39。,39。確認(rèn)39。,MB_YESNO)=IDNO THEN aBORT。 if Button=nbEdit then if (39。確實(shí)要修改數(shù)據(jù)？39。,39。確認(rèn)39。,MB_YESNO)=IDNO THEN aBORT。 if Button=nbPost then if (39。確實(shí)要提交修改的數(shù)據(jù)？39。,39。確認(rèn)39。,MB_YESNO)=IDNO THEN aBORT。 if Button=nbCancel then if (39。確實(shí)要取消修改？39。,39。確認(rèn)39。,MB_YESNO)=IDNO THEN aBORT。 數(shù)據(jù)組模塊數(shù)據(jù)組模塊代碼如下： Tdm = class(TDataModule) ADOConnection1： TADOConnection。 ADODataSet1： TADODataSet。 Cx:TADOQuery。21 / 25 cx1:TADOQuery。 private { Private declarations } public { Public declarations } end。var dm:dm。 IsManager:boolean。 //定義一個量 用來判斷用戶權(quán)限的值Implementation{$R *.dfm}end.7 建議和措施1) 在數(shù)據(jù)庫連接的語句方面可能不夠嚴(yán)謹(jǐn)，可能會影響數(shù)據(jù)庫的安全性以及 OA 辦公系統(tǒng)的穩(wěn)定性。需要改變了數(shù)據(jù)庫語句的書寫，使系統(tǒng)與數(shù)據(jù)庫建立的連接更可靠。使系統(tǒng)運(yùn)行更加穩(wěn)定。2) 程序外觀設(shè)計(jì)不太好，從而使整個系統(tǒng)外觀感覺不好，需要進(jìn)一步對程序觀方面需要進(jìn)一步改進(jìn)，使界面更加友好，使使用者感到系統(tǒng)的舒適性。3) 程序在系統(tǒng)設(shè)置的人性化方面有所欠缺，未能很好的為系統(tǒng)使用者在某些地方提供便利，使系統(tǒng)缺乏人性化考慮，在系統(tǒng)中加以改進(jìn)，以更好的服務(wù)與系統(tǒng)的使用者。結(jié) 論本文研究了一套完整的辦公自動化管理系統(tǒng)的規(guī)劃方法和規(guī)劃策略，闡述了模塊的劃分、各功能模塊的設(shè)計(jì)方法和用到的關(guān)鍵技術(shù)。實(shí)現(xiàn)了一方面是通過收發(fā)電子郵件為主的方式，與其它員工交流各種信息；員工管理個人日程安排。另一方面則是面向公司辦公業(yè)務(wù)方面的業(yè)務(wù)管理功能。即完全采用計(jì)算機(jī)技術(shù)處理辦公業(yè)務(wù)，使企業(yè)內(nèi)部人員能夠方便快捷地共享信息、交流信息，高效地協(xié)同工作，既兼顧個人辦公效率的提高，又可以實(shí)現(xiàn)群體協(xié)同工作。22 / 25第三代辦公自動化系統(tǒng)從傳統(tǒng)的面向業(yè)務(wù)流程向知識共享、協(xié)作學(xué)習(xí)發(fā)展，群件平臺技術(shù)和 Intra/Inter 技術(shù)的發(fā)展為第三代 OA 思想的實(shí)現(xiàn)提供了堅(jiān)強(qiáng)的基礎(chǔ)。本系統(tǒng)在遠(yuǎn)程學(xué)習(xí)，知識提煉方面還有待進(jìn)一步提高。參考文獻(xiàn)[1] 明日科技. Delphi 函數(shù)參考大全[M]. 北京：人民郵電出版社,2022。[2] 明日科技. Delphi 程序開發(fā)范例寶典[M]. 北京：人民郵電出版社,2022。[3] 伊文敏. Delphi+SQL 應(yīng)用實(shí)例解析[M]. 北京：人民郵電出版社,2022。 [4] 吳四九. 網(wǎng)絡(luò)數(shù)據(jù)庫開發(fā)及應(yīng)用[M]. 成都：四川大學(xué)出版社,2022。[5] 王晟,萬科. Delphi 數(shù) 據(jù) 庫 開 發(fā) 經(jīng) 典 案 例 解 析 [M]. 北京：清 華 大 學(xué) 出 版 社 ,2022。[6] 周興華,李增民,臧洪光. Delphi 7 數(shù) 據(jù) 庫 項(xiàng) 目 案 例 導(dǎo) [M].北京：清 華 大 學(xué) 出 版 社 ,2022。[7] 伊 文 敏 .Delphi+SQL Server 數(shù) 據(jù) 庫 應(yīng) 用 實(shí) 例 完 全 解 析 [M].北京：人 民 郵 電 出 版社 ,2022。[8] 李 云 祥 .Delphi 程 序 設(shè) 計(jì) 基 礎(chǔ) 教 程 [M].北京：電 子 工 業(yè) 出 版 社 ,2022。文檔來源：591 論文網(wǎng)