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

摘要進(jìn)入21世紀(jì)，已經(jīng)步入了信息時(shí)代。單位的現(xiàn)代化管理也應(yīng)該與時(shí)俱進(jìn)。目前,企業(yè)的人事檔案管理系統(tǒng)信息化已經(jīng)越來(lái)越受到企業(yè)的重視。本項(xiàng)目立足于實(shí)習(xí)調(diào)查，嚴(yán)格按照學(xué)校畢設(shè)的規(guī)章制度，做到實(shí)事求是。本課題研究目的是，遵循科學(xué)管理，立足實(shí)際，開(kāi)發(fā)出一個(gè)簡(jiǎn)單實(shí)用，功能豐富的人事檔案管理系統(tǒng)。本系統(tǒng)有：用戶信息管理、人事檔案信息管理、數(shù)據(jù)庫(kù)管理、信息對(duì)接管理等等。系統(tǒng)管理：分為系統(tǒng)用戶和普通用戶，系統(tǒng)用戶可以添加、刪除、修改用戶信息，修改所有用戶的密碼；進(jìn)行數(shù)據(jù)庫(kù)管理。普通用戶則只能修改自己的密碼；部門管理：可以設(shè)置、修改部門信息；人事檔案管理：操作和查看員工信息，并且能夠?qū)崟r(shí)修改員工信息，并且替換原有信息，將考勤結(jié)果錄入。工資管理：對(duì)員工的薪酬信息以及獎(jiǎng)懲信息進(jìn)行核對(duì)和管理。數(shù)據(jù)庫(kù)管理：數(shù)據(jù)庫(kù)的備份和恢復(fù)工作。關(guān)鍵詞：1、人事檔案；2、人事檔案管理系統(tǒng)；3、信息系統(tǒng);TOC\o"1-5"\h\z\o"CurrentDocument"一、緒論 4（一）開(kāi)發(fā)人事檔案管理系統(tǒng)的背景 4（二）采用的關(guān)鍵技術(shù) 4（三）開(kāi)發(fā)工具及環(huán)境簡(jiǎn)介 5\o"CurrentDocument"二、系統(tǒng)分析 6（一）需求分析 6（二）系統(tǒng)功能描述 7\o"CurrentDocument"三、系統(tǒng)設(shè)計(jì) 8（一）開(kāi)發(fā)設(shè)計(jì)思想 8（二）系統(tǒng)總體設(shè)計(jì) 8\o"CurrentDocument"四、數(shù)據(jù)庫(kù)設(shè)計(jì) 10（一）數(shù)據(jù)庫(kù)需求分析 10（二）數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì) 10（三）數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì) 11\o"CurrentDocument"五、系統(tǒng)詳細(xì)設(shè)計(jì)及實(shí)施 15（一）界面及編程風(fēng)格 15（二）系統(tǒng)模塊功能實(shí)現(xiàn) 17\o"CurrentDocument"六、系統(tǒng)測(cè)試 26（一）測(cè)試策略 27（二）功能測(cè)試 27（三）性能測(cè)試 28（四）界面測(cè)試 28（五）測(cè)試結(jié)論 28\o"CurrentDocument"參考文獻(xiàn) 28致謝辭 29附錄 30一、緒論（一）開(kāi)發(fā)人事檔案管理系統(tǒng)的背景1、企業(yè)信息系統(tǒng)發(fā)展現(xiàn)狀企業(yè)現(xiàn)代化建設(shè)的重點(diǎn)之一就是企業(yè)信息系統(tǒng)的建設(shè)工作。我國(guó)自改革開(kāi)放以來(lái)在不同程度上都大力提倡企業(yè)的新系統(tǒng)建設(shè)。并且隨著我國(guó)信息技術(shù)的推廣，軟件公司的發(fā)展壯大，目前我國(guó)國(guó)內(nèi)已經(jīng)有數(shù)百家ERP軟件供應(yīng)商。2、信息系統(tǒng)開(kāi)發(fā)的緊迫性隨著電子信息技術(shù)的日益普及和推廣網(wǎng)絡(luò)的數(shù)據(jù)庫(kù)應(yīng)用范圍越來(lái)越廣闊，因此人事檔案管理系統(tǒng)的開(kāi)發(fā)則顯得更加重要。由于人事檔案管理系統(tǒng)能夠提高企業(yè)內(nèi)部管理效率，從而任何企業(yè)都必須進(jìn)行人事管理工作，因此開(kāi)發(fā)人事檔案管理系統(tǒng)具有廣大的市場(chǎng)需求。人事檔案管理系統(tǒng)是信息系統(tǒng)與智能系統(tǒng)交義的軟件系統(tǒng)。（二）采用的關(guān)鍵技術(shù)1、軟件工程概要廣義的軟件生命周期主要有三個(gè)階段，分別為：軟件定義、軟件開(kāi)發(fā)與軟件維護(hù)。本系統(tǒng)軟件生命周期中各個(gè)具體階段如下面表格所示：軟件生命周期注釋軟件定義確定軟件開(kāi)發(fā)工程必須完成的總目標(biāo)；確定工程的軟件開(kāi)發(fā)可行性；研究實(shí)現(xiàn)工程目標(biāo)應(yīng)該采用的方法；估計(jì)完成工程需要的資源和成本；制定工程進(jìn)度表。具體設(shè)計(jì)和實(shí)現(xiàn)在問(wèn)題定義時(shí)期定義的軟件。軟件軟件維護(hù)開(kāi)發(fā)時(shí)期通常進(jìn)一步劃分為總體設(shè)計(jì)、詳細(xì)設(shè)計(jì)、與測(cè)試四個(gè)階段。對(duì)軟件進(jìn)行深度優(yōu)化，方便客戶使用。編碼2、軟件生命周期軟件周期不同階段內(nèi)，各個(gè)階段的基本任務(wù)以及結(jié)束標(biāo)準(zhǔn)如下：（1）問(wèn)題定義：該階段基本任務(wù)為明確待解決問(wèn)題，本階段結(jié)束后，得到有關(guān)性質(zhì)、項(xiàng)目目標(biāo)的報(bào)表。由于只有用戶才真正了解他們自己的需求，而許多用戶在開(kāi)始時(shí)并不能準(zhǔn)確、具體地描述他們的需要。因此，系統(tǒng)分析員必須與用戶進(jìn)行足夠的溝通，直至得出一份雙方都滿意的文檔。（2）可行性分析：基本任務(wù)為尋求解決問(wèn)題定義階段明確的問(wèn)題方法，建立高層邏輯模型，并對(duì)系統(tǒng)進(jìn)行成效分析。（3）需求分析：該階段基本任務(wù)是確定目標(biāo)系統(tǒng)功能。開(kāi)發(fā)者在經(jīng)過(guò)詳細(xì)的調(diào)研獲得參考信息之后，確認(rèn)系統(tǒng)邏輯模型。本階段結(jié)束標(biāo)準(zhǔn)為：邏輯模型和算法描述。（4）總體設(shè)計(jì)：這一階段的基本任務(wù)是考慮如何解決系統(tǒng)分析時(shí)期提出的問(wèn)題。本階段的成本方案依次排為低成本、中成本、高成本方案。通過(guò)對(duì)比確定最佳方案,并且制訂實(shí)現(xiàn)該方案的詳細(xì)計(jì)劃。（5）詳細(xì)設(shè)計(jì)：該階段的基本任務(wù)是，抽象問(wèn)題具體化，復(fù)雜問(wèn)題細(xì)化，設(shè)計(jì)出程序的詳細(xì)規(guī)格說(shuō)明。（6）編碼測(cè)試：該階段的關(guān)鍵任務(wù)是確定程序模塊。（7）軟件維護(hù)：該階段關(guān)鍵任務(wù)是，通過(guò)維護(hù)使系統(tǒng)更好的滿足市場(chǎng)需要。通常包括bug修改、使用環(huán)境維護(hù)、完善性維護(hù)和預(yù)防性維護(hù)四類維護(hù)活動(dòng)。進(jìn)行每一次維護(hù)的時(shí)候，都必須嚴(yán)格按章程實(shí)施，即分析、提出方案、審核、確定計(jì)劃、修改設(shè)計(jì)、測(cè)試、查驗(yàn)、推送等等步驟。（三）開(kāi)發(fā)工具及環(huán)境簡(jiǎn)介Delphi7.0簡(jiǎn)介Delphi是Borland公司推出的基于真正面向?qū)ο笳Z(yǔ)言O(shè)bjectPascal語(yǔ)言的可視化編程工具，是當(dāng)今世界上最快的編譯器。Delphi作為開(kāi)發(fā)平臺(tái)，很重要的一點(diǎn)就是提供了一個(gè)“無(wú)所不包”的應(yīng)用框架。Delphi提供了VCL,VCL是用ObjectPascal寫(xiě)的。ObjectPascal幾乎是Inprise”專用”的，不必考慮“標(biāo)準(zhǔn)”問(wèn)題，因此Inprise寫(xiě)VCL時(shí)就把全部精力放在了結(jié)構(gòu)與性能上，結(jié)果語(yǔ)言與框架的磨合程度非常好。VCL框架的結(jié)構(gòu)清晰，VCL代碼的可讀性非常好。MicrosoftACCESS2003簡(jiǎn)介Access是一種關(guān)系數(shù)據(jù)庫(kù)開(kāi)發(fā)工具，數(shù)據(jù)庫(kù)能匯集各種信息以供查詢、存儲(chǔ)和檢索。Access是一種關(guān)系數(shù)據(jù)庫(kù)工具，在關(guān)系數(shù)據(jù)庫(kù)中，對(duì)數(shù)據(jù)的操作幾乎全部建立在一個(gè)或多個(gè)關(guān)系表格上，通過(guò)對(duì)這些關(guān)系表格的分類、合并、連接或選取等運(yùn)算來(lái)實(shí)現(xiàn)數(shù)據(jù)的管理。這種數(shù)據(jù)庫(kù)是已開(kāi)發(fā)的最通用的數(shù)據(jù)庫(kù)之一。綜上所述Access具備了關(guān)系型數(shù)據(jù)庫(kù)的一切功能，而且比其它的數(shù)據(jù)庫(kù)操作簡(jiǎn)單便于掌握。因此Access強(qiáng)大的數(shù)據(jù)庫(kù)管理功能與Delphi7.0方便靈活的開(kāi)發(fā)非常適合于開(kāi)發(fā)中小型應(yīng)用系統(tǒng)軟件，所以本系統(tǒng)采用Delphi7.0企業(yè)版與Access2003在Windows平臺(tái)上進(jìn)行開(kāi)發(fā)。二、系統(tǒng)分析（一）需求分析每個(gè)企業(yè)都有自身的管理特點(diǎn)，以及每個(gè)員工都有它的特異性，因此，對(duì)軟件進(jìn)行開(kāi)發(fā)的時(shí)候需要對(duì)信息進(jìn)行細(xì)致的分析，從而避免管理信息的混亂，因此在進(jìn)行系統(tǒng)開(kāi)發(fā)前有必要對(duì)需求進(jìn)行分析。系統(tǒng)開(kāi)發(fā)目標(biāo)（1）以魏橋創(chuàng)業(yè)集團(tuán)有限公司的人事管理需求為背景，支持企業(yè)實(shí)現(xiàn)科學(xué)化、規(guī)范化的人事檔案管理。（2）高效進(jìn)行人事管理，作（建立、管理員工檔案，提高管理效率）（3）簡(jiǎn)化管理層獲取信息途徑，推動(dòng)企業(yè)的有效、規(guī)范的管理。優(yōu)化管理層獲得人事信息途徑，方便決策。（4）提供友好的用戶操作界面，盡量減少用戶的錄入工作量。（5）提高信息管理速度和準(zhǔn)確性。（6）確保系統(tǒng)信息的安全性和可靠性，保護(hù)用戶的信息數(shù)據(jù)。2、系統(tǒng)數(shù)據(jù)流圖圖2-1人事檔案管理系統(tǒng)頂層數(shù)據(jù)流圖>D3調(diào)動(dòng)信息圖2-2人事檔案管理系統(tǒng)第一層數(shù)據(jù)流圖（二）系統(tǒng)功能描述人事檔案管理系統(tǒng)的首要目的是實(shí)現(xiàn)對(duì)員工信息和檔案的管理。依據(jù)不同的需求實(shí)現(xiàn)系統(tǒng)不同的功能。具體功能分析如下：1、基本功能描述（1）公司員工管理：包括基本信息、工作信息、合同信息、工作經(jīng)歷、家庭成員、考勤管理、教育培訓(xùn)、調(diào)動(dòng)信息、獎(jiǎng)懲信息等信息的錄入、修改、維護(hù)。（2）員工基本信息及工資信息的查詢：基本信息的查詢，主要有單人查詢和多人查詢兩種方式。（3）統(tǒng)計(jì)信息：系統(tǒng)可以根據(jù)部門、性別、學(xué)歷、年齡、職稱、入公司時(shí)間分別進(jìn)行統(tǒng)計(jì)并可以把統(tǒng)計(jì)信息輸出保存。（4）系統(tǒng)維護(hù)：管理員用戶和普通用戶的權(quán)限管理，以及對(duì)數(shù)據(jù)庫(kù)的維護(hù)等操作。（5）部門信息的管理：可以根據(jù)公司的實(shí)際需要隨時(shí)進(jìn)行部門和單位的信息維護(hù)。2、管理功能描述（1）人事檔案的添加、刪除、修改、打印功能首先要進(jìn)行人事檔案的信息錄入，并且對(duì)信息進(jìn)行分類操作。在添加信息的同時(shí)應(yīng)該具有刪除和修改功能?？蓪⒐芾淼姆秶s小，從而大大提高管理效率。（2）查詢功能通過(guò)檢索界面輸入檢索條件，如果滿足，查詢的條件就可以從數(shù)據(jù)庫(kù)中調(diào)去員工的人事檔案信息。（3）員工檔案信息的刪除功能一些企業(yè)的員工流動(dòng)性比較大因此當(dāng)員工離職后需要對(duì)答案進(jìn)行一個(gè)刪除的操作。（4）員工檔案信息的修改功能在對(duì)員工的信息進(jìn)行檢索之后可以調(diào)出該員工的人事檔案信息，并且有權(quán)限的人可以對(duì)該員工的信息進(jìn)行修改，如此同時(shí)氣化而該系統(tǒng)原有的員工信息。（5）人事檔案信息的瀏覽功能實(shí)現(xiàn)瀏覽功能有兩種形式，一是通過(guò)首頁(yè)目錄鏈接瀏覽；另一種是通過(guò)報(bào)表的格式給出的，報(bào)表可進(jìn)行打印，而且可以更具實(shí)際需要對(duì)打印的信息進(jìn)行選擇。圖圖3-1系統(tǒng)功能模塊圖三、系統(tǒng)設(shè)計(jì)（一）開(kāi)發(fā)設(shè)計(jì)思想?yún)⒖脊粳F(xiàn)有的軟硬件環(huán)境并且借鑒先進(jìn)的開(kāi)發(fā)經(jīng)驗(yàn)，充分利用公司現(xiàn)有的資源提高系統(tǒng)開(kāi)發(fā)水平。并且要仔細(xì)研究公司的人事管理制度，對(duì)是的日常人事管理需要進(jìn)行詳細(xì)的了解。為了方便功能的組合實(shí)現(xiàn)和修改，在系統(tǒng)開(kāi)發(fā)的過(guò)程中，應(yīng)當(dāng)盡量采用模塊化程序設(shè)計(jì)方法。（二）系統(tǒng)總體設(shè)計(jì)通過(guò)需求分析，人事檔案管理系統(tǒng)主要具備五大主要功能：?jiǎn)T工信息管理員工信息的查詢員工信息統(tǒng)計(jì)部門信息維護(hù)系統(tǒng)維護(hù)（包括數(shù)據(jù)庫(kù)管理）。現(xiàn)在模塊化設(shè)計(jì)的思想收入開(kāi)發(fā)者的內(nèi)心，并且模塊化設(shè)出方便小飾和維護(hù)，因此軟件開(kāi)發(fā)的通常采用模塊化的方法來(lái)對(duì)付復(fù)雜的難題。這種思想方法是將系統(tǒng)進(jìn)行分拆將單一的功能進(jìn)行模塊化組合從而，有一變多，分工細(xì)化，化繁為簡(jiǎn)，有利于系統(tǒng)的穩(wěn)定性與可維護(hù)性。系統(tǒng)功能模塊圖（如圖3.1所示）能夠更加方便的使用各模塊功能，加快熟悉業(yè)務(wù)操作流程，方便系統(tǒng)的推廣普及。

