人事檔案管理系統(tǒng)設(shè)計與實現(xiàn)

《人事檔案管理系統(tǒng)設(shè)計與實現(xiàn)》由會員分享，可在線閱讀，更多相關(guān)《人事檔案管理系統(tǒng)設(shè)計與實現(xiàn)（39頁珍藏版）》請在裝配圖網(wǎng)上搜索。

1、摘摘 要要進(jìn)入 21 世紀(jì)，已經(jīng)步入了信息時代。單位的現(xiàn)代化管理也應(yīng)該與時俱進(jìn)。目前，企業(yè)的人事檔案管理系統(tǒng)信息化已經(jīng)越來越受到企業(yè)的重視。本項目立足于實習(xí)調(diào)查，嚴(yán)格按照學(xué)校畢設(shè)的規(guī)章制度，做到實事求是。本課題研究目的是，遵循科學(xué)管理,立足實際，開發(fā)出一個簡單實用，功能豐富的人事檔案管理系統(tǒng)。本系統(tǒng)有：用戶信息管理、人事檔案信息管理、數(shù)據(jù)庫管理、信息對接管理等等。系統(tǒng)管理：分為系統(tǒng)用戶和普通用戶，系統(tǒng)用戶可以添加、刪除、修改用戶信息，修改所有用戶的密碼；進(jìn)行數(shù)據(jù)庫管理。普通用戶則只能修改自己的密碼；部門管理：可以設(shè)置、修改部門信息；人事檔案管理：操作和查看員工信息，并且能夠?qū)崟r修改員工信息，并

2、且替換原有信息，將考勤結(jié)果錄入。工資管理：對員工的薪酬信息以及獎懲信息進(jìn)行核對和管理。數(shù)據(jù)庫管理：數(shù)據(jù)庫的備份和恢復(fù)工作。 關(guān)鍵詞：關(guān)鍵詞： 1、人事檔案； 2、人事檔案管理系統(tǒng)； 3、信息系統(tǒng)； 目目 錄錄一、緒 論 .4（一）開發(fā)人事檔案管理系統(tǒng)的背景 .4（二）采用的關(guān)鍵技術(shù) .4（三）開發(fā)工具及環(huán)境簡介 .5二、系統(tǒng)分析 .6（一）需求分析 .6（二）系統(tǒng)功能描述 .7三、系統(tǒng)設(shè)計 .8（一）開發(fā)設(shè)計思想 .8（二）系統(tǒng)總體設(shè)計 .8四、數(shù)據(jù)庫設(shè)計 .10（一）數(shù)據(jù)庫需求分析 .10（二） 數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計 .10（三） 數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計 .11五、系統(tǒng)詳細(xì)設(shè)計及實施 .15（一）

3、界面及編程風(fēng)格 .15（二）系統(tǒng)模塊功能實現(xiàn) .17六、系統(tǒng)測試 .26（一）測試策略 .27（二）功能測試 .27（三）性能測試 .28（四）界面測試 .28（五）測試結(jié)論 .28參考文獻(xiàn) .28致 謝 辭 .29附 錄 .30一、緒一、緒 論論（一）開發(fā)人事檔案管理系統(tǒng)的背景（一）開發(fā)人事檔案管理系統(tǒng)的背景1、企業(yè)信息系統(tǒng)發(fā)展現(xiàn)狀企業(yè)現(xiàn)代化建設(shè)的重點之一就是企業(yè)信息系統(tǒng)的建設(shè)工作。我國自改革開放以來在不同程度上都大力提倡企業(yè)的新系統(tǒng)建設(shè)。并且隨著我國信息技術(shù)的推廣，軟件公司的發(fā)展壯大，目前我國國內(nèi)已經(jīng)有數(shù)百家 ERP 軟件供應(yīng)商。 2、信息系統(tǒng)開發(fā)的緊迫性隨著電子信息技術(shù)的日益普及和推廣網(wǎng)

4、絡(luò)的數(shù)據(jù)庫應(yīng)用范圍越來越廣闊，因此人事檔案管理系統(tǒng)的開發(fā)則顯得更加重要。由于人事檔案管理系統(tǒng)能夠提高企業(yè)內(nèi)部管理效率，從而任何企業(yè)都必須進(jìn)行人事管理工作，因此開發(fā)人事檔案管理系統(tǒng)具有廣大的市場需求。人事檔案管理系統(tǒng)是信息系統(tǒng)與智能系統(tǒng)交叉的軟件系統(tǒng)。 （二）采用的關(guān)鍵技術(shù)（二）采用的關(guān)鍵技術(shù)1、軟件工程概要廣義的軟件生命周期主要有三個階段，分別為：軟件定義、軟件開發(fā)與軟件維護(hù)。本系統(tǒng)軟件生命周期中各個具體階段如下面表格所示：軟件生命周期注釋軟件定義確定軟件開發(fā)工程必須完成的總目標(biāo)；確定工程的可行性；研究實現(xiàn)工程目標(biāo)應(yīng)該采用的方法；估計完成工程需要的資源和成本；制定工程進(jìn)度表。軟件開發(fā)具體設(shè)計和

5、實現(xiàn)在問題定義時期定義的軟件。軟件開發(fā)時期通常進(jìn)一步劃分為總體設(shè)計、詳細(xì)設(shè)計、編碼與測試四個階段。軟件維護(hù)對軟件進(jìn)行深度優(yōu)化，方便客戶使用。2、軟件生命周期軟件周期不同階段內(nèi)，各個階段的基本任務(wù)以及結(jié)束標(biāo)準(zhǔn)如下：（1）問題定義：該階段基本任務(wù)為明確待解決問題，本階段結(jié)束后，得到有關(guān)性質(zhì)、項目目標(biāo)的報表。由于只有用戶才真正了解他們自己的需求，而許多用戶在開始時并不能準(zhǔn)確、具體地描述他們的需要。因此，系統(tǒng)分析員必須與用戶進(jìn)行足夠的溝通，直至得出一份雙方都滿意的文檔。（2）可行性分析：基本任務(wù)為尋求解決問題定義階段明確的問題方法，建立高層邏輯模型，并對系統(tǒng)進(jìn)行成效分析。（3）需求分析：該階段基本任務(wù)

