畢業(yè)設(shè)計論文-人事管理系統(tǒng)

1、<p><b>　　目錄 </b></p><p><b>　　摘 要1</b></p><p>　　Asbtract2</p><p>　　第一章 引 言3</p><p>　　§1．2 Access 2000 的介紹3</p><p>　

2、　第二章 研究現(xiàn)狀及設(shè)計目標(biāo)4</p><p>　　§2．1 人事管理系統(tǒng)簡介4</p><p>　　2．1．1 人事管理系統(tǒng)的發(fā)展歷史4</p><p>　　2．1．2 人力資源開發(fā)的目的4</p><p>　　§2.2人事管理相關(guān)軟件簡介5</p><p>　　§2．3 企

3、業(yè)信息化發(fā)展6</p><p>　　第三章 要解決的幾個關(guān)鍵問題6</p><p>　　§3．1應(yīng)用人事管理系統(tǒng)的必要6</p><p>　　§3.2 系統(tǒng)可行性分析7</p><p>　　§3.3 系統(tǒng)詳細(xì)調(diào)查7</p><p>　　3.3.1 功能需求7</p>

4、;<p>　　3.3.2 數(shù)據(jù)需求7</p><p>　　3.3.3 運行環(huán)境7</p><p>　　第四章系統(tǒng)結(jié)構(gòu)與模型7</p><p>　　§4.1人事管理系統(tǒng)的詳細(xì)調(diào)查7</p><p>　　§4.2系統(tǒng)邏輯模型的提出7</p><p>　　§4．3模塊設(shè)

5、計9</p><p>　　§4.4 數(shù)據(jù)庫實現(xiàn)10</p><p>　　§4.5 數(shù)據(jù)字典10</p><p>　　第五章 系統(tǒng)實現(xiàn)技術(shù)12</p><p>　　§5．1 開發(fā)環(huán)境的選擇12</p><p>　　5.1.1 前端開發(fā)工具 Visual Basic 6.0 簡介

6、12</p><p>　　5.1.2 后臺數(shù)據(jù)庫引擎Access簡介12</p><p>　　§5.2 人事管理系統(tǒng)模塊設(shè)計舉例12</p><p>　　5.2.1 建立公共模塊12</p><p>　　5.2.2 添加公共模塊12</p><p>　　§5.3 系統(tǒng)運行與維護(hù)26<

7、;/p><p>　　5.3.1 初始數(shù)據(jù)的輸入26</p><p>　　5.3.2 怎樣進(jìn)入系統(tǒng)26</p><p>　　5.3.3 怎樣使用本系統(tǒng)27</p><p>　　5.3.4 系統(tǒng)的主要維護(hù)27</p><p>　　第六章 性能測試與分析27</p><p><b>　

8、　結(jié)束語28</b></p><p><b>　　參考文獻(xiàn)29</b></p><p><b>　　致 謝30</b></p><p><b>　　摘 要</b></p><p>　　隨著計算機(jī)技術(shù)的不斷發(fā)展，計算機(jī)作為知識經(jīng)濟(jì)時代的產(chǎn)物，已被廣泛應(yīng)

9、用于社會各個行業(yè)和領(lǐng)域。隨著我國國企改革的深入和社會主義市場經(jīng)濟(jì)的日趨繁榮，導(dǎo)致各企業(yè)間的競爭日益激烈，迫使企業(yè)采取先進(jìn)的計算機(jī)硬件設(shè)備以及高質(zhì)量的輔助軟件來管理企業(yè)的各項運作，以提高本企業(yè)的勞動生產(chǎn)率以及人員效率。人事管理系統(tǒng)軟件作為一種管理軟件正在各企事業(yè)單位中得到越來越廣泛的應(yīng)用。</p><p>　　本論文是從現(xiàn)代企業(yè)管理中的人事管理現(xiàn)狀出發(fā)，針對人事管理的復(fù)雜程序，經(jīng)過詳細(xì)的系統(tǒng)調(diào)查，開發(fā)出的操作簡單而

10、且方便實用的一個人事管理系統(tǒng)。對企業(yè)中的考勤信息、請假信息、加班信息、出差信息、調(diào)動信息進(jìn)行管理。</p><p>　　本系統(tǒng)用Visual Basic 6.0編寫，后臺數(shù)據(jù)庫選用Access 2000。</p><p><b>　　英文摘要。</b></p><p>　　關(guān)鍵詞：人事管理系統(tǒng)、管理信息系統(tǒng)、電子數(shù)據(jù)處理、數(shù)據(jù)庫、</p&

11、gt;<p><b>　　Asbtract</b></p><p>　　Already is been apply in the social each profession and realms extensively.Reform along with the our country state-owners enterprise thorough is gradually

12、 prosperous with the socialism market economy, cause the competition between each business enterprises increasingly vigorous, force the assistance software of the calculator hardware equipments and high quantity that the

13、 business enterprise adopts the forerunner to manage various operations of the business enterprise, to raise labor rate of pro</p><p>　　This thesis is from the modern business enterprise present condition, a

14、im at the personal management of the complicated procedure operation, pass by detailed system investigate, develop simple and convenient practical such a personal management system.</p><p>　　The head tool of

15、 this system development is Visual Basic 6.0, the engine of the backstage database software choose to use is Access 2000.</p><p>　　This system through tests, and run stability, and have already got the appro

16、bation.</p><p>　　Keywords：Personal management system, the management information system, the electronics data processing, database。 </p><p><b>　　第一章 引 言</b></p><p>　　計算

17、機(jī)技術(shù)已經(jīng)進(jìn)入實用階段，同時大型企業(yè)用手工來計算和發(fā)放薪資既費時費力又非常容易出差錯，為了解決這個矛盾同時由于個人電腦的普及，數(shù)據(jù)庫技術(shù)、客戶/服務(wù)器技術(shù)，特別是Internet/Intranet技術(shù)的發(fā)展，友好的用戶界面，強有力的報表生成工具、分析工具和信息的共享使得人力資源管理人員得以擺脫繁重的日常工作，集中精力從戰(zhàn)略的角度來考慮企業(yè)人力資源規(guī)劃和政策。</p><p>　　§1．1 Visual