四、數(shù)據(jù)庫(kù)設(shè)計(jì)（一）數(shù)據(jù)庫(kù)需求分析數(shù)據(jù)庫(kù)的數(shù)據(jù)項(xiàng)主要包括一下幾個(gè)方面:項(xiàng)目員工基本信息項(xiàng)目員工基本信息工號(hào)、姓名、性別、年齡、生辰、住址、電話、學(xué)歷、身份證號(hào)、崗位、備注等。員工培訓(xùn)信息培訓(xùn)時(shí)間、培訓(xùn)機(jī)構(gòu)、培訓(xùn)內(nèi)容、所獲證書(shū)等員工培訓(xùn)信息培訓(xùn)時(shí)間、培訓(xùn)機(jī)構(gòu)、培訓(xùn)內(nèi)容、所獲證書(shū)等考勤管理 考勤的類型、考勤分?jǐn)?shù)、考勤原因、考勤部門、備注等工資管理 工號(hào)、姓名、薪酬、獎(jiǎng)懲信息、實(shí)發(fā)工資、日期人事變動(dòng)部門單位管理人事變動(dòng)部門單位管理管理員編號(hào)、用戶名、口令、是否是管理員、備注等。管理員編號(hào)、用戶名、口令、是否是管理員、備注等。（二）數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì)該階段以需求分析為基礎(chǔ)，這個(gè)階段可用的工具很多，川的最多的是E-R圖（Entity-Relation,實(shí)體-聯(lián)系圖）。也可以使用眾多的輔助設(shè)計(jì)工具進(jìn)行設(shè)計(jì)。根據(jù)上面的設(shè)計(jì)，實(shí)體有：?jiǎn)T工基本信息實(shí)體、員工考勤信息實(shí)體、員工調(diào)動(dòng)調(diào)薪信息實(shí)體、員工工資信息實(shí)體、部門管理實(shí)體。實(shí)體與實(shí)體之間的E-R模型如圖4-1所示。