6、是確定目標(biāo)系統(tǒng)功能。開發(fā)者在經(jīng)過詳細(xì)的調(diào)研獲得參考信息之后，確認(rèn)系統(tǒng)邏輯模型。本階段結(jié)束標(biāo)準(zhǔn)為：邏輯模型和算法描述。（4）總體設(shè)計：這一階段的基本任務(wù)是考慮如何解決系統(tǒng)分析時期提出的問題。本階段的成本方案依次排為低成本、中成本、高成本方案。通過對比確定最佳方案，并且制訂實現(xiàn)該方案的詳細(xì)計劃。（5）詳細(xì)設(shè)計：該階段的基本任務(wù)是，抽象問題具體化，復(fù)雜問題細(xì)化，設(shè)計出程序的詳細(xì)規(guī)格說明。（6）編碼測試：該階段的關(guān)鍵任務(wù)是確定程序模塊。（7）軟件維護(hù)：該階段關(guān)鍵任務(wù)是，通過維護(hù)使系統(tǒng)更好的滿足市場需要。通常包括 bug 修改、使用環(huán)境維護(hù)、完善性維護(hù)和預(yù)防性維護(hù)四類維護(hù)活動。進(jìn)行每一次維護(hù)的時候，都必

7、須嚴(yán)格按章程實施，即分析、提出方案、審核、確定計劃、修改設(shè)計、測試、查驗、推送等等步驟。（三）開發(fā)工具及環(huán)境簡介（三）開發(fā)工具及環(huán)境簡介1、 Delphi7.0 簡介Delphi 是 Borland 公司推出的基于真正面向?qū)ο笳Z言 Object Pascal 語言的可視化編程工具，是當(dāng)今世界上最快的編譯器。Delphi 作為開發(fā)平臺，很重要的一點就是提供了一個無所不包的應(yīng)用框架。Delphi 提供了 VCL，VCL 是用 Object Pascal 寫的。Object Pascal 幾乎是Inprise專用的，不必考慮標(biāo)準(zhǔn)問題，因此 Inprise 寫 VCL 時就把全部精力放在了結(jié)構(gòu)與性能上

8、，結(jié)果語言與框架的磨合程度非常好。VCL 框架的結(jié)構(gòu)清晰，VCL 代碼的可讀性非常好。2、 Microsoft ACCESS 2003 簡介Access 是一種關(guān)系數(shù)據(jù)庫開發(fā)工具，數(shù)據(jù)庫能匯集各種信息以供查詢、存儲和檢索。Access 是一種關(guān)系數(shù)據(jù)庫工具，在關(guān)系數(shù)據(jù)庫中，對數(shù)據(jù)的操作幾乎全部建立在一個或多個關(guān)系表格上，通過對這些關(guān)系表格的分類、合并、連接或選取等運算來實現(xiàn)數(shù)據(jù)的管理。這種數(shù)據(jù)庫是已開發(fā)的最通用的數(shù)據(jù)庫之一。綜上所述 Access 具備了關(guān)系型數(shù)據(jù)庫的一切功能，而且比其它的數(shù)據(jù)庫操作簡單便于掌握。因此 Access 強(qiáng)大的數(shù)據(jù)庫管理功能與 Delphi 7.0 方便靈活的開發(fā)非

9、常適合于開發(fā)中小型應(yīng)用系統(tǒng)軟件，所以本系統(tǒng)采用Delphi 7.0 企業(yè)版與 Access2003 在 Windows 平臺上進(jìn)行開發(fā)。二、系統(tǒng)分析二、系統(tǒng)分析（一）需求分析（一）需求分析每個企業(yè)都有自身的管理特點，以及每個員工都有它的特異性，因此，對軟件進(jìn)行開發(fā)的時候需要對信息進(jìn)行細(xì)致的分析，從而避免管理信息的混亂，因此在進(jìn)行系統(tǒng)開發(fā)前有必要對需求進(jìn)行分析。 1、系統(tǒng)開發(fā)目標(biāo)（1）以魏橋創(chuàng)業(yè)集團(tuán)有限公司的人事管理需求為背景，支持企業(yè)實現(xiàn)科學(xué)化、規(guī)范化的人事檔案管理。（2）高效進(jìn)行人事管理工作（建立、管理員工檔案，提高管理效率）（3）簡化管理層獲取信息途徑，推動企業(yè)的有效、規(guī)范的管理。優(yōu)化管理

10、層獲得人事信息途徑，方便決策。（4）提供友好的用戶操作界面，盡量減少用戶的錄入工作量。（5）提高信息管理速度和準(zhǔn)確性。（6）確保系統(tǒng)信息的安全性和可靠性，保護(hù)用戶的信息數(shù)據(jù)。2、 系統(tǒng)數(shù)據(jù)流圖本系統(tǒng)的數(shù)據(jù)流圖： D1 基本信息 D2 基本工資圖 2-1 人事檔案管理系統(tǒng)頂層數(shù)據(jù)流圖人力資源部財務(wù)部人事管理系統(tǒng)魏橋創(chuàng)業(yè)集團(tuán)人事部人事部P1人事檔案管理魏橋創(chuàng)業(yè)集團(tuán)人事部 D3 調(diào)動信息 D4 考勤信息 D2 工資表圖 2-2 人事檔案管理系統(tǒng)第一層數(shù)據(jù)流圖（二）系統(tǒng)功能描述（二）系統(tǒng)功能描述人事檔案管理系統(tǒng)的首要目的是實現(xiàn)對員工信息和檔案的管理。依據(jù)不同的需求實現(xiàn)系統(tǒng)不同的功能。具體功能分析如下：

11、1、基本功能描述（1）公司員工管理：包括基本信息、工作信息、合同信息、工作經(jīng)歷、家庭成員、考勤管理、教育培訓(xùn)、調(diào)動信息、獎懲信息等信息的錄入、修改、維護(hù)。（2）員工基本信息及工資信息的查詢：基本信息的查詢，主要有單人查詢和多人查詢兩種方式。（3）統(tǒng)計信息：系統(tǒng)可以根據(jù)部門、性別、學(xué)歷、年齡、職稱、入公司時間分別進(jìn)行統(tǒng)計并可以把統(tǒng)計信息輸出保存。（4）系統(tǒng)維護(hù)：管理員用戶和普通用戶的權(quán)限管理，以及對數(shù)據(jù)庫的維護(hù)等操作。（5）部門信息的管理：可以根據(jù)公司的實際需要隨時進(jìn)行部門和單位的信息維護(hù)。2、管理功能描述（1）人事檔案的添加、刪除、修改、打印功能首先要進(jìn)行人事檔案的信息錄入，并且對信息進(jìn)行分類