18、base 的介紹</p><p>　　VB6.0已經(jīng)成為功能強大、使用人數(shù)眾多的主流編程工具。它提供了向?qū)ё詣由纱a，支持拖放技術(shù)、屬性檢查、實時語法檢查等內(nèi)置自動化技術(shù)，大大降低了編寫代碼的工作量，同時它還提供了極其豐富的控件，使得VB6.0成為最簡捷、最有效的開發(fā)Windows應(yīng)用程序工具。隨著網(wǎng)絡(luò)技術(shù)的不斷發(fā)展，VB6.0的應(yīng)用范圍已從開發(fā)單機(jī)軟件發(fā)展的開發(fā)網(wǎng)上分布式應(yīng)用軟件。VB6.0不但受到廣大初、中

19、級計算機(jī)愛好者的歡迎，也越來越受到高級程序員的歡迎。</p><p>　　§1．2 Access 2000 的介紹</p><p>　　用Access2000作為后臺數(shù)據(jù)庫。數(shù)據(jù)庫是信息管理系統(tǒng)的后臺，存儲著所有的信息，在信息管理系統(tǒng)中有著很重要的地位。數(shù)據(jù)庫設(shè)計的好壞，直接影響到這個系統(tǒng)的運行效率。良好的數(shù)據(jù)庫設(shè)計，可以提高數(shù)據(jù)信息的存儲效率保證數(shù)據(jù)信息的完整性和一致性。Acc

20、ess2000是Office2000中文版的組件之一。與以前的Access版本相比，Access2000不僅界面更加友好，而且功能也有了加強，尤其是網(wǎng)絡(luò)功能有明顯的提高，使Access2000與互聯(lián)網(wǎng)的結(jié)合更加緊密。Access2000是一個中、小型數(shù)據(jù)庫管理系統(tǒng)，使用方便、功能強大，與其它數(shù)據(jù)庫有良好的接口。通過Access2000功能強大的工具，用戶可以方便的使用和管理數(shù)據(jù)庫，如創(chuàng)建和編輯數(shù)據(jù)表、設(shè)計和使用各種查詢工具進(jìn)行查詢操作、

21、設(shè)計和使用窗體、制作和打印報表、設(shè)計和使用宏、設(shè)計和使用Web頁等。Access2000具有完整的數(shù)據(jù)庫應(yīng)用開發(fā)工具，用戶可以方便的設(shè)計、修改、瀏覽一個記錄數(shù)據(jù)的基本表；可以在表數(shù)據(jù)中進(jìn)行各種篩選和查詢操作；可以設(shè)計和使用各種窗體以實現(xiàn)數(shù)據(jù)顯示和操作；可以根據(jù)表數(shù)據(jù)設(shè)計打印各種報表；可以設(shè)計和使用宏，對表進(jìn)行一系</p><p>　　第二章 研究現(xiàn)狀及設(shè)計目標(biāo)</p><p>　　

22、67;2．1 人事管理系統(tǒng)簡介</p><p>　　隨著市場競爭的日趨激烈，人已成為實現(xiàn)企業(yè)自身戰(zhàn)略目標(biāo)的一個非常關(guān)鍵的因素。企業(yè)中人心的向背和員工對工作的投入程度在很大程度上決定了該企業(yè)的興衰與成敗。如何能保持本企業(yè)員工的工作責(zé)任感，激勵他們的工作熱情，減少人才的流失，已成為困擾企業(yè)主管和人力資源經(jīng)理的一個日益尖銳的問題。企業(yè)管理從根本上來講就是對人的管理。</p><p>　　2．1．

23、1 人事管理系統(tǒng)的發(fā)展歷史</p><p>　　人力資源管理系統(tǒng)的發(fā)展歷史可以追溯到20世紀(jì)60年代末期。由于當(dāng)時計算機(jī)技術(shù)已經(jīng)進(jìn)入實用階段，同時大型企業(yè)用手工來計算和發(fā)放薪資既費時費力又非常容易出差錯，為了解決這個矛盾，第一代的人力資源管理系統(tǒng)應(yīng)運而生。當(dāng)時由于技術(shù)條件和需求的限制，用戶非常少，而且那種系統(tǒng)充其量也只不過是一種自動計算薪資的工具，既不包含非財務(wù)的信息，也不包含薪資的歷史信息，幾乎沒有報表生成功能

24、和薪資數(shù)據(jù)分析功能。但是，它的出現(xiàn)為人力資源的管理展示了美好的前景，即用計算機(jī)的高速度和自動化來代替手工的巨大工作量，用計算機(jī)的高準(zhǔn)確性來避免手工的錯誤和誤差，使大規(guī)模集中處理大型企業(yè)的薪資成為可能。</p><p>　　第二代的人力資源管理系統(tǒng)出現(xiàn)于20世紀(jì)70年代末。由于計算機(jī)技術(shù)的飛速發(fā)展，無論是計算機(jī)的普及性，還是計算機(jī)系統(tǒng)工具和數(shù)據(jù)庫技術(shù)的發(fā)展，都為人力資源管理系統(tǒng)的階段發(fā)展提供了可能。第二代人力資源管

25、理系統(tǒng)基本上解決了第一代系統(tǒng)的主要缺陷，對非財務(wù)的人力資源信息和薪資的歷史信息都給予了考慮，其報表生成和薪資數(shù)據(jù)分析功能也都有了較大的改善。但這一代的系統(tǒng)主要是由計算機(jī)專業(yè)人員開發(fā)研制的，未能系統(tǒng)地考慮人力資源的需求和理念，而且其非財務(wù)的人力資源信息也不夠系統(tǒng)和全面。</p><p>　　人力資源管理系統(tǒng)的革命性變革出現(xiàn)在20世紀(jì)90年代末。由于市場競爭的需要，如何吸引和留住人才，激發(fā)員工的創(chuàng)造性、工作責(zé)任感和工

26、作熱情已成為關(guān)系企業(yè)興衰的重要因素，人才已經(jīng)成為企業(yè)最重要的資產(chǎn)之一?！肮?、公平、合理”的企業(yè)管理理念和企業(yè)管理水平的提高，使社會對人力資源管理系統(tǒng)有了更高的需求；同時由于個人電腦的普及，數(shù)據(jù)庫技術(shù)、客戶/服務(wù)器技術(shù)，特別是Internet/Intranet技術(shù)的發(fā)展，使得第三代人力資源管理系統(tǒng)的出現(xiàn)成為必然。第三代人力資源管理系統(tǒng)的特點是從人力資源管理的角度出發(fā)，用集中的數(shù)據(jù)庫處理幾乎所有與人力資源相關(guān)的數(shù)據(jù)（如薪資福利、招聘、個人