圖4-1系統(tǒng)E-R圖（三）數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì)概念結(jié)構(gòu)是獨(dú)立于實(shí)際數(shù)據(jù)模型的信息結(jié)構(gòu)，以需求為基礎(chǔ)，并且把需求抽象為Access數(shù)據(jù)庫(kù)系統(tǒng)所支持的實(shí)際數(shù)據(jù)模型本系統(tǒng)數(shù)據(jù)庫(kù)中各個(gè)表格的具體設(shè)計(jì)如下面表格所示：字段名稱字段類型字段大小是否必填是否允許空說(shuō)明Id自動(dòng)編號(hào)長(zhǎng)整型是否Uid文本32是否Pwd文本32是是用戶密碼Sys是/否否否是否管理員Des文本500否是備注表4-1用戶表表表4-7其他信息表表表4-3考勤信息表字段名稱字段類型字段大小是否必填是否允許空說(shuō)明Id自動(dòng)編號(hào)長(zhǎng)整型否Stano文本50是否員匚編號(hào)Name文本50否否員匚姓名Sex文本4否是性別Birth時(shí)間/日期否是生日Dep文本18否是部門Sdep文本18否是的位Sorts文本18否是工種Duly文本32否是職務(wù)Provi文本32否是省市Folk文本50否是民族Level文本12否是學(xué)歷Special文本32否是專業(yè)Cardno文本18否是身份證號(hào)Recno文本20否是檔案編號(hào)Politics文本12否是政治面貌Slevel文本50否是基本工資Married文本8否是婚姻狀態(tài)Indate時(shí)間/日期常規(guī)日期否入公司時(shí)間Body文本8否是身體狀況Baryear文本8否是合同期限Barstart時(shí)間/日期常規(guī)日期否合同開(kāi)始時(shí)間Barend時(shí)間/日期常規(guī)日期否合同結(jié)束時(shí)間Pcode文本8否是郵編Adress文本64否是家庭地址Image文本18否是照片Des文本250否是備注表4-2員工基本信息表字段名稱字段類型字段大小是否必填是否允許空說(shuō)明Id自動(dòng)編號(hào)長(zhǎng)整型是否Sid數(shù)字長(zhǎng)整型Sort文本6否否獎(jiǎng)懲類型Topic文本90否否獎(jiǎng)懲原因Dep文本18否否獎(jiǎng)勵(lì)部門Mdate時(shí)間/日期常規(guī)時(shí)間否否獎(jiǎng)勵(lì)時(shí)間Fendhu數(shù)字50否否獎(jiǎng)勵(lì)分?jǐn)?shù)Month文本50否否獎(jiǎng)勵(lì)月份Des文本250否否備注