12、操作。在添加信息的同時應(yīng)該具有刪除和修改功能。可將管理的范圍縮小，從而大大提高管理效率。（2）查詢功能P2考勤管理財務(wù)部P3工資管理通過檢索界面輸入檢索條件，如果滿足，查詢的條件就可以從數(shù)據(jù)庫中調(diào)去員工的人事檔案信息。 （3）員工檔案信息的刪除功能一些企業(yè)的員工流動性比較大因此當(dāng)員工離職后需要對答案進(jìn)行一個刪除的操作。 （4）員工檔案信息的修改功能在對員工的信息進(jìn)行檢索之后可以調(diào)出該員工的人事檔案信息，并且有權(quán)限的人可以對該員工的信息進(jìn)行修改，如此同時氣化而該系統(tǒng)原有的員工信息。 （5）人事檔案信息的瀏覽功能實現(xiàn)瀏覽功能有兩種形式，一是通過首頁目錄鏈接瀏覽；另一種是通過報表的格式給出的，報表可

13、進(jìn)行打印，而且可以更具實際需要對打印的信息進(jìn)行選擇。三、系統(tǒng)設(shè)計三、系統(tǒng)設(shè)計（一）開發(fā)設(shè)計思想（一）開發(fā)設(shè)計思想?yún)⒖脊粳F(xiàn)有的軟硬件環(huán)境并且借鑒先進(jìn)的開發(fā)經(jīng)驗，充分利用公司現(xiàn)有的資源提高系統(tǒng)開發(fā)水平。并且要仔細(xì)研究公司的人事管理制度，對是的日常人事管理需要進(jìn)行詳細(xì)的了解。為了方便功能的組合實現(xiàn)和修改，在系統(tǒng)開發(fā)的過程中，應(yīng)當(dāng)盡量采用模塊化程序設(shè)計方法。（二）系統(tǒng)總體設(shè)計（二）系統(tǒng)總體設(shè)計通過需求分析，人事檔案管理系統(tǒng)主要具備五大主要功能：員工信息管理員工信息的查詢員工信息統(tǒng)計部門信息維護(hù)系統(tǒng)維護(hù)（包括數(shù)據(jù)庫管理）?，F(xiàn)在模塊化設(shè)計的思想收入開發(fā)者的內(nèi)心，并且模塊化設(shè)計方便小飾和維護(hù)，因此軟件開發(fā)

14、的通常采用模塊化的方法來對付復(fù)雜的難題。這種思想方法是將系統(tǒng)進(jìn)行分拆將單一的功能進(jìn)行模塊化組合從而，有一變多，分工細(xì)化，化繁為簡，有利于系統(tǒng)的穩(wěn)定性與可維護(hù)性。 系統(tǒng)功能模塊圖（如圖 3.1 所示）能夠更加方便的使用各模塊功能，加快熟悉業(yè)務(wù)操作流程，方便系統(tǒng)的推廣普及。圖 3-1 系統(tǒng)功能模塊圖 部門信息設(shè)置考勤信息管理部門信息修改部門信息添加調(diào)動調(diào)薪管理添加刪除用戶員工信息管理修改用戶密碼數(shù)據(jù)庫備份數(shù)據(jù)庫恢復(fù)工資報表生成工資報表打印人事管理系統(tǒng)部門管理系統(tǒng)管理數(shù)據(jù)庫管理人事管理工資管理四、數(shù)據(jù)庫設(shè)計四、數(shù)據(jù)庫設(shè)計（一）數(shù)據(jù)庫需求分析（一）數(shù)據(jù)庫需求分析數(shù)據(jù)庫的數(shù)據(jù)項主要包括一下幾個方面：項目

15、項目注釋員工基本信息工號、姓名、性別、年齡、生辰、住址、電話、學(xué)歷、身份證號、崗位、備注等。員工培訓(xùn)信息培訓(xùn)時間、培訓(xùn)機(jī)構(gòu)、培訓(xùn)內(nèi)容、所獲證書等考勤管理考勤的類型、考勤分?jǐn)?shù)、考勤原因、考勤部門、備注等工資管理工號、姓名、薪酬、獎懲信息、實發(fā)工資、日期人事變動部門單位管理管理員員工編號、員工姓名、基本工資、獎懲工資、獎懲分?jǐn)?shù)、實發(fā)工資、月份編號、名稱編號、用戶名、口令、是否是管理員、備注等。（二）（二） 數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計該階段以需求分析為基礎(chǔ)，這個階段可用的工具很多，用的最多的是 E-R 圖(Entity-Relation,實體-聯(lián)系圖)。也可以使用眾多的輔助設(shè)計工具進(jìn)行設(shè)計

16、。根據(jù)上面的設(shè)計,實體有：員工基本信息實體、員工考勤信息實體、員工調(diào)動調(diào)薪信息實體、員工工資信息實體、部門管理實體。實體與實體之間的 E-R 模型如圖 4-1 所示。 1 n m m n n m m n圖 4-1 系統(tǒng) E-R 圖（三）（三） 數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計概念結(jié)構(gòu)是獨立于實際數(shù)據(jù)模型的信息結(jié)構(gòu)，以需求為基礎(chǔ)，并且把需求抽象為 Access 數(shù)據(jù)庫系統(tǒng)所支持的實際數(shù)據(jù)模型本系統(tǒng)數(shù)據(jù)庫中各個表格的具體設(shè)計如下面表格所示：表 4-1 用戶表字段名稱字段類型字段大小是否必填是否允許空說明Id自動編號長整型是否Uid文本32是否Pwd文本32是是用戶密碼Sys是/否否否是否管理員

17、Des文本500否是備注部門單位屬于員工考勤信息管理調(diào)動調(diào)薪管理考勤信息調(diào)薪信息計算工資員工工資 字段名稱字段類型字段大小是否必填是否允許空說明Id自動編號長整型否Stano文本50是否員工編號Name文本50否否員工姓名Sex文本4否是性別Birth時間/日期否是生日Dep文本18否是部門Sdep文本18否是單位Sorts文本18否是工種Duty文本32否是職務(wù)Provi文本32否是省市Folk文本50否是民族Level文本12否是學(xué)歷Special文本32否是專業(yè)Cardno文本18否是身份證號Recno文本20否是檔案編號Politics文本12否是政治面貌Slevel文本50否是基本工

18、資Married文本8否是婚姻狀態(tài)Indate時間/日期常規(guī)日期否入公司時間Body文本8否是身體狀況Baryear文本8否是合同期限Barstart時間/日期常規(guī)日期否合同開始時間Barend時間/日期常規(guī)日期否合同結(jié)束時間Pcode文本8否是郵編Adress文本64否是家庭地址Image文本18否是照片Des文本250否是備注表 4-2 員工基本信息表字段名稱字段類型字段大小是否必填是否允許空說明Id自動編號長整型是否Sid數(shù)字長整型Sort文本6否否獎懲類型Topic文本90否否獎懲原因Dep文本18否否獎勵部門Mdate時間/日期常規(guī)時間否否獎勵時間Fendhu數(shù)字50否否獎勵分?jǐn)?shù)Mo