27、職業(yè)生涯的設(shè)計、培訓(xùn)、職位管理、績效管理、崗位描述、個人信息和歷史資料）統(tǒng)一管理起來，形成了集成的信息源。友好的用戶界面，強有力的報表生成工具、分析工具和信息的共享使得人力資源管理人員得以擺脫繁重的日常工作，集中精力從戰(zhàn)略的角度來考慮企業(yè)人力資源規(guī)劃和政策。</p><p>　　2．1．2 人力資源開發(fā)的目的</p><p>　　人力資源管理是企業(yè)管理中的一個重要內(nèi)容，隨著時代的進(jìn)步，企業(yè)

28、也逐漸變得龐大起來。如何管理好企業(yè)內(nèi)部員工的信息，成為企業(yè)管理中的一個大問題。在這種情況下，開發(fā)一個人力資源管理系統(tǒng)就顯得非常必要。</p><p>　　人力資源管理系統(tǒng)就是把企業(yè)離散的人員信息加以集中分類的處理，通過它的管理，可以將分類處理后的信息，直觀的提供給管理人員，加強對企業(yè)用人的優(yōu)化分配，充分發(fā)揮人的作，提高企業(yè)整體工作效率，創(chuàng)造價值。</p><p>　　本系統(tǒng)結(jié)合公司實際的人

29、事、制度，經(jīng)過實際的需求分析，采用功能強大的Visual Basic6.0作為開發(fā)工具而開發(fā)出來的單機(jī)版人事管人事理系統(tǒng)。</p><p>　　整個系統(tǒng)從符合操作簡便、界面友好、靈活、實用、安全的要求出發(fā)，完成人力資源管理的全過程，包括新進(jìn)員工加入時人事檔案的建立、老員工的轉(zhuǎn)出、職位等的變動引起職工信息的修改、員工信息查詢、統(tǒng)計等人力資源管理工作以及新進(jìn)員工人事的新增、老員工人事修改、刪除……等人力資源管理工作。

30、經(jīng)過實際使用證明，本文所設(shè)計的人力資源管理系統(tǒng)可以滿足公司人力資源管理方面的需要。</p><p>　　§2.2人事管理相關(guān)軟件簡介</p><p>　　近幾年來，國內(nèi)外與人力資源管理有關(guān)的系統(tǒng)和程序的發(fā)展都非常迅速，眾多的軟件有如雨后春筍般地不斷涌現(xiàn)。這些軟件盡管各有特點，但從功能上來分析，大致可分為如下五種：</p><p>　　薪資和福利計算程序。這

31、類程序通常可用于管理企業(yè)薪資和福利計算的全過程，其中包括企業(yè)的薪資和福利政策設(shè)定、自動計算個人所得稅、自動計算社會保險等代扣代繳項目。通常，這些程序還可以根據(jù)公司的政策設(shè)置并計算由年假、事假、病假、婚假、喪假等帶薪假期以及遲到、早退、曠工等形成的對薪資和福利的扣減，能夠設(shè)定企業(yè)的成本中心并按成本中心將薪資和總賬連接起來，直接生成總賬憑證，還能存儲完備的歷史信息供查詢和生成報表；這類系統(tǒng)也可處理部分簡單的人事信息。</p>

32、<p>　　培訓(xùn)管理系統(tǒng)。培訓(xùn)管理系統(tǒng)一般通過培訓(xùn)需求調(diào)查、預(yù)算控制、結(jié)果評估和反饋以及培訓(xùn)結(jié)果記載等手段，實現(xiàn)培訓(xùn)管理的科學(xué)化，并且和人力資源信息有機(jī)地聯(lián)系起來，為企業(yè)人力資源的配備和員工的升遷提供科學(xué)的依據(jù)。</p><p>　　考勤管理程序。為了有效地記載員工的出勤情況，很多企業(yè)配置了打卡機(jī)，考勤機(jī)等設(shè)備?？记诠芾沓绦蛞话愣寂c這些設(shè)備相接，根據(jù)事先的編排的班次信息，過濾掉錯誤數(shù)據(jù)，生成較為清晰的員

33、工出勤報告，并可轉(zhuǎn)入薪資和福利程序中，使考勤數(shù)據(jù)與薪資計算直接掛鉤。其生的文檔還可作為歷史信息保存，用于分析，統(tǒng)計和查詢。</p><p>　　人力資源管理系統(tǒng)。人力資源管理系統(tǒng)從科學(xué)的人力資源管理角度出發(fā)，從企業(yè)的人力資源規(guī)劃開始，一般包括招聘、崗位描述、培訓(xùn)、技能、績效評估、個人信息、薪資和福利、各種假期、到離職等與員工個人相關(guān)的信息，并以一種相容的、一致的、共享的、易訪問和檢索的方式儲存到集中的數(shù)據(jù)庫中，從

34、而將企業(yè)內(nèi)員工的信息統(tǒng)一的管理起來。其靈活的報表生成功能和分析功能使得人力資源管理人員可以從繁瑣的日常工作中解脫出來，將精力放到更富有挑戰(zhàn)性和創(chuàng)造性的人力資源分析、規(guī)劃、員工激勵和戰(zhàn)略等工作中去。</p><p>　　完整的歷史信息記載了員工從面試開始到離職整個周期的薪資、福利、崗位變遷、績效等信息。同時由于這類系統(tǒng)可管理較全面的人力資源和薪資數(shù)據(jù)，因而還可以生成許多綜合性的報表供企業(yè)決策人員參考，如生成按崗位的

35、平均歷史薪資圖表，員工配備情況的分析圖表，個人績效與學(xué)歷、技能、工作經(jīng)驗、接受過的培訓(xùn)等關(guān)系的分析等等。</p><p>　　§2．3 企業(yè)信息化發(fā)展</p><p>　　隨著信息時代的到來，企業(yè)的信息化已被提上日程。企業(yè)自然會考慮下述問題：</p><p>　　在規(guī)劃方案中，哪些功能是必需的？哪些并不適合自己的公司？遺漏了哪些必需功能？企業(yè)建立管理信息系

