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

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