19、nth文本50否否獎勵月份Des文本250否否備注表 4-3 考勤信息表字段名稱字段類型字段大小是否必填是否允許空說明Id自動編號長整型Dep文本18否否部門Des文本90否否備注Ornum數(shù)字長整型序號Mdate日期/時間常規(guī)時間否時間表 4-4 部門表字段名稱字段類型字段大小是否必填是否允許空說明Id自動編號長整型Sid數(shù)字長整型Bfdept文本100否是調(diào)前部門Bhdep文本100否是調(diào)后部門Ddcase文本100否是調(diào)動原因Bfsdept文本100否是調(diào)前單位Bhsdept文本100否是調(diào)后單位Month文本100否是調(diào)動月份Bfzw文本100否是調(diào)前職務(wù)Bhzw文本100否是調(diào)后職務(wù)

20、Time時間/日期常規(guī)時間否調(diào)動時間Bfgz數(shù)字長整型否調(diào)前工資Bhgz數(shù)字長整型否調(diào)后工資Txcase文本100否是調(diào)薪原因Beizhu文本250否是備注表 4-5 調(diào)動調(diào)薪表字段名稱字段類型字段大小是否必填是否允許空說明Id自動編號長整型Sid數(shù)字長整型Name文本32否否成員姓名Fami文本32否否成員關(guān)系Tel文本90否是聯(lián)系電話Com文本32否是工作單位Des文本250否是備注表 4-6 家庭成員表字段名稱字段類型字段大小是否必填是否允許空說明Id自動編號長整型Sname文本32否否部門名稱Des文本250否是備注Iflag字節(jié)否標(biāo)記Mdate時間/日期常規(guī)時間否時間表 4-7 其他

21、信息表字段名稱字段類型字段大小是否必填是否允許空說明Id自動編號長整型Sid數(shù)字長整型Course文本90否否培訓(xùn)課程Dlimit文本32否否培訓(xùn)期限Sdate時間/日期常規(guī)時間否開始時間Edate時間/日期常規(guī)時間否結(jié)束時間Trcom文本32否是培訓(xùn)機(jī)構(gòu)Certi文本32否是所獲證書表 4-8 培訓(xùn)記錄表字段名稱字段類型字段大小是否必填是否允許空說明Id自動編號長整型Sid數(shù)字長整型Sdate日期/時間常規(guī)時間否開始時間Edate時間/日期常規(guī)時間否結(jié)束時間Company文本90否否公司Dep文本32否是部門Duty文本180否是職責(zé)Leftts文本180否是離職原因表 4-9 工作經(jīng)歷表字

22、段名稱字段類型字段大小是否必填是否允許空說明Id自動編號長整型Sid數(shù)字長整型Stano文本50否是員工編號Name文本50否是員工姓名Slevel文本50否是基本工資Fenshu文本50否是獎懲分?jǐn)?shù)Jcsalary文本50否是獎懲工資Sfsalary文本50否是實發(fā)工資Month文本50否是工資月份表 4-10 工資表字段名稱字段類型字段大小是否必填是否允許空說明Id自動編號長整型Sdept文本18否否單位Dep文本18否否部門Des文本90否否備注Ornum數(shù)字長整型序號Mdate日期/時間常規(guī)時間否時間表 4-11 單位表五、系統(tǒng)詳細(xì)設(shè)計及實施五、系統(tǒng)詳細(xì)設(shè)計及實施（一）界面及編程風(fēng)格（

23、一）界面及編程風(fēng)格程序設(shè)計風(fēng)格是程序設(shè)計時要考慮的一個重要問題，它是衡量軟件設(shè)計人員程序素養(yǎng)的主要標(biāo)志之一。程序的風(fēng)格與程序易讀性有關(guān)。如果程序設(shè)計人員養(yǎng)成一致的、良好的程序設(shè)計風(fēng)格，則彼此之間更易于理解和交流所編寫的程序。我們的人事管理信息系統(tǒng)采用了如下的編程規(guī)范。1、編程風(fēng)格（1）命名規(guī)范數(shù)據(jù)庫表的命名：以具有英語語義的單詞或單詞縮寫命名。數(shù)據(jù)庫中數(shù)據(jù)項的命名：依據(jù)數(shù)據(jù)項的英文或者其縮寫命名。PAS 文件的命名：以 u 作為前綴加相應(yīng)的英語單詞或縮寫命名。窗體文件的命名：以 frm 作為前綴加相應(yīng)的英語單詞或縮寫命名。（2）行文規(guī)范為保證程序的可讀性，對程序中的變量、語句做有效、適當(dāng)?shù)淖⑨?/p>

24、。盡量做到每行只寫一個語句，且避免過長的語句的出現(xiàn)。適當(dāng)?shù)倪\用縮進(jìn)和空格增強(qiáng)程序可讀性。（3）其他規(guī)范盡量避免程序中不必要的變量，避免冗余和重復(fù)。使用含義鮮明的變量名，保持命名的一致性。使用從超類中繼承的對象控件。2、界面風(fēng)格良好的用戶界面十分重要，為了使用戶原本枯燥煩瑣的工作變得輕松、簡便，本系統(tǒng)的界面以標(biāo)準(zhǔn)化、簡單化為目標(biāo)進(jìn)行設(shè)計。（1）根據(jù)用戶的使用習(xí)慣，合理設(shè)置菜單位置，便于用戶快速找到有用的信息。（2）界面以淺藍(lán)色（Green）作為背景色，文字使用黑色（Black）顯示。（3）在下拉菜單的基礎(chǔ)上增加圖標(biāo)按鈕（ICO）和快捷鍵。（4）查詢條件的輸入，盡量采用下拉框，減小信息錄入時的工作