36、統(tǒng)時，現(xiàn)行的工作流程還需要怎么調(diào)整才能使工作效率真正提高？企業(yè)管理信息系統(tǒng)將來的運行、維護(hù)、升級、改造成本有多高？選擇什么樣的管理信息系統(tǒng)軟件平臺開發(fā)自己的管理信息系統(tǒng)最可靠而且經(jīng)濟(jì)？而只有對以下三個問題進(jìn)行分析，才有助于推動企業(yè)的信息化。</p><p>　　1、信息是現(xiàn)代企業(yè)管理的核心。在開始著手規(guī)劃和建立企業(yè)的管理信息系統(tǒng)時，要堅信信息技術(shù)的發(fā)展將在企業(yè)的管理過程中起著越來越重要的地位，而且越來越?jīng)Q定著企業(yè)

37、管理的效果和效率。在提高和改善企業(yè)管理的過程中，應(yīng)該明白如何采用管理信息系統(tǒng)這一有效管理工具，以及它是如何在企業(yè)的管理中起作用的。隨著企業(yè)規(guī)模的擴(kuò)大，其管理組織會變得越來越龐大和困難，而信息的處理與使用也變得越來越重要。</p><p>　　2、在規(guī)劃和建設(shè)一個企業(yè)的管理信息系統(tǒng)時，有可能誤認(rèn)為企業(yè)的管理信息系統(tǒng)就是在企業(yè)原有管理模式上加入計算機(jī)信息處理。其實，一個好的管理信息系統(tǒng)絕不是企業(yè)原有的管理模式和計算機(jī)

38、信息處理的簡單相加，建立管理信息系統(tǒng)的目的是通過實現(xiàn)對企業(yè)信息處理的現(xiàn)代化而達(dá)到高效完成管理工作，所以一個好的管理信息系統(tǒng)的模型一定要能夠與當(dāng)今信息技術(shù)緊密相連，并能夠充分利用其優(yōu)良性能。</p><p>　　3.企業(yè)信息化是一個過程。企業(yè)的信息化規(guī)劃和建設(shè)是一個不斷改進(jìn)、逐步提高的過程。在這樣一個復(fù)雜的系統(tǒng)中存在著大量的作用因素，只能通過長斯不斷的努力才能達(dá)到目的，在企業(yè)信息化的規(guī)劃和建設(shè)過程中，不可將職工的計

39、算機(jī)和軟件使用培訓(xùn)等視為可有可無，信息化的發(fā)展使計算機(jī)和軟件成為企業(yè)日常管理中的必然。</p><p>　　第三章 要解決的幾個關(guān)鍵問題</p><p>　　§3．1應(yīng)用人事管理系統(tǒng)的必要</p><p>　　現(xiàn)在不少企業(yè)管理人員已經(jīng)認(rèn)識到采用人力資源管理系統(tǒng)的必要性，紛紛開發(fā)或選購適合本企業(yè)特點的人力資源管理系統(tǒng)。人事管理系統(tǒng)具體以下優(yōu)點：</p

40、><p>　　1、采用人事管理系統(tǒng)，可以用集中的數(shù)據(jù)庫將與人力資源管理相關(guān)的信息全面、有機(jī)地聯(lián)系起來，有效地減少了信息更新和查找中的重復(fù)勞動，保證了信息的相容性，從而大大地提高了工作效率，還能使原來不可以提供的分析報告成了可能。</p><p>　　2、人事管理系統(tǒng)有著易訪問、易查詢的信息庫。在沒有采用和實施人事管理系統(tǒng)之前，當(dāng)企業(yè)管理人員要統(tǒng)計數(shù)字時，往往依賴于某個人或某些人來獲取。這種依賴

41、于人的過程往往會因為花費的時間較長或某個人不在辦公室而不能及時完成。在采用和實施人事管理系統(tǒng)之后，就會將依賴于人的過程改為依賴于計算機(jī)系統(tǒng)的過程。企業(yè)管理人員只要獲取了相應(yīng)的權(quán)限，就可以隨時進(jìn)入系統(tǒng)，直接查閱相應(yīng)的信息。實施了人事管理系統(tǒng)之后，不僅可以得到較為全面的、詳細(xì)的、未經(jīng)過過濾的第一手人事信息，發(fā)現(xiàn)不公平的現(xiàn)象，甚至還可以從中得到某些靈感和啟發(fā)，從而改進(jìn)企業(yè)的管理。這種透明性還可以規(guī)避企業(yè)管理中潛在的風(fēng)險。</p>

42、<p>　　3、采用和實施人事管理系統(tǒng)不僅僅是為了提高工作效率。應(yīng)該看到，在實施人事管理系統(tǒng)之后，經(jīng)過整合的、較為全面、準(zhǔn)確、一致和相容的信息不僅可以讓企業(yè)領(lǐng)導(dǎo)對本企業(yè)人力資源的現(xiàn)狀有一個比較全面和準(zhǔn)確的認(rèn)識，同時也可以生成綜合的分析報表供企業(yè)領(lǐng)導(dǎo)人在決策時參考。這就提高了企業(yè)的管理水平。</p><p>　　§3.2 系統(tǒng)可行性分析</p><p>　　人事管理系統(tǒng)

43、在企業(yè)中占有極其重要的地位，它關(guān)系著企業(yè)內(nèi)部每個職員的檔案，其中包括新職員的增加，職員檔案的查找，職員的詳細(xì)資料等等。對于企業(yè)來講，人事管理系統(tǒng)是不可缺少的組成部分，它有效地管理企業(yè)的員工，對企業(yè)內(nèi)部人事的流動和分配起著重要的管理作用，它正確地反映著企業(yè)的人事變化。</p><p>　　§3.3 系統(tǒng)詳細(xì)調(diào)查</p><p>　　3.3.1 功能需求</p><

44、;p>　　基于以上的開發(fā)目標(biāo)，系統(tǒng)開發(fā)的范圍確定如下：</p><p>　　1、本系統(tǒng)只涉及人事資料部分，不包括工資計算等項目；</p><p>　　2、本系統(tǒng)提供強大的查詢功能，可進(jìn)行不同類型查詢，提供多種索引；</p><p>　　3、本系統(tǒng)提供記錄的添加，刪除和修改；本系統(tǒng)可單條或多條輸出個人資料，并可打印相關(guān)報表。</p><p&g

