企業(yè)人事管理系統(tǒng)設(shè)計(jì)過(guò)程

/XXX畢業(yè)技術(shù)報(bào)告企業(yè)人事管理系統(tǒng)設(shè)計(jì)過(guò)程學(xué)生姓名XXX系部名稱XXX系專業(yè)班級(jí)XXX班學(xué)號(hào)XXXXXXXXX指導(dǎo)老師XXXXXXXXX教務(wù)處二〇一一年三月企業(yè)人事管理系統(tǒng)設(shè)計(jì)過(guò)程學(xué)生：XXX指導(dǎo)老師：XXX內(nèi)容摘要：現(xiàn)在計(jì)算機(jī)已深化到各個(gè)領(lǐng)域，并且形成了功能強(qiáng)大、覆蓋全球的信息傳輸網(wǎng)絡(luò)。各個(gè)領(lǐng)域都向系統(tǒng)化.規(guī)范化,自動(dòng)化的方向發(fā)展，使得工作效率、工作成果和生活水平都日益提高。人事管理是現(xiàn)代每個(gè)企業(yè)必不行少的。人事管理系統(tǒng)的主要任務(wù)是對(duì)人事檔案進(jìn)行整理，使得能便利快捷地對(duì)人事檔案進(jìn)行查詢、統(tǒng)計(jì)、更新，并且能按肯定要求輸出報(bào)表。通過(guò)該系統(tǒng)，使企業(yè)的人事管理工作系統(tǒng)化、規(guī)范化、自動(dòng)化，從而提高企業(yè)人事管理的效率。它能夠具體化、合理化的管理單位的人事信息，用結(jié)構(gòu)化的思維方式運(yùn)用計(jì)算機(jī)解決實(shí)際工作和生活中遇到的的問(wèn)題。系統(tǒng)初始化、檔案更新、檔案查詢、檔案打印、檔案編輯等。該系統(tǒng)性能在于易于運(yùn)用，具有較高的平安性。所以具體論述運(yùn)用VisualBasic開(kāi)發(fā)的一個(gè)人事數(shù)據(jù)庫(kù)管理系統(tǒng)，利用其供應(yīng)的各種面對(duì)對(duì)象的開(kāi)發(fā)手段，尤其是數(shù)據(jù)窗口這一能便利而簡(jiǎn)潔操縱數(shù)據(jù)庫(kù)的智能化對(duì)象。關(guān)鍵詞：面對(duì)對(duì)象數(shù)據(jù)化人事管理vb目錄TOC\o"1-2"\h\z\u一、概述 1（一）系統(tǒng)概述 1（二）主要問(wèn)題分析 1（三）解決方案 1二、系統(tǒng)分析 2（一）初步分析 2（二）系統(tǒng)功能分析 2（三）系統(tǒng)可行性分析 2三、系統(tǒng)設(shè)計(jì) 3（一）概述 3（二）數(shù)據(jù)流程和存儲(chǔ)分析 3（三）系統(tǒng)功能結(jié)構(gòu)分析 3（四）數(shù)據(jù)庫(kù)設(shè)計(jì) 5（五）系統(tǒng)主界面設(shè)計(jì) 6（六）程序源代碼說(shuō)明 9四、系統(tǒng)實(shí)施概況 16（一）系統(tǒng)開(kāi)發(fā)環(huán)境 16（二）系統(tǒng)測(cè)試 17（三）測(cè)試方法 17（四）測(cè)試用例 17五、結(jié)束語(yǔ) 18參考文獻(xiàn) 18企業(yè)人事管理系統(tǒng)設(shè)計(jì)過(guò)程一、概述（一）系統(tǒng)概述本論文主要介紹的是企事業(yè)運(yùn)用的人事管理系統(tǒng)的整個(gè)設(shè)計(jì)。隨著社會(huì)科技的發(fā)展，商品經(jīng)濟(jì)化的高效益，使計(jì)算機(jī)的應(yīng)用已經(jīng)普及到經(jīng)濟(jì)和社會(huì)生活的各個(gè)領(lǐng)域.隨著科學(xué)技術(shù)的不斷提高，計(jì)算機(jī)日趨成熟，其強(qiáng)大的功能已為人們深刻相識(shí)，作為計(jì)算機(jī)應(yīng)用的一部分，運(yùn)用計(jì)算機(jī)對(duì)單位的人事檔案信息進(jìn)行管理，具有手工管理所無(wú)法比擬的優(yōu)點(diǎn)。例如：檢索快速、查找便利、牢靠性高、存儲(chǔ)量大、保密性好、壽命長(zhǎng)、成本低等。這些優(yōu)點(diǎn)能夠極大的提高一個(gè)單位人事管理的效率。因此，開(kāi)發(fā)出這樣一套管理軟機(jī)成為很有必要的事情，它能夠具體化、合理化的管理單位的人事信息，用結(jié)構(gòu)化的思維方式運(yùn)用計(jì)算機(jī)解決實(shí)際工作和生活中遇到的的問(wèn)題。隨著計(jì)算機(jī)技術(shù)的不斷發(fā)展，計(jì)算機(jī)應(yīng)用于各大領(lǐng)域，并給人們的生活帶來(lái)了極大的便利，在人員管理系統(tǒng)亦是。以往企事業(yè)人事員由于缺乏適當(dāng)?shù)能浖o其工作帶來(lái)了很多不便。本論文所介紹的便是一個(gè)企事業(yè)人事管理系統(tǒng)及其設(shè)計(jì)過(guò)程，以便利其在人事支配和人事管理上的工作任務(wù)。該系統(tǒng)適用于各企事業(yè)人事管理人員，其功能主要分為以下幾類：系統(tǒng)初始化、檔案更新、檔案查詢、檔案打印、檔案編輯等.該系統(tǒng)性能在他易于運(yùn)用，具有較高的平安性。（二）主要問(wèn)題分析需求分析：人事管理系統(tǒng)可以應(yīng)用于支持企業(yè)完成勞動(dòng)人事管理工作，有如下三個(gè)方面的目標(biāo)。1．支持企業(yè)實(shí)現(xiàn)規(guī)范化管理,如員工工作區(qū)域的定位。2．支持企業(yè)高效率完成勞動(dòng)人事管理的日常業(yè)務(wù)，包括新員工加入人事檔案的建立，老員工轉(zhuǎn)出，辭職，退休等,并可以進(jìn)行員工個(gè)人資料的修改,刪除等常規(guī)操作。3.支持企業(yè)進(jìn)行勞動(dòng)人事管理及相關(guān)方面的科學(xué)決策和在相關(guān)部門在須要時(shí),可在本系統(tǒng)中依據(jù)自己設(shè)定的條件進(jìn)行快速查找（可以進(jìn)行組合查找）。系統(tǒng)問(wèn)題分析:以前的人事管理工作大部分還是進(jìn)行著手工管理，工作起來(lái)效率很低，并且不能剛好了解各類員工的實(shí)際狀況，也無(wú)法快速地進(jìn)行員工信息的查詢等操作，不便于動(dòng)態(tài)剛好地調(diào)整人事資料，以便更好地適應(yīng)當(dāng)前經(jīng)濟(jì)形勢(shì)發(fā)展的須要和本企業(yè)管理的先進(jìn)性。手工管理還存在很多弊端，由于不行避開(kāi)的人為因素，常常造成數(shù)據(jù)的遺漏、誤報(bào)。計(jì)算機(jī)信息化管理有著儲(chǔ)存信息量大、速度快等很多優(yōu)點(diǎn)，剛好快捷地供應(yīng)應(yīng)我們處理信息，同時(shí)也提高了我們工作人員的自身素養(yǎng)。（三）解決方案鑒于目前企業(yè)對(duì)人事管理系統(tǒng)的需求和實(shí)際狀況，新系統(tǒng)方案的重點(diǎn)放在利用計(jì)算機(jī)剛好地調(diào)整企業(yè)人事管理系統(tǒng)，形成對(duì)各類員工一整套動(dòng)態(tài)的管理過(guò)程。本人事管理系統(tǒng)采納面對(duì)對(duì)象的開(kāi)發(fā)方法。它是一種基于對(duì)象的自底向上的一種系統(tǒng)開(kāi)發(fā)方法，這種方法的特點(diǎn)是以對(duì)象為基礎(chǔ)，對(duì)象是分析問(wèn)題和解決問(wèn)題的核心。它要求按人們通常的思維方式建立問(wèn)題領(lǐng)域的模型，設(shè)計(jì)出盡可能自然表現(xiàn)求解方法的軟件.且具有以下特性:通用性;標(biāo)準(zhǔn)化;先進(jìn)性;好用性。二、系統(tǒng)分析（一）初步分析通過(guò)對(duì)現(xiàn)行系統(tǒng)的具體調(diào)研，主要是從系統(tǒng)的角度理解用戶的須要，確定新系統(tǒng)的綜合要求，并提出這些需求的實(shí)現(xiàn)條件以及需求應(yīng)達(dá)到的標(biāo)準(zhǔn)，也就是確定新系統(tǒng)要做什么，做到什么程度。這些需求包括：1.功能需求。確定新系統(tǒng)應(yīng)做什么，這是最主要的需求。2．性能需求。給出所開(kāi)發(fā)的新系統(tǒng)的技術(shù)性能指標(biāo)，包括存儲(chǔ)容量限制、運(yùn)行時(shí)間限制、平安保密性等。3．環(huán)境需求。這是對(duì)系統(tǒng)運(yùn)行以及所處環(huán)境的要求。例如，在硬件方面采納什么機(jī)型、有什么硬件設(shè)備等；在軟件方面，采納什么支持系統(tǒng)運(yùn)行的系統(tǒng)軟件（指操作系統(tǒng)、數(shù)據(jù)庫(kù)管理系統(tǒng)）。4.將來(lái)需求。這類要求是指目前不屬于系統(tǒng)開(kāi)發(fā)的范圍，但將來(lái)隨著外界環(huán)境的變更以及系統(tǒng)的發(fā)展可能會(huì)提出的要求。了解這類要求的目的是在開(kāi)發(fā)過(guò)程中，可對(duì)系統(tǒng)將來(lái)可能的擴(kuò)展和修改做打算。一旦須要時(shí)，就比較簡(jiǎn)潔進(jìn)行補(bǔ)充和修改了。（二）系統(tǒng)功能分析開(kāi)發(fā)這個(gè)系統(tǒng)的目的就是要幫助企業(yè)的人力資源部門提高工作效率，實(shí)現(xiàn)企業(yè)人事信息管理系統(tǒng)的系統(tǒng)化、規(guī)范化和自動(dòng)化.其工作流程為：用戶登錄通過(guò)權(quán)限推斷，一般用戶只能閱讀、閱讀和查詢信息，指定用戶可以操作，可以進(jìn)行信息錄入、修改和刪除的操作。系統(tǒng)的主要功能特點(diǎn)有:1.登錄表單該表單的功能是在系統(tǒng)被訪問(wèn)之前，要對(duì)進(jìn)入系統(tǒng)的用戶進(jìn)行平安性檢查防止非法用戶進(jìn)行系統(tǒng)破壞數(shù)據(jù)及威逼系統(tǒng)平安，避開(kāi)不必要的損失，只有合法的用戶在輸入正確的密碼后方可進(jìn)入系統(tǒng)。2.主界面在該界面窗口中，共有文件、數(shù)據(jù)、編輯、關(guān)于等全部系統(tǒng)功能，用戶可以操作菜單的方式快捷地運(yùn)用系統(tǒng)。3.更改密碼運(yùn)用本表單可以便利地修改用戶的密碼，以防密碼泄露后對(duì)數(shù)據(jù)的平安性造成威逼。4．信息處理在本表單中操作人員進(jìn)行員工檔案信息錄入及更改，其中包括員工的基本行信息，工作經(jīng)驗(yàn)，家庭關(guān)系，獎(jiǎng)罰記錄和培訓(xùn)經(jīng)驗(yàn)，要求這些員工檔案信息可以進(jìn)行新增，刪除，修改操作，同時(shí)可以進(jìn)行閱讀和查詢的操作。該模塊是本系統(tǒng)的重點(diǎn)，用戶可以通過(guò)該模塊為單位建立一個(gè)比較完整的人事檔案系統(tǒng)，同時(shí)可以比較便利地對(duì)檔案進(jìn)行查看。（三）系統(tǒng)可行性分析可行性分析是在建設(shè)的前期對(duì)工程項(xiàng)目的一種考察和鑒定，對(duì)擬議中的項(xiàng)目進(jìn)行全面和綜合的技術(shù)、經(jīng)濟(jì)實(shí)力的調(diào)查，推斷它是否可行。可行性分析是在用戶的要求和系統(tǒng)調(diào)研的基礎(chǔ)上進(jìn)行的，對(duì)新系統(tǒng)的開(kāi)發(fā)從社會(huì)、技術(shù)、經(jīng)濟(jì)、管理等方面進(jìn)行分析，并得出新系統(tǒng)的開(kāi)發(fā)工作可行、不行行、須要修改、追加投資、暫緩開(kāi)發(fā)、分步實(shí)施等方案和結(jié)論，最終完成可行性分析。可行性分析主要包括幾個(gè)方面：1.新系統(tǒng)目標(biāo)可行性：分析新系統(tǒng)的目標(biāo)是否符合企業(yè)的現(xiàn)狀和發(fā)展的須要。隨著國(guó)內(nèi)經(jīng)濟(jì)的發(fā)展，各行各業(yè)都在飛速的進(jìn)步，在管理上的人才就更加的驚慌，為了能更好的節(jié)約管理費(fèi)用和管理人員的壓力，企業(yè)都在力求為自己減壓。2.技術(shù)可行性分析:技術(shù)可行性分析是依據(jù)新系統(tǒng)的目標(biāo)來(lái)衡量是否具備所須要的技術(shù)，包括系統(tǒng)開(kāi)發(fā)人員數(shù)量和水平，硬軟件等的要求。隨著國(guó)內(nèi)軟件開(kāi)發(fā)的日益發(fā)展壯大，各種中小企事業(yè)單位已具備獨(dú)立開(kāi)發(fā)各種類型的軟件的實(shí)力，能夠滿意不同行業(yè)的特殊的需求。而這個(gè)系統(tǒng)盡管其在組織關(guān)系上存在著很大的困難性，繁瑣性，但是就整個(gè)系統(tǒng)的技術(shù)構(gòu)成上來(lái)看，它還是屬于一個(gè)數(shù)據(jù)庫(kù)應(yīng)用類的系統(tǒng)。其基本操作還是對(duì)存在數(shù)據(jù)庫(kù)進(jìn)行添加、刪除、查找、編輯等。3.經(jīng)濟(jì)可行性分析:經(jīng)濟(jì)可行性分析主要是對(duì)開(kāi)發(fā)新系統(tǒng)所投入的資金和系統(tǒng)投入運(yùn)用后所帶來(lái)的經(jīng)濟(jì)效益進(jìn)行比較，確認(rèn)其是否會(huì)給企業(yè)帶來(lái)經(jīng)濟(jì)效益。對(duì)于整個(gè)系統(tǒng)而言，在系統(tǒng)未運(yùn)行之前，初期投資比較大，花費(fèi)相對(duì)而言比較多。各部門必需配置電腦、打印機(jī)、傳真機(jī)及相關(guān)的網(wǎng)絡(luò)設(shè)備，但是在整個(gè)系統(tǒng)投入運(yùn)行之后，因?yàn)楝F(xiàn)在計(jì)算機(jī)已經(jīng)普及了，相關(guān)的人員培訓(xùn)費(fèi)可以削減很多。而同時(shí)又削減了數(shù)據(jù)的流通環(huán)節(jié)，不必要花費(fèi)那么多的時(shí)間，也就是說(shuō)最重要的是就是提高了效率，而又保證了各項(xiàng)數(shù)據(jù)的精確性，也避開(kāi)了工作人員的流淌造成的收據(jù)丟失等問(wèn)題，適應(yīng)了當(dāng)前的發(fā)展形式。4.管理可行性分析:管理可行性分析主要是分析企業(yè)現(xiàn)行的管理體制是否具適合現(xiàn)代管理水平。隨著時(shí)代的發(fā)展，人員素養(yǎng)己逐步提高，不論是對(duì)于電腦系統(tǒng)的基本操作還是對(duì)于系統(tǒng)的維護(hù)都有了肯定的基礎(chǔ)。同時(shí)還可以配置專業(yè)的電腦維護(hù)人員來(lái)維護(hù)電腦，不必?fù)?dān)憂電腦故障問(wèn)題。三、系統(tǒng)設(shè)計(jì)（一）概述通過(guò)系統(tǒng)分析來(lái)確認(rèn)所開(kāi)發(fā)的產(chǎn)品是否具有肯定的市場(chǎng)。在依據(jù)現(xiàn)行的辦公常用軟件來(lái)使各個(gè)企業(yè)能在最短的時(shí)間內(nèi)熟知此軟件的具體功能和其能給自己公司所帶來(lái)的經(jīng)濟(jì)效益是否和它的實(shí)際價(jià)值相符。（二）數(shù)據(jù)流程和存儲(chǔ)分析人事管理系統(tǒng)是一個(gè)面對(duì)企業(yè)人事人員，為其供應(yīng)服務(wù)的綜合信息管理系統(tǒng)。人事人員通過(guò)本系統(tǒng)完成相關(guān)的日常工作，這些工作也是平常較為繁重的工作。人員的個(gè)人信息、以及各種相關(guān)的親屬等狀況開(kāi)課狀況都記錄在人事系統(tǒng)里進(jìn)行管理。然而數(shù)據(jù)流程是描述系統(tǒng)邏輯模型的主要工具，通過(guò)幾個(gè)特定的符號(hào)，可以綜合地反映出信息在系統(tǒng)中的運(yùn)用、加工處理、傳遞、存儲(chǔ)的整體狀況。數(shù)據(jù)流程是系統(tǒng)結(jié)構(gòu)化分析行之有效的工具，它抽象地描述了系統(tǒng)數(shù)據(jù)處理的狀況，但卻無(wú)法表達(dá)各個(gè)處理的具體內(nèi)容，因此還要對(duì)數(shù)據(jù)流程圖中出現(xiàn)的數(shù)據(jù)流和處理等做進(jìn)一步的補(bǔ)充說(shuō)明，這就是數(shù)據(jù)字典和變換邏輯說(shuō)明。數(shù)據(jù)流程及數(shù)據(jù)存儲(chǔ)都是基于數(shù)據(jù)庫(kù)來(lái)說(shuō)的，一個(gè)好的數(shù)據(jù)庫(kù)能很好地把這兩方面給結(jié)合起來(lái)。其實(shí)存儲(chǔ)就只是數(shù)據(jù)流程里的一個(gè)比較特殊的過(guò)程，它包括數(shù)據(jù)的打開(kāi)、保存、另存為、打印等一些快捷方式。（三）系統(tǒng)功能結(jié)構(gòu)分析本系統(tǒng)分為以下幾大模塊：圖1系統(tǒng)模塊圖主界面模塊：該模塊供應(yīng)管理系統(tǒng)的主界面，是主系統(tǒng)的唯一入口和出口，該界面供應(yīng)用戶選擇并調(diào)用各子模塊。閱讀模塊：該模塊供應(yīng)全部人事檔案的界面。查詢模塊：該模塊供應(yīng)查詢符合某一條件的人事檔案的界面。統(tǒng)計(jì)模塊：該模塊供應(yīng)按某一條件進(jìn)行統(tǒng)計(jì)的界面。編輯模塊：該模塊供應(yīng)對(duì)按檔案進(jìn)行更改、刪除和新增的界面。表單模塊：該模塊按肯定格式將人事檔案以表格式輸出。由下圖可以看出本系統(tǒng)的功能及結(jié)構(gòu)：系統(tǒng)主界面系統(tǒng)登陸界面錯(cuò)誤信息系統(tǒng)管理輸入用戶名及密碼驗(yàn)證用戶名和密碼用戶名不存在或密碼不正確數(shù)據(jù)庫(kù)登陸勝利系統(tǒng)功能界面系統(tǒng)功能處理圖2系統(tǒng)功能結(jié)構(gòu)圖依據(jù)上面的簡(jiǎn)圖我們可以得知人事管理系統(tǒng)基本功能如下的說(shuō)明：數(shù)據(jù)錄入：供應(yīng)兩種信息錄入方式：列表錄入、模板錄入,用以滿意不同用戶的須要。數(shù)據(jù)的刪除修改：對(duì)數(shù)據(jù)的最基本的操作,保證數(shù)據(jù)正確性和完整性,為其他操作打好基礎(chǔ)。數(shù)據(jù)的查詢：用戶可以干脆快速地查閱和打印系統(tǒng)中的員工個(gè)人信息（如人員狀況、工資狀況、職稱評(píng)定、保險(xiǎn)福利和決策支持等信息）；也可以做出各種困難的查詢,為了領(lǐng)導(dǎo)作出精確推斷供應(yīng)數(shù)據(jù)的支持。賬號(hào)的管理：實(shí)現(xiàn)了對(duì)用戶分組管理，并且可對(duì)用戶的數(shù)據(jù)訪問(wèn)權(quán)限、功能操作權(quán)限進(jìn)行設(shè)置，大地保證了操作的平安性、嚴(yán)謹(jǐn)性及保密性。日志的管理：運(yùn)用人員把自己運(yùn)用過(guò)程記錄下來(lái)。系統(tǒng)平安性：每個(gè)用戶均有自己的權(quán)限，由系統(tǒng)管理員統(tǒng)一設(shè)定，同時(shí)針對(duì)同一權(quán)限，每個(gè)用戶有自己的口令、密碼，輸入口令不正確，將無(wú)法進(jìn)入相應(yīng)的模塊。同時(shí)文件的傳遞過(guò)程中可以對(duì)文件進(jìn)行加密、簽名等，不允許看的用戶將無(wú)法閱讀該文檔。（四）數(shù)據(jù)庫(kù)設(shè)計(jì)數(shù)據(jù)庫(kù)是信息管理系統(tǒng)的后臺(tái)，存儲(chǔ)著全部的信息，在信息管理系統(tǒng)中有著很重要的地位。數(shù)據(jù)庫(kù)設(shè)計(jì)的好和壞，干脆影響到這個(gè)系統(tǒng)的運(yùn)行效率。良好的數(shù)據(jù)庫(kù)設(shè)計(jì)，可以提高數(shù)據(jù)信息的存儲(chǔ)效率，保證數(shù)據(jù)信息的完整性和始終性。同時(shí)，一個(gè)合理的數(shù)據(jù)庫(kù)結(jié)構(gòu)有利于程序的實(shí)現(xiàn)。如下幾個(gè)表格：表1員工信息表字段字段名類型寬度索引排序是否為空1職工編號(hào)數(shù)值型9否2姓名字符型20否3性別字符型4否4民族字符型10否5誕生日期日期型10否6身份證號(hào)碼字符型18否7畢業(yè)學(xué)校字符型20否8學(xué)歷字符型10否9部門字符型10否10職稱字符型12否11電話字符型12否12Email字符型20否13編輯時(shí)間日期型8否14備注備注型100否表2員工加班和出差信息表字段字段名類型寬度索引排序是否為空1職工編號(hào)數(shù)值型9Null2出差時(shí)間數(shù)值型4Null3加班時(shí)間數(shù)值型4Null4出差性質(zhì)字符型10Null5加班性質(zhì)字符型10Null6出差補(bǔ)貼數(shù)值型10Null7加班補(bǔ)貼數(shù)值型10Null8備注備注型100Null表3員工請(qǐng)假信息表字段字段名類型寬度索引排序是否為空1員工編號(hào)數(shù)值型9Null2請(qǐng)假編號(hào)字符型8Null3起始日期日期型8Null4終止日期日期型8Null5請(qǐng)假天數(shù)數(shù)值型2Null6請(qǐng)假緣由字符型50Null7批準(zhǔn)人字符型20Null8備注備注型50Null表4員工工資數(shù)據(jù)表字段字段名類型寬度索引排序是否為空1工資編號(hào)字符型20Null2員工編號(hào)數(shù)值型9Null3年份數(shù)值型4Null4月份數(shù)值型2Null5基本工資數(shù)值型8Null6加班補(bǔ)貼數(shù)值型8Null7出差補(bǔ)貼數(shù)值型8Null8交通補(bǔ)助數(shù)值型8Null9生活補(bǔ)助數(shù)值型8Null10總工資數(shù)值型8Null11考勤口除數(shù)值型8Null12保險(xiǎn)扣除數(shù)值型8Null13假期扣除數(shù)值型8Null14稅扣數(shù)值型8Null15總扣除數(shù)值型8Null16實(shí)際工資數(shù)值型8Null17編輯時(shí)間日期型10Null18備注備注型50Null（五）系統(tǒng)主界面設(shè)計(jì)因?yàn)槿耸沦Y料管理牽涉到個(gè)人隱私及公司密秘等多方面因素，所以肯定要保密，并有專人管理，運(yùn)用前身份確認(rèn)就顯得特別重要,故在運(yùn)行前要進(jìn)行管理權(quán)限確認(rèn)。以防止他人無(wú)意或惡意篡改。1.系統(tǒng)主界面主窗體是工程的啟動(dòng)對(duì)象，本作品中窗體名為：FrmMain其界面如下圖：圖3主界面圖主要屬性有：系統(tǒng)、基本信息、考勤管理、工作評(píng)價(jià)管理、工資管理和幫助。2.編輯員工基本信息員工信息查詢窗體，它主要是用于快速查找到所需的信息，以免毫無(wú)頭緒地查詢資料。它的界面如下圖：圖4員工信息查詢窗體圖員工信息修改窗體主要是員工在部門、職稱或?qū)W歷等變更時(shí)，進(jìn)行修改，讓員工的信息始終處于最新?tīng)顟B(tài)，以便利企業(yè)管理人員的查閱。圖5員工信息修改窗體圖員工信息添加窗體是在有新的員工加入或企業(yè)內(nèi)子公司調(diào)配時(shí)，對(duì)這些人員在本單位建立新的基本信息表。圖6員工信息添加窗體圖（六）程序源代碼說(shuō)明1.用戶登陸窗體PrivateSubcmdOK_Click()'驗(yàn)證用戶填寫(xiě)的是否正確IftxtUserName.Text=""ThenMsgBox"請(qǐng)?zhí)顚?xiě)用戶名！",vbOKOnly+vbInformation,"留意"txtUserName.SetFocusExitSubElseIftxtPassword.Text=""ThenMsgBox"請(qǐng)?zhí)顚?xiě)密碼！",vbOKOnly+vbInformation,"留意"txtPassword.SetFocusExitSubEndIf'設(shè)置登錄變量，這是為IsExistUser函數(shù)而設(shè)置的g_blogin=TrueIfIsExistuser(txtUserName.Text,txtPassword.Text)Then'用戶登錄勝利UnloadMeElseIfIsExistuser(txtUserName.Text,"")ThenMsgBox"密碼不正確！請(qǐng)重試……",vbOKOnly+vbInformation,"錯(cuò)誤"ElseMsgBox"無(wú)此用戶！請(qǐng)先注冊(cè)……",vbOKOnly+vbInformation,"錯(cuò)誤"EndIfEndIffrmMain.ShowEndSub2.員工基本信息窗體PublicSubShowData()Dimcmd2AsCommandDimrs2AsRecordset'定義新command對(duì)象Setcmd2=NewCommand'打開(kāi)連接IfDataE.conLibrary.State=adStateCloseThenEndIf'設(shè)置ActiveConnection屬性cmd2.ActiveConnection=DataE.conLibrary'設(shè)置CommandText屬性IfflagSearchThencmd2.CommandText=sqlElsecmd2.CommandText="select*fromManInfo"EndIfSetrs2=cmd2.ExecuteIfrs2.EOF=FalseThenWithmsgList.Rows=1DoWhileNotrs2.EOF.Rows=.Rows+1Fori=1To12SelectCasers2.Fields(i-1).TypeCaseadDBDate.TextMatrix(.Rows-1,i)=Format(rs2.Fields(i-1)&"","yyyy-mm-dd")CaseElse.TextMatrix(.Rows-1,i)=rs2.Fields(i-1)&""EndSelectNextirs2.MoveNextLoopEndWithEndIfrs2.CloseEndSub3.員工信息查詢窗體PrivateSubcmdSearch_Click()DimsqltxtAsStringDimwheretxtAsString'初始化Sqlstr和Wherestrsqltxt="select*fromManInfo"wheretxt=""'推斷Combobox選項(xiàng)IfcmbItem.ListIndex=0Then'無(wú)ElseIftxtKey.Text<>""ThenSelectCasecmbItem.ListIndexCase1'姓名wheretxt=wheretxt+"ygName='"&txtKey&"'"Case2'部門wheretxt=wheretxt+"ygDept='"&txtKey&"'"Case3'職稱wheretxt=wheretxt+"ygBusi='"&txtKey&"'"Case4'學(xué)歷wheretxt=wheretxt+"ygLevel='"&txtKey&"'"EndSelectEndIfEndIf'具體條件'姓名關(guān)鍵字IfchkName.EnabledAndchkName.Value=1AndtxtName.Text<>""ThenIfwherestr<>""ThenIfoptNameAnd.ValueThenwheretxt=wheretxt+"and"Elsewheretxt=wheretxt+"or"EndIfEndIfwheretxt=wheretxt+"ygNamelike'%"&txtName&"%'"EndIf'部門關(guān)鍵字IfchkDept.EnabledAndchkDept.Value=1AndtxtDept.Text<>""ThenIfwheretxt<>""ThenIfoptDeptAnd.ValueThenwheretxt=wheretxt+"and"Elsewheretxt=wheretxt+"or"EndIfEndIfwheretxt=wheretxt+"ygDeptlike'%"&txtDept&"%'"EndIf'職稱關(guān)鍵字IfchkBusi.EnabledAndchkBusi.Value=1AndtxtBusi.Text<>""ThenIfwheretxt<>""ThenIfoptBusiAnd.ValueThenwheretxt=wheretxt+"and"Elsewheretxt=wheretxt+"or"EndIfEndIfwheretxt=wheretxt+"ygBusilike'%"&txtBusi&"%'"EndIf'學(xué)歷關(guān)鍵字IfchkLevel.EnabledAndchkLevel.Value=1AndtxtLevel.Text<>""ThenIfwheretxt<>""ThenIfoptLevelAnd.ValueThenwheretxt=wheretxt+"and"Elsewheretxt=wheretxt+"or"EndIfEndIfwheretxt=wheretxt+"ygLevellike'%"&txtLevel&"%'"EndIf'進(jìn)入時(shí)間IfchkTimeKey.EnabledAndchkTimeKey.Value=1ThenIfoptnKeyFore.ValueOroptnKeyBack.ValueThenIftxtYearKeyFore.Text=""OrtxtMonKeyFore.Text=""ThenMsgBox"請(qǐng)完整填寫(xiě)查詢時(shí)間！",vbOKOnly+vbInformation,"查詢"ExitSubEndIfIfwheretxt<>""ThenIfoptnTimeand.ValueThenwheretxt=wheretxt+"and"Elsewheretxt=wheretxt+"or"EndIfEndIf'之前IfoptnKeyFore.ValueThenwheretxt=wheretxt+"ygDate4<'"&txtYearKeyFore.Text+"-"+txtMonKeyFore.Text&"'"'之后ElseIfoptnKeyBack.ValueThenwheretxt=wheretxt+"ygDate4>'"&txtYearKeyFore.Text+"-"+txtMonKeyFore.Text&"'"EndIfElseIfoptnKeyBetween.ValueThenIftxtYearKeyFore.Text=""OrtxtMonKeyFore.Text=""OrtxtYearKeyBack.Text=""OrtxtMonKeyBack.Text=""ThenMsgBox"請(qǐng)完整填寫(xiě)查詢時(shí)間",vbOKOnly+vbInformation,"查詢"ExitSubEndIfIfwheretxt<>""ThenIfoptnTimeand.ValueThenwheretxt=wheretxt+"and"Elsewheretxt=wheretxt+"or"EndIfEndIf'之間wheretxt=wheretxt+"ygDate4between'"&txtYearKeyFore.Text+"-"+txtMonKeyFore.Text&"'and'"&txtYearKeyBack.Text+"-"+txtMonKeyBack.Text&"'"EndIfEndIf'綜合全部條件Ifwheretxt<>""Thenwheretxt="where"+wheretxtEndIfflagSearch=Truesql=sqltxt+wheretxtfrmManrecord1.ShowTitlefrmManrecord1.ShowDatafrmManrecord1.ShowfrmManrecord1.ZOrder0EndSub4.員工信息添加保存窗體PrivateSubcmdSave_Click()DimintCountAsInteger'驗(yàn)證重要信息已經(jīng)填寫(xiě)IftxtItem(0).Text=""ThenMsgBox"請(qǐng)?zhí)顚?xiě)編號(hào)！",vbOKOnly+vbInformation,"留意"txtItem(0).SetFocusExitSubElseIftxtItem(1)=""ThenMsgBox"請(qǐng)?zhí)顚?xiě)姓名！",vbOKOnly+vbInformation,"留意"txtItem(1).SetFocusEndIf'推斷內(nèi)容是否為日期格式(生日)IftxtItem(6)<>""ThenIfNotIsDate(txtItem(6))ThenMsgBox"應(yīng)輸入日期（yyyy-mm-dd）！",vbOKOnly+vbExclamation,"警告"txtItem(6).SetFocusExitSubEndIfElsetxtItem(6)=#1/1/1900#EndIf'推斷內(nèi)容是否為日期格式(參與工作時(shí)間)IftxtItem(10)<>""ThenIfNotIsDate(txtItem(10))ThenMsgBox"應(yīng)輸入日期（yyyy-mm-dd）！",vbOKOnly+vbExclamation,"警告"txtItem(10).SetFocusExitSubEndIfElsetxtItem(10)=#1/1/1900#EndIf'推斷內(nèi)容是否為日期格式(職稱時(shí)間)IftxtItem(12)<>""ThenIfNotIsDate(txtItem(12))ThenMsgBox"生日應(yīng)輸入日期（yyyy-mm-dd）！",vbOKOnly+vbExclamation,"警告"txtItem(12).SetFocusExitSubEndIfElsetxtItem(12)=#1/1/1900#EndIf'推斷內(nèi)容是否為日期格式(入黨時(shí)間)IftxtItem(14)<>""ThenIfNotIsDate(txtItem(14))ThenMsgBox"生日應(yīng)輸入日期（yyyy-mm-dd）！",vbOKOnly+vbExclamation,"警告"txtItem(14).SetFocusExitSubEndIfElsetxtItem(14)=#1/1/1900#EndIf'推斷內(nèi)容是否為日期格式(進(jìn)入公司時(shí)間)IftxtItem(16)<>""ThenIfNotIsDate(txtItem(16))ThenMsgBox"生日應(yīng)輸入日期（yyyy-mm-dd）！",vbOKOnly+vbExclamation,"警告"txtItem(16).SetFocusExitSubEndIfElsetxtItem(16)=#1/1/1900#EndIf'推斷內(nèi)容是否為日期格式(起薪時(shí)間)IftxtItem(17)<>""ThenIfNotIsDate(txtItem(17))ThenMsgBox"生日應(yīng)輸入日期（yyyy-mm-dd）！",vbOKOnly+vbExclamation,"警告"txtItem(17).SetFocusExitSubEndIfElsetxtItem(17)=#1/1/1900#EndIf'推斷內(nèi)容是否為日期格式(調(diào)入時(shí)間)IftxtItem(18)<>""ThenIfNotIsDate(txtItem(18))ThenMsgBox"生日應(yīng)輸入日期（yyyy-mm-dd）！",vbOKOnly+vbExclamation,"警告"txtItem(18).SetFocusExitSubEndIfElsetxtItem(18)=#1/1/1900#EndIfDataE.Commands("cmdman").CommandText="deletefromManInfowhereygid='"&Trim(txtItem(0))&"'"DataE.cmdMan'將員工信息加入到中'OnErrorGoToexit1IfNotIsExistuser(txtItem(0),"")Then'添加用戶DataE.cmdAddManInfotxtItem(0),txtItem(1),cmbUnit.Text,cmbSex.Text,txtItem(4),txtItem(5),txtItem(6),txtItem(7),txtItem(8),txtItem(9),txtItem(10),txtItem(11),txtItem(12),txtItem(13),txtItem(14),txtItem(15),txtItem(16),txtItem(17),txtItem(18),txtItem(19),txtItem(20)MsgBox"注冊(cè)勝利！",vbOKOnly+vbInformation,"留意"txtItem(0)=""txtItem(1)=""cmbUnit.ListIndex=0cmbSex.ListIndex=0ForintCount=4To20txtItem(intCount)=""NextintCountElse'用戶已存在MsgBox"該編號(hào)已經(jīng)存在！請(qǐng)重新輸入一個(gè)新的編號(hào)",vbOKOnly+vbInformation,"留意"txtItem(0).Text=""txtItem(0).SetFocusEndIfExitSub'錯(cuò)誤信息exit1:MsgBox"數(shù)據(jù)未勝利寫(xiě)入數(shù)據(jù)庫(kù)！",vbOKOnly+vbInformation,"留意"ExitSubEndSub5．員工信息刪除窗體PrivateSubygDel_Click()DimsqlAsStringDimMsgAsStringDimnAsIntegerIfflagEditThenIffrmManrecord1.msgList.Rows>1ThenIfMsgBox("真的要?jiǎng)h除這條記錄么？",vbOKOnly+vbOKCancel+vbExclamation,"警告")=vbOKThensql="deletefrommanInfowhereygID='"&Trim(frmManrecord1.msgList.TextMatrix(frmManrecord1.msgList.Row,1))&"'"DataE.Commands("cmdMan").CommandText=sqlDataE.cmdManflagEdit=TruefrmManrecord1.ShowTitlefrmManrecord1.ShowDataEndIfEndIfElseMsgBox"請(qǐng)選擇要?jiǎng)h除的記錄！",vbOKOnly+vbExclamation,"警告"DataE.Commands("cmdMan").CommandText="select*frommanInfo"frmManrecord1.ShowfrmManrecord1.ZOrder0EndIfEndSub四、系統(tǒng)實(shí)施概況（一）系統(tǒng)開(kāi)發(fā)環(huán)境系統(tǒng)是在Microsoft公司的VisualBasic下開(kāi)發(fā)完成的。作為數(shù)據(jù)庫(kù)系統(tǒng)的開(kāi)發(fā)，VisualBasic是一個(gè)特別志向選擇。它是一種可視化的、面對(duì)對(duì)象和條用事務(wù)驅(qū)動(dòng)方式的結(jié)構(gòu)化高級(jí)程序設(shè)計(jì)，可用于開(kāi)發(fā)Windows環(huán)境下的種類應(yīng)用程序.它簡(jiǎn)潔易學(xué)、效率高，且功能強(qiáng)大，可以和Windows的專業(yè)開(kāi)發(fā)工具SDK相媲美，而且程序開(kāi)發(fā)人員不必具有C/C++編程基礎(chǔ)。在VisualBasic環(huán)境下，利用事務(wù)驅(qū)動(dòng)的編程機(jī)制、新奇易用的可視化設(shè)計(jì)工具，運(yùn)用Windows內(nèi)部的應(yīng)用程序接口(API)函數(shù)，以及動(dòng)態(tài)鏈接庫(kù)(DLL)、動(dòng)態(tài)數(shù)據(jù)交換(DDE)、對(duì)象的鏈接和嵌入(OLE)、開(kāi)放式數(shù)據(jù)訪問(wèn)(ODBC)等技術(shù)，可以高效、快速地開(kāi)發(fā)出Windows環(huán)境下功能強(qiáng)大、圖形界面豐富的應(yīng)用軟件系統(tǒng)。1.動(dòng)態(tài)數(shù)據(jù)交換(DDE)利用動(dòng)態(tài)數(shù)據(jù)交換(DynamicDataExchange)技術(shù)，可以把一種應(yīng)用程序中的數(shù)據(jù)動(dòng)態(tài)地鏈接到另一種應(yīng)用程序中，使兩種完全不同的應(yīng)用程序建立起一條動(dòng)態(tài)數(shù)據(jù)鏈路。當(dāng)原始數(shù)據(jù)變更時(shí)，可以自動(dòng)更新鏈接的數(shù)據(jù).VisualBasic供應(yīng)了動(dòng)態(tài)數(shù)據(jù)交換的編程技術(shù)，可以在應(yīng)用程序中和其他Windows應(yīng)用程序建立動(dòng)態(tài)數(shù)據(jù)交換，在不同的應(yīng)用程序之間進(jìn)行通信。2.對(duì)象的鏈接和嵌入(OLE)對(duì)象的鏈接和嵌入(OLE)將每個(gè)應(yīng)用程序都看作是一個(gè)對(duì)象(object)，將不同的對(duì)象鏈接(link)起來(lái)，再嵌入(embed)某個(gè)應(yīng)用程序中，從而可以得到具有聲音、影像、圖像、動(dòng)畫(huà)、文字等各種信息的集合式的文件。OLE技術(shù)是Microsoft公司對(duì)象技術(shù)的戰(zhàn)略，它把多個(gè)應(yīng)用程序合為一體，將每個(gè)應(yīng)用程序看作是一個(gè)對(duì)象進(jìn)行鏈接和嵌入，是一種應(yīng)用程序一體化的技術(shù)。利用OLE技術(shù)，可以便利地建立復(fù)合式文檔(compounddocument)，這種文檔由來(lái)自多個(gè)不同應(yīng)用程序的對(duì)象組成，文檔中的每個(gè)對(duì)象都和原來(lái)的應(yīng)用程序相聯(lián)系，并可執(zhí)行和原來(lái)應(yīng)用程序完全相同的操作。3.動(dòng)態(tài)鏈接庫(kù)(DLL)