字段名稱字段類型字段大小是否必填是否允許空說(shuō)明Id自動(dòng)編號(hào)長(zhǎng)整型Dep文本18否否部門Des文本90否否備注Ornum數(shù)字長(zhǎng)整型序號(hào)Mdate日期/時(shí)間常規(guī)時(shí)間否時(shí)間表4-4部門表字段名稱字段類型字段大小是否必填是否允許空說(shuō)明Id自動(dòng)編號(hào)長(zhǎng)整型Sid數(shù)字長(zhǎng)整型Bfdept文本100否是調(diào)前部門Bhdep文本100否是調(diào)后部門Ddcase文木100否是調(diào)動(dòng)原因Bfsdept文木100否是調(diào)前單位Bhsdepl文木100否是調(diào)后單位Month文本100否是調(diào)動(dòng)月份Bfzw文本100否是調(diào)前職務(wù)Bhzw文木100否是調(diào)后職務(wù)Time時(shí)間/日期常規(guī)時(shí)間否調(diào)動(dòng)時(shí)間Bfgz數(shù)字長(zhǎng)整型否調(diào)前工資Bhgz數(shù)字長(zhǎng)整型否調(diào)后工資Txcase文本100否是調(diào)薪原因Beizhu文木250否是備注表4-5調(diào)動(dòng)調(diào)薪表字段名稱字段類型字段大小是否必填是否允許空說(shuō)明Id自動(dòng)編號(hào)長(zhǎng)整型Sid數(shù)字長(zhǎng)整型Name文本32否否成員姓名Fami文本32否否成員關(guān)系Tel文木90否是聯(lián)系電話Com文本32否是工作單位Des文本250否是備注表4-6家庭成員表字段名稱字段類型字段大小是否必填是否允許空說(shuō)明Id自動(dòng)編號(hào)長(zhǎng)整型Sname文本32否否部門名稱Des文本250否是備注Iflag字節(jié)否標(biāo)記Mdate時(shí)間/日期常規(guī)時(shí)間否時(shí)間字段名稱字段類型字段大小是否必填是否允許空說(shuō)明Id自動(dòng)編號(hào)長(zhǎng)整型Sid數(shù)字長(zhǎng)整型Course文本90否否培訓(xùn)課程Dlimit文本32否否培訓(xùn)期限Sdate時(shí)間/日期常規(guī)時(shí)間否開(kāi)始時(shí)間Edate時(shí)間/日期常規(guī)時(shí)間否結(jié)束時(shí)間Trcom文本32否是培訓(xùn)機(jī)構(gòu)Certi文本32否是所獲證書(shū)表4-8培訓(xùn)記錄表字段名稱字段類型字段大小是否必填是否允許空說(shuō)明Id自動(dòng)編號(hào)長(zhǎng)整型Sid數(shù)字長(zhǎng)整型Sdate日期/時(shí)間常規(guī)時(shí)間否開(kāi)始時(shí)間Edate時(shí)間/日期常規(guī)時(shí)間否結(jié)束時(shí)間Company文本90否否公司Dep文本32否是部門Duty文本180否是職責(zé)Leftts文本180否是離職原因表4-9工作經(jīng)歷表字段名稱字段類型字段大小是否必填是否允許空說(shuō)明Id自動(dòng)編號(hào)長(zhǎng)整型Sid數(shù)字長(zhǎng)整型Slano文本50否是員工編號(hào)Name文本50否是員工姓名Slevel文本50否是基本」:資Fenshu文本50否是獎(jiǎng)懲分?jǐn)?shù)Jcsalary文本50否是獎(jiǎng)懲」:資Sfsalary文本50否是實(shí)發(fā)工資Month文本50否是工資月份表4-10工資表字段名稱字段類型字段大小是否必填是否允許空說(shuō)明Id自動(dòng)編號(hào)長(zhǎng)整型Sdept文本18否否單位Dep文本18否否部門Des文本90否否備注Ornum數(shù)字長(zhǎng)整型序號(hào)Mdate日期/時(shí)間常規(guī)時(shí)間否時(shí)間表4Tl單位表五、系統(tǒng)詳細(xì)設(shè)計(jì)及實(shí)施（一）界面及編程風(fēng)格程序設(shè)計(jì)風(fēng)格是程序設(shè)計(jì)時(shí)要考慮的一個(gè)重要問(wèn)題，它是衡量軟件設(shè)計(jì)人員程序素養(yǎng)的主要標(biāo)志之一。程序的風(fēng)格與程序易讀性有關(guān)。如果程序設(shè)計(jì)人員養(yǎng)成一致的、良好的程序設(shè)計(jì)風(fēng)格，則彼此之間更易于理解和交流所編寫(xiě)的程序。我們的人事管理信息系統(tǒng)采用了如下的編程規(guī)范。1、編程風(fēng)格（1）命名規(guī)范數(shù)據(jù)庫(kù)表的命名：以具有英語(yǔ)語(yǔ)義的單詞或單詞縮寫(xiě)命名。數(shù)據(jù)庫(kù)中數(shù)據(jù)項(xiàng)的命名：依據(jù)數(shù)據(jù)項(xiàng)的英文或者其縮寫(xiě)命名。PAS文件的命名：以u(píng)作為前綴加相應(yīng)的英語(yǔ)單詞或縮寫(xiě)命名。窗體文件的命名：以frm作為前綴加相應(yīng)的英語(yǔ)單詞或縮寫(xiě)命名。（2）行文規(guī)范為保證程序的可讀性，對(duì)程序中的變量、語(yǔ)句做有效、適當(dāng)?shù)淖⑨?。盡量做到每行只寫(xiě)一個(gè)語(yǔ)句，且避免過(guò)長(zhǎng)的語(yǔ)句的出現(xiàn)。適當(dāng)?shù)倪\(yùn)用縮進(jìn)和空格增強(qiáng)程序可讀性。（3）其他規(guī)范盡量避免程序中不必要的變量，避免冗余和重復(fù)。使用含義鮮明的變量名，保持命名的一致性。使用從超類中繼承的對(duì)象控件。2、界面風(fēng)格良好的用戶界面十分重要，為了使用戶原本枯燥煩瑣的工作變得輕松、簡(jiǎn)便，本系統(tǒng)的界面以標(biāo)準(zhǔn)化、簡(jiǎn)單化為目標(biāo)進(jìn)行設(shè)計(jì)。（1）根據(jù)用戶的使用習(xí)慣，合理設(shè)置菜單位置，便于用戶快速找到有用的信息。（2）界面以淺藍(lán)色（Green）作為背景色，文字使用黑色（Black）顯示。（3）在下拉菜單的基礎(chǔ)上增加圖標(biāo)按鈕（ICO）和快捷鍵。（4）查詢條件的輸入，盡量采用下拉框，減小信息錄入時(shí)的工作量。3、編碼實(shí)例此為登錄模塊用戶判斷的實(shí)例代碼：procedureTfrmLogin.bbtnIoginClick(Sender:TObject);varaqPer:TADOQuery;beginifedtuid.Text<>uthenbeginaqPer:=TADOQuery.Create(nil);aqPer.Connection:=dmPer.acPer;aqPer.SQL.Text:=Select*fromadminwhereuid=*+QuotedStr(Trini(edtuid.Text))+aqPer.Open;ifnotaqPer.EofthenbeginDec(i);ifaqPer.FieldByNameC^wd^.AsString=edtpwd.TextthenbeginsUserlD:=Trim(edtuid.Text); sUserPwd:=edtpwd.Text;ifaqPer.FieldByName(,sys,).AsBooleanthensysadmin:=trueelsesysadmin:=false;self.ModalResult:=mrOk;endelsebeginifi=0thenClose;MessageBox(self.Handle,，密碼有誤，請(qǐng)重新輸入I,，提示、mb_IconWarning+nib_Ok);edtPwd.Clear; edtPwd.SetFocus; Exit;endendelsebeginMessageBox(self.Handle,，賬號(hào)不存在，請(qǐng)重新輸入「，，提示；mbjconInformation+mb_Ok);圖圖5-1未登錄系統(tǒng)主界面edtUid.CIear;edtUid.SetFocus;Exit;end;endelsebeginMessageBox（self.Handle,'請(qǐng)輸入賬號(hào)!「提示'，mb_lconlnformation+mb_Ok）;edtUid.SetFocus;Exit;end;end;（二）系統(tǒng)模塊功能實(shí)現(xiàn)根據(jù)前期分析、設(shè)計(jì)，已經(jīng)基本完成人事檔案管理系統(tǒng)的編制，其程序的功能詳細(xì)介紹如下：1、用戶登錄模塊系統(tǒng)啟動(dòng)，如圖5.1所示，此時(shí)雖然顯示了主界面但是在用戶登錄前主界面是不可編輯的只有用戶通過(guò)了登錄模塊的驗(yàn)證才可以對(duì)主界面中的菜單進(jìn)行操作。在進(jìn)入系統(tǒng)之前，首先進(jìn)行安全性檢查，防范惡意盜取和破壞數(shù)據(jù)的行為，在確認(rèn)安全后，合法用戶才可以在順利登錄之后可進(jìn)入系統(tǒng)。曷工I提曾兩菽云而竊天扇功關(guān)于@二登錄流程如圖5-2所示，其主要目的是身份識(shí)別。系統(tǒng)根據(jù)使用者提供的用戶名、口令進(jìn)行查詢鑒別，本系統(tǒng)不允許空密碼，如果用戶名或密碼文本框中為空點(diǎn)擊登錄按鈕時(shí)會(huì)彈出不能為空的提示信息。對(duì)用戶名和密碼分別進(jìn)行判斷，如果用戶名在數(shù)據(jù)庫(kù)中不存在則提示用戶名不存在信息；只有存在該用戶時(shí).,才會(huì)進(jìn)行密碼的判別。為了增強(qiáng)系統(tǒng)安全性系統(tǒng)中設(shè)置了非法登錄次數(shù)的限制：同一個(gè)用戶名如果連續(xù)三次密碼輸入不正確則自動(dòng)退出系統(tǒng)。經(jīng)過(guò)判斷如果用戶名和密碼均正確則激活系統(tǒng)主界面（如圖5-3所示），并且將操作人員信息導(dǎo)入系統(tǒng)主界面。如果用戶不能通過(guò)登錄模塊的驗(yàn)證則只能看到系統(tǒng)主界面但是無(wú)法對(duì)主界面進(jìn)行操作。用戶登陸退出圖5-2登錄流程2、系統(tǒng)主界面圖4-3是系統(tǒng)登錄成功后的窗口，一共展示了7個(gè)功能模塊，即系統(tǒng)管理（用戶管理）、員工信息管理、員工工資管理、設(shè)置（包括部門管理）、數(shù)據(jù)庫(kù)管理。同時(shí)，在主界面中在標(biāo)題欄和狀態(tài)欄會(huì)顯示此登錄用戶的基本信息如用戶名、用戶類型；還可以顯示系統(tǒng)當(dāng)前時(shí)間并且時(shí)間是動(dòng)態(tài)變化的。除此之外，用戶可以對(duì)標(biāo)題欄和狀態(tài)欄中顯示的系統(tǒng)的名稱在前臺(tái)進(jìn)行修改，系統(tǒng)主界面的背景圖案也可以根據(jù)用戶的個(gè)人需要進(jìn)行設(shè)置。水槌&J5rfli?rapflxxjsww?聲先嗎?我不夕…圖5-3登錄后的主界面3、用戶管理模塊用戶管理主界面，只有管理員用戶才有進(jìn)入此操作界面。在這個(gè)界面中系統(tǒng)管理員用戶可以進(jìn)行相應(yīng)的操作如：編輯(修改用戶名稱、密碼或修改用戶權(quán)限)、添加用戶、刪除用戶的操作；為了能夠更好的滿足管理的需要，可以根據(jù)實(shí)際需要在備注信息中添加一些用戶的信息。這些只允許系統(tǒng)管理員操作而其它普通用戶沒(méi)有進(jìn)入此模塊的權(quán)限，也就沒(méi)法修改用戶信息，增強(qiáng)了系統(tǒng)安全性。4、員工信息管理模塊員工信息管理模塊具體功能描述如下：(1)新員工基本信息的登記，已有員工基本信息更新，已有員工信息的刪除，已有員工信息的打印。用戶除了可以通過(guò)查詢按鈕進(jìn)行查詢外還可以通過(guò)“上一個(gè)”和“下一個(gè)”按鈕選擇員工的基本信息進(jìn)行查看，也可以在樹(shù)中單擊相應(yīng)的節(jié)點(diǎn)，員工的信息就會(huì)顯示在相應(yīng)的表單中。如圖5-4所示