45、t;　　3.3.2 數(shù)據(jù)需求</p><p>　　通過調(diào)查和研究，本系統(tǒng)僅提供一個數(shù)據(jù)庫，但該數(shù)據(jù)庫包含各項所需信息，表名為person.</p><p>　　3.3.3 運行環(huán)境</p><p>　　本系統(tǒng)對計算機(jī)的要求并不高，只要是在Windows 98/XP/2000操作系統(tǒng)中都可運行。</p><p><b>　　系統(tǒng)結(jié)構(gòu)與

46、模型</b></p><p>　　§4.1人事管理系統(tǒng)的詳細(xì)調(diào)查</p><p>　　對現(xiàn)行管理業(yè)務(wù)進(jìn)行詳細(xì)調(diào)查是了解系統(tǒng)需求和進(jìn)行系統(tǒng)分析和設(shè)計的重要基礎(chǔ)工作，因此要對企業(yè)的人事管理工作進(jìn)行全面、細(xì)致而充分的調(diào)查研究。系統(tǒng)調(diào)研采取的主要方法是到現(xiàn)場去，通過座談、詢問、觀察甚至直接參與管理活動，自上而下、逐步細(xì)化的進(jìn)行了解。</p><p>　

47、　§4.2系統(tǒng)邏輯模型的提出</p><p>　　系統(tǒng)分析的主要成果是系統(tǒng)的邏輯模型。本系統(tǒng)的邏輯模型主要是以系統(tǒng)的數(shù)據(jù)流圖和數(shù)據(jù)字典為主要描述工具。即在對人事管理方式和業(yè)務(wù)流程進(jìn)行認(rèn)真分析和研究的基礎(chǔ)上，排除現(xiàn)有組織機(jī)構(gòu)和業(yè)務(wù)分工所造成的信息障礙。完全從業(yè)務(wù)管理功能和管理對象出發(fā)，按照信息系統(tǒng)中應(yīng)有的數(shù)據(jù)流和數(shù)據(jù)結(jié)構(gòu)來勾畫系統(tǒng)的概貌。</p><p>　　（附密碼驗證流程圖）

48、 </p><p>　　圖4-1密碼驗證流程圖</p><p>　　企業(yè)人事管理系統(tǒng)E-R流程圖:</p><p>　　圖4-2 企業(yè)人事管理系統(tǒng)E－R圖</p><p><b>　　§4．3模塊設(shè)計</b></p&g

49、t;<p>　　按照功能分析及數(shù)據(jù)庫的設(shè)計結(jié)果，為本系統(tǒng)設(shè)計如下模塊，最終得到如下圖所示的功能模塊圖： (附圖)</p><p>　　圖4-3企業(yè)人事管理系統(tǒng)模塊圖</p><p>　　從總體結(jié)構(gòu)圖容易列出應(yīng)用程序的菜單，由總體結(jié)構(gòu)圖轉(zhuǎn)換到菜單時，其對應(yīng)情況如下：系統(tǒng)對應(yīng)菜單文件，子系統(tǒng)層對應(yīng)菜單標(biāo)題，功能層對應(yīng)子菜單項。本系統(tǒng)所使用的模塊包括：系統(tǒng)模塊，員工調(diào)動信息模塊，員

50、工考勤模塊，員工基本信息模塊等。</p><p>　　1、系統(tǒng)：系統(tǒng)啟動的時候有一個管理員用戶,使用這個用戶登錄后,可以添加其它用戶,而且每一個用戶都可以更改自己的密碼。</p><p><b>　　2、員工基本信息</b></p><p>　　（1）添加員工信息:系統(tǒng)自動生成員工編號,管理員可以添加員工的基本信息,包括姓名、性別、籍貫、年齡、

51、生日、住址、E-mail、學(xué)歷、專業(yè)、進(jìn)入本公司時間等。</p><p>　?。?）修改員工信息：選擇一個員工，可以修改這個員工的基本信息。</p><p>　?。?）查詢員工信息：可以根據(jù)員工的編號、姓名或者進(jìn)入公司的時間進(jìn)行查詢員工基本信息。并且可以針對查詢結(jié)果進(jìn)行修改和刪除操作。</p><p>　?。?）刪除員工信息：直接從列表中選中需要刪除的員工信息，然后

52、進(jìn)行刪除操作，或者首先查詢需要刪除的員工信息，然后再刪除。</p><p><b>　　3、員工考勤信息：</b></p><p>　　添加考勤信息:主要分為上下班信息和其他考勤信息.上下班信息主要記錄每個員工每天上下班的時間,而其他考勤信息包含有請假、加班、出差信息。</p><p>　?。?）修改考勤信息：當(dāng)考勤信息出現(xiàn)錯誤需要修改的時候，

53、可以從這里修改相應(yīng)的記錄。</p><p>　?。?）查詢考勤信息：分為刪除上下班信息和刪除其他考勤信息。</p><p>　?。?）刪除考勤信息：分為刪除上下班信息和刪除其他考勤信息。</p><p>　?。?）設(shè)置上下班時間：設(shè)置公司上下班時間。</p><p><b>　　4、員工調(diào)動信息</b></p>

54、;<p>　　（1）添加調(diào)動信息：添加企業(yè)員工的原有部門、原有職務(wù)、新部門、新職務(wù)等信息。</p><p>　?。?）修改調(diào)動信息：修改相應(yīng)的員工調(diào)動信息。</p><p>　　（3）查詢調(diào)動信息：查詢某個員工的調(diào)動信息或者某段時間內(nèi)企業(yè)內(nèi)部的調(diào)動情況。</p><p>　　§4.4 數(shù)據(jù)庫實現(xiàn)</p><p>　　本

55、程序采用Access作為數(shù)據(jù)庫引擎，其主要原因是考慮到現(xiàn)在的大多數(shù)辦公室應(yīng)用系統(tǒng)軟件均支持Access數(shù)據(jù)庫，所以只要應(yīng)用于格式符合的計算機(jī)系統(tǒng)上即可運行，并且由于Access與VB皆是微軟公司開發(fā)出來的軟件，所以它們之間的兼容性非常好，容易配合使用。</p><p>　　在本程序數(shù)據(jù)庫中，還采用了數(shù)據(jù)庫鏈接系統(tǒng)，它維護(hù)了數(shù)據(jù)的獨立性，而且可以與其他程序鏈接，達(dá)到數(shù)據(jù)的關(guān)聯(lián)，方便地應(yīng)用于其他的程序中。</p