25、量。3、編碼實例此為登錄模塊用戶判斷的實例代碼：procedure TfrmLogin.bbtnloginClick(Sender: TObject);var aqPer: TADOQuery;begin if edtuid.Text then begin aqPer := TADOQuery.Create(nil); aqPer.Connection := dmPer.acPer; aqPer.SQL.Text := select * from admin where uid= + QuotedStr(Trim(edtuid.Text) + ; aqPer.Open; if not aqPe

26、r.Eof then begin Dec(i); if aqPer.FieldByName(pwd).AsString = edtpwd.Text then begin sUserID := Trim(edtuid.Text); sUserPwd := edtpwd.Text; if aqPer.FieldByName(sys).AsBoolean then sysadmin := true else sysadmin := false; self.ModalResult := mrOk; end else begin if i = 0 then Close; MessageBox(self.

27、Handle, 密碼有誤,請重新輸入!, 提示, mb_IconWarning + mb_Ok); edtPwd.Clear; edtPwd.SetFocus; Exit; end end else begin MessageBox(self.Handle, 賬號不存在,請重新輸入!, 提示, mb_IconInformation + mb_Ok); edtUid.Clear; edtUid.SetFocus; Exit; end; end else begin MessageBox(self.Handle, 請輸入賬號!, 提示, mb_IconInformation + mb_Ok);ed

28、tUid.SetFocus; Exit; end;end;（二）系統(tǒng)模塊功能實現(xiàn)（二）系統(tǒng)模塊功能實現(xiàn)根據(jù)前期分析、設(shè)計，已經(jīng)基本完成人事檔案管理系統(tǒng)的編制，其程序的功能詳細(xì)介紹如下：1、用戶登錄模塊系統(tǒng)啟動，如圖 5.1 所示，此時雖然顯示了主界面但是在用戶登錄前主界面是不可編輯的只有用戶通過了登錄模塊的驗證才可以對主界面中的菜單進(jìn)行操作。在進(jìn)入系統(tǒng)之前，首先進(jìn)行安全性檢查，防范惡意盜取和破壞數(shù)據(jù)的行為，在確認(rèn)安全后，合法用戶才可以在順利登錄之后可進(jìn)入系統(tǒng)。圖 5-1 未登錄系統(tǒng)主界面登錄流程如圖 5-2 所示，其主要目的是身份識別。系統(tǒng)根據(jù)使用者提供的用戶名、口令進(jìn)行查詢鑒別，本系統(tǒng)不允許

29、空密碼，如果用戶名或密碼文本框中為空點擊登錄按鈕時會彈出不能為空的提示信息。對用戶名和密碼分別進(jìn)行判斷，如果用戶名在數(shù)據(jù)庫中不存在則提示用戶名不存在信息；只有存在該用戶時，才會進(jìn)行密碼的判別。為了增強(qiáng)系統(tǒng)安全性系統(tǒng)中設(shè)置了非法登錄次數(shù)的限制：同一個用戶名如果連續(xù)三次密碼輸入不正確則自動退出系統(tǒng)。經(jīng)過判斷如果用戶名和密碼均正確則激活系統(tǒng)主界面（如圖 5-3 所示） ，并且將操作人員信息導(dǎo)入系統(tǒng)主界面。如果用戶不能通過登錄模塊的驗證則只能看到系統(tǒng)主界面但是無法對主界面進(jìn)行操作。 N N Y Y圖 5-2 登錄流程2、系統(tǒng)主界面圖 4-3 是系統(tǒng)登錄成功后的窗口，一共展示了 7 個功能模塊，即系統(tǒng)管

30、理（用戶管理） 、員工信息管理、員工工資管理、設(shè)置（包括部門管理） 、數(shù)據(jù)庫管理。同時，在主界面中在標(biāo)題欄和狀態(tài)欄會顯示此登錄用戶的基本信息如用戶名、用戶類型；還可以顯示系統(tǒng)當(dāng)前時間并且時間是動態(tài)變化的。除此之外，用戶可以對標(biāo)題用戶登陸用戶名及密碼正確主界面激活非法用戶錯誤大于 3 次退出欄和狀態(tài)欄中顯示的系統(tǒng)的名稱在前臺進(jìn)行修改，系統(tǒng)主界面的背景圖案也可以根據(jù)用戶的個人需要進(jìn)行設(shè)置。圖 5-3 登錄后的主界面3、用戶管理模塊用戶管理主界面，只有管理員用戶才有進(jìn)入此操作界面。在這個界面中系統(tǒng)管理員用戶可以進(jìn)行相應(yīng)的操作如：編輯（修改用戶名稱、密碼或修改用戶權(quán)限） 、添加用戶、刪除用戶的操作；為

31、了能夠更好的滿足管理的需要，可以根據(jù)實際需要在備注信息中添加一些用戶的信息。這些只允許系統(tǒng)管理員操作而其它普通用戶沒有進(jìn)入此模塊的權(quán)限，也就沒法修改用戶信息，增強(qiáng)了系統(tǒng)安全性。4、 員工信息管理模塊員工信息管理模塊具體功能描述如下：（1）新員工基本信息的登記，已有員工基本信息更新，已有員工信息的刪除，已有員工信息的打印。用戶除了可以通過查詢按鈕進(jìn)行查詢外還可以通過“上一個”和“下一個”按鈕選擇員工的基本信息進(jìn)行查看，也可以在樹中單擊相應(yīng)的節(jié)點，員工的信息就會顯示在相應(yīng)的表單中。如圖 5-4 所示圖 5-4 員工基本信息（2）員工其它信息的維護(hù)，這部分主要包括員工工作經(jīng)歷（如圖 5-5 所示）

32、，家庭成員（圖 5-6） ，培訓(xùn)經(jīng)歷等信息的維護(hù)，在這部分中可以添加、刪除、更新、查詢打印工作經(jīng)歷和員工的家庭信息以使公司更全面的了解員工的社會關(guān)系。在這個窗體中除了設(shè)置了用來顯示信息的文本框外，還使用了 DBGridEH 控件，用來以表格的方式顯示相關(guān)信息，更加直觀明了。圖 4-5 員工工作經(jīng)歷圖 5-6 員工家庭成員（3）員工管理信息維護(hù)，主要包括兩方面的內(nèi)容：員工獎懲（如圖 5-7）和人事調(diào)動管理（如圖 5-8） ，其中獎懲記錄以加分或扣分的形式進(jìn)行管理，不同的獎懲類別獎懲分?jǐn)?shù)不相同，以此來對員工進(jìn)行獎懲管理。獎懲類別可以根據(jù)公司的實際需要進(jìn)行設(shè)置；人事調(diào)動管理包括正常的人事調(diào)動還伴隨著

33、員工基本工資的調(diào)整。同時，這部分也是員工工資報表生成的基礎(chǔ)。圖 5-7 獎懲記錄圖 5-8 人事調(diào)動（4）員工信息統(tǒng)計，為了公司能夠從多個角度了解公司的人力資源狀況，在這個窗體中可以根據(jù)部門、性別、年齡、職稱、進(jìn)入公司的時間對員工信息進(jìn)行統(tǒng)計，并且可以通過圖片按鈕把得到的統(tǒng)計圖輸出。圖 5-9 統(tǒng)計信息5、 員工工資信息模塊（1）工資結(jié)算：根據(jù)員工基本信息中的基本工資、獎懲管理中的獎懲分?jǐn)?shù)和人事調(diào)動中的調(diào)薪管理按月份來生成工資報表。圖 5-10 中的“基本金額”用來設(shè)置每一分對應(yīng)的金額，結(jié)合獎懲管理中的獎懲分?jǐn)?shù)來計算實發(fā)工資。計算公式為：實發(fā)工資=基本工資+基本金額*獎懲分?jǐn)?shù)圖 5-10 工資