品工信息(01川lo)[o]m?($(PJ注自務(wù)資公應(yīng)基柏財(cái)勞辦值eJQadaa員工:安?？诓罚径h市檔案工作經(jīng)歷工號(hào):002 品工信息(01川lo)[o]m?($(PJ注自務(wù)資公應(yīng)基柏財(cái)勞辦值eJQadaa員工:安?？诓罚径h市檔案工作經(jīng)歷工號(hào):002 月份證號(hào)：?名，二 檔案痂等，性別:生H：部n.單也安保▼婚姻狀況， 。▼人用葉間：2007-05-20 ▼男 ?政治面貌：196q-05-20 ?熱本工費(fèi)：⑼。 |工種，????金.市職省▼健康狀況，“合同期限；合同開(kāi)始，2007-05-20??????族歷史民學(xué)專合同結(jié)束；2口口8-。上2。家廢住址，各法一新I添加I查詢上一個(gè)口了三I刪除I打卬關(guān)閨I圖5-4員工基本信息（2）員工其它信息的維護(hù)，這部分主要包括員工工作經(jīng)歷（如圖5-5所示），家庭成員（圖5-6）,培訓(xùn)經(jīng)歷等信息的維護(hù)，在這部分中可以添加、刪除、更新、查詢打印工作經(jīng)歷和員工的家庭信息以使公司更全面的了解員工的社會(huì)關(guān)系。在這個(gè)窗體中除了設(shè)置了用來(lái)顯示信息的文本框外，還使用了DBGridEH控件，用來(lái)以表格的方式顯示相關(guān)信息，更加直觀明了。圖4-5員工工作經(jīng)歷圖4-5員工工作經(jīng)歷■E準(zhǔn)息 回回司-&第團(tuán)公司-&第團(tuán)公司1汰）-&安保WE二e53101*oweioi+UW?[1|fi勞資郃⑼*O辦公主l】l更來(lái)|訴加|通網(wǎng)|上一個(gè)〒二節(jié)”冊(cè)除I打印I英團(tuán)|圖5-6員1：家，庭成員（3）員工管理信息維護(hù)，主要包括兩方面的內(nèi)容：?jiǎn)T工獎(jiǎng)懲（如圖5-7）和人事調(diào)動(dòng)管理（如圖5-8）,其中獎(jiǎng)懲記錄以加分或扣分的形式進(jìn)行管理，不同的獎(jiǎng)懲類別獎(jiǎng)懲分?jǐn)?shù)不相同，以此來(lái)對(duì)員工進(jìn)行獎(jiǎng)懲管理。獎(jiǎng)懲類別可以根據(jù)公司的實(shí)際需要進(jìn)行設(shè)置；人事調(diào)動(dòng)管理包括正常的人事調(diào)動(dòng)還伴隨著員工基本工資的調(diào)整。同時(shí):這部分也是員工工資報(bào)表生成的基礎(chǔ)。更新泰JU狂因上一個(gè)［下一個(gè)冊(cè)除打印］關(guān)閉更新泰JU狂因上一個(gè)［下一個(gè)冊(cè)除打?。蓐P(guān)閉4A101111mlll二⑻plnl稗室[11洞侯二小省務(wù)港公S毗安2苴銷財(cái)芳辦tt柒?ooejoelo圖5-7獎(jiǎng)懲記錄囚加⑻WWS8梢KG勞辦快先oeoe-0660，，-中垢>喃地位；紡織!》%憫前般務(wù)：音:通R囚加⑻WWS8梢KG勞辦快先oeoe-0660，，-中垢>喃地位；紡織!》%憫前般務(wù)：音:通R工VWJT55：1200X新沛加關(guān)閉儂部門：財(cái)勢(shì)曲注:五L密統(tǒng)叼毋??，六茨本檔案 H作經(jīng)歷名麻豉員獎(jiǎng)您記錄培訓(xùn)經(jīng)歷工學(xué)下一個(gè)冊(cè)除？！印佃動(dòng)歷團(tuán):tin后效位;旗圾務(wù),調(diào)后5T資:泗動(dòng)時(shí)聞洶動(dòng)月份：圖5-8人事調(diào)動(dòng)(4)員工信息統(tǒng)計(jì)，為了公司能夠從多個(gè)角度了解公司的人力資源狀況，在這個(gè)窗體中可以根據(jù)部門、性別、年齡、職稱、進(jìn)入公司的時(shí)間對(duì)員工信息進(jìn)行統(tǒng)計(jì),并且可以通過(guò)圖片按鈕把得到的統(tǒng)計(jì)圖輸出。員工信息昌回區(qū)員工信息邨⑴⑼⑼⑴歇藺⑴河悝建S鋁貨公應(yīng)齦安￡的附勞辦供維口OOOCJCCJ供應(yīng)吏M第加3邨⑴⑼⑼⑴歇藺⑴河悝建S鋁貨公應(yīng)齦安￡的附勞辦供維口OOOCJCCJ供應(yīng)吏M第加3itI上一個(gè)|下一個(gè) WKI打印關(guān)用都司性咒學(xué)歷年舲職稱五司年入司月囹片卻C:辦公室⑵總本橙案工作展歷底庭成員獎(jiǎng)窿記錄后VI煌歷人三臉麗濟(jì)總圖5-9統(tǒng)計(jì)信息5、員工工資信息模塊(1)工資結(jié)算：根據(jù)員工基本信息中的基本工資、獎(jiǎng)懲管理中的獎(jiǎng)懲分?jǐn)?shù)和人事調(diào)動(dòng)中的調(diào)薪管理按月份來(lái)生成工資報(bào)表。圖5-10中的“基本金額”用來(lái)設(shè)置每一分對(duì)應(yīng)的金額，結(jié)合獎(jiǎng)懲管理中的獎(jiǎng)懲分?jǐn)?shù)來(lái)計(jì)算實(shí)發(fā)工資。計(jì)算公式為：實(shí)發(fā)工資=基本工資+基本金額*獎(jiǎng)懲分?jǐn)?shù)