56、><p>　　由于本系統(tǒng)只是進(jìn)行一般的數(shù)據(jù)庫操作，對速度要求并不十分高，所以數(shù)據(jù)庫中未調(diào)用Windows API函數(shù)。</p><p><b>　　§4.5 數(shù)據(jù)字典</b></p><p>　　數(shù)據(jù)流圖中的全部數(shù)據(jù)流及其組成部分的數(shù)據(jù)元素，數(shù)據(jù)存儲，數(shù)據(jù)加工，通過數(shù)據(jù)字典描述清楚,以便于此后系統(tǒng)設(shè)計的進(jìn)行。下邊是數(shù)據(jù)項的數(shù)據(jù)字典:<

57、;/p><p>　　1、管理添加、修改、查詢、刪除員工基本信息：進(jìn)行刪除加入員工的內(nèi)容情況，入數(shù)據(jù)：編號+姓名+性別+籍貫+年齡+生日+學(xué)歷+專業(yè)+住址+郵編+電話+ EMAIL+參加工作時間+進(jìn)入公司時間+起薪時間+部門+職務(wù)。</p><p>　　2、考勤信息也是（添加+修改+查詢+刪除）。</p><p>　　3、調(diào)動信息也是同樣的，可以根據(jù)企業(yè)的需要而進(jìn)行（添加

58、+刪除+查詢+修改）來進(jìn)行企業(yè)內(nèi)部的調(diào)整。</p><p>　　4、登陸=用戶名+登陸密碼（可以在內(nèi)部進(jìn)行添加和修改密碼）。</p><p>　　用戶添加=輸入用戶名+密碼+確認(rèn)密碼。</p><p>　　修改密碼=輸入舊密碼+新密碼+確認(rèn)密碼。</p><p>　　員工的基本信息包括：編號、姓名、性別、籍貫、年齡、生日、學(xué)歷、專業(yè)、住址、郵

59、編、電話、EMAIL、參加工作時間、進(jìn)入公司時間、起薪時間、部門、職務(wù)。</p><p><b>　　下邊列有詳細(xì)列表：</b></p><p>　　表1 員工基本信息表</p><p>　　第五章 系統(tǒng)實現(xiàn)技術(shù)</p><p>　　§5．1 開發(fā)環(huán)境的選擇</p><p>　　5.

60、1.1 前端開發(fā)工具 Visual Basic 6.0 簡介</p><p>　　Visual Basic 是在世界范圍內(nèi)廣泛使用的一種強大的編程語言，它為 Windows 應(yīng)用程序的開發(fā)提供了最迅速和便捷的方法。Visual Basic 是基于 Windows 的開發(fā)語言，所以有必要與 Windows 環(huán)境保持一定的相似性。簡單地說就是三個關(guān)鍵的概念：窗口、事件和消息。</p><p>

61、　　Visual Basic 與傳統(tǒng)的編程評議不同，它使用交互式方法開發(fā)應(yīng)用程序，使得三個步驟之間不再有明顯的界限。在大多數(shù)語文里，如果編寫代碼時發(fā)生了錯誤，則在開始編譯應(yīng)用程序時該錯誤就會被編譯器捕獲，此時必須查找并改正該錯誤，然后再次進(jìn)行編譯，對每一個發(fā)現(xiàn)的錯誤都要重復(fù)這樣的過程。Visual Basic 在編程者輸入代碼時便進(jìn)行解釋，即時捕獲并突出顯示大多數(shù)語法或拼寫錯誤，這看起來就像一位專家在實時監(jiān)視代碼的輸入。除即時捕獲錯誤外

62、，Visual Basic 也在輸入代碼時部分地編譯該代碼。當(dāng)準(zhǔn)備運行和測試應(yīng)用程序時，只需極短時間即可完成編譯。如果編譯器發(fā)現(xiàn)了錯誤，則將錯誤突出顯示于代碼中。由于 Visual Basic 的交互特性，因此可以發(fā)現(xiàn)在開發(fā)應(yīng)用程序時，可以頻繁地運行應(yīng)用程序。通過這種方式，代碼運行的效果可以在開發(fā)時進(jìn)行測試，而不必等到編譯完成以后。</p><p>　　5.1.2 后臺數(shù)據(jù)庫引擎Access簡介</p>

63、;<p>　　Access 2000 是一套簡單易學(xué)的數(shù)據(jù)庫軟件除了可以單機(jī)作業(yè)之外，也增強了與后端的SQL Server 7.0 服務(wù)器的鏈接功能，方便建立主從式結(jié)構(gòu)的數(shù)據(jù)庫環(huán)境。</p><p>　　Access 是一套管理數(shù)據(jù)庫的應(yīng)用軟件，即數(shù)據(jù)庫管理系統(tǒng)。</p><p>　　數(shù)據(jù)庫是指一群可組織有系統(tǒng)的數(shù)據(jù)集合。</p><p>　　Acc

64、ess 中，整理好的數(shù)據(jù)將按數(shù)據(jù)的用途，分別存于不同的表中，Access 數(shù)據(jù)庫中包含多個表及其它數(shù)據(jù)庫對象。</p><p>　　§5.2 人事管理系統(tǒng)模塊設(shè)計舉例</p><p>　　5.2.1 建立公共模塊</p><p>　　運行VisualBasic后，選擇“文件”→“新建工程”菜單，然后從工程模板中選擇“標(biāo)準(zhǔn)EXE”項，單擊“確定”按鈕。Vis

65、ualBasic就會自動生成一個窗體，這個窗體的屬性采用的都是默認(rèn)設(shè)置。在這個實例中，先刪除這個窗體，然后選擇“文件”→“保存工程”菜單，在出現(xiàn)的“文件另存為”對話框中輸入這個工程項目的名稱stuff_mis,并且選擇要保存這個工程的目錄，單擊“保存”按鈕，保存工程。</p><p>　　為了提高代碼的效率方便維護(hù)，在VisualBasic中可以用公用模塊來存放工程中經(jīng)常使用的函數(shù)、過程和全局變量等。在這個系統(tǒng)中

66、，每個功能模塊都要使用數(shù)據(jù)庫，因此可以使用一個公用有數(shù)據(jù)操作函數(shù)，來執(zhí)行一系列的SQL語句。</p><p>　　5.2.2 添加公共模塊</p><p>　　在項目資源管理器中為這個工程添加一個模塊，保存為Module1.bas.</p><p><b>　　代碼如下：</b></p><p>　　Public gUs