34、結(jié)算（2）員工工資查詢：其主要功能是方便員工查詢自己的工資信息，信息以條目和表格兩種方式顯示，并且可以選擇月份，查詢指定月份的工資信息。圖 5-11中的員工編號、員工姓名、查詢月份三者缺一不可，否則會提示相應(yīng)的項不能為空。圖 5-11 工資查詢6、部門管理模塊主要是實現(xiàn)部門和單位的添加刪除更新等操作。圖 5-12 部門設(shè)置7、數(shù)據(jù)庫管理模塊為了減輕系統(tǒng)管理員管理系統(tǒng)的負(fù)擔(dān)還在前臺為管理員設(shè)置了數(shù)據(jù)庫的備份與恢復(fù)功能，可以自動執(zhí)行數(shù)據(jù)庫的備份與恢復(fù)，備份文件自動保存為 DataBakUP加系統(tǒng)時間的形式，即可以避免備份文件重名，又可以方便管理員查找；數(shù)據(jù)庫恢復(fù)界面中使用 ListView 控件顯

35、示所有的數(shù)據(jù)庫備份文件以備當(dāng)數(shù)據(jù)庫遭到破壞時將數(shù)據(jù)庫恢復(fù)到緊緊的狀態(tài)。在備份與恢復(fù)時還增加了進(jìn)度條，增強(qiáng)了可交互性，方便了管理員的操作。這個權(quán)限只有管理員用戶才有，一般用戶不允許對數(shù)據(jù)庫進(jìn)行操作。界面如圖 5-13 和 5-14 所示：圖 5-13 數(shù)據(jù)庫備份圖 5-14 數(shù)據(jù)庫恢復(fù)8、 系統(tǒng)其它功能簡介（1）員工信息查詢：如圖 5-15 和 5-16 所示，其主要功能是快速查詢某一個或某幾個員工的信息，本系統(tǒng)中的員工查詢又分為單人查詢和多人查詢單人查詢主要是根據(jù)員工編號或員工姓名查詢；多人查詢可以根據(jù)部門、性別、工種、學(xué)歷等信息進(jìn)行綜合查詢。圖 5-15 多人查詢（2）其它信息設(shè)置：如圖 5

36、-16 其主要功能是對系統(tǒng)中的工種、職位、民族、學(xué)歷、專業(yè)、考勤類別等信息進(jìn)行添加、更新、刪除等操作，管理員可以根據(jù)公司的發(fā)展對如圖所示的各種信息隨時進(jìn)行更新以適應(yīng)公司的實際情況。圖 5-16 其它信息設(shè)置員工信息打印設(shè)置：如圖 5-17 所示操作人員可以根據(jù)自己的需要選擇員工的各種信息進(jìn)行打印，選中對應(yīng)的復(fù)選框，就會得到對應(yīng)的信息。 圖 5-17 打印設(shè)置六、系統(tǒng)測試六、系統(tǒng)測試在系統(tǒng)開發(fā)過程中，我們基本按照規(guī)范化要求進(jìn)行，使得系統(tǒng)總的質(zhì)量比較高，用戶界面友好。軟件測試是極其重要的把關(guān)環(huán)節(jié)。但是，由于測試的依據(jù)是規(guī)格說明書、設(shè)計文檔和使用說明書，如果設(shè)計錯誤，測試的質(zhì)量就難以保證。在開發(fā)完成

37、之后發(fā)現(xiàn)錯誤，再進(jìn)行修改的代價非常大。因此軟件開發(fā)的過程中，需要在各個工程階段對軟件進(jìn)行測試，從而確保系統(tǒng)的穩(wěn)定性和可靠性。 本人在畢業(yè)設(shè)計過程中，對人事檔案管理系統(tǒng)進(jìn)行了測試。測試遵循了圖 6-1 中所示的步驟：.圖 6-1 測試步驟（一）測試策略（一）測試策略測試主要以黑盒法為主，首先確保測試系統(tǒng)的準(zhǔn)確性，其次確保測試系統(tǒng)的整體性。如果黑盒法測試的結(jié)果顯示有缺陷，那么再對相應(yīng)的程序段進(jìn)行白盒測試，主要以程序員自己檢查為主。（二）功能測試（二）功能測試?yán)矛F(xiàn)有數(shù)據(jù)庫，對下列功能做一系列測試：1、數(shù)據(jù)錄入錄入員工信息如：基本信息、職務(wù)信息、家庭成員、教育培訓(xùn)、工作經(jīng)歷、考性能測試功能測試界面測

38、試集成測試單元測試單元測試單元測試設(shè)計規(guī)約功能需求其它需求用戶需求勤信息、調(diào)動調(diào)薪信息、部門單位信息等等。2、根據(jù)錄入的員工信息進(jìn)行數(shù)據(jù)查詢及打印表格顯示，提供相關(guān)的數(shù)據(jù)進(jìn)行查詢，數(shù)據(jù)顯示結(jié)果正確。（三）性能測試（三）性能測試經(jīng)過多人在不同環(huán)境下測試，本系統(tǒng)檢索、刪除迅速、維護(hù)方便、成本低、效率高。（四）界面測試（四）界面測試1、菜單系統(tǒng)主要是使用文本菜單進(jìn)行操作，經(jīng)測試菜單設(shè)置合理、加入了快捷鍵使用方便、界面友好，符合人們的使用習(xí)慣。2、窗口對窗口的測試主要有以下幾點：1、窗口的正常開啟與關(guān)閉：出來窗口的關(guān)閉方法以外，多數(shù)情況下還提供了定義的“退出” 、 “關(guān)閉”或“取消”按鈕。2、窗口風(fēng)格

39、：窗口的顏色和操作方法基本一致，比較和諧、統(tǒng)一。3、提示信息系統(tǒng)的提示信息比較豐富、準(zhǔn)確，有警告信息、結(jié)果信息、提示信息等；并且在數(shù)據(jù)庫管理界面中，數(shù)據(jù)庫備份和恢復(fù)時有進(jìn)度條。在這些提示下，用戶可以比較容易、直觀的進(jìn)行操作。（五）測試結(jié)論（五）測試結(jié)論按照相應(yīng)的測試策略，分別測試了系統(tǒng)的功能，系統(tǒng)的性能和用戶界面。測試結(jié)果表明系統(tǒng)總的質(zhì)量比較高，基本能夠滿足用戶的需求，用戶界面也比較友好，各方面的效果良好。致致 謝謝緊張而忙碌的畢業(yè)設(shè)計就要結(jié)束了，在完成了系統(tǒng)的功能設(shè)計后，我感到由衷的喜悅和自豪。在我做畢業(yè)設(shè)計期間，學(xué)校的齊斯琴導(dǎo)師給了我很大的幫助，在此表示衷心的感謝。因為自己從事實際開發(fā)的經(jīng)