圖5T0工資結(jié)算(2)員工工資查詢：其主要功能是方便員工查詢自己的工資信息，信息以條目和表格兩種方式顯示，并且可以選擇月份，查詢指定月份的工資信息。圖5-11中的員工編號(hào)、員工姓名、查詢?cè)路萑呷币徊豢桑駝t會(huì)提示相應(yīng)的項(xiàng)不能為空。6、部門管理模塊主要是實(shí)現(xiàn)部門和單位的添加刪除更新等操作。”部門諛5K部門檔案徐門：基建褥添圖5T2部門設(shè)置7、數(shù)據(jù)庫(kù)管理模塊為了減輕系統(tǒng)管理員管理系統(tǒng)的負(fù)擔(dān)還在前臺(tái)為管理員設(shè)置了數(shù)據(jù)庫(kù)的備份與恢復(fù)功能，可以自動(dòng)執(zhí)行數(shù)據(jù)庫(kù)的備份與恢復(fù)，備份文件自動(dòng)保存為DataBakUP加

系統(tǒng)時(shí)間的形式，即可以避免備份文件重名，乂可以方便管理員查找；數(shù)據(jù)庫(kù)恢復(fù)界面中使用ListView控件顯示所有的數(shù)據(jù)庫(kù)備份文件以備當(dāng)數(shù)據(jù)庫(kù)遭到破壞時(shí)將數(shù)據(jù)庫(kù)恢復(fù)到緊緊的狀態(tài)。在備份與恢復(fù)時(shí)還增加了進(jìn)度條，增強(qiáng)了可交互性，方便了管理員的操作。這個(gè)權(quán)限只有管理員用戶才有，一般用戶不允許對(duì)數(shù)據(jù)庫(kù)進(jìn)行操作。界面如圖5-13和5-14所示：圖5T3數(shù)據(jù)庫(kù)備份k熟據(jù)還原 區(qū)市選祥一個(gè)教據(jù)文件文件名r創(chuàng)建日期DataBakUp.2007-06-0215:03:09DataESakUp...2007-CIG-0215:03:09DataBakUp..2007-06-0215:03:09DataBakUp...2007-06-039:02:14DatoBakUp...2007-06-0412；45;18還原! 刪除| 關(guān)閉圖5-14數(shù)據(jù)庫(kù)恢復(fù)8、系統(tǒng)其它功能簡(jiǎn)介(1)員工信息查詢：如圖5-15和5-16所示，其主要功能是快速查詢某一個(gè)或某幾個(gè)員工的信息、，本系統(tǒng)中的員工查詢乂分為單人查詢和多人查詢單人查詢主要是根據(jù)員工編號(hào)或員工姓名查詢；多人查詢可以根據(jù)部門、性別、工種、學(xué)歷等信息進(jìn)行綜合查詢。圖5-15多人查詢

