畢業(yè)設(shè)計(jì)論文-人事管理系統(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è)計(jì)目標(biāo)4</p><p>　　§2．1 人事管理系統(tǒng)簡(jiǎn)介4</p><p>　　2．1．1 人事管理系統(tǒng)的發(fā)展歷史4</p><p>　　2．1．2 人力資源開(kāi)發(fā)的目的4</p><p>　　§2.2人事管理相關(guān)軟件簡(jiǎn)介5</p><p>　　§2．3 企

3、業(yè)信息化發(fā)展6</p><p>　　第三章 要解決的幾個(gè)關(guān)鍵問(wè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 運(yùn)行環(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、計(jì)9</p><p>　　§4.4 數(shù)據(jù)庫(kù)實(shí)現(xiàn)10</p><p>　　§4.5 數(shù)據(jù)字典10</p><p>　　第五章 系統(tǒng)實(shí)現(xiàn)技術(shù)12</p><p>　　§5．1 開(kāi)發(fā)環(huán)境的選擇12</p><p>　　5.1.1 前端開(kāi)發(fā)工具 Visual Basic 6.0 簡(jiǎn)介

6、12</p><p>　　5.1.2 后臺(tái)數(shù)據(jù)庫(kù)引擎Access簡(jiǎn)介12</p><p>　　§5.2 人事管理系統(tǒng)模塊設(shè)計(jì)舉例12</p><p>　　5.2.1 建立公共模塊12</p><p>　　5.2.2 添加公共模塊12</p><p>　　§5.3 系統(tǒng)運(yùn)行與維護(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>　　第六章 性能測(cè)試與分析27</p><p><b>　

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

9、用于社會(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)用。</p><p>　　本論文是從現(xiàn)代企業(yè)管理中的人事管理現(xiàn)狀出發(fā)，針對(duì)人事管理的復(fù)雜程序，經(jīng)過(guò)詳細(xì)的系統(tǒng)調(diào)查，開(kāi)發(fā)出的操作簡(jiǎn)單而

10、且方便實(shí)用的一個(gè)人事管理系統(tǒng)。對(duì)企業(yè)中的考勤信息、請(qǐng)假信息、加班信息、出差信息、調(diào)動(dòng)信息進(jìn)行管理。</p><p>　　本系統(tǒng)用Visual Basic 6.0編寫(xiě)，后臺(tái)數(shù)據(jù)庫(kù)選用Access 2000。</p><p><b>　　英文摘要。</b></p><p>　　關(guān)鍵詞：人事管理系統(tǒng)、管理信息系統(tǒng)、電子數(shù)據(jù)處理、數(shù)據(jù)庫(kù)、</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>　　計(jì)算

17、機(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ī)劃和政策。</p><p>　　§1．1 Visual

18、base 的介紹</p><p>　　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不但受到廣大初、中

19、級(jí)計(jì)算機(jī)愛(ài)好者的歡迎，也越來(lái)越受到高級(jí)程序員的歡迎。</p><p>　　§1．2 Access 2000 的介紹</p><p>　　用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ù)信息的完整性和一致性。Acc

20、ess2000是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)操作、

21、設(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)行一系</p><p>　　第二章 研究現(xiàn)狀及設(shè)計(jì)目標(biāo)</p><p>　　

22、67;2．1 人事管理系統(tǒng)簡(jiǎn)介</p><p>　　隨著市場(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ì)人的管理。</p><p>　　2．1．

23、1 人事管理系統(tǒng)的發(fā)展歷史</p><p>　　人力資源管理系統(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)表生成功能

24、和薪資數(shù)據(jù)分析功能。但是，它的出現(xiàn)為人力資源的管理展示了美好的前景，即用計(jì)算機(jī)的高速度和自動(dòng)化來(lái)代替手工的巨大工作量，用計(jì)算機(jī)的高準(zhǔn)確性來(lái)避免手工的錯(cuò)誤和誤差，使大規(guī)模集中處理大型企業(yè)的薪資成為可能。</p><p>　　第二代的人力資源管理系統(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ā)展提供了可能。第二代人力資源管

25、理系統(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)和全面。</p><p>　　人力資源管理系統(tǒng)的革命性變革出現(xiàn)在20世紀(jì)90年代末。由于市場(chǎng)競(jìng)爭(zhēng)的需要，如何吸引和留住人才，激發(fā)員工的創(chuàng)造性、工作責(zé)任感和工

26、作熱情已成為關(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è)人

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

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

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

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

31、類(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)單的人事信息。</p>

32、<p>　　培訓(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ù)。</p><p>　　考勤管理程序。為了有效地記載員工的出勤情況，很多企業(yè)配置了打卡機(jī)，考勤機(jī)等設(shè)備。考勤管理程序一般都與這些設(shè)備相接，根據(jù)事先的編排的班次信息，過(guò)濾掉錯(cuò)誤數(shù)據(jù)，生成較為清晰的員

33、工出勤報(bào)告，并可轉(zhuǎn)入薪資和福利程序中，使考勤數(shù)據(jù)與薪資計(jì)算直接掛鉤。其生的文檔還可作為歷史信息保存，用于分析，統(tǒng)計(jì)和查詢(xún)。</p><p>　　人力資源管理系統(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ù)中，從

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

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

36、統(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è)的信息化。</p><p>　　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è)

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

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

39、算機(jī)和軟件使用培訓(xùn)等視為可有可無(wú)，信息化的發(fā)展使計(jì)算機(jī)和軟件成為企業(yè)日常管理中的必然。</p><p>　　第三章 要解決的幾個(gè)關(guān)鍵問(wèn)題</p><p>　　§3．1應(yīng)用人事管理系統(tǒng)的必要</p><p>　　現(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)：</p