40、驗不足，從事軟件開發(fā)的朋友給我提出了許多寶貴的經(jīng)驗，并指導(dǎo)我進(jìn)行功能模塊的修改。最后，請允許我再一次向畢業(yè)設(shè)計期間幫助過我的齊老師，朋友表示最衷心的感謝。參考文獻(xiàn)參考文獻(xiàn)1 伍俊良編著.Delphi 應(yīng)用與開發(fā)教程M.北京：機(jī)械工業(yè)出版社，2004，52-85.2 李維著.Delphi 高校數(shù)據(jù)庫程序設(shè)計M.北京：機(jī)械工業(yè)出版社，2003，253-289.3 求是科技編著.Delphi 信息管理系統(tǒng)開發(fā)實例導(dǎo)航M.北京：人民郵電出版社，2005，67-95.4 李春葆,曾平編著.ACCESS 數(shù)據(jù)庫程序設(shè)計M.北京：清華大學(xué)出版社，2005，74-86.5 王晟,韓澤坤編著. ACCESS 數(shù)

41、據(jù)庫開發(fā)經(jīng)典案例解析M. 北京：清華大學(xué)出版，2006，132-153.6D.H.Howe.NEW ACCESS WORKBOOKM.HongKong Oxford university press,2004,152-178.7 CORNELL,G.,STRAIN,T. DELPHI7.0M.北京：科學(xué)出版社，20058 阮俊杰編著.軟件開發(fā)方法與管理教程M.北京：希望電子出版社，2002，98-106.9 Mcleod.Management Information SystemM.Printice Hall , 1998,20-50.10OBrien,James.A.Introduction

42、 to information systemsM.BeiJing:Higher Education Press,2002,35-87.11 McLeod, Raymond. Management information systemsM.北京:北京大學(xué)出版社,2002，356-392.12 陳明編著.軟件工程學(xué)教程M.北京：科學(xué)出版社，2002，168-187.附附 錄錄附錄 1 部分核心代碼unit umain;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Men

43、us, Jpeg, ExtCtrls, XPMenu, ComObj, ComCtrls, IniFiles, ImgList, ActnList, StdCtrlsTfrmBkData;type TfrmPer = class(TForm) mnuPer: TMainMenu; miSys: TMenuItem; miChgPwd: TMenuItem; miAdmin: TMenuItem; miLogin: TMenuItem; space01: TMenuItem; miExit: TMenuItem; tmrMain: TTimer; sbPer: TStatusBar; tmrTi

44、me: TTimer; miStaff: TMenuItem; miStaInfo: TMenuItem; miAdds: TMenuItem; miInqus: TMenuItem; miEdits: TMenuItem; miDels: TMenuItem; miSet: TMenuItem; miDep: TMenuItem; miAbout: TMenuItem; miBkData: TMenuItem; miData: TMenuItem; miReData: TMenuItem; miSetp: TMenuItem; imgMain: TImage; xmPer: TXPMenu;

