【正文】 lphi 建立的企業(yè)信息集成系統(tǒng)，完全符合系統(tǒng)對(duì)郵件與群件平臺(tái)的要求。應(yīng)用系統(tǒng)的推出與使用是投資得以回報(bào)的關(guān)鍵。這非常適應(yīng)辦公管理需求多變、繁雜的特點(diǎn)。最終用戶使用的郵件與群件應(yīng)用系統(tǒng)是一套統(tǒng)一的應(yīng)用系統(tǒng)，使用同一套應(yīng)用軟件。這種集成能力是在軟件平臺(tái)一級(jí)獲得的，而不是通過二次開發(fā)“強(qiáng)加”上去的。而且對(duì)最終用戶來說，不需要在幾個(gè)客戶端軟件或是應(yīng)用程序之間、幾個(gè)服務(wù)器系統(tǒng)或數(shù)據(jù)源之間來回切換。由于采用單一的軟件系統(tǒng)，所有的應(yīng)用開發(fā)都建立在統(tǒng)一的平臺(tái)之上，主要的維護(hù)工作集中在應(yīng)用管理一級(jí)，管理工作的難度與工作量大大降低。5 系統(tǒng)總體設(shè)計(jì)系統(tǒng)的總體設(shè)計(jì)大約要經(jīng)歷可行性分析和項(xiàng)目開發(fā)計(jì)劃，需求分析，概要設(shè)計(jì)，詳細(xì)設(shè)計(jì)，編碼，測(cè)試以及維護(hù)等七個(gè)階段。編碼過程將在下一節(jié)論述，而測(cè)試和維護(hù)過程不在本文敘及?，F(xiàn)在所要做的就是要把軟件“做什么”的邏輯模型變換為“怎么做”的物理模型，即著手實(shí)現(xiàn)軟件的需求。 系統(tǒng)結(jié)構(gòu)設(shè)計(jì)系統(tǒng)的概要設(shè)計(jì)中最重要的就是系統(tǒng)的模塊化。每個(gè)模塊完成一個(gè)特定的功能，所有的模塊按某種方法組織起來，成為一個(gè)整體，完成整個(gè)系統(tǒng)10 / 25所要求的功能。也就是說，每個(gè)模塊只完成系統(tǒng)要求的獨(dú)立的子功能，并且與其他模塊的聯(lián)系最少且接口簡(jiǎn)單，即盡量做到高內(nèi)聚低耦合，提高模塊的獨(dú)立性，為設(shè)計(jì)高質(zhì)量的軟件結(jié)構(gòu)奠定基礎(chǔ)。然后，進(jìn)一步細(xì)分模塊，添加細(xì)節(jié)。 數(shù)據(jù)庫設(shè)計(jì)在信息世界中，信息從客觀事物出發(fā)流經(jīng)數(shù)據(jù)庫，通過決策機(jī)構(gòu)最后又回到客觀世界，信息的這一循環(huán)經(jīng)歷了三個(gè)領(lǐng)域：信息世界，數(shù)據(jù)世界，現(xiàn)實(shí)世界。這些信息再進(jìn)一步加工、編碼，然后進(jìn)數(shù)據(jù)世界，而軟件系統(tǒng)的開發(fā)工作需要考慮這兩個(gè)方面的問題，也就是要考慮系統(tǒng)開發(fā)所需要的數(shù)據(jù)，以及如何對(duì)這些數(shù)據(jù)進(jìn)行操作。數(shù)據(jù)庫結(jié)構(gòu)設(shè)計(jì)中，需要具備 MIS 系統(tǒng)中的常規(guī)模塊，比如用戶管理、權(quán)限管理等等；同時(shí)，數(shù)據(jù)庫設(shè)計(jì)還要明確表現(xiàn)出 RBAC 的理論，所以本部分是整個(gè)設(shè)計(jì)方案的一個(gè)重要環(huán)節(jié)。良好的數(shù)據(jù)庫結(jié)構(gòu)設(shè)計(jì)本身就可以表述 RBAC 的要求。RBAC 對(duì)數(shù)據(jù)庫結(jié)構(gòu)的要求有以下三點(diǎn)：便于擴(kuò)展應(yīng)用規(guī)模和附加業(yè)務(wù)功能。2) 便于管理變動(dòng)，減小管理工具設(shè)計(jì)難度。一個(gè)系統(tǒng) RBAC，所需要涉及的數(shù)據(jù)庫主要有：用戶數(shù)據(jù)庫，角色信息庫，11 / 25用戶/角色信息庫，權(quán)限信息庫，角色/權(quán)限信息庫。用戶表保存用戶基本信息，如姓名，電話等。用戶信息表格式如表 1所示。角色信息庫/角色表格式如表 2 所示。Pre_role 參考了表中的 Role_Name 主鍵，即：Pre_role 要么取值為 Role_Name 主鍵列中的一個(gè)值，要么為空值 null。Description：變長度字符串，用于對(duì)角色的功能做語言描述以便于查看。對(duì)于一個(gè)特定的應(yīng)用來說是最基層的信息，為了使權(quán)限信息庫的信息與角色/權(quán)限信息庫中的權(quán)限含義保持一致，權(quán)限信息庫定義要盡可能詳細(xì)完備，在定義完畢之后要盡量減少改動(dòng)，但可以根據(jù)業(yè)務(wù)功能擴(kuò)展的需要隨意添加。表 3 權(quán)限信息表列名 數(shù)據(jù)類型 長度 允許空12 / 25PermissionID int 20 ObjectName varchar 20 否由于權(quán)限信息庫中對(duì)權(quán)限的描述的 ObjectName 項(xiàng)是字符串類型變量，因此所描述的權(quán)限即可以是針對(duì)具體的系統(tǒng)資源，可以根據(jù)業(yè)務(wù)邏輯需要而靈活定義。實(shí)際上該表中保存的是一個(gè)角色定義的所有的權(quán)限。表 4 角色/權(quán)限信息表列名 數(shù)據(jù)類型 長度 允許空Role_Name varchar 20 PermissionID int 20外鍵 Role_Name 和 PermissionID 參考 Rolesk 表和 Permissionsk 表中的同名列，使這三個(gè)表的數(shù)據(jù)項(xiàng)保持一致性、完整性。例如：當(dāng)某個(gè)角色被刪除時(shí)，角色/權(quán)限關(guān)系表中與該角色相對(duì)應(yīng)的角色/權(quán)限元組全部被刪除。用戶/角色信息表格式如表 5 所示。f) 考勤記錄表考勤記錄表主要用于記錄個(gè)人考勤情況。表 6 考勤記錄表列名 數(shù)據(jù)類型 長度 允許空Name int 20 否 Date datetime 8 否Record varchar 200d) 通知表通知表是用來記錄發(fā)送的通知，以備查詢。表 7 公文表列名 數(shù)據(jù)類型 長度 允許空Name int 20 否Date datetime 8 否Coment varchar 200 系統(tǒng)詳細(xì)設(shè)計(jì)在前面的概要設(shè)計(jì)中，已將系統(tǒng)劃分為多個(gè)模塊，并將它們按照一定的原則組裝起來，同時(shí)確定了每個(gè)功能及模塊之間的外部接口。此詳細(xì)設(shè)計(jì)的結(jié)果基本決定了最終程序的質(zhì)量。詳細(xì)設(shè)計(jì)的目標(biāo)不僅是邏輯上正確地實(shí)現(xiàn)每個(gè)模塊的功能，還應(yīng)使設(shè)計(jì)出的處理過程清晰易讀。系統(tǒng)總體設(shè)計(jì)的好壞直接影響著下一步工作，只有在這一階段設(shè)計(jì)出好的模塊圖和程序流程圖，才能更有利于編碼，產(chǎn)生好的軟件系統(tǒng)。系統(tǒng)管理又有操作員管理和修改密碼模塊。如果為每一個(gè)組件或者窗體都設(shè)置一個(gè)數(shù)據(jù)源將是十分耗時(shí)的工件，而且要保證這些數(shù)據(jù)源的確是相同的也需花一番功夫。簡(jiǎn)單說來，數(shù)據(jù)模塊是用來集中管理數(shù)據(jù)源的一個(gè)窗體，該窗體可被需要的地方隨時(shí)引入。值得一提的是，設(shè)置了數(shù)據(jù)庫 Database 組件，該組件引入了系統(tǒng)所需的唯一的數(shù)據(jù)庫 tsxs，Database 組件的 DatabaseName 屬性設(shè)置為tsckgl。其他的數(shù)據(jù)存取組件都是基于此數(shù)據(jù)庫組件創(chuàng)建的，這樣做的好處是，當(dāng)數(shù)據(jù)庫的別名或者其他信息改變之后，只需修改 Tdatabase 組件的 AliasName 屬性即可。在 Delphi 的學(xué)習(xí)過程中增加了對(duì) ADO 組件了解，使用也較 BDE 更為熟練，而且 ADO 組件的功能也較 BDE 更為強(qiáng)大，所以在這里大多采用 ADO 組件來進(jìn)行數(shù)據(jù)庫聯(lián)接。 主要功能模塊的實(shí)現(xiàn) 登錄模塊登錄模塊的主要功能是驗(yàn)證用戶名及密碼正確性，以及判定用戶的權(quán)限既區(qū)別管理員與一般用戶。 //取用戶輸入的用戶名strpassword:=。39。39。(39。39。+strUserID+39。39。39。+strpassword+39。39。)。if isempty then //查詢結(jié)果記錄集為空 showmessage(39。39。 //密碼。:=39。 //清空編輯框:=39。end。 //關(guān)閉數(shù)據(jù)集 ADODataSet1end。姓名、密碼不能為空。)。procedure (Sender: TObject)。 //點(diǎn)出按紐推出。登錄效果圖：圖 2 系統(tǒng)登錄圖 系統(tǒng)主頁面系統(tǒng)主界面是整個(gè) OA 系統(tǒng)的核心，通過前面的登錄驗(yàn)證，他將向不同的用戶開放不同的功能，系統(tǒng)主頁面代碼如下：procedur cdk:= []。(39。+39。39。 + strUserID+ 39。39。 + 39。)。PermissionID39。If 1 in cdk then:= trueelse:= false。在這一模塊，用戶可以通過輸入 IP 地址的方式與任何用戶進(jìn)行交流，其主要代碼如下：if(key=13)and(39。)then begin :=Status_Basic。 if []=puterName then :=ComputerName+39。+ else :=ComputerName+39。+[]+39。+。 MyStream:=。 if =0 then begin for i:=1 to do begin :=[i]。 begin :=[]。 end。 end。39。 end else 。圖 4 內(nèi)部通信 發(fā)送通知發(fā)送通知模塊為管理員使用的模塊，通過這一模塊，可以將信息迅速傳遞個(gè)沒一個(gè)人。ConnectFlag:=False。if Length() 0 thenbegin Host:= 。 end。 end。begin if ConnectFlag then () else showmessage(39。)。 。對(duì)普通用戶進(jìn)行時(shí)時(shí)控制。 Button: TNavigateBtn)。確實(shí)要?jiǎng)h除這行數(shù)據(jù)么？39。確認(rèn)39。 if Button=nbinsert then if (39。,39。,MB_YESNO)=IDNO THEN aBORT。確實(shí)要修改數(shù)據(jù)？39。確認(rèn)39。 if Button=nbPost then if (39。,39。,MB_YESNO)=IDNO THEN aBORT。確實(shí)要取消修改？39。確認(rèn)39。 數(shù)據(jù)組模塊數(shù)據(jù)組模塊代碼如下： Tdm = class(TDataModule) ADOConnection1： TADOConnection。 Cx:TADOQuery。 private { Private declarations } public { Public declarations } end。 IsManager:boolean。需要改變了數(shù)據(jù)庫語句的書寫，使系統(tǒng)與數(shù)據(jù)庫建立的連接更可靠。2) 程序外觀設(shè)計(jì)不太好，從而使整個(gè)系統(tǒng)外觀感覺不好，需要進(jìn)一步對(duì)程序觀方面需要進(jìn)一步改進(jìn)，使界面更加友好，使使用者感到系統(tǒng)的舒適性。結(jié) 論本文研究了一套完整的辦公自動(dòng)化管理系統(tǒng)的規(guī)劃方法和規(guī)劃策略，闡述了模塊的劃分、各功能模塊的設(shè)計(jì)方法和用到的關(guān)鍵技術(shù)。另一方面則是面向公司辦公業(yè)務(wù)方面的業(yè)務(wù)管理功能。22 / 25第三代辦公自動(dòng)化系統(tǒng)從傳統(tǒng)的面向業(yè)務(wù)流程向知識(shí)共享、協(xié)作學(xué)習(xí)發(fā)展，群件平臺(tái)技術(shù)和 Intra/Inter 技術(shù)的發(fā)展為第三代 OA 思想的實(shí)現(xiàn)提供了堅(jiān)強(qiáng)的基礎(chǔ)。參考文獻(xiàn)[1] 明日科技. Delphi 函數(shù)參考大全[M]. 北京：人民郵電出版社,2022。[3] 伊文敏. Delphi+SQL 應(yīng)用實(shí)例解析[M]. 北京：人民郵電出版社,2022。[5] 王晟,萬科. Delphi 數(shù) 據(jù) 庫 開 發(fā) 經(jīng) 典 案 例 解 析 [M]. 北京：清 華 大 學(xué) 出 版 社 ,2022。[7] 伊 文 敏 .Delphi+SQL Server 數(shù) 據(jù) 庫 應(yīng) 用 實(shí) 例 完 全 解 析 [M].北京：人 民 郵 電 出 版社 ,2022。文檔來源：591 論文網(wǎng)