PAGEPAGEPAGE30PAGE30目錄摘要 1Asbtract 2第一章引言 3§1．2Access2000的介紹 3第二章研究現(xiàn)狀及設(shè)計(jì)目標(biāo) 4§2．1人事管理系統(tǒng)簡(jiǎn)介 42．1．1人事管理系統(tǒng)的發(fā)展歷史 42．1．2人力資源開(kāi)發(fā)的目的 4§2.2人事管理相關(guān)軟件簡(jiǎn)介 5§2．3企業(yè)信息化發(fā)展 6第三章要解決的幾個(gè)關(guān)鍵問(wèn)題 6§3．1應(yīng)用人事管理系統(tǒng)的必要 6§3.2系統(tǒng)可行性分析 7§3.3系統(tǒng)詳細(xì)調(diào)查 73.3.1功能需求 73.3.2數(shù)據(jù)需求 73.3.3運(yùn)行環(huán)境 7第四章 系統(tǒng)結(jié)構(gòu)與模型 7§4.1人事管理系統(tǒng)的詳細(xì)調(diào)查 7§4.2系統(tǒng)邏輯模型的提出 7§4．3模塊設(shè)計(jì) 9§4.4數(shù)據(jù)庫(kù)實(shí)現(xiàn) 10§4.5數(shù)據(jù)字典 10第五章系統(tǒng)實(shí)現(xiàn)技術(shù) 12§5．1開(kāi)發(fā)環(huán)境的選擇 125.1.1前端開(kāi)發(fā)工具VisualBasic6.0簡(jiǎn)介 125.1.2后臺(tái)數(shù)據(jù)庫(kù)引擎Access簡(jiǎn)介 12§5.2人事管理系統(tǒng)模塊設(shè)計(jì)舉例 125.2.1建立公共模塊 125.2.2添加公共模塊 12§5.3系統(tǒng)運(yùn)行與維護(hù) 265.3.1初始數(shù)據(jù)的輸入 265.3.2怎樣進(jìn)入系統(tǒng) 265.3.3怎樣使用本系統(tǒng) 275.3.4系統(tǒng)的主要維護(hù) 27第六章性能測(cè)試與分析 27結(jié)束語(yǔ) 28參考文獻(xiàn) 29致謝 30摘要隨著計(jì)算機(jī)技術(shù)的不斷發(fā)展，計(jì)算機(jī)作為知識(shí)經(jīng)濟(jì)時(shí)代的產(chǎn)物，已被廣泛應(yīng)用于社會(huì)各個(gè)行業(yè)和領(lǐng)域。隨著我國(guó)國(guó)企改革的深入和社會(huì)主義市場(chǎng)經(jīng)濟(jì)的日趨繁榮，導(dǎo)致各企業(yè)間的競(jìng)爭(zhēng)日益激烈，迫使企業(yè)采取先進(jìn)的計(jì)算機(jī)硬件設(shè)備以及高質(zhì)量的輔助軟件來(lái)管理企業(yè)的各項(xiàng)運(yùn)作，以提高本企業(yè)的勞動(dòng)生產(chǎn)率以及人員效率。人事管理系統(tǒng)軟件作為一種管理軟件正在各企事業(yè)單位中得到越來(lái)越廣泛的應(yīng)用。本論文是從現(xiàn)代企業(yè)管理中的人事管理現(xiàn)狀出發(fā)，針對(duì)人事管理的復(fù)雜程序，經(jīng)過(guò)詳細(xì)的系統(tǒng)調(diào)查，開(kāi)發(fā)出的操作簡(jiǎn)單而且方便實(shí)用的一個(gè)人事管理系統(tǒng)。對(duì)企業(yè)中的考勤信息、請(qǐng)假信息、加班信息、出差信息、調(diào)動(dòng)信息進(jìn)行管理。本系統(tǒng)用VisualBasic6.0編寫(xiě)，后臺(tái)數(shù)據(jù)庫(kù)選用Access2000。英文摘要。關(guān)鍵詞：人事管理系統(tǒng)、管理信息系統(tǒng)、電子數(shù)據(jù)處理、數(shù)據(jù)庫(kù)、AsbtractAlreadyisbeenapplyinthesocialeachprofessionandrealmsextensively.Reformalongwiththeourcountrystate-ownersenterprisethoroughisgraduallyprosperouswiththesocialismmarketeconomy,causethecompetitionbetweeneachbusinessenterprisesincreasinglyvigorous,forcetheassistancesoftwareofthecalculatorhardwareequipmentsandhighquantitythatthebusinessenterpriseadoptstheforerunnertomanagevariousoperationsofthebusinessenterprise,toraiselaborrateofproductionandpersonnel'sefficienciesofthisbusinessenterprise.Thepersonalmanagementsystemsoftwareisakindofmanagementsoftwarejustgetthemoreandmoreextensiveapplicationineachbusinessunit.Thisthesisisfromthemodernbusinessenterprisepresentcondition,aimatthepersonalmanagementofthecomplicatedprocedureoperation,passbydetailedsysteminvestigate,developsimpleandconvenientpracticalsuchapersonalmanagementsystem.TheheadtoolofthissystemdevelopmentisVisualBasic6.0,theengineofthebackstagedatabasesoftwarechoosetouseisAccess2000.Thissystemthroughtests,andrunstability,andhavealreadygottheapprobation.Keywords：Personalmanagementsystem,themanagementinformationsystem,theelectronicsdataprocessing,database。第一章引言計(jì)算機(jī)技術(shù)已經(jīng)進(jìn)入實(shí)用階段，同時(shí)大型企業(yè)用手工來(lái)計(jì)算和發(fā)放薪資既費(fèi)時(shí)費(fèi)力又非常容易出差錯(cuò)，為了解決這個(gè)矛盾同時(shí)由于個(gè)人電腦的普及，數(shù)據(jù)庫(kù)技術(shù)、客戶(hù)/服務(wù)器技術(shù)，特別是Internet/Intranet技術(shù)的發(fā)展，友好的用戶(hù)界面，強(qiáng)有力的報(bào)表生成工具、分析工具和信息的共享使得人力資源管理人員得以擺脫繁重的日常工作，集中精力從戰(zhàn)略的角度來(lái)考慮企業(yè)人力資源規(guī)劃和政策?！?．1Visualbase的介紹VB6.0已經(jīng)成為功能強(qiáng)大、使用人數(shù)眾多的主流編程工具。它提供了向?qū)ё詣?dòng)生成代碼，支持拖放技術(shù)、屬性檢查、實(shí)時(shí)語(yǔ)法檢查等內(nèi)置自動(dòng)化技術(shù)，大大降低了編寫(xiě)代碼的工作量，同時(shí)它還提供了極其豐富的控件，使得VB6.0成為最簡(jiǎn)捷、最有效的開(kāi)發(fā)Windows應(yīng)用程序工具。隨著網(wǎng)絡(luò)技術(shù)的不斷發(fā)展，VB6.0的應(yīng)用范圍已從開(kāi)發(fā)單機(jī)軟件發(fā)展的開(kāi)發(fā)網(wǎng)上分布式應(yīng)用軟件。VB6.0不但受到廣大初、中級(jí)計(jì)算機(jī)愛(ài)好者的歡迎，也越來(lái)越受到高級(jí)程序員的歡迎?！?．2Access2000的介紹用Access2000作為后臺(tái)數(shù)據(jù)庫(kù)。數(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ù)信息的完整性和一致性。Access2000是Office2000中文版的組件之一。與以前的Access版本相比，Access2000不僅界面更加友好，而且功能也有了加強(qiáng)，尤其是網(wǎng)絡(luò)功能有明顯的提高，使Access2000與互聯(lián)網(wǎng)的結(jié)合更加緊密。Access2000是一個(gè)中、小型數(shù)據(jù)庫(kù)管理系統(tǒng)，使用方便、功能強(qiáng)大，與其它數(shù)據(jù)庫(kù)有良好的接口。通過(guò)Access2000功能強(qiáng)大的工具，用戶(hù)可以方便的使用和管理數(shù)據(jù)庫(kù)，如創(chuàng)建和編輯數(shù)據(jù)表、設(shè)計(jì)和使用各種查詢(xún)工具進(jìn)行查詢(xún)操作、設(shè)計(jì)和使用窗體、制作和打印報(bào)表、設(shè)計(jì)和使用宏、設(shè)計(jì)和使用Web頁(yè)等。Access2000具有完整的數(shù)據(jù)庫(kù)應(yīng)用開(kāi)發(fā)工具，用戶(hù)可以方便的設(shè)計(jì)、修改、瀏覽一個(gè)記錄數(shù)據(jù)的基本表；可以在表數(shù)據(jù)中進(jìn)行各種篩選和查詢(xún)操作；可以設(shè)計(jì)和使用各種窗體以實(shí)現(xiàn)數(shù)據(jù)顯示和操作；可以根據(jù)表數(shù)據(jù)設(shè)計(jì)打印各種報(bào)表；可以設(shè)計(jì)和使用宏，對(duì)表進(jìn)行一系列特定的操作。Access2000內(nèi)有強(qiáng)大的操作向?qū)?，為用?hù)提供了豐富的數(shù)據(jù)庫(kù)基本表模板。用戶(hù)只需簡(jiǎn)單的操作就可建立數(shù)據(jù)庫(kù)中所使用的各種基本表、窗體和報(bào)表。在Access2000中，可以設(shè)定、修改基本表之間的關(guān)聯(lián)，從而實(shí)現(xiàn)在多個(gè)相關(guān)表之間的關(guān)系查詢(xún)。Access2000中的宏可以實(shí)現(xiàn)操作的自動(dòng)化，使操作更加簡(jiǎn)單、快捷。Access2000不僅可以處理自身的數(shù)據(jù)庫(kù)文件，還可以處理其它一些數(shù)據(jù)庫(kù)系統(tǒng)管理軟件所建立的數(shù)據(jù)庫(kù)文件，能識(shí)別dBase、FoxBase、FoxPro、Paradox、Btrieve等數(shù)據(jù)庫(kù)格式文件，并且支持開(kāi)放式數(shù)據(jù)庫(kù)互連性標(biāo)準(zhǔn)的SQL。Access2000能與工作站、數(shù)據(jù)庫(kù)服務(wù)器或主機(jī)上的各種數(shù)據(jù)庫(kù)互相連接，并可用于建立客戶(hù)/服務(wù)器應(yīng)用程序中的工作站部分。第二章研究現(xiàn)狀及設(shè)計(jì)目標(biāo)§2．1人事管理系統(tǒng)簡(jiǎn)介隨著市場(chǎng)競(jìng)爭(zhēng)的日趨激烈，人已成為實(shí)現(xiàn)企業(yè)自身戰(zhàn)略目標(biāo)的一個(gè)非常關(guān)鍵的因素。企業(yè)中人心的向背和員工對(duì)工作的投入程度在很大程度上決定了該企業(yè)的興衰與成敗。如何能保持本企業(yè)員工的工作責(zé)任感，激勵(lì)他們的工作熱情，減少人才的流失，已成為困擾企業(yè)主管和人力資源經(jīng)理的一個(gè)日益尖銳的問(wèn)題。企業(yè)管理從根本上來(lái)講就是對(duì)人的管理。2．1．1人事管理系統(tǒng)的發(fā)展歷史人力資源管理系統(tǒng)的發(fā)展歷史可以追溯到20世紀(jì)60年代末期。由于當(dāng)時(shí)計(jì)算機(jī)技術(shù)已經(jīng)進(jìn)入實(shí)用階段，同時(shí)大型企業(yè)用手工來(lái)計(jì)算和發(fā)放薪資既費(fèi)時(shí)費(fèi)力又非常容易出差錯(cuò)，為了解決這個(gè)矛盾，第一代的人力資源管理系統(tǒng)應(yīng)運(yùn)而生。當(dāng)時(shí)由于技術(shù)條件和需求的限制，用戶(hù)非常少，而且那種系統(tǒng)充其量也只不過(guò)是一種自動(dòng)計(jì)算薪資的工具，既不包含非財(cái)務(wù)的信息，也不包含薪資的歷史信息，幾乎沒(méi)有報(bào)表生成功能和薪資數(shù)據(jù)分析功能。但是，它的出現(xiàn)為人力資源的管理展示了美好的前景，即用計(jì)算機(jī)的高速度和自動(dòng)化來(lái)代替手工的巨大工作量，用計(jì)算機(jī)的高準(zhǔn)確性來(lái)避免手工的錯(cuò)誤和誤差，使大規(guī)模集中處理大型企業(yè)的薪資成為可能。第二代的人力資源管理系統(tǒng)出現(xiàn)于20世紀(jì)70年代末。由于計(jì)算機(jī)技術(shù)的飛速發(fā)展，無(wú)論是計(jì)算機(jī)的普及性，還是計(jì)算機(jī)系統(tǒng)工具和數(shù)據(jù)庫(kù)技術(shù)的發(fā)展，都為人力資源管理系統(tǒng)的階段發(fā)展提供了可能。第二代人力資源管理系統(tǒng)基本上解決了第一代系統(tǒng)的主要缺陷，對(duì)非財(cái)務(wù)的人力資源信息和薪資的歷史信息都給予了考慮，其報(bào)表生成和薪資數(shù)據(jù)分析功能也都有了較大的改善。但這一代的系統(tǒng)主要是由計(jì)算機(jī)專(zhuān)業(yè)人員開(kāi)發(fā)研制的，未能系統(tǒng)地考慮人力資源的需求和理念，而且其非財(cái)務(wù)的人力資源信息也不夠系統(tǒng)和全面。人力資源管理系統(tǒng)的革命性變革出現(xiàn)在20世紀(jì)90年代末。由于市場(chǎng)競(jìng)爭(zhēng)的需要，如何吸引和留住人才，激發(fā)員工的創(chuàng)造性、工作責(zé)任感和工作熱情已成為關(guān)系企業(yè)興衰的重要因素，人才已經(jīng)成為企業(yè)最重要的資產(chǎn)之一。“公正、公平、合理”的企業(yè)管理理念和企業(yè)管理水平的提高，使社會(huì)對(duì)人力資源管理系統(tǒng)有了更高的需求；同時(shí)由于個(gè)人電腦的普及，數(shù)據(jù)庫(kù)技術(shù)、客戶(hù)/服務(wù)器技術(shù)，特別是Internet/Intranet技術(shù)的發(fā)展，使得第三代人力資源管理系統(tǒng)的出現(xiàn)成為必然。第三代人力資源管理系統(tǒng)的特點(diǎn)是從人力資源管理的角度出發(fā)，用集中的數(shù)據(jù)庫(kù)處理幾乎所有與人力資源相關(guān)的數(shù)據(jù)（如薪資福利、招聘、個(gè)人職業(yè)生涯的設(shè)計(jì)、培訓(xùn)、職位管理、績(jī)效管理、崗位描述、個(gè)人信息和歷史資料）統(tǒng)一管理起來(lái)，形成了集成的信息源。友好的用戶(hù)界面，強(qiáng)有力的報(bào)表生成工具、分析工具和信息的共享使得人力資源管理人員得以擺脫繁重的日常工作，集中精力從戰(zhàn)略的角度來(lái)考慮企業(yè)人力資源規(guī)劃和政策。2．1．2人力資源開(kāi)發(fā)的目的人力資源管理是企業(yè)管理中的一個(gè)重要內(nèi)容，隨著時(shí)代的進(jìn)步，企業(yè)也逐漸變得龐大起來(lái)。如何管理好企業(yè)內(nèi)部員工的信息，成為企業(yè)管理中的一個(gè)大問(wèn)題。在這種情況下，開(kāi)發(fā)一個(gè)人力資源管理系統(tǒng)就顯得非常必要。人力資源管理系統(tǒng)就是把企業(yè)離散的人員信息加以集中分類(lèi)的處理，通過(guò)它的管理，可以將分類(lèi)處理后的信息，直觀的提供給管理人員，加強(qiáng)對(duì)企業(yè)用人的優(yōu)化分配，充分發(fā)揮人的作，提高企業(yè)整體工作效率，創(chuàng)造價(jià)值。本系統(tǒng)結(jié)合公司實(shí)際的人事、制度，經(jīng)過(guò)實(shí)際的需求分析，采用功能強(qiáng)大的VisualBasic6.0作為開(kāi)發(fā)工具而開(kāi)發(fā)出來(lái)的單機(jī)版人事管人事理系統(tǒng)。整個(gè)系統(tǒng)從符合操作簡(jiǎn)便、界面友好、靈活、實(shí)用、安全的要求出發(fā)，完成人力資源管理的全過(guò)程，包括新進(jìn)員工加入時(shí)人事檔案的建立、老員工的轉(zhuǎn)出、職位等的變動(dòng)引起職工信息的修改、員工信息查詢(xún)、統(tǒng)計(jì)等人力資源管理工作以及新進(jìn)員工人事的新增、老員工人事修改、刪除……等人力資源管理工作。經(jīng)過(guò)實(shí)際使用證明，本文所設(shè)計(jì)的人力資源管理系統(tǒng)可以滿足公司人力資源管理方面的需要?！?.2人事管理相關(guān)軟件簡(jiǎn)介近幾年來(lái)，國(guó)內(nèi)外與人力資源管理有關(guān)的系統(tǒng)和程序的發(fā)展都非常迅速，眾多的軟件有如雨后春筍般地不斷涌現(xiàn)。這些軟件盡管各有特點(diǎn)，但從功能上來(lái)分析，大致可分為如下五種：薪資和福利計(jì)算程序。這類(lèi)程序通?？捎糜诠芾砥髽I(yè)薪資和福利計(jì)算的全過(guò)程，其中包括企業(yè)的薪資和福利政策設(shè)定、自動(dòng)計(jì)算個(gè)人所得稅、自動(dòng)計(jì)算社會(huì)保險(xiǎn)等代扣代繳項(xiàng)目。通常，這些程序還可以根據(jù)公司的政策設(shè)置并計(jì)算由年假、事假、病假、婚假、喪假等帶薪假期以及遲到、早退、曠工等形成的對(duì)薪資和福利的扣減，能夠設(shè)定企業(yè)的成本中心并按成本中心將薪資和總賬連接起來(lái)，直接生成總賬憑證，還能存儲(chǔ)完備的歷史信息供查詢(xún)和生成報(bào)表；這類(lèi)系統(tǒng)也可處理部分簡(jiǎn)單的人事信息。培訓(xùn)管理系統(tǒng)。培訓(xùn)管理系統(tǒng)一般通過(guò)培訓(xùn)需求調(diào)查、預(yù)算控制、結(jié)果評(píng)估和反饋以及培訓(xùn)結(jié)果記載等手段，實(shí)現(xiàn)培訓(xùn)管理的科學(xué)化，并且和人力資源信息有機(jī)地聯(lián)系起來(lái)，為企業(yè)人力資源的配備和員工的升遷提供科學(xué)的依據(jù)?？记诠芾沓绦?。為了有效地記載員工的出勤情況，很多企業(yè)配置了打卡機(jī)，考勤機(jī)等設(shè)備?？记诠芾沓绦蛞话愣寂c這些設(shè)備相接，根據(jù)事先的編排的班次信息，過(guò)濾掉錯(cuò)誤數(shù)據(jù)，生成較為清晰的員工出勤報(bào)告，并可轉(zhuǎn)入薪資和福利程序中，使考勤數(shù)據(jù)與薪資計(jì)算直接掛鉤。其生的文檔還可作為歷史信息保存，用于分析，統(tǒng)計(jì)和查詢(xún)。人力資源管理系統(tǒng)。人力資源管理系統(tǒng)從科學(xué)的人力資源管理角度出發(fā)，從企業(yè)的人力資源規(guī)劃開(kāi)始，一般包括招聘、崗位描述、培訓(xùn)、技能、績(jī)效評(píng)估、個(gè)人信息、薪資和福利、各種假期、到離職等與員工個(gè)人相關(guān)的信息，并以一種相容的、一致的、共享的、易訪問(wèn)和檢索的方式儲(chǔ)存到集中的數(shù)據(jù)庫(kù)中，從而將企業(yè)內(nèi)員工的信息統(tǒng)一的管理起來(lái)。其靈活的報(bào)表生成功能和分析功能使得人力資源管理人員可以從繁瑣的日常工作中解脫出來(lái)，將精力放到更富有挑戰(zhàn)性和創(chuàng)造性的人力資源分析、規(guī)劃、員工激勵(lì)和戰(zhàn)略等工作中去。完整的歷史信息記載了員工從面試開(kāi)始到離職整個(gè)周期的薪資、福利、崗位變遷、績(jī)效等信息。同時(shí)由于這類(lèi)系統(tǒng)可管理較全面的人力資源和薪資數(shù)據(jù)，因而還可以生成許多綜合性的報(bào)表供企業(yè)決策人員參考，如生成按崗位的平均歷史薪資圖表，員工配備情況的分析圖表，個(gè)人績(jī)效與學(xué)歷、技能、工作經(jīng)驗(yàn)、接受過(guò)的培訓(xùn)等關(guān)系的分析等等?！?．3企業(yè)信息化發(fā)展隨著信息時(shí)代的到來(lái)，企業(yè)的信息化已被提上日程。企業(yè)自然會(huì)考慮下述問(wèn)題：在規(guī)劃方案中，哪些功能是必需的？哪些并不適合自己的公司？遺漏了哪些必需功能？企業(yè)建立管理信息系統(tǒng)時(shí)，現(xiàn)行的工作流程還需要怎么調(diào)整才能使工作效率真正提高？企業(yè)管理信息系統(tǒng)將來(lái)的運(yùn)行、維護(hù)、升級(jí)、改造成本有多高？選擇什么樣的管理信息系統(tǒng)軟件平臺(tái)開(kāi)發(fā)自己的管理信息系統(tǒng)最可靠而且經(jīng)濟(jì)？而只有對(duì)以下三個(gè)問(wèn)題進(jìn)行分析，才有助于推動(dòng)企業(yè)的信息化。1、信息是現(xiàn)代企業(yè)管理的核心。在開(kāi)始著手規(guī)劃和建立企業(yè)的管理信息系統(tǒng)時(shí)，要堅(jiān)信信息技術(shù)的發(fā)展將在企業(yè)的管理過(guò)程中起著越來(lái)越重要的地位，而且越來(lái)越?jīng)Q定著企業(yè)管理的效果和效率。在提高和改善企業(yè)管理的過(guò)程中，應(yīng)該明白如何采用管理信息系統(tǒng)這一有效管理工具，以及它是如何在企業(yè)的管理中起作用的。隨著企業(yè)規(guī)模的擴(kuò)大，其管理組織會(huì)變得越來(lái)越龐大和困難，而信息的處理與使用也變得越來(lái)越重要。2、在規(guī)劃和建設(shè)一個(gè)企業(yè)的管理信息系統(tǒng)時(shí)，有可能誤認(rèn)為企業(yè)的管理信息系統(tǒng)就是在企業(yè)原有管理模式上加入計(jì)算機(jī)信息處理。其實(shí)，一個(gè)好的管理信息系統(tǒng)絕不是企業(yè)原有的管理模式和計(jì)算機(jī)信息處理的簡(jiǎn)單相加，建立管理信息系統(tǒng)的目的是通過(guò)實(shí)現(xiàn)對(duì)企業(yè)信息處理的現(xiàn)代化而達(dá)到高效完成管理工作，所以一個(gè)好的管理信息系統(tǒng)的模型一定要能夠與當(dāng)今信息技術(shù)緊密相連，并能夠充分利用其優(yōu)良性能。3.企業(yè)信息化是一個(gè)過(guò)程。企業(yè)的信息化規(guī)劃和建設(shè)是一個(gè)不斷改進(jìn)、逐步提高的過(guò)程。在這樣一個(gè)復(fù)雜的系統(tǒng)中存在著大量的作用因素，只能通過(guò)長(zhǎng)斯不斷的努力才能達(dá)到目的，在企業(yè)信息化的規(guī)劃和建設(shè)過(guò)程中，不可將職工的計(jì)算機(jī)和軟件使用培訓(xùn)等視為可有可無(wú)，信息化的發(fā)展使計(jì)算機(jī)和軟件成為企業(yè)日常管理中的必然。第三章要解決的幾個(gè)關(guān)鍵問(wèn)題§3．1應(yīng)用人事管理系統(tǒng)的必要現(xiàn)在不少企業(yè)管理人員已經(jīng)認(rèn)識(shí)到采用人力資源管理系統(tǒng)的必要性，紛紛開(kāi)發(fā)或選購(gòu)適合本企業(yè)特點(diǎn)的人力資源管理系統(tǒng)。人事管理系統(tǒng)具體以下優(yōu)點(diǎn)：1、采用人事管理系統(tǒng)，可以用集中的數(shù)據(jù)庫(kù)將與人力資源管理相關(guān)的信息全面、有機(jī)地聯(lián)系起來(lái)，有效地減少了信息更新和查找中的重復(fù)勞動(dòng)，保證了信息的相容性，從而大大地提高了工作效率，還能使原來(lái)不可以提供的分析報(bào)告成了可能。2、人事管理系統(tǒng)有著易訪問(wèn)、易查詢(xún)的信息庫(kù)。在沒(méi)有采用和實(shí)施人事管理系統(tǒng)之前，當(dāng)企業(yè)管理人員要統(tǒng)計(jì)數(shù)字時(shí)，往往依賴(lài)于某個(gè)人或某些人來(lái)獲取。這種依賴(lài)于人的過(guò)程往往會(huì)因?yàn)榛ㄙM(fèi)的時(shí)間較長(zhǎng)或某個(gè)人不在辦公室而不能及時(shí)完成。在采用和實(shí)施人事管理系統(tǒng)之后，就會(huì)將依賴(lài)于人的過(guò)程改為依賴(lài)于計(jì)算機(jī)系統(tǒng)的過(guò)程。企業(yè)管理人員只要獲取了相應(yīng)的權(quán)限，就可以隨時(shí)進(jìn)入系統(tǒng)，直接查閱相應(yīng)的信息。實(shí)施了人事管理系統(tǒng)之后，不僅可以得到較為全面的、詳細(xì)的、未經(jīng)過(guò)過(guò)濾的第一手人事信息，發(fā)現(xiàn)不公平的現(xiàn)象，甚至還可以從中得到某些靈感和啟發(fā)，從而改進(jìn)企業(yè)的管理。這種透明性還可以規(guī)避企業(yè)管理中潛在的風(fēng)險(xiǎn)。3、采用和實(shí)施人事管理系統(tǒng)不僅僅是為了提高工作效率。應(yīng)該看到，在實(shí)施人事管理系統(tǒng)之后，經(jīng)過(guò)整合的、較為全面、準(zhǔn)確、一致和相容的信息不僅可以讓企業(yè)領(lǐng)導(dǎo)對(duì)本企業(yè)人力資源的現(xiàn)狀有一個(gè)比較全面和準(zhǔn)確的認(rèn)識(shí)，同時(shí)也可以生成綜合的分析報(bào)表供企業(yè)領(lǐng)導(dǎo)人在決策時(shí)參考。這就提高了企業(yè)的管理水平。§3.2系統(tǒng)可行性分析人事管理系統(tǒng)在企業(yè)中占有極其重要的地位，它關(guān)系著企業(yè)內(nèi)部每個(gè)職員的檔案，其中包括新職員的增加，職員檔案的查找，職員的詳細(xì)資料等等。對(duì)于企業(yè)來(lái)講，人事管理系統(tǒng)是不可缺少的組成部分，它有效地管理企業(yè)的員工，對(duì)企業(yè)內(nèi)部人事的流動(dòng)和分配起著重要的管理作用，它正確地反映著企業(yè)的人事變化?！?.3系統(tǒng)詳細(xì)調(diào)查3.3.1功能需求基于以上的開(kāi)發(fā)目標(biāo)，系統(tǒng)開(kāi)發(fā)的范圍確定如下：1、本系統(tǒng)只涉及人事資料部分，不包括工資計(jì)算等項(xiàng)目；2、本系統(tǒng)提供強(qiáng)大的查詢(xún)功能，可進(jìn)行不同類(lèi)型查詢(xún)，提供多種索引；3、本系統(tǒng)提供記錄的添加，刪除和修改；本系統(tǒng)可單條或多條輸出個(gè)人資料，并可打印相關(guān)報(bào)表。3.3.2數(shù)據(jù)需求通過(guò)調(diào)查和研究，本系統(tǒng)僅提供一個(gè)數(shù)據(jù)庫(kù)，但該數(shù)據(jù)庫(kù)包含各項(xiàng)所需信息，表名為person.3.3.3運(yùn)行環(huán)境本系統(tǒng)對(duì)計(jì)算機(jī)的要求并不高，只要是在Windows98/XP/2000操作系統(tǒng)中都可運(yùn)行。系統(tǒng)結(jié)構(gòu)與模型§4.1人事管理系統(tǒng)的詳細(xì)調(diào)查對(duì)現(xiàn)行管理業(yè)務(wù)進(jìn)行詳細(xì)調(diào)查是了解系統(tǒng)需求和進(jìn)行系統(tǒng)分析和設(shè)計(jì)的重要基礎(chǔ)工作，因此要對(duì)企業(yè)的人事管理工作進(jìn)行全面、細(xì)致而充分的調(diào)查研究。系統(tǒng)調(diào)研采取的主要方法是到現(xiàn)場(chǎng)去，通過(guò)座談、詢(xún)問(wèn)、觀察甚至直接參與管理活動(dòng)，自上而下、逐步細(xì)化的進(jìn)行了解?！?.2系統(tǒng)邏輯模型的提出系統(tǒng)分析的主要成果是系統(tǒng)的邏輯模型。本系統(tǒng)的邏輯模型主要是以系統(tǒng)的數(shù)據(jù)流圖和數(shù)據(jù)字典為主要描述工具。即在對(duì)人事管理方式和業(yè)務(wù)流程進(jìn)行認(rèn)真分析和研究的基礎(chǔ)上，排除現(xiàn)有組織機(jī)構(gòu)和業(yè)務(wù)分工所造成的信息障礙。完全從業(yè)務(wù)管理功能和管理對(duì)象出發(fā)，按照信息系統(tǒng)中應(yīng)有的數(shù)據(jù)流和數(shù)據(jù)結(jié)構(gòu)來(lái)勾畫(huà)系統(tǒng)的概貌。（附密碼驗(yàn)證流程圖）開(kāi)始N開(kāi)始N提示提示登錄本程序提示提示登錄本程序輸入是否退出?Y輸入是否退出?Y輸入用戶(hù)密碼輸入用戶(hù)密碼退出系統(tǒng)顯示錯(cuò)誤退出系統(tǒng)顯示錯(cuò)誤調(diào)用密碼檢測(cè)子程序調(diào)用密碼檢測(cè)子程序進(jìn)入人事管理系統(tǒng)進(jìn)入人事管理系統(tǒng)圖4-1密碼驗(yàn)證流程圖企業(yè)人事管理系統(tǒng)E-R流程圖:EmailEmail電話參加工作時(shí)間住址郵編編號(hào) 電話參加工作時(shí)間住址郵編編號(hào)進(jìn)入公司時(shí)間姓名進(jìn)入公司時(shí)間姓名性別性別籍貫籍貫名稱(chēng)名稱(chēng)m部門(mén)年齡員工m部門(mén)年齡員工類(lèi)別生日類(lèi)別生日學(xué)歷學(xué)歷專(zhuān)業(yè)職務(wù)專(zhuān)業(yè)職務(wù)部門(mén)起薪時(shí)間部門(mén)起薪時(shí)間圖4-2企業(yè)人事管理系統(tǒng)E－R圖§4．3模塊設(shè)計(jì)按照功能分析及數(shù)據(jù)庫(kù)的設(shè)計(jì)結(jié)果，為本系統(tǒng)設(shè)計(jì)如下模塊，最終得到如下圖所示的功能模塊圖：(附圖)企業(yè)人事管理系統(tǒng)企業(yè)人事管理系統(tǒng)員工基本信息管理員工考勤信息管理員工調(diào)動(dòng)信息管理系統(tǒng)添加員工基本信息修改員工基本信息查詢(xún)員工基本信息刪除員工基本信息添加員工考勤信息修改員工考勤信息查詢(xún)員工考勤信息刪除員工考勤信息添加員工調(diào)動(dòng)信息修改員工調(diào)動(dòng)信息查詢(xún)員工調(diào)動(dòng)信息刪除員工調(diào)動(dòng)信息添加用戶(hù)、修改密碼圖4-3企業(yè)人事管理系統(tǒng)模塊圖從總體結(jié)構(gòu)圖容易列出應(yīng)用程序的菜單，由總體結(jié)構(gòu)圖轉(zhuǎn)換到菜單時(shí)，其對(duì)應(yīng)情況如下：系統(tǒng)對(duì)應(yīng)菜單文件，子系統(tǒng)層對(duì)應(yīng)菜單標(biāo)題，功能層對(duì)應(yīng)子菜單項(xiàng)。本系統(tǒng)所使用的模塊包括：系統(tǒng)模塊，員工調(diào)動(dòng)信息模塊，員工考勤模塊，員工基本信息模塊等。1、系統(tǒng)：系統(tǒng)啟動(dòng)的時(shí)候有一個(gè)管理員用戶(hù),使用這個(gè)用戶(hù)登錄后,可以添加其它用戶(hù),而且每一個(gè)用戶(hù)都可以更改自己的密碼。2、員工基本信息（1）添加員工信息:系統(tǒng)自動(dòng)生成員工編號(hào),管理員可以添加員工的基本信息,包括姓名、性別、籍貫、年齡、生日、住址、E-mail、學(xué)歷、專(zhuān)業(yè)、進(jìn)入本公司時(shí)間等。（2）修改員工信息：選擇一個(gè)員工，可以修改這個(gè)員工的基本信息。（3）查詢(xún)員工信息：可以根據(jù)員工的編號(hào)、姓名或者進(jìn)入公司的時(shí)間進(jìn)行查詢(xún)員工基本信息。并且可以針對(duì)查詢(xún)結(jié)果進(jìn)行修改和刪除操作。（4）刪除員工信息：直接從列表中選中需要?jiǎng)h除的員工信息，然后進(jìn)行刪除操作，或者首先查詢(xún)需要?jiǎng)h除的員工信息，然后再刪除。3、員工考勤信息：添加考勤信息:主要分為上下班信息和其他考勤信息.上下班信息主要記錄每個(gè)員工每天上下班的時(shí)間,而其他考勤信息包含有請(qǐng)假、加班、出差信息。（1）修改考勤信息：當(dāng)考勤信息出現(xiàn)錯(cuò)誤需要修改的時(shí)候，可以從這里修改相應(yīng)的記錄。（2）查詢(xún)考勤信息：分為刪除上下班信息和刪除其他考勤信息。（3）刪除考勤信息：分為刪除上下班信息和刪除其他考勤信息。（4）設(shè)置上下班時(shí)間：設(shè)置公司上下班時(shí)間。4、員工調(diào)動(dòng)信息（1）添加調(diào)動(dòng)信息：添加企業(yè)員工的原有部門(mén)、原有職務(wù)、新部門(mén)、新職務(wù)等信息。（2）修改調(diào)動(dòng)信息：修改相應(yīng)的員工調(diào)動(dòng)信息。（3）查詢(xún)調(diào)動(dòng)信息：查詢(xún)某個(gè)員工的調(diào)動(dòng)信息或者某段時(shí)間內(nèi)企業(yè)內(nèi)部的調(diào)動(dòng)情況?！?.4數(shù)據(jù)庫(kù)實(shí)現(xiàn)本程序采用Access作為數(shù)據(jù)庫(kù)引擎，其主要原因是考慮到現(xiàn)在的大多數(shù)辦公室應(yīng)用系統(tǒng)軟件均支持Access數(shù)據(jù)庫(kù)，所以只要應(yīng)用于格式符合的計(jì)算機(jī)系統(tǒng)上即可運(yùn)行，并且由于Access與VB皆是微軟公司開(kāi)發(fā)出來(lái)的軟件，所以它們之間的兼容性非常好，容易配合使用。在本程序數(shù)據(jù)庫(kù)中，還采用了數(shù)據(jù)庫(kù)鏈接系統(tǒng)，它維護(hù)了數(shù)據(jù)的獨(dú)立性，而且可以與其他程序鏈接，達(dá)到數(shù)據(jù)的關(guān)聯(lián)，方便地應(yīng)用于其他的程序中。由于本系統(tǒng)只是進(jìn)行一般的數(shù)據(jù)庫(kù)操作，對(duì)速度要求并不十分高，所以數(shù)據(jù)庫(kù)中未調(diào)用WindowsAPI函數(shù)?！?.5數(shù)據(jù)字典數(shù)據(jù)流圖中的全部數(shù)據(jù)流及其組成部分的數(shù)據(jù)元素，數(shù)據(jù)存儲(chǔ)，數(shù)據(jù)加工，通過(guò)數(shù)據(jù)字典描述清楚,以便于此后系統(tǒng)設(shè)計(jì)的進(jìn)行。下邊是數(shù)據(jù)項(xiàng)的數(shù)據(jù)字典:1、管理添加、修改、查詢(xún)、刪除員工基本信息：進(jìn)行刪除加入員工的內(nèi)容情況，入數(shù)據(jù)：編號(hào)+姓名+性別+籍貫+年齡+生日+學(xué)歷+專(zhuān)業(yè)+住址+郵編+電話+EMAIL+參加工作時(shí)間+進(jìn)入公司時(shí)間+起薪時(shí)間+部門(mén)+職務(wù)。2、考勤信息也是（添加+修改+查詢(xún)+刪除）。3、調(diào)動(dòng)信息也是同樣的，可以根據(jù)企業(yè)的需要而進(jìn)行（添加+刪除+查詢(xún)+修改）來(lái)進(jìn)行企業(yè)內(nèi)部的調(diào)整。4、登陸=用戶(hù)名+登陸密碼（可以在內(nèi)部進(jìn)行添加和修改密碼）。用戶(hù)添加=輸入用戶(hù)名+密碼+確認(rèn)密碼。修改密碼=輸入舊密碼+新密碼+確認(rèn)密碼。員工的基本信息包括：編號(hào)、姓名、性別、籍貫、年齡、生日、學(xué)歷、專(zhuān)業(yè)、住址、郵編、電話、EMAIL、參加工作時(shí)間、進(jìn)入公司時(shí)間、起薪時(shí)間、部門(mén)、職務(wù)。下邊列有詳細(xì)列表：表1員工基本信息表員工編號(hào)文本8個(gè)字節(jié)每個(gè)員工都有唯一的一個(gè)編號(hào)，編號(hào)是某位員工的唯一標(biāo)識(shí)。員工姓名文本8個(gè)字節(jié)每個(gè)員工都有唯一的姓名，若出現(xiàn)重名現(xiàn)象，我們可以查看此員工的編號(hào)進(jìn)行區(qū)別。性別文本2個(gè)字節(jié)性別僅有兩種情況，為了便于錄入,在設(shè)計(jì)時(shí)可以采用單選按鈕或下拉列表框的方式。籍貫文本12個(gè)字節(jié)員工的出生地。年齡數(shù)字2個(gè)字節(jié)員工的歲數(shù),最低年齡為16歲。此外還要統(tǒng)計(jì)退休的人員歲數(shù),所以取值范圍為16-99.生日8個(gè)字節(jié)員工的出生日期。學(xué)歷文本8個(gè)字節(jié)因?yàn)閱T工的學(xué)歷分為高中，中專(zhuān)，大專(zhuān)，本科，碩士，博士，博士后這幾種情況。專(zhuān)業(yè)文本20個(gè)字節(jié)員工取得現(xiàn)有學(xué)歷時(shí)所學(xué)的專(zhuān)業(yè)。住址文本26個(gè)字節(jié)員工現(xiàn)在的家庭住址，若員工的家庭住址變動(dòng)，再進(jìn)行改動(dòng)。郵編文本6個(gè)字節(jié)員工家庭住址的郵政編碼。因現(xiàn)在我國(guó)的郵政編碼為6個(gè)字節(jié)。電話文本12個(gè)字節(jié)現(xiàn)在的電話大部分為7位或8位，再加上其它的所以設(shè)為12位。Email文本20個(gè)字節(jié)員工的郵箱地址。參加工作時(shí)間16個(gè)字節(jié)員工參加工作時(shí)間。進(jìn)入公司時(shí)間16個(gè)字節(jié)員工進(jìn)入本公司時(shí)間，注意與參加工作時(shí)間不同。部門(mén)文本12個(gè)字節(jié)員工所在的部門(mén)，員工可能在不同的部門(mén)中調(diào)動(dòng)，根據(jù)定期的員工信息登記表進(jìn)行修改。16個(gè)字節(jié)員工從事相應(yīng)的工作可以領(lǐng)取相應(yīng)的薪金的時(shí)間。職務(wù)文本員工在相應(yīng)的工作崗位所承擔(dān)的職責(zé)。第五章系統(tǒng)實(shí)現(xiàn)技術(shù)§5．1開(kāi)發(fā)環(huán)境的選擇5.1.1前端開(kāi)發(fā)工具VisualBasic6.0簡(jiǎn)介VisualBasic是在世界范圍內(nèi)廣泛使用的一種強(qiáng)大的編程語(yǔ)言，它為Windows應(yīng)用程序的開(kāi)發(fā)提供了最迅速和便捷的方法。VisualBasic是基于Windows的開(kāi)發(fā)語(yǔ)言，所以有必要與Windows環(huán)境保持一定的相似性。簡(jiǎn)單地說(shuō)就是三個(gè)關(guān)鍵的概念：窗口、事件和消息。VisualBasic與傳統(tǒng)的編程評(píng)議不同，它使用交互式方法開(kāi)發(fā)應(yīng)用程序，使得三個(gè)步驟之間不再有明顯的界限。在大多數(shù)語(yǔ)文里，如果編寫(xiě)代碼時(shí)發(fā)生了錯(cuò)誤，則在開(kāi)始編譯應(yīng)用程序時(shí)該錯(cuò)誤就會(huì)被編譯器捕獲，此時(shí)必須查找并改正該錯(cuò)誤，然后再次進(jìn)行編譯，對(duì)每一個(gè)發(fā)現(xiàn)的錯(cuò)誤都要重復(fù)這樣的過(guò)程。VisualBasic在編程者輸入代碼時(shí)便進(jìn)行解釋?zhuān)磿r(shí)捕獲并突出顯示大多數(shù)語(yǔ)法或拼寫(xiě)錯(cuò)誤，這看起來(lái)就像一位專(zhuān)家在實(shí)時(shí)監(jiān)視代碼的輸入。除即時(shí)捕獲錯(cuò)誤外，VisualBasic也在輸入代碼時(shí)部分地編譯該代碼。當(dāng)準(zhǔn)備運(yùn)行和測(cè)試應(yīng)用程序時(shí)，只需極短時(shí)間即可完成編譯。如果編譯器發(fā)現(xiàn)了錯(cuò)誤，則將錯(cuò)誤突出顯示于代碼中。由于VisualBasic的交互特性，因此可以發(fā)現(xiàn)在開(kāi)發(fā)應(yīng)用程序時(shí)，可以頻繁地運(yùn)行應(yīng)用程序。通過(guò)這種方式，代碼運(yùn)行的效果可以在開(kāi)發(fā)時(shí)進(jìn)行測(cè)試，而不必等到編譯完成以后。5.1.2后臺(tái)數(shù)據(jù)庫(kù)引擎Access簡(jiǎn)介Access2000是一套簡(jiǎn)單易學(xué)的數(shù)據(jù)庫(kù)軟件除了可以單機(jī)作業(yè)之外，也增強(qiáng)了與后端的SQLServer7.0服務(wù)器的鏈接功能，方便建立主從式結(jié)構(gòu)的數(shù)據(jù)庫(kù)環(huán)境。Access是一套管理數(shù)據(jù)庫(kù)的應(yīng)用軟件，即數(shù)據(jù)庫(kù)管理系統(tǒng)。數(shù)據(jù)庫(kù)是指一群可組織有系統(tǒng)的數(shù)據(jù)集合。Access中，整理好的數(shù)據(jù)將按數(shù)據(jù)的用途，分別存于不同的表中，Access數(shù)據(jù)庫(kù)中包含多個(gè)表及其它數(shù)據(jù)庫(kù)對(duì)象?！?.2人事管理系統(tǒng)模塊設(shè)計(jì)舉例5.2.1建立公共模塊運(yùn)行VisualBasic后，選擇“文件”→“新建工程”菜單，然后從工程模板中選擇“標(biāo)準(zhǔn)EXE”項(xiàng)，單擊“確定”按鈕。VisualBasic就會(huì)自動(dòng)生成一個(gè)窗體，這個(gè)窗體的屬性采用的都是默認(rèn)設(shè)置。在這個(gè)實(shí)例中，先刪除這個(gè)窗體，然后選擇“文件”→“保存工程”菜單，在出現(xiàn)的“文件另存為”對(duì)話框中輸入這個(gè)工程項(xiàng)目的名稱(chēng)stuff_mis,并且選擇要保存這個(gè)工程的目錄，單擊“保存”按鈕，保存工程。為了提高代碼的效率方便維護(hù)，在VisualBasic中可以用公用模塊來(lái)存放工程中經(jīng)常使用的函數(shù)、過(guò)程和全局變量等。在這個(gè)系統(tǒng)中，每個(gè)功能模塊都要使用數(shù)據(jù)庫(kù)，因此可以使用一個(gè)公用有數(shù)據(jù)操作函數(shù)，來(lái)執(zhí)行一系列的SQL語(yǔ)句。5.2.2添加公共模塊在項(xiàng)目資源管理器中為這個(gè)工程添加一個(gè)模塊，保存為Module1.bas.代碼如下：PublicgUserNameAsString'保存用戶(hù)名稱(chēng)PublicflagAsInteger'添加和修改的標(biāo)志PublicgSQLAsString'保存SQL語(yǔ)句PublickqsqlAsString'保存查詢(xún)考勤結(jié)果SQL語(yǔ)句Publickqsql2AsString'保存查詢(xún)其他考勤結(jié)果SQL語(yǔ)句PublicArecordIDAsInteger'保存上下班記錄編號(hào)PublicLrecordIDAsInteger'保存請(qǐng)假記錄編號(hào)PublicOrecordIDAsInteger'保存加班記錄編號(hào)PublicErecordIDAsInteger'保存出差記錄編號(hào)PubliciflagAsInteger'數(shù)據(jù)庫(kù)是否打開(kāi)標(biāo)志PublicFunctionTransactSQL(ByValSQLAsString)AsADODB.RecordsetDimconAsADODB.ConnectionDimrsAsADODB.RecordsetDimstrConnectionAsStringDimstrArray()AsStringSetcon=NewADODB.Connection'創(chuàng)建連接Setrs=NewADODB.Recordset'創(chuàng)建記錄集OnErrorGoToTransactSQL_ErrorstrConnection="Provider=Microsoft.jet.oledb.4.0;DataSource="&App.Path&"\Person.mdb"strArray=Split(SQL)con.OpenstrConnection'打開(kāi)連接IfStrComp(UCase$(strArray(0)),"select",vbTextCompare)=0Thenrs.OpenTrim$(SQL),con,adOpenKeyset,adLockOptimisticSetTransactSQL=rs'返回記錄集iflag=1Elsecon.ExecuteSQL'執(zhí)行命令iflag=1EndIfTransactSQL_Exit:Setrs=NothingSetcon=NothingExitFunctionTransactSQL_Error:MsgBox"查詢(xún)錯(cuò)誤："&Err.Descriptioniflag=2ResumeTransactSQL_ExitEndFunctionPublicSubTabToEnter(KeyAsInteger)IfKey=13Then'判斷是否為回車(chē)鍵SendKeys"{TAB}"'轉(zhuǎn)換為T(mén)ab鍵EndIfEndSubSubmain()DimfLoginAsNewfrmLoginfLogin.ShowvbModual'顯示窗體EndSub1.登錄窗體：圖5－1登陸窗口圖有關(guān)本窗體的代碼如下:OptionExplicitDimpwdCountAsIntegerPrivateSubcmdCancel_Click()UnloadMeExitSubEndSubPrivateSubcmdOK_Click()DimSQLAsStringDimrsAsADODB.RecordsetIfTrim(UserName.Text="")ThenMsgBox"沒(méi)有輸入用戶(hù)名稱(chēng)，請(qǐng)重新輸入"vbOKOnly+vbExclamationUserName.SetFocusElse'查詢(xún)用戶(hù)Setrs=TransactSQL(SQL)Ififlag=1ThenIfrs.EOF=TrueThenmsgBox"沒(méi)有這個(gè)用戶(hù)，請(qǐng)重新輸入！",vbOKOnly+vbExclamationUserName.SetFocusElseIfTrim(rs.Fields(1))=Trim(PassWord.Text)Thenrs.CloseMe.HidegUserName=Trim(UserName.Text)'保存用戶(hù)名稱(chēng)FrmMain.ShowUnloadMeElseMsgBox"密碼不正確，請(qǐng)重新輸入！",vbOKOnly+vbExclamation,EndIfEndIfElseUnloadMeEndIfEndIfpwdCount=pwdCount+1'判斷輸入次數(shù)IfpwdCount=3ThenUnloadMeExitSubEndIfEndSubPrivateSubForm_Load()pwdCount=0gUserName=""EndSubPrivateSubPassWord_KeyDown(KeyCodeAsInteger,ShiftAsInteger)TabToEnterKeyCodeEndSubPrivateSubUserName_KeyDown(KeyCodeAsInteger,ShiftAsInteger)TabToEnterKeyCodeEndSub2.系統(tǒng)主界面的設(shè)計(jì)效果圖5－2系統(tǒng)主界面設(shè)計(jì)效果圖PrivateSQLAsStringPrivateSubAbout_Click()'關(guān)于窗體frmAbout.ShowfrmAbout.ZOrder0EndSubPrivateSubAdd_Alter_Click()'添加調(diào)動(dòng)信息flag=1frmAlteration.Caption="添加員工調(diào)動(dòng)信息"frmAlteration.ShowfrmAlteration.ZOrder0EndSubPrivateSubAdd_Stuff_Click()'添加員工信息flag=1frmStuff_info.ShowfrmStuff_info.ZOrder0EndSubPrivateSubAdd_User_Click()'添加用戶(hù)DimfAddAsNewfrmAddUserfAdd.ShowfAdd.ZOrder0EndSubPrivateSubAddAttendance_Click()'添加上下班信息flag=1FrmAttendance.ShowFrmAttendance.ZOrder0EndSubPrivateSubAddOtherKQ_Click()'添加其他考勤信息flag=1frmOtherKQ.ShowfrmOtherKQ.ZOrder0EndSubPrivateSub Chage_Alter_Click()'修改調(diào)動(dòng)信息frmAlterationResult.ShowfrmAlterationResult.ZOrder0EndSubPrivateSub Change_PWD_Click()'修改密碼DimfChangePWDAsNewfrmChangePWDfChangePWD.ShowEndSubPrivateSub Change_Stuff_Click()'修改員工信息frmCheckStuff.topic="選擇修改條件"frmCheckStuff.Caption="修改員工基本信息"SQL="select*fromStuffInfoorderbySID"frmResult.createList(SQL)frmResult.ShowfrmResult.ZOrder0frmCheckStuff.ShowfrmCheckStuff.ZOrder0EndSubPrivateSub ChangeAttendance_Click()'修改上下班信息frmAResult.ShowfrmAResult.ZOrder0EndSubPrivateSub changeOtherKQ_Click()'修改其他考勤信息frmOKQResult.ShowfrmOKQResult.ZOrder0EndSubPrivateSub Check_Alter_Click()'查詢(xún)調(diào)動(dòng)信息frmCheckAlter.ShowfrmCheckAlter.ZOrder0EndSubPrivateSubCheck_Checkin_Click()'查詢(xún)其他考勤信息frmCheckKQ.ShowfrmCheckKQ.ZOrder0EndSubPrivateSub Check_Stuff_Click()'查詢(xún)員工信息SQL="select*fromStuffInfo"frmResult.createList(SQL)frmResult.ShowfrmCheckStuff.ShowfrmResult.ZOrder1frmCheckStuff.ZOrder0EndSubPrivateSub Del_Alter_Click()'刪除調(diào)動(dòng)信息frmAlterationResult.ShowfrmAlterationResult.ZOrder0EndSubPrivateSub Del_Stuff_Click()'刪除員工信息frmCheckStuff.topic="選擇刪除條件"frmCheckStuff.Caption="刪除員工基本信息"SQL="select*fromStuffInfo"frmResult.createList(SQL)frmResult.ShowfrmCheckStuff.ShowfrmResult.ZOrder1frmCheckStuff.ZOrder0EndSubPrivateSubdelInOut_Click()'刪除上下班信息DimSQLAsStringSQL="select*fromAttendanceInfoorderbyIDdesc"CallfrmAResult.ListTopicCallfrmAResult.ShowData(SQL)frmAResult.ShowfrmAResult.ZOrder0EndSubPrivateSub delOtherKQ_Click()'刪除其他考勤信息frmOKQResult.ShowfrmOKQResult.ZOrder0EndSubPrivateSubMDIForm_Load()EndSubPrivateSub SetTime_Click()'設(shè)置上下班時(shí)間frmSetTime.ShowfrmSetTime.ZOrder0EndSubPrivateSubSystem_EXIT_Click()UnloadMeExitSubEndSub3.修改密碼窗體：圖5－3修改密碼窗體圖PrivateSubcmdCancel_Click()UnloadMeEndSubPrivateSubcmdOK_Click()DimSQLAsStringDimrsAsADODB.RecordsetIfTrim(OldPWD.Text)=""Then'判斷是否輸入舊密碼MsgBox"請(qǐng)輸入舊密碼",vbOKOnly+vbExclamation,"警告"OldPWD.SetFocusExitSubElseIfTrim(NewPWD.Text)=""Then'判斷是否輸入新密碼MsgBox"請(qǐng)輸入新密碼",vbOKOnly+vbExclamation,"警告"NewPWD.SetFocusExitSubElseIfTrim(NewPWD.Text)<>Trim(confirmPWD.Text)Then'判斷兩次密碼是否相同MsgBox"兩次密碼不同",vbOKOnly+vbExclamation,"警告"NewPWD.Text=""confirmPWD.Text=""NewPWD.SetFocusElse'修改密碼SQL="updateUserInfosetUserPWD='"&NewPWD&"'whereUserID='"MsgBox"密碼已經(jīng)修改",vbOKOnly+vbExclamation,"修改結(jié)果"UnloadMeEndIfEndIfEndSubPrivateSubForm_Load()OldPWD.Text=""NewPWD.Text=""confirmPWD.Text=""EndSub4.詢(xún)員工信息圖5-4查詢(xún)員工基本信息圖相關(guān)代碼如下：OptionExplicitPrivatequeryAsString'保存SQL語(yǔ)句PrivatefromdateAsString'起始時(shí)間PrivatetodateAsString'結(jié)束時(shí)間PrivateSubcmdCancel_Click()UnloadMeExitSubEndSubPrivateSubCombineDate()'獲得起始和結(jié)束時(shí)間fromdate=Me.FromYear.Text&"-"&Me.FromMonth.Text&"-1"fromdate=Format(Me.FromYear.Text&"-"&Me.FromMonth.Text&"-1","yyyy-mm-dd")todate=Me.ToYear.Text&"-"&Me.ToMonth.Text&"-1"todate=Format(todate,"yyyy-mm-dd")EndSubPrivateSubsetSQL()'設(shè)置SQL語(yǔ)句IfIDCheck.Value=vbCheckedThenquery="select*fromStuffInfowhereSID='"&Trim(Me.SID)&"'"EndIfIfNameCheck.Value=vbCheckedThenquery="select*fromStuffInfowhereSName='"&Trim(Me.SName)&"'"EndIfIfTimeCheck.Value=vbCheckedThenquery="select*fromStuffInfowhereSInTimebetween#"query=query&fromdate&"#and#"&todate&"#"EndIfIfIDCheck.Value=vbCheckedAndNameCheck.Value=vbCheckedThenquery="select*fromStuffInfowhereSID='"&Trim(Me.SID)query=query&"'andSName='"&Trim(Me.SName)&"'"EndIfIfNameCheck.Value=vbCheckedAndTimeCheck.Value=vbCheckedThenquery=query&"#and#"&todate&"#"EndIfEndSubPrivateSubcmdOK_Click()IfTrim(Me.SID)=""AndTrim(Me.SName)=""AndTimeCheck.Value<>vbCheckedThenMsgBox"請(qǐng)選擇查詢(xún)的條件！",vbOKOnly+vbExclamation,ElseCallCombineDateCallsetSQLfrmResult.createList(query)frmResult.ShowUnloadMeEndIfEndSubPrivateSubForm_Load()DimiAsIntegerDimSQLAsStringDimrsAsNewADODB.RecordsetSQL="selectdistinctSInTimefromStuffInfo"Setrs=TransactSQL(SQL)IfNotrs.EOFThenrs.MoveFirstWhileNotrs.EOFIfNotIsNull(rs.Fields(0))Then'設(shè)置年Me.FromYear.AddItemLeft(rs(0),4)Me.ToYear.AddItemLeft(rs(0),4)EndIfrs.MoveNextWendrs.CloseMe.FromYear.ListIndex=0Me.ToYear.ListIndex=0EndIfFori=1To12'設(shè)置月Me.FromMonth.AddItemiMe.ToMonth.AddItemiNextiMe.FromMonth.ListIndex=0Me.ToMonth.ListIndex=0EndSub5.添加員工調(diào)動(dòng)信息：圖5-5員工調(diào)動(dòng)信息圖相關(guān)代碼如下：PrivateSubcmdOK_Click()DimSQLAsStringDimrsAsNewADODB.Recordsetbaddflag=FalseCallcheckinputIfbaddflag=TrueThenIfflag=1Then'添加記錄'CallcheckinputSQL="select*fromAlterationInfo"Setrs=TransactSQL(SQL)rs.AddNewrs.Fields(1)=Me.AIDrs.Fields(2)=Me.ANamers.Fields(3)=Me.AOldDeptrs.Fields(4)=Me.ANewDeptrs.Fields(5)=Me.AOldPositionrs.Fields(6)=Me.ANewPositionrs.Fields(7)=Me.AOutTimers.Fields(8)=Me.AInTimers.Fields(9)=Me.ARemarkrs.Updaters.CloseSQL="updateStuffInfosetSDept='"&Me.ANewDept&"',SPosition='"SQL=SQL&Me.ANewPosition&"'whereSID='"&Me.AID&"'"TransactSQL(SQL)MsgBox"已經(jīng)添加調(diào)動(dòng)信息！",vbOKOnly+vbExclamation,"添加結(jié)果！"SQL="select*fromAlterationInfoorderbyID"frmAlterationResult.Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="+App.Path+"\Person.mdb"frmAlterationResult.Adodc1.RecordSource=SQLIfSQL<>""ThenfrmAlterationResult.Adodc1.RefreshEndIfSetfrmAlterationResult.DataGrid1.DataSource=frmAlterationResult.Adodc1.RecordsetfrmAlterationResult.DataGrid1.RefreshfrmAlterationResult.ShowfrmAlterationResult.ZOrder0CallinitMe.ZOrder0Else'修改記錄'CallcheckinputSQL="updateStuffInfosetSDept='"&Me.ANewDept&"',SPosition='"SQL=SQL&Me.ANewPosition&"'whereSID='"&Me.AID&"'"TransactSQL(SQL)SQL="updateAlterationInfosetAOldDept='"&Me.AOldDept&"',ANewDept='"SQL=SQL&"',ANewPosition='"&Me.ANewPosition&"',AOutTime=#"&Me.AOutTimeSQL=SQL&"#,AInTime=#"&Me.AInTime&"#whereID="&IDTransactSQL(SQL)MsgBox"已經(jīng)修改信息！",vbOKOnly+vbExclamation,"修改結(jié)果！"UnloadMeWithfrmAlterationResult.Adodc1'重新設(shè)置記錄集.RecordSource=SQL.RefreshEndWithWithfrmAlterationResult.DataGrid1'重新綁定記錄集.ReBindEndWithEndIfEndIfEndSubPrivateSubForm_Load()DimSQLAsStringDimrsAsNewADODB.RecordsetDimfirstnameAsStringIfflag=1ThenSQL="selectSID,SName,SDept,SPositionfromStuffInfoorderbySID"Setrs=TransactSQL(SQL)Ifrs.EOF=FalseThenrs.Move