67、erName As String '保存用戶名稱</p><p>　　Public flag As Integer '添加和修改的標(biāo)志</p><p>　　Public gSQL As String '保存SQL語句</p><p>　　Public kqsql As String '保存查詢考勤結(jié)果SQL語句<

68、;/p><p>　　Public kqsql2 As String '保存查詢其他考勤結(jié)果SQL語句</p><p>　　Public ArecordID As Integer '保存上下班記錄編號</p><p>　　Public LrecordID As Integer '保存請假記錄編號</p><p>　　Pub

69、lic OrecordID As Integer '保存加班記錄編號</p><p>　　Public ErecordID As Integer '保存出差記錄編號</p><p>　　Public iflag As Integer '數(shù)據(jù)庫是否打開標(biāo)志</p><p>　　Public Function TransactSQL(

70、ByVal SQL As String) As ADODB.Recordset</p><p>　　Dim con As ADODB.Connection</p><p>　　Dim rs As ADODB.Recordset</p><p>　　Dim strConnection As String</p><p>　　Dim strArr

71、ay() As String</p><p>　　Set con = New ADODB.Connection '創(chuàng)建連接</p><p>　　Set rs = New ADODB.Recordset '創(chuàng)建記錄集</p><p>　　On Error GoTo TransactSQL_Error</p><p>　　s

72、trConnection= "Provider=Microsoft.jet.oledb.4.0;Data Source=" & App.Path & "\Person.mdb"</p><p>　　strArray = Split(SQL)</p><p>　　con.Open strConnection &#

73、39;打開連接</p><p>　　If StrComp(UCase$(strArray(0)), "select", vbTextCompare) = 0 Then</p><p>　　rs.Open Trim$(SQL), con, adOpenKeyset, adLockOptimistic</p><p>　　Set TransactSQ

74、L = rs '返回記錄集</p><p><b>　　iflag = 1</b></p><p><b>　　Else</b></p><p>　　con.Execute SQL '執(zhí)行命令</p><p><b>　　iflag = 1</b&

75、gt;</p><p><b>　　End If</b></p><p>　　TransactSQL_Exit:</p><p>　　Set rs = Nothing</p><p>　　Set con = Nothing</p><p>　　Exit Function</p>&l

76、t;p>　　TransactSQL_Error:</p><p>　　MsgBox "查詢錯誤：" & Err.Description</p><p><b>　　iflag = 2</b></p><p>　　Resume TransactSQL_Exit</p><p>　　End

77、Function</p><p>　　Public Sub TabToEnter(Key As Integer)</p><p>　　If Key = 13 Then '判斷是否為回車鍵</p><p>　　SendKeys "{TAB}" '轉(zhuǎn)換為Tab鍵</p><p

78、><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Sub main()</p><p>　　Dim fLogin As New frmLogin</p><p>　　fLogin.Show vbModual '顯示窗

79、體</p><p><b>　　End Sub</b></p><p><b>　　1.登錄窗體：</b></p><p>　　圖5－1 登陸窗口圖</p><p>　　有關(guān)本窗體的代碼如下:</p><p>　　Option Explicit</p><

80、p>　　Dim pwdCount As Integer</p><p>　　Private Sub cmdCancel_Click()</p><p><b>　　Unload Me</b></p><p><b>　　Exit Sub</b></p><p><b>　　End S

81、ub</b></p><p>　　Private Sub cmdOK_Click()</p><p>　　Dim SQL As String</p><p>　　Dim rs As ADODB.Recordset</p><p>　　If Trim(UserName.Text = "") Then</p&

82、gt;<p>　　MsgBox "沒有輸入用戶名稱，請重新輸入"vbOKOnly+vbExclamation </p><p>　　UserName.SetFocus</p><p>　　Else '查詢用戶</p><p>　　S

83、et rs = TransactSQL(SQL)</p><p>　　If iflag = 1 Then</p><p>　　If rs.EOF = True Then</p><p>　　msgBox "沒有這個用戶，請重新輸入！",vbOKOnly+vbExclamation</p><p>　　UserName.Se

84、tFocus</p><p><b>　　Else</b></p><p>　　If Trim(rs.Fields(1)) = Trim(PassWord.Text) Then</p><p><b>　　rs.Close</b></p><p><b>　　Me.Hide</b&g

85、t;</p><p>　　gUserName = Trim(UserName.Text)'保存用戶名稱</p><p>　　FrmMain.Show</p><p><b>　　Unload Me</b></p><p><b>　　Else</b></p><p>

86、　　MsgBox "密碼不正確，請重新輸入！", vbOKOnly+vbExclamation, </p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　Else</b></p><p&g

87、t;<b>　　Unload Me</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p>　　pwdCount=pwdCount+1 '判斷輸入次數(shù)</p><p>　　If pwdCoun

88、t = 3 Then</p><p><b>　　Unload Me</b></p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p>

89、<p>　　Private Sub Form_Load()</p><p>　　pwdCount = 0</p><p>　　gUserName = ""</p><p><b>　　End Sub</b></p><p>　　Private Sub PassWord_KeyDown(Key

90、Code As Integer, Shift As Integer)</p><p>　　TabToEnter KeyCode</p><p><b>　　End Sub</b></p><p>　　Private Sub UserName_KeyDown(KeyCode As Integer, Shift As Integer)</p&

91、gt;<p>　　TabToEnter KeyCode</p><p><b>　　End Sub</b></p><p>　　2.系統(tǒng)主界面的設(shè)計效果</p><p>　　圖5－2系統(tǒng)主界面設(shè)計效果圖</p><p>　　Private SQL As String</p><p>

92、　　Private Sub About_Click() '關(guān)于窗體</p><p>　　frmAbout.Show</p><p>　　frmAbout.ZOrder 0</p><p><b>　　End Sub</b></p><p>　　Private Sub Add_Al

93、ter_Click() '添加調(diào)動信息</p><p><b>　　flag = 1</b></p><p>　　frmAlteration.Caption = "添加員工調(diào)動信息"</p><p>　　frmAlteration.Show</p><p>　　frmAl