（2）其它信息設(shè)置：如圖5-16其主要功能是對(duì)系統(tǒng)中的工種、職位、民族、學(xué)歷、專業(yè)、考勤類別等信息進(jìn)行添加、更新、刪除等操作，管理員可以根據(jù)公司的發(fā)展對(duì)如圖所示的各種信息隨時(shí)進(jìn)行更新以適應(yīng)公司的實(shí)際情況。F其它信息設(shè)置其它信息設(shè)鳧工種逐職位（民族日學(xué)歷其它信息設(shè)鳧工種逐職位（民族日學(xué)歷長(zhǎng)字差一事理經(jīng)羞經(jīng)忘長(zhǎng)長(zhǎng)別忠副部處is—專業(yè)f考勤類別八爸事長(zhǎng)圖5T6其它信息設(shè)置員工信息打印設(shè)置：如圖5-17所示操作人員可以根據(jù)自己的需要選擇員工的各種信息進(jìn)行打印，選中對(duì)應(yīng)的復(fù)選框，就會(huì)得到對(duì)應(yīng)的信息。圖5-17圖5-17打印設(shè)置六、系統(tǒng)測(cè)試在系統(tǒng)開(kāi)發(fā)過(guò)程中，我們基本按照規(guī)范化要求進(jìn)行，使得系統(tǒng)總的質(zhì)量比較高,用戶界面友好。軟件測(cè)試是極其重要的把關(guān)環(huán)節(jié)。但是，由于測(cè)試的依據(jù)是規(guī)格說(shuō)明書(shū)、設(shè)計(jì)文檔和使用說(shuō)明書(shū)，如果設(shè)計(jì)錯(cuò)誤，測(cè)試的質(zhì)量就難以保證。在開(kāi)發(fā)完成之后發(fā)現(xiàn)錯(cuò)誤，再進(jìn)行修改的代價(jià)非常大。因此軟件開(kāi)發(fā)的過(guò)程中，需要在各個(gè)工程階段對(duì)軟件進(jìn)行測(cè)試，從而確保系統(tǒng)的穩(wěn)定性和可靠性。本人在畢業(yè)設(shè)計(jì)過(guò)程中，對(duì)人事檔案管理系統(tǒng)進(jìn)行了測(cè)試。測(cè)試遵循了圖6-1中所示的步驟：圖6-1測(cè)試步驟（一）測(cè)試策略測(cè)試主要以黑盒法為主，首先確保測(cè)試系統(tǒng)的準(zhǔn)確性，其次確保測(cè)試系統(tǒng)的整體性。如果黑盒法測(cè)試的結(jié)果顯示有缺陷，那么再對(duì)相應(yīng)的程序段進(jìn)行白盒測(cè)試，主要以程序員自己檢查為主。（二）功能測(cè)試?yán)矛F(xiàn)有數(shù)據(jù)庫(kù)，對(duì)下列功能做一系列測(cè)試：1、數(shù)據(jù)錄入錄入員工信息如：基本信息、職務(wù)信息、家庭成員、教育培訓(xùn)、工作經(jīng)歷、考勤信息、調(diào)動(dòng)調(diào)薪信息、部門單位信息等等。2、根據(jù)錄入的員工信息進(jìn)行數(shù)據(jù)查詢及打印表格顯示，提供相關(guān)的數(shù)據(jù)進(jìn)行查詢，數(shù)據(jù)顯示結(jié)果正確。（三）性能測(cè)試經(jīng)過(guò)多人在不同環(huán)境下測(cè)試，本系統(tǒng)檢索、刪除迅速、維護(hù)方便、成本低、效率局。（四）界面測(cè)試1、菜單系統(tǒng)主要是使用文本菜單進(jìn)行操作，經(jīng)測(cè)試菜單設(shè)置合理、加入了快捷鍵使用方便、界面友好，符合人們的使用習(xí)慣。2、窗口對(duì)窗口的測(cè)試主要有以下幾點(diǎn)：1、窗口的正常開(kāi)啟與關(guān)閉：出來(lái)窗口的關(guān)閉方法以外，多數(shù)情況下還提供了定義的“退出”、“關(guān)閉”或“取消”按鈕。2、窗口風(fēng)格：窗口的顏色和操作方法基本一致，比較和諧、統(tǒng)一。3、提示信息系統(tǒng)的提示信息比較豐富、準(zhǔn)確，有警告信息、結(jié)果信息、提示信息等；并且在數(shù)據(jù)庫(kù)管理界面中，數(shù)據(jù)庫(kù)備份和恢復(fù)時(shí)有進(jìn)度條。在這些提示下，用戶可以比較容易、直觀的進(jìn)行操作。（五）測(cè)試結(jié)論按照相應(yīng)的測(cè)試策略，分別測(cè)試了系統(tǒng)的功能，系統(tǒng)的性能和用戶界面。測(cè)試結(jié)果表明系統(tǒng)總的質(zhì)量比較高，基本能夠滿足用戶的需求，用戶界面也比較友好，各方面的效果良好。緊張而忙碌的畢業(yè)設(shè)計(jì)就要結(jié)束了，在完成了系統(tǒng)的功能設(shè)計(jì)后，我感到由衷的喜悅和自豪。在我做畢業(yè)設(shè)計(jì)期間，學(xué)校的齊斯琴導(dǎo)師給了我很大的幫助，在此表示衷心的感謝。因?yàn)樽约簭氖聦?shí)際開(kāi)發(fā)的經(jīng)驗(yàn)不足，從事軟件開(kāi)發(fā)的朋友給我提出了許多寶貴的經(jīng)驗(yàn)，并指導(dǎo)我進(jìn)行功能模塊的修改。最后，請(qǐng)?jiān)试S我再一次向畢業(yè)設(shè)計(jì)期間幫助過(guò)我的齊老師，朋友表示最衷心的感謝。參考文獻(xiàn)[1]伍俊良編著.Delphi應(yīng)用與開(kāi)發(fā)教程[M].北京：機(jī)械工業(yè)出版社，2004,52-85.[2]李維著.Delphi高校數(shù)據(jù)庫(kù)程序設(shè)計(jì)[M].北京：機(jī)械工業(yè)出版社，2003,253-289.[3]求是科技編著.Delphi信息管理系統(tǒng)開(kāi)發(fā)實(shí)例導(dǎo)航[M].北京：人民郵電出版社，2005,67-95.[4]李春葆，曾平編著.ACCESS數(shù)據(jù)庫(kù)程序設(shè)計(jì)[M].北京：清華大學(xué)出版社，2005,74-86.[5]王晟,韓澤坤編著.ACCESS數(shù)據(jù)庫(kù)開(kāi)發(fā)經(jīng)典案例解析[M].北京：清華大學(xué)出版，2006,132-153.[6]D.H.Howe.NEWACCESSWORKBOOK[M].HongKongOxforduniversitypress,2004,152-178.CORNELL,G.,STRAIN,T.DELPHI7.0[M].北京：科學(xué)出版社，2005[8]阮俊杰編著.軟件開(kāi)發(fā)方法與管理教程[M].北京：希望電子出版社，2002,98-106.Meleod.ManagementInformationSystem[M].PrinticeHall,1998,20-50.[10]O'Brien,James.A.Introductiontoinformationsystems[M].BeiJing：HigherEducationPress,2002,35-87.McLeod,Raymond.Managementinformationsystems[M].北京:北京大學(xué)出版社,2002,356-392.[12]陳明編著.軟件工程學(xué)教程[M].北京：科學(xué)出版社,2002,168-187.附錄1部分核心代碼unituniain;interfaceusesWindows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,Menus,Jpeg,ExtCtrls,XPMenu,ComObj,ComCtrls,IniFiles,ImgList,ActnList,StdCtrls{TfrmBkData);typeTfrmPer=class(TForm)nmuPer:TMainMenu;miSys:TMenuItem;miChgPwd:TMenuItem;niiAdmin:TMenuItem;miLogin:TMenuItem;spaceOl:TMenuItem;miExit:TMenuItem;tmrMain:TTimer;sbPer:TStatusBar;tmrTime:TTimer;miStaff:TMenuItem;miStalnfo:TMenuItem;miAdds:TMenuItem;milnqus:TMenuItem;miEdits:TMenuItem;miDels:TMenuItem;miSet:TMenuItem;miDep:TMenuItem;miAbout:TMenuItem;miBkData:TMenuItem;miData:TMenuItem;miReData:TMenuItem;miSetp:TMenuItem;imgMain:TImage;xmPer:TXPMenu;miSeto:TMenuItem;miOther:TMenuItem;ilPer:TImageList;N5:TMenuItem;N7:TMenuItem;N8:TMenuItem;N9:TMenuItem;proceduretmrMainTimer(Sender:TObject);proceduretmrTinieTimer(Sender:TObject);procedureFormCreate(Sender:TObject);procedureFormResize(Sender:TObject);proceduremiChgpwdClick(Sender:TObject);proceduremiAdminClick(Sender:TObject);proceduremiLoginClick(Sender:TObject);proceduremiExitSystemClick(Sender:TObject);proceduremiStaInfoClick(Sender:TObject);proceduremiAddClick(Sender:TObject);proceduremiEditClick(Sender:TObject);proceduremiDelClick(Sender:TObject);proceduremiDepClick(Sender:TObject);proceduremiOtherClick(Sender:TObject);proceduremiSetClick(Sender:TObject);proceduremiBackupClick(Sender:TObject);proceduremiRestoreClick(Sender:TObject);proceduremiAboutClick(Sender:TObject);proceduremiInqusCIick(Sender:TObject);procedureN7Click(Sender:TObject);procedureN8Click(Sender:TObject);procedureN9Click(Sender:TObject);private{Privatedeclarations}procedureActiveForm;public{Publicdeclarations}end;varfrmPer:TfrmPer;implementationusesulogin,uchgpwd,uglobal,uadmin,ustainfo,ufind,udep,uabout,udata,uset,uoinfo,uredata5uBkData,usaIaryjs,uSalaryQueryAiSalaryPrint;($R*.dfm)procedureTfrniPer.FormCreate(Sender:TObject);variFile:TIniFile;beginsPath:=ExtractFilePath（Application.ExeName）;iFile:=TIniFile.Create（sPath+perset.ini1）;sTopic:=iFile.ReadString（'sTopic丁topic：,人事檔案管理系統(tǒng)）；bgstr:=iFile.ReadString（'sysbg','bground','main.jpg'）;iFile.Free;ifsTopic="thensTopic:=’人事檔案管理系統(tǒng)，；if（bgStr=H）or（notFileExists（sPath+bgStr））thenbgStr:='main.jpg1;imgMain.Picture.LoadFromFile（sPath+bgStr）;self.Caption:=sTopic;Application.Title:=sTopic;Application.ShowHint:=true;//clLime（淺綠）,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;procedureTfrmPer.tmrMainTimer（Sender:TObject）;varfnnLogin:TfrmLogin;beginsbPer.Panels[O].Text:廿還沒(méi)有登錄,；sbPer.Panels[1].Text:=sTopic;tmrMain.Enabled:=false;frmLogin:=TfrniLogin.Create（self）;iffrmLogin.ShowModaloinrOkthenClose;FreeAndNil（frmLogin）;self.Caption:=sTopic;self.Caption:=self.Caption+1用戶：1+sUserlD;sbPer.Panels[0].Text:廿用戶]+sUserlD;ifsysAdminthenbeginself.Caption:=self.Caption+,--系統(tǒng)管理員'；sbPer.Panels[O].Text:=sbPer.Panels[O].Text+'您是系統(tǒng)管理員'；endelsesbPer.Panels[O].Text:=sbPer.Panels[O].Text+'您是普通管理員'；end;procedureTfrniPer.tmrTimeTimer（Sender:TObject）;varwdStr:string;begincaseDayOfWeek(Date())ofwdStr:='星期日'；wdStr:W星期一'；wdStr星期二'；wdStr:廿星期三'；wdStr:廿星期四'；wdStr:='星期五'；wdStr:廿星期六'；end;sbPer.Panels[2].Text:=FormatDateTime(*yyyy年mm月dd曰hh時(shí)nn分ss秒二Now())+'「+wdStr+end;procedureTfrniPer.ActiveForm;begin〃判斷frmStainfo窗體是否已經(jīng)在內(nèi)存中Create,如果沒(méi)有就去創(chuàng)建ifnotSystem.Assigned(frmStainfo)thenfrmStainfo:=TfrniStainfo.Create(Application)elseiffrmStainfo.WindowState=wsMinimizedthenfrmStainfo.WindowState:=wsNormal;end;procedureTfrmPer.miChgpwdClick(Sender:TObject);varfrmChgPwd:TfrmChgPwd;beginsbPer.Panels[l].Text 1更新您的密碼'；frmChgPwd:=TfmiChgPwd.Create(self);iffrmChgPwd.ShowModal=mrOkthenMessageBox(self.Handle,，密碼更新成功;，，提示；nib_lconlnformation+mb_Ok);FreeAndNil(frmChgPwd);〃釋放資源(可選)sbPer.Panels[l].Text:=sTopic;end;procedureTfrniPer.miAdniinClick(Sender:TObject);frmAdmin:TfrmAdmin;beginsbPer.Panels[l].Text:廿管理員管理--此為系統(tǒng)管理員權(quán)限ifsysAdmin=truethenbeginfrmAdmin:=TfrmAdmin.Create(self);frmAdmin.Show;〃或使用frmAdmin.ShowModal//FreeAndNil(frmAdmin);(可選)endelse1^10$$28?80*。刈1(1怕,，您的權(quán)限不夠，請(qǐng)與管理員聯(lián)系!「提示'，mb_IconWarning+mb_Ok);sbPer.Panels[1J.Text:=sTopic;end;procedureTfrmPer.miLoginClick(Sender:TObject);begintmrMainTimer(Sender);end;procedureTfrmPer.miExitSystemClick(Sender:TObject);beginsbPer.Panels[l].Text:二'退出系統(tǒng)ifMessageBox(self.Handle,，確定要退出系統(tǒng)么提示；mb_IconQuestion+mb_YesNo)=idYesthenClose;sbPer.Panels[1J.Text:=sTopic;end;procedureTfrniPer.miStaInfoClick(Sender:TObject);beginsbPer.Panels[l].Text:①員工檔案信息'；frmStainfo:=TfrniStainfo.Create(self)；frmStainfo.Show;//ActiveForm;end;procedureTfrmPer.miAddClick(Sender:TObject);beginsbPer.Panels[l].Text:二'檔案信息添加frmStainfo:=TfrmStainfo.Create(self)；frmStainfo.Show;//ActiveForm;//frmStalnfo.btnaddClick(Sender);end;procedureTfrmPer.miEditCIick(Sender:TObject);beginsbPer.Panels[1].Text檔案信息編輯'；frmStainfo:=TfrniStainfo.Create(self)；frmStainfo.Show;//ActiveForm;{iffrmStalnfo.tvper.selected.data<>nilthenfrmStalnfo.btneditClick(Sender)elseMessageBox(self.Handle,，請(qǐng)先選擇記錄！'，，提示'，nib_lconlnformation+mb_Ok);)end;procedureTfrmPer.miDelClick(Sender:TObject);beginsbPer.Panels[1].Text 檔案信息刪除'；frmStainfo:=TfnnStainfo.Create(self)；frmStainfo.Show;//ActiveForm;end;procedureTfrmPer.miInqusClick(Sender:TObject);varfrmFind:TfrmFind;beginActiveForm;frmFind:=TfrmFind.Create(self);frmFind.Show;end;procedureTfrniPer.miDepClick(Sender:TObject);frmDep:TfrniDep;{beginfrmDep:=TfrmDep.Create(self);frmDep.ShowModal;FreeAndNil(frmDep);end;}beginsbPer.Panels[l].Text:廿管理員管理-此為系統(tǒng)管理員權(quán)限，；ifsysAdmin=truethenbeginfrmDep:=TfrniDep.Create(self);frmDep.Show;〃或使用frmAdmin.ShowModal//FreeAndNil(frmAdmin);(可選)endelsemb_IconWarningMessageBox(handleJ您的權(quán)限不夠，請(qǐng)與管理員聯(lián)系!「提示,,+mb_Ok);mb_IconWarningsbPer.Panels[1].Text:=sTopic;end;procedureTfrmPer.miOtherCIick(Sender:TObject);frmOInfo:TfrmOInfo;{beginfrmOInfo:=TfrmOInfo.Create(self);frmOlnfo.ShowModal;FreeAndNil(frmOInfo);end;}beginsbPer.Panels[l].Text:廿管理員管理--此為系統(tǒng)管理員權(quán)限?ifsysAdmin=truethenbeginfrmOInfo:=TfrmOInfo.Create(self);frmOInfo.Show;〃或使用frmAdmin.ShowM