45、 miSeto: TMenuItem; miOther: TMenuItem; ilPer: TImageList; N5: TMenuItem; N7: TMenuItem; N8: TMenuItem; N9: TMenuItem; procedure tmrMainTimer(Sender: TObject); procedure tmrTimeTimer(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormResize(Sender: TObject); procedure miChgpwdCli

46、ck(Sender: TObject); procedure miAdminClick(Sender: TObject); procedure miLoginClick(Sender: TObject); procedure miExitSystemClick(Sender: TObject); procedure miStaInfoClick(Sender: TObject); procedure miAddClick(Sender: TObject); procedure miEditClick(Sender: TObject); procedure miDelClick(Sender:

47、TObject); procedure miDepClick(Sender: TObject); procedure miOtherClick(Sender: TObject); procedure miSetClick(Sender: TObject); procedure miBackupClick(Sender: TObject); procedure miRestoreClick(Sender: TObject); procedure miAboutClick(Sender: TObject); procedure miInqusClick(Sender: TObject); proc

48、edure N7Click(Sender: TObject); procedure N8Click(Sender: TObject); procedure N9Click(Sender: TObject); private Private declarations procedure ActiveForm; public Public declarations end;var frmPer: TfrmPer;implementationuses ulogin, uchgpwd, uglobal, uadmin, ustainfo, ufind, udep, uabout, udata, use

49、t, uoinfo, uredata,uBkData,usalaryjs,uSalaryQuery,uSalaryPrint;$R *.dfmprocedure TfrmPer.FormCreate(Sender: TObject);var iFile: TIniFile;begin sPath := ExtractFilePath(Application.ExeName); iFile := TIniFile.Create(sPath + perset.ini); sTopic := iFile.ReadString(sTopic, topic, 人事檔案管理系統(tǒng)); bgstr := iF

50、ile.ReadString(sysbg, bground, main.jpg); iFile.Free; if sTopic = then sTopic := 人事檔案管理系統(tǒng); if (bgStr = ) or (not FileExists(sPath + bgStr) then bgStr := main.jpg; imgMain.Picture.LoadFromFile(sPath + bgStr); self.Caption := sTopic; Application.Title := sTopic; Application.ShowHint := true;/clLime(淺綠

51、),clYellow(黃色),clBlue(藍(lán)色),clFuchsia(紫紅),clAqua(青綠),clWhite(白色)。 默認(rèn)值: BackColor 為.clLime(淺綠),clYellow(黃色),clBlue(藍(lán)色),clFuchsia(紫紅),clAqua(青綠),clWhite(白色) Application.HintColor := clLime; self.Constraints.MaxWidth := 800; self.Constraints.MaxHeight := 600;end;procedure TfrmPer.tmrMainTimer(Sender: TOb

52、ject);var frmLogin: TfrmLogin;begin sbPer.Panels0.Text := 還沒有登錄; sbPer.Panels1.Text := sTopic; tmrMain.Enabled := false; frmLogin := TfrmLogin.Create(self); if frmLogin.ShowModal mrOk then Close; FreeAndNil(frmLogin); self.Caption := sTopic; self.Caption := self.Caption + 用戶： + sUserID; sbPer.Panels

53、0.Text := 用戶: + sUserID; if sysAdmin then begin self.Caption := self.Caption + -系統(tǒng)管理員; sbPer.Panels0.Text := sbPer.Panels0.Text + 您是系統(tǒng)管理員; end else sbPer.Panels0.Text := sbPer.Panels0.Text + 您是普通管理員;end;procedure TfrmPer.tmrTimeTimer(Sender: TObject);var wdStr: string;begin case DayOfWeek(Date() of

54、1: wdStr := 星期日; 2: wdStr := 星期一; 3: wdStr := 星期二; 4: wdStr := 星期三; 5: wdStr := 星期四; 6: wdStr := 星期五; 7: wdStr := 星期六; end; sbPer.Panels2.Text := FormatDateTime(yyyy 年 mm 月 dd 日 hh 時 nn 分 ss 秒, Now() + + wdStr + ;end;procedure TfrmPer.ActiveForm;begin /判斷 frmStainfo 窗體是否已經(jīng)在內(nèi)存中 Create，如果沒有就去創(chuàng)建 if not

55、 System.Assigned(frmStainfo) then frmStainfo := TfrmStainfo.Create(Application) else if frmStainfo.WindowState = wsMinimized then frmStainfo.WindowState := wsNormal;end;procedure TfrmPer.miChgpwdClick(Sender: TObject);var frmChgPwd: TfrmChgPwd;begin sbPer.Panels1.Text := 更新您的密碼; frmChgPwd := TfrmChg

56、Pwd.Create(self); if frmChgPwd.ShowModal = mrOk then MessageBox(self.Handle, 密碼更新成功!, 提示, mb_IconInformation + mb_Ok); FreeAndNil(frmChgPwd); /釋放資源 （可選） sbPer.Panels1.Text := sTopic;end;procedure TfrmPer.miAdminClick(Sender: TObject);var frmAdmin: TfrmAdmin;begin sbPer.Panels1.Text := 管理員管理-此為系統(tǒng)管理員權(quán)

57、限; if sysAdmin = true then begin frmAdmin := TfrmAdmin.Create(self); frmAdmin.Show; /或使用 frmAdmin.ShowModal /FreeAndNil(frmAdmin); （可選） end else MessageBox(handle, 您的權(quán)限不夠，請與管理員聯(lián)系!, 提示, mb_IconWarning + mb_Ok); sbPer.Panels1.Text := sTopic;end;procedure TfrmPer.miLoginClick(Sender: TObject);begin tmr

58、MainTimer(Sender);end;procedure TfrmPer.miExitSystemClick(Sender: TObject);begin sbPer.Panels1.Text := 退出系統(tǒng); if MessageBox(self.Handle, 確定要退出系統(tǒng)么?, 提示, mb_IconQuestion + mb_YesNo) = idYes then Close; sbPer.Panels1.Text := sTopic;end;procedure TfrmPer.miStaInfoClick(Sender: TObject);begin sbPer.Panels

59、1.Text := 員工檔案信息; frmStainfo:=TfrmStainfo.Create(self); frmStainfo.Show; /ActiveForm;end;procedure TfrmPer.miAddClick(Sender: TObject);begin sbPer.Panels1.Text := 檔案信息添加; frmStainfo:=TfrmStainfo.Create(self); frmStainfo.Show; /ActiveForm; /frmStaInfo.btnaddClick(Sender);end;procedure TfrmPer.miEditC

60、lick(Sender: TObject);begin sbPer.Panels1.Text := 檔案信息編輯; frmStainfo:=TfrmStainfo.Create(self); frmStainfo.Show; /ActiveForm; if frmStaInfo.tvper.selected.data nil then frmStaInfo.btneditClick(Sender) else MessageBox(self.Handle, 請先選擇記錄!, 提示, mb_IconInformation + mb_Ok); end;procedure TfrmPer.miDelC

61、lick(Sender: TObject);begin sbPer.Panels1.Text := 檔案信息刪除; frmStainfo:=TfrmStainfo.Create(self); frmStainfo.Show; /ActiveForm;end;procedure TfrmPer.miInqusClick(Sender: TObject);var frmFind: TfrmFind;begin ActiveForm; frmFind := TfrmFind.Create(self); frmFind.Show;end;procedure TfrmPer.miDepClick(Sen

62、der: TObject);var frmDep: TfrmDep;begin frmDep := TfrmDep.Create(self); frmDep.ShowModal; FreeAndNil(frmDep);end;begin sbPer.Panels1.Text := 管理員管理-此為系統(tǒng)管理員權(quán)限; if sysAdmin = true then begin frmDep := TfrmDep.Create(self); frmDep.Show; /或使用 frmAdmin.ShowModal /FreeAndNil(frmAdmin); （可選） end else Messag

63、eBox(handle, 您的權(quán)限不夠，請與管理員聯(lián)系!, 提示, mb_IconWarning + mb_Ok); sbPer.Panels1.Text := sTopic;end;procedure TfrmPer.miOtherClick(Sender: TObject);var frmOInfo: TfrmOInfo;begin frmOInfo := TfrmOInfo.Create(self); frmOInfo.ShowModal; FreeAndNil(frmOInfo);end;begin sbPer.Panels1.Text := 管理員管理-此為系統(tǒng)管理員權(quán)限; if s

64、ysAdmin = true then begin frmOInfo := TfrmOInfo.Create(self); frmOInfo.Show; /或使用 frmAdmin.ShowModal /FreeAndNil(frmAdmin); （可選） end else MessageBox(handle, 您的權(quán)限不夠，請與管理員聯(lián)系!, 提示, mb_IconWarning + mb_Ok); sbPer.Panels1.Text := sTopic;end;procedure TfrmPer.miSetClick(Sender: TObject);var frmSet: TfrmSe

65、t;begin frmSet := Tfrmset.Create(self); frmSet.ShowModal; FreeAndNil(frmSet);end; begin sbPer.Panels1.Text := 管理員管理-此為系統(tǒng)管理員權(quán)限; if sysAdmin = true then begin frmSet := TfrmSet.Create(self); frmSet.Show; /或使用 frmAdmin.ShowModal /FreeAndNil(frmAdmin); （可選） end else MessageBox(handle, 您的權(quán)限不夠，請與管理員聯(lián)系!, 提

66、示, mb_IconWarning + mb_Ok); sbPer.Panels1.Text := sTopic;end;procedure TfrmPer.miBackupClick(Sender: TObject);var frmBkData :TfrmBkData;begin frmBkData := TfrmBkData.Create(self); frmBkData.Show;end;begin sbPer.Panels1.Text := 管理員管理-此為系統(tǒng)管理員權(quán)限; if sysAdmin = true then begin frmBkData := TfrmBkData.Create(self); frmBkData.Show; /或使用 frmAdmin.ShowModal /FreeAndNil(frmAdmin); （可選） end else MessageBox(handle, 您的權(quán)限不夠，請與管理員聯(lián)系!, 提示, mb_IconWarning + mb_Ok); sbPer.Panels1.Text := sTopic;end;procedure Tfr