94、teration.ZOrder 0</p><p><b>　　End Sub</b></p><p>　　Private Sub Add_Stuff_Click() '添加員工信息</p><p><b>　　flag = 1</b></p><p>　　frmStu

95、ff_info.Show</p><p>　　frmStuff_info.ZOrder 0</p><p><b>　　End Sub</b></p><p>　　Private Sub Add_User_Click() '添加用戶</p><p>　　Dim fAdd As New f

96、rmAddUser</p><p><b>　　fAdd.Show</b></p><p>　　fAdd.ZOrder 0</p><p><b>　　End Sub</b></p><p>　　Private Sub AddAttendance_Click() '添加上下班信息&

97、lt;/p><p><b>　　flag = 1</b></p><p>　　FrmAttendance.Show</p><p>　　FrmAttendance.ZOrder 0</p><p><b>　　End Sub</b></p><p>　　Private Sub A

98、ddOtherKQ_Click() '添加其他考勤信息</p><p><b>　　flag = 1</b></p><p>　　frmOtherKQ.Show</p><p>　　frmOtherKQ.ZOrder 0</p><p><b>　　End Sub</b></p

99、><p>　　Private SubChage_Alter_Click() '修改調(diào)動信息</p><p>　　frmAlterationResult.Show</p><p>　　frmAlterationResult.ZOrder 0</p><p><b>　　End Sub</b></p&

100、gt;<p>　　Private SubChange_PWD_Click() '修改密碼</p><p>　　Dim fChangePWD As New frmChangePWD</p><p>　　fChangePWD.Show</p><p><b>　　End Sub</b></p>

101、<p>　　Private SubChange_Stuff_Click() '修改員工信息</p><p>　　frmCheckStuff.topic = "選擇修改條件"</p><p>　　frmCheckStuff.Caption = "修改員工基本信息"</p><p>　　SQL = &

102、quot;select * from StuffInfo order by SID"</p><p>　　frmResult.createList (SQL)</p><p>　　frmResult.Show</p><p>　　frmResult.ZOrder 0</p><p>　　frmCheckStuff.Show</

103、p><p>　　frmCheckStuff.ZOrder 0</p><p><b>　　End Sub</b></p><p>　　Private SubChangeAttendance_Click() '修改上下班信息</p><p>　　frmAResult.Show</p><p>

104、　　frmAResult.ZOrder 0</p><p><b>　　End Sub</b></p><p>　　Private SubchangeOtherKQ_Click() '修改其他考勤信息</p><p>　　frmOKQResult.Show</p><p>　　frmOKQResult.ZOrd

105、er 0</p><p><b>　　End Sub</b></p><p>　　Private SubCheck_Alter_Click() '查詢調(diào)動信息</p><p>　　frmCheckAlter.Show</p><p>　　frmCheckAlter.ZOrder 0</p>

106、<p><b>　　End Sub</b></p><p>　　Private Sub Check_Checkin_Click() '查詢其他考勤信息</p><p>　　frmCheckKQ.Show</p><p>　　frmCheckKQ.ZOrder 0</p><p><b>

107、　　End Sub</b></p><p>　　Private SubCheck_Stuff_Click() '查詢員工信息</p><p>　　SQL = "select * from StuffInfo"</p><p>　　frmResult.createList (SQL)</p><

108、p>　　frmResult.Show</p><p>　　frmCheckStuff.Show</p><p>　　frmResult.ZOrder 1</p><p>　　frmCheckStuff.ZOrder 0</p><p><b>　　End Sub</b></p><p>　　

109、Private SubDel_Alter_Click() '刪除調(diào)動信息</p><p>　　frmAlterationResult.Show</p><p>　　frmAlterationResult.ZOrder 0</p><p><b>　　End Sub</b></p><p>　　

110、Private SubDel_Stuff_Click() '刪除員工信息</p><p>　　frmCheckStuff.topic = "選擇刪除條件"</p><p>　　frmCheckStuff.Caption = "刪除員工基本信息"</p><p>　　SQL = "select *

111、 from StuffInfo"</p><p>　　frmResult.createList (SQL)</p><p>　　frmResult.Show</p><p>　　frmCheckStuff.Show</p><p>　　frmResult.ZOrder 1</p><p>　　frmCheck

112、Stuff.ZOrder 0</p><p><b>　　End Sub</b></p><p>　　Private Sub delInOut_Click() '刪除上下班信息</p><p>　　Dim SQL As String</p><p>　　SQL = "select * f

113、rom AttendanceInfo order by ID desc"</p><p>　　Call frmAResult.ListTopic</p><p>　　Call frmAResult.ShowData(SQL)</p><p>　　frmAResult.Show</p><p>　　frmAResult.ZOrder

114、0</p><p><b>　　End Sub</b></p><p>　　Private SubdelOtherKQ_Click() '刪除其他考勤信息</p><p>　　frmOKQResult.Show</p><p>　　frmOKQResult.ZOrder 0</p>&l

115、t;p><b>　　End Sub</b></p><p>　　Private Sub MDIForm_Load()</p><p><b>　　End Sub</b></p><p>　　Private SubSetTime_Click() '設(shè)置上下班時間</p><

116、;p>　　frmSetTime.Show</p><p>　　frmSetTime.ZOrder 0</p><p><b>　　End Sub</b></p><p>　　Private Sub System_EXIT_Click()</p><p><b>　　Unload Me</b>&

117、lt;/p><p><b>　　Exit Sub</b></p><p><b>　　End Sub</b></p><p><b>　　3.修改密碼窗體：</b></p><p>　　圖5－3 修改密碼窗體圖</p><p>　　Private Sub c

118、mdCancel_Click()</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　Private Sub cmdOK_Click()</p><p>　　Dim SQL As String</p><

119、p>　　Dim rs As ADODB.Recordset</p><p>　　IfTrim(OldPWD.Text)=""Then '判斷是否輸入舊密碼</p><p>　　MsgBox "請輸入舊密碼", vbOKOnly + vbExclamation, "警告"</p><p>　

120、　OldPWD.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　Else</b></p><p>　　If Trim(NewPWD.Text) = "" Then '判斷是否輸入新密碼</p><p>　　MsgBox

121、"請輸入新密碼", vbOKOnly + vbExclamation, "警告"</p><p>　　NewPWD.SetFocus</p><p><b>　　Exit Sub</b></p><p>　　ElseIf Trim(NewPWD.Text) <> Trim(confirmPWD