40、><p>　　1、采用人事管理系統(tǒng)，可以用集中的數(shù)據(jù)庫(kù)將與人力資源管理相關(guān)的信息全面、有機(jī)地聯(lián)系起來(lái)，有效地減少了信息更新和查找中的重復(fù)勞動(dòng)，保證了信息的相容性，從而大大地提高了工作效率，還能使原來(lái)不可以提供的分析報(bào)告成了可能。</p><p>　　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)

41、于人的過(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)。</p>

42、<p>　　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è)的管理水平。</p><p>　　§3.2 系統(tǒng)可行性分析</p><p>　　人事管理系統(tǒng)

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

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

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

46、模型</b></p><p>　　§4.1人事管理系統(tǒng)的詳細(xì)調(diào)查</p><p>　　對(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)行了解。</p><p>　

47、　§4.2系統(tǒng)邏輯模型的提出</p><p>　　系統(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)的概貌。</p><p>　?。ǜ矫艽a驗(yàn)證流程圖）

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

49、t;<p>　　按照功能分析及數(shù)據(jù)庫(kù)的設(shè)計(jì)結(jié)果，為本系統(tǒng)設(shè)計(jì)如下模塊，最終得到如下圖所示的功能模塊圖： (附圖)</p><p>　　圖4-3企業(yè)人事管理系統(tǒng)模塊圖</p><p>　　從總體結(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)信息模塊，員

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

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

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

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

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

55、程序采用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)的軟件，所以它們之間的兼容性非常好，容易配合使用。</p><p>　　在本程序數(shù)據(jù)庫(kù)中，還采用了數(shù)據(jù)庫(kù)鏈接系統(tǒng)，它維護(hù)了數(shù)據(jù)的獨(dú)立性，而且可以與其他程序鏈接，達(dá)到數(shù)據(jù)的關(guān)聯(lián)，方便地應(yīng)用于其他的程序中。</p

56、><p>　　由于本系統(tǒng)只是進(jìn)行一般的數(shù)據(jù)庫(kù)操作，對(duì)速度要求并不十分高，所以數(shù)據(jù)庫(kù)中未調(diào)用Windows API函數(shù)。</p><p><b>　　§4.5 數(shù)據(jù)字典</b></p><p>　　數(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ù)字典:<

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

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

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

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

61、　　Visual Basic 與傳統(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ò)程。Visual Basic 在編程者輸入代碼時(shí)便進(jìn)行解釋?zhuān)磿r(shí)捕獲并突出顯示大多數(shù)語(yǔ)法或拼寫(xiě)錯(cuò)誤，這看起來(lái)就像一位專(zhuān)家在實(shí)時(shí)監(jiān)視代碼的輸入。除即時(shí)捕獲錯(cuò)誤外

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

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

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

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

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

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

68、;/p><p>　　Public kqsql2 As String '保存查詢(xún)其他考勤結(jié)果SQL語(yǔ)句</p><p>　　Public ArecordID As Integer '保存上下班記錄編號(hào)</p><p>　　Public LrecordID As Integer '保存請(qǐng)假記錄編號(hào)</p><p>　　Pub

69、lic OrecordID As Integer '保存加班記錄編號(hào)</p><p>　　Public ErecordID As Integer '保存出差記錄編號(hào)</p><p>　　Public iflag As Integer '數(shù)據(jù)庫(kù)是否打開(kāi)標(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;打開(kāi)連接</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 "查詢(xún)錯(cuò)誤：" & 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 '判斷是否為回車(chē)鍵</p><p>　　SendKeys "{TAB}" '轉(zhuǎn)換為T(mén)ab鍵</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 "沒(méi)有輸入用戶(hù)名稱(chēng)，請(qǐng)重新輸入"vbOKOnly+vbExclamation </p><p>　　UserName.SetFocus</p><p>　　Else '查詢(xún)用戶(hù)</p><p>　　S

83、et rs = TransactSQL(SQL)</p><p>　　If iflag = 1 Then</p><p>　　If rs.EOF = True Then</p><p>　　msgBox "沒(méi)有這個(gè)用戶(hù)，請(qǐng)重新輸入！",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)'保存用戶(hù)名稱(chēng)</p><p>　　FrmMain.Show</p><p><b>　　Unload Me</b></p><p><b>　　Else</b></p><p>

86、　　MsgBox "密碼不正確，請(qǐng)重新輸入！", 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è)計(jì)效果</p><p>　　圖5－2系統(tǒng)主界面設(shè)計(jì)效果圖</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)動(dòng)信息</p><p><b>　　flag = 1</b></p><p>　　frmAlteration.Caption = "添加員工調(diào)動(dòng)信息"</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() '添加用戶(hù)</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)動(dòng)信息</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() '查詢(xún)調(diào)動(dòng)信息</p><p>　　frmCheckAlter.Show</p><p>　　frmCheckAlter.ZOrder 0</p>

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

107、　　End Sub</b></p><p>　　Private SubCheck_Stuff_Click() '查詢(xún)員工信息</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)動(dòng)信息</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è)置上下班時(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 "請(qǐng)輸入舊密碼", 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、"請(qǐng)輸入新密碼", vbOKOnly + vbExclamation, "警告"</p><p>　　NewPWD.SetFocus</p><p><b>　　Exit Sub</b></p><p>　　ElseIf Trim(NewPWD.Text) <> Trim(confirmPWD