基于cs結構的企業(yè)人事管理系統(tǒng)畢業(yè)論文

1、<p>　　計算機科學與技術專業(yè)畢業(yè)論文(設計)</p><p><b>　　畢業(yè)論文</b></p><p>　　課題：基于C/S結構的企業(yè)人事管理系統(tǒng)</p><p>　　姓 名： 學 號： </p><p>　　年級專業(yè)

2、： 組 別： </p><p>　　指導教師： 完成時間：_ __ ______</p><p><b>　　摘 要</b></p><p>　　在當今21世紀，辦公自動化進入社會的每一個角落已經勢不可檔,

3、而人事管理系統(tǒng)是辦公自動化的一個小小體現(xiàn)，它為企業(yè)人事管理大量又繁雜的員工數據工作提供了方便，提高了人事管理工作的效率，為辦公自動化的普及奠定了基礎.人力資源管理是企業(yè)管理中的一個重要內容，隨著時代的進步，企業(yè)也逐漸變得龐大起來。如何管理好企業(yè)內部員工的信息，成為企業(yè)管理中的一個大問題。在這種情況下，開發(fā)一個人力資源管理系統(tǒng)就顯得非常必要。</p><p>　　本系統(tǒng)結合公司實際的人事、制度，經過實際的需求分析，

4、采用功能強大的Visual Basic 6.0作為開發(fā)工具而開發(fā)出來的基于B/S結構的人事管人事理系統(tǒng)。為企業(yè)人事管理提供信息咨詢，信息檢索，信息存取等服務，基本上能夠滿足現(xiàn)代企業(yè)對人事管理的需要。本文系運用規(guī)范研究方法進行的專題研究。全文分六個部分：第一部分，是本課題的來源和課題研究的目的和意義；第二部分，是開發(fā)工具的選擇，本系統(tǒng)主要運用的是Visual Basic 6.0作為系統(tǒng)前臺應用程序開發(fā)工具，SQL作為后臺數據庫；第三部分，

5、是系統(tǒng)的需求分析，主要是人事管理系統(tǒng)的需求分析；第四部分，是系統(tǒng)分析與實現(xiàn)，包括系統(tǒng)功能模塊的設計和數據庫的設計；第五部分，是代碼的設計與實現(xiàn)，系統(tǒng)事件運行的主要代碼；第六部分，是系統(tǒng)的實現(xiàn)，最后，是軟件的測試。</p><p>　　關鍵詞：信息管理；人事管理；人事管理系統(tǒng)；Visual Basic 6.0；SQL</p><p><b>　　Abstract</b>

6、</p><p>　　Human resources management is the management of an important progress with the times, companies have gradually become a huge up. How to manage internal employee information, business management has

7、 become a big problem. In this case, the development of a human resource management system it is very necessary. </p><p>　　The system combines the company's actual personnel, systems, analysis of actual

8、demand, the use of powerful development tools as Visual Basic6.0 and developed stand-alone version of the personnel management system governing personnel. From the whole system in line with the simple, user-friendly, fle

9、xible, practical and safety requirements, the personnel management system of the enterprises have the following functions: basic information about staff input, modify, query, delete the module, staff </p><p>

10、;　　Key words: Information management; personnel management; Personnel Management System; Visual Basic 6.0;SQL</p><p><b>　　目 錄</b></p><p>　　引 言…………………………………………………………………1</p>

11、<p>　　一、概述………………………………………………………………5</p><p>　　1.1本課題的來源………………………………………………………………5</p><p>　　1.2本課題研究的目的及意義…………………………………………………6</p><p>　　1.3國內外研究的現(xiàn)狀…………………………………………………………7</p>

12、;<p>　　二、開發(fā)工具的選擇…………………………………………………8</p><p>　　2.1開發(fā)軟件SQL Sever 2000的介紹…………………………………………8</p><p>　　2.2開發(fā)軟件Visual Basic 6.0的介紹………………………………………9</p><p>　　三、系統(tǒng)分析與設計…………………………………………

13、……10</p><p>　　3.1系統(tǒng)分析……………………………………………………………………10</p><p>　　3.2系統(tǒng)功能設計………………………………………………………………11</p><p>　　3.3數據庫設計…………………………………………………………………12</p><p>　　四、系統(tǒng)的實現(xiàn)………………………………

14、……………………16</p><p>　　4.1系統(tǒng)功能窗體概述…………………………………………………………16</p><p>　　4.2工程環(huán)境搭建………………………………………………………………17</p><p>　　4.3系統(tǒng)功能模塊的實現(xiàn)………………………………………………………19</p><p>　　五、系統(tǒng)測試…………………

15、……………………………………47</p><p>　　六、結束語 …………………………………………………………47</p><p>　　主要參考文獻…………………………………………………………47</p><p><b>　　引 言</b></p><p>　　人力資源管理是結合公司實際的人事、制度，經過實際的需求分析

16、，采用功能強大的Visual Basic6.0作為開發(fā)工具而開發(fā)出來的基于B\S結構的人事管人事理系統(tǒng)。整個系統(tǒng)從符合操作簡便、界面友好、靈活、實用、安全的要求出發(fā)，本企業(yè)人事管理系統(tǒng)具有如下功能：員工基本信息的錄入、修改、查詢、刪除模塊，員工假條信息錄入、修改、查詢、刪除模塊，員工工資信息的錄入，計算，查詢，以及系統(tǒng)用戶的設置以及系統(tǒng)的維護功能。為企業(yè)人事管理提供信息咨詢，信息檢索，信息存取等服務，基本上能夠滿足現(xiàn)代企業(yè)對人事管理的需

17、要。</p><p><b>　　一 、概述</b></p><p>　　1.1、本課題的來源</p><p>　　在當今21世紀，工業(yè)，農業(yè)不斷發(fā)展的同時，Internet也迅速發(fā)展起來社會中,辦公自動化進入社會的每一個角落已經勢不可檔,而人事管理系統(tǒng)是辦公自動化的一個小小體現(xiàn)，它為企業(yè)人事管理大量又繁雜的員工數據工作提供了方便，提高了人事管

18、理工作的效率，為辦公自動化的普及奠定了基礎。隨著我國國有和私營企業(yè)的快速發(fā)展, 企業(yè)員工的規(guī)模不斷擴大,人事管理系統(tǒng)是任何一個現(xiàn)代化企事業(yè)單位不可缺少的一部份,人事管理系統(tǒng)就是把分散的企業(yè)單位的職工信息實行統(tǒng)一,集中,規(guī)范的收集管理。為了實現(xiàn)對企業(yè)員工進行科學管理必須開發(fā)一套以計算機為主的信息管理系統(tǒng),它的內容對于企事業(yè)的管理者來說至關重要。人事管理系統(tǒng)應該能夠為管理者提供充足的信息和快捷的查詢手段。但現(xiàn)在很多單位并沒有對人事工作進行電

19、子化管理，還存在著;管理人員多，管理效率低，決策依據少的尷尬局面。所以就需要一個人事管理系統(tǒng),本系統(tǒng)是為中小型企業(yè)服務的企業(yè)人事管理系統(tǒng)，考慮到系統(tǒng)在企業(yè)內部局域網中的應用，而采用了SQL Server 2000數據庫。該數據庫集成了企業(yè)人事管理、部門管理、考勤管理、工資管理、福利管理、人事信息統(tǒng)計6大部分功能結構,而具有較強的</p><p>　　對于大中型企業(yè)來說，利用計算機支持企業(yè)高效率完成勞動人事管理的日

20、常事務，是適應現(xiàn)代企業(yè)制度要求、推動企業(yè)勞動人事管理走向科學化、規(guī)范化的必要條件；計算機管理所無法比擬的優(yōu)點檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點能夠極大地提高人事管理的效率,也是企業(yè)的科學化、正規(guī)化管理,與世界接軌的重要條件。不同的企業(yè)具有不同的人事管理制度，這就決定了不同的企業(yè)需要不同的人事管理系統(tǒng)。</p><p>　　人事管理系統(tǒng)是一個企業(yè)單位不可缺少的部分，它的內容

21、對于企業(yè)的決策者和管理者來說都至關重要，所以人事管理系統(tǒng)應該能夠為用戶提供充足的信息和快捷的查詢手段。但一直以來人們使用傳統(tǒng)人工的方式管理文件檔案，這種管理方式存在著許多缺點，如:效率低、保密性差，另外時間一長，將產生大量的文件和數據，這對于查找、更新和維護都帶來了不少的困難。</p><p>　　隨著計算機技術的飛速發(fā)展，計算機在企業(yè)管理中應用的普及， 利用計算機實現(xiàn)企業(yè)人事管理勢在必行。合理的利用有助于企業(yè)發(fā)

22、展的管理系統(tǒng)是企業(yè)改革的一種優(yōu)越的體現(xiàn)，不僅保證了核算準確度，還成倍的提高了工作效率，而且便于查詢。作為計算機應用的一部分，使用計算機對人事信息進行管理，具有手工管理所無法比擬的優(yōu)點.例如:檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點能夠極大地提高人事勞資管理的效率，也是企業(yè)的科學化、正規(guī)化管理，與世界接軌的重要條件。</p><p>　　因此，開發(fā)這樣一套適用的人事管理軟件成為很

23、有必要的事情，在下面的各章中我們將以開發(fā)一套人事管理系統(tǒng)為例，談談其開發(fā)過程和所涉及到的問題及解決方法。</p><p>　　1.2、本課題研究的目的及意義</p><p>　　隨著現(xiàn)代信息技術的發(fā)展,計算機科學日漸成熟,其強大的功能已為人們深刻認識，它已進入人類社會的各個領域并發(fā)揮著越來越重要的作用。作為計算機應用的一部分,使用計算機對企業(yè)人事信息進行管理,具有著傳統(tǒng)管理所無法比擬的優(yōu)點

24、。例如:查找方便、存儲量大、成本低等.這些優(yōu)點能夠大大提高企業(yè)的管理效率。 最初的人事管理,都是靠人力來完成的.當企業(yè)規(guī)模比較小的時候,人力可以完成,隨著企業(yè)的規(guī)模越來越大,企業(yè)的員工也越來越多,繼續(xù)維持著人力進行人事管理,必然會造成工作效率低,工作錯誤增多的問題。 所以必需開發(fā)一個人事管理系統(tǒng)來管理這些信息。人事管理系統(tǒng)要能夠及時地為企業(yè)管理人員提供準確的員工信息,以便領導者準確了解企業(yè)各個部門的員工構成,計算好人力成本,安排好工作計

25、劃,使企業(yè)變的更高效,更具有生命力,因此，開發(fā)這樣一套管理軟件,對企業(yè)人事管理工作進行有效電子化管理，化簡繁瑣的手工操作，提高工作效率是很有意義的一件事情。針對我國企業(yè)管理信息化建設現(xiàn)狀，結合在實際工作中所遇到的問題和收獲，對企業(yè)人事管理系統(tǒng)在設計開發(fā)等方面進行研究，重點研究系統(tǒng)開發(fā)中所采用的軟硬件平臺規(guī)范、數據庫結構設計、開發(fā)工具的選擇與使用</p><p>　　1.3、國內外研究的現(xiàn)狀</p>

26、<p>　　據統(tǒng)計,目前美國在人事管理中80-100%的信息處理由計算機完成,在計算機應用發(fā)展較快的國家中,計算機應用于經濟管理的占80%,由此可以看出在國外經濟管理是計算機應用的主要領域,我國的人事管理等信息系統(tǒng)的開發(fā)應用是從1973年開始的,83年以后才開始了大量的應用在實際的開發(fā)和研究工作,因此,信息資源的開發(fā)和利用已被確立為國民經濟信息的核心內容.</p><p>　　國外對人事管理系統(tǒng)的研究起

27、步比較早，發(fā)達國家的企業(yè)非常注重自身人事管理系統(tǒng)的開發(fā)。特別是一些跨國公司，如：蘋果公司等其他大公司企業(yè).更不惜花費大量的人力和物力來開發(fā)相應的人事管理系統(tǒng)，他們通過建立一個多信息流數據流和業(yè)務流的開發(fā)性系統(tǒng)實現(xiàn)真正意義上的人事管理目標，挑選和留住最佳人才，同時不斷提高這些人才的工作效益。我國的信息管理系統(tǒng)是九十年代初開始快速發(fā)展的。經過十余年的發(fā)展，我國的數據庫管理技術也廣泛的應用與各個領域，并且形成了產業(yè)化。但目前我國中小型企業(yè)對人

28、事管理系統(tǒng)的應用比起世界先進水平還相當落后。主要表現(xiàn)在：人事管理系統(tǒng)范圍使用相對狹窄、人事管理系統(tǒng)功能相對欠缺、穩(wěn)定性較差、功能相對單一等</p><p><b>　　二、開發(fā)工具的選擇</b></p><p>　　現(xiàn)在，市場上可以選購的應用開發(fā)產品很多，流行的也有數十種。在目前市場上這些眾多的程序開發(fā)工具中，有些強調程序語言的彈性與執(zhí)行效率；有些則偏重于可視化程序開

29、發(fā)工具所帶來的便利性與效率的得高，各有各的優(yōu)點和特色，也滿足了不同用戶的需求。然而，語言的彈性和工具的便利性是密不可分的，只強調程序語言的彈性，卻沒有便利的工具作配合，會使一些即使非常簡單的界面處理動作，也會嚴重地浪費程序設計師的寶貴時間；相反，如果只有便利的工具，卻沒有彈性的語言作支持，許多特殊化的處理動作必需要耗費數倍的工夫來處理，使得原來所標榜的效率提高的優(yōu)點失去了作用。</p><p>　　本設計我將采用

30、面向對象的方法，綜合運用數據庫技術、程序設計技術，結合企業(yè)人事管理知識，以Visual Basic 6.0作為系統(tǒng)前臺應用程序開發(fā)工具，SQL Server 2000作為后臺數據庫，通過Visual Basic 6.0中的控件使兩者進行連接從而進行系統(tǒng)軟件開發(fā)。</p><p>　　2.1、開發(fā)軟件SQL Server 2000的介紹</p><p>　　SQL Server 2000 是

31、Microsoft公司推出的SQL Server 數據庫管理系統(tǒng)的一個版本。該版本繼承了SQL Server 7.0 版本的優(yōu)點同時又比它增加了許多更先進的功能，具有使用方便,可伸縮性好與相關軟件集成程度高等優(yōu)點，可跨越從運行Microsoft Windows 98 的膝上型電腦到運行Microsoft Windows 2000 的大型多處理器的服務器等多種平臺使用。</p><p>　　SQL Server 2

32、000 數據庫引擎提供完整的XML 支持。它還具有構成最大的Web 站點的數據存儲組件所需的可伸縮性、可用性和安全功能。SQL Server 2000 程序設計模型與 Windows DNA 構架集成，用以開發(fā) Web 應用程序，并且SQL Server 2000 支持 English Query 和 Microsoft 搜索服務等功能，在Web 應用程序中包含了用戶友好的查詢和強大的搜索功能。</p><p>

33、　　同一個數據庫引擎可以在不同的平臺上使用，從運行 Microsoft Windows&reg; 98 的便攜式電腦，到運行 Microsoft Windows 2000 數據中心版的大型多處理器服務器。SQL Server 2000 企業(yè)版支持聯(lián)合服務器、索引視圖和大型內存支持等功能，使其得以升級到最大 Web 站點所需的性能級別。</p><p>　　SQL Server 2000 關系數據庫引擎支持

34、當今苛刻的數據處理環(huán)境所需的功能。數據庫引擎充分保護數據完整性，同時將管理上千個并發(fā)修改數據庫的用戶的開銷減到最小。SQL Server 2000 分布式查詢使您得以引用來自不同數據源的數據，就好象這些數據是 SQL Server 2000 數據庫的一部分，同時分布式事務支持充分保護任何分布式數據更新的完整性。復制同樣使您得以維護多個數據復本，同時確保單獨的數據復本保持同步。可將一組數據復制到多個移動的脫接用戶，使這些用戶自主地工作，然

35、后將他們所做的修改合并回發(fā)布服務器。</p><p>　　SQL Server 2000 中包括一系列管理和開發(fā)工具，這些工具可改進在多個站點上安裝、部署、管理和使用 SQL Server 的過程。SQL Server 2000 還支持基于標準的、與 Windows DNA 集成的程序設計模型，使 SQL Server 數據庫和數據倉庫的使用成為生成強大的可伸縮系統(tǒng)的無縫部分。這些功能使您得以快速交付 SQL S

36、erver 應用程序，使客戶只需最少的安裝和管理開銷即可實現(xiàn)這些應用程序。 　　</p><p>　　數據倉庫。 SQL Server 2000 中包括析取和分析匯總數據以進行聯(lián)機分析處理 (OLAP) 的工具。SQL Server 中還包括一些工具，可用來直觀地設計數據庫并通過 English Query 來分析數據。</p><p>　　2.2、開發(fā)軟件Visual Basic 6．0

37、的介紹</p><p>　　Visual Basic 6.0是微軟公司推出的可視化編成工具，它提供了非常簡單、快捷的開發(fā)方法，無論是初學者還是專業(yè)開發(fā)人員，只要稍有語言基礎就可以快速掌握并精通。Basic是Beginner’s All-purpose Symbolic Instruction Code（初學者通用符號指令代碼）的縮寫，它誕生于20世紀60年代初期，因其簡單易學、使用方便。</p>&

38、lt;p>　　1991年，Microsoft公司首先推出了建立在Windows開發(fā)平臺基礎上的開發(fā)工具——Visual Basic 1.0，Visual Basic是基于Basic語言基礎上的一種可視化程序設計語言。之后Microsoft公司相繼推出了Visual Basic 3.0（1993年）、Visual Basic 4.0（1995年）、Visual Basic 5.0（1997年），1998年推出了Visual Basi

39、c 6.0版，使得Visual Basic在開發(fā)環(huán)境、功能上進一步完善和擴充，在數據庫管理、網絡編成等方面得到了更廣泛的應用。</p><p>　　當然, 使用單一的一個工具去完成一個中大型的應用系統(tǒng)的需求分析, 是不可能成功的。因為社會在發(fā)展, 用戶的需求也在改變, 如何把握住用戶的需求是需要時間的, 面向對象的方法有時也會忽略外在的與表層的要求, 不僅僅是要獲得關鍵的需求, 其他更多的需求往往要等到用戶在使用

40、后才知道, 然而等到用戶使用是不現(xiàn)實的, 作為原型開發(fā)模型中的原型也是收集用戶需求, 描述與解釋需求的一類相當有效的方法與工具。</p><p>　　在我們的開發(fā)過程中, 為了更好地讓用戶了解我們的系統(tǒng)和我們的設計方案, 讓用戶在見面會上更有方向性與針對性, 我們對用戶進行需求分析，從而在真正的分析與設計時就能更加符合用戶的要求。總之, 軟件需求分析方法和工具的使用, 對我們軟件開發(fā)過程影響是很深遠的, 選用高效

41、能的正確的方法與工具, 可以使我們的軟件更加正確地反映現(xiàn)實需求, 更加具有可用性、可擴展性和可維護性; 降低了軟件項目的風險。</p><p>　　三、 系統(tǒng)分析與設計</p><p><b>　　3.1、系統(tǒng)分析</b></p><p>　　3.1.1.系統(tǒng)需求分析</p><p>　　隨著計算機技術的不斷提高，我國經

42、濟的高速發(fā)展下，計算機技術在我國企業(yè)的應用潮流已經形成，其強大的功能已為人們深刻認識，它已進入人類社會的各個領域并發(fā)揮著越來越重要的作用。作為計算機應用的一部分，使用計算機對人事信息進行管理，具有著手工管理所無法比擬的優(yōu)點。這些優(yōu)點能夠極大地提高人事管理的效率，也是企業(yè)的科學化、正規(guī)化管理，與世界接軌的重要條件。根據以上情況，決定實施建立人事信息管理系統(tǒng)， 因為人事信息管理是一個企業(yè)單位不可缺少的部分，它的內容對于企業(yè)的決策者和管理者來

43、說都至關重要，企業(yè)人事管理有助于系統(tǒng)管理人員進行決策,使企業(yè)在競爭中取得優(yōu)勢,提高企業(yè)的經濟效益和社會效益.隨著社會信息化進程的加快,以及計算機技術的日益成熟和硬件成本的不斷降低,將有越來越多的企業(yè)開發(fā)計算機企業(yè)人事管理系統(tǒng)。此系統(tǒng)不僅僅維護方便，在人力財力方面都有很大的改善，某種程度上減少了企業(yè)人事管理的成本,使計算機應用更是向科學化、迅速化、全球化發(fā)展，而且隨著企業(yè)自身人力資料日益龐大，復雜程度逐漸增強，企業(yè)還繼續(xù)想單純依靠以前的手

44、工管理來按排企業(yè)的人力資源，不僅會浪費大量的人力、物力、財力、而且效率不高，難以達到預期</p><p>　　人事信息管理系統(tǒng)是針對企業(yè)人事處的大量業(yè)務處理工作用計算機進行全面現(xiàn)代化管理，他必須具備以下基本功能：</p><p>　?。?）人事檔案管理數據庫及表的操作。實現(xiàn)對人事檔案管理數據庫及表的創(chuàng)建，表中數據的維護。</p><p>　?。?）人事檔案信息的管理

45、。實現(xiàn)人事信息的添加，保存，修改和刪除等。</p><p>　?。?）人事檔案信息的應用。實現(xiàn)人事信息的查詢，統(tǒng)計，人事資源的利用等。</p><p>　　3.1.2.可行性分析</p><p>　　上述系統(tǒng)需求分析已充分說明了企業(yè)人事管理系統(tǒng)的市場需求是前景無限的。而在技術上我們的人事管理系統(tǒng)后臺數據庫采用目前應用十分廣泛的數據庫SQL Server 2000，由

46、于其具有快速、方便、靈活和可移植性等特點被大多數軟件開發(fā)者所使用；前臺采用Visual Basic 6.0作為主要的開發(fā)工具，其可與SQL Server 2000數據庫無縫銜接。</p><p>　　3.2、系統(tǒng)功能設計</p><p>　　3.2.1、系統(tǒng)的功能分析</p><p>　　人事信息管理系統(tǒng)是一個典型的數據庫開發(fā)應用程序，它由人事管理、部門管理、考勤管

47、理、工資管理、福利管理、人事信息統(tǒng)計等模塊組成，具體規(guī)劃如下：（1）人事管理：人事管理主要對公司所有員工的基本信息進行管理，在此可以添加員工信息、修改員工信息、查詢員工信息、員工調動。</p><p>　?。?）部門管理：部門管理主要是對部門進行管理，功能包括添加部門信息、修改部門信息。</p><p>　?。?）考勤管理：考勤管理是對公司員工考勤登記，功能包括考勤信息設置、添加、修改員工

48、出勤記錄、員工公出請假。</p><p>　　（4）工資管理：工資管理是對公司員工的工資管理，功能包括工資信息管理、過期數據處理、工資導出。</p><p>　　(5)福利管理：福利管理對公司員工的福利管理，功能包括添加福利信息、修改福利信息。</p><p>　　人事信息統(tǒng)計:人事信息統(tǒng)計管理主要是對全公司員工的信息統(tǒng)計，功能包括員工年齡統(tǒng)計、員工文化程度統(tǒng)計、員

49、工工資統(tǒng)計。</p><p>　　窗口管理：該功能主要是針對所打開的窗口進行管理，功能包括層疊、平鋪、排列圖標。</p><p>　　3.2.2、系統(tǒng)功能結構</p><p>　　系統(tǒng)功能結構圖主要從功能的角度描述了系統(tǒng)的結構。企業(yè)人事管理系統(tǒng)的功能包括人事管理、部門管理考勤管理、工資管理、福利管理、人事信息統(tǒng)計7大部分，具體功能結構如圖1所示：</p>

50、<p>　　圖1 系統(tǒng)功能結構圖</p><p><b>　　3.3、數據庫設計</b></p><p>　　企業(yè)人事管理系統(tǒng)是為中小型企業(yè)服務的企業(yè)人事管理系統(tǒng)，考慮到系統(tǒng)在企業(yè)內部局域網中的應該，而采用了SQL Server2000數據庫，該數據庫用來存儲部門信息、員工詳細信息、員工調動和離職信息、員工出勤信息、員工公出、請假信息、員工工資信息、員

51、工福利信息等。這里將數據庫命名為db_manmanage,其中包含了9張數據表。下面分別給出數據表概要說明和主要數據表的結構。</p><p>　?。?）人事調動表：用于存儲人員調動信息。人事調動表見表1所示：</p><p><b>　　表1 人事調動表</b></p><p>　?。?）公出請假記錄表：用于存儲員工公出請假信息，公出請假記

52、錄表見表2所示：</p><p>　　表2 公出請假記錄表</p><p>　?。?）出勤記錄表：用于存儲員工出勤情況。出勤記錄表見表3所示：</p><p><b>　　表3 出勤記錄表</b></p><p>　　員工信息表：用于存儲員工基本信息和單位信息，員工信息表見表3所示：</p><p

53、><b>　　表4 員工信息表</b></p><p>　　員工福利表：用于存儲不同時期的福利信息，員工福利表見表5所示：</p><p><b>　　表5 員工福利表</b></p><p>　?。?）工資表：用于存儲員工每月的詳細工資信息，工資表見表6所示：</p><p><b&

54、gt;　　表6 工資表</b></p><p>　　時間設置表：用于設置企業(yè)默認的考勤時間，時間設置表見表7所示：</p><p>　　表7 時間設置表</p><p>　　離職表：用于存儲離職人員的信息，離職表見表8所示：</p><p><b>　　表8 離職表</b></p>&

55、lt;p>　?。?）部門表：用于儲存部門信息。部門表見表9所示：</p><p><b>　　表9 部門表</b></p><p><b>　　四、系統(tǒng)的實現(xiàn)</b></p><p>　　4.1、系統(tǒng)功能窗體概述</p><p>　　在進行系統(tǒng)設計時，應當將那些可能被重復使用的功能編寫成通用

56、的過程或函數，存放在標準模塊中，這樣不僅可以減少代碼量，而且方便日后維護。例如，定義一個數據庫連接函數，日后如果要改變數據庫系統(tǒng)或數據庫名稱，只需要改變該模塊中的數據庫連接函數。另外，在標準模塊中，還可以定義一些變量，這樣可以方便各功能窗體間相互傳值。 </p><p>　　企業(yè)人事管理系統(tǒng)的系統(tǒng)功能窗體可分為：窗體和模塊兩個部分。他們的作用分別是：</p><p>　　“main_bmg

57、l_addmodify”可以對部門管理信息進行添加，修改的操作</p><p>　　“main_bmgl_cx”部門管理信息窗口</p><p>　　“main_fzfind”萬能查詢器信息窗口</p><p>　　“main_gzgl_gqsjcl”工資過期數據處理信息窗口</p><p>　　“main_gzgl_gzgl”工資信息管理窗

58、口</p><p>　　“main_gzgl_gzgl_lr”工資信息修改窗口</p><p>　　“main_gzgl_gzgl_pl”批量修改窗口</p><p>　　“main_gzgl_xyfgz”選擇工資月份窗口</p><p>　　“main_kqgl_addmodify”考勤記錄添加，修改的操作窗口</p><

59、;p>　　“main_kqgl_gcqj”考勤員工公出請假操作窗口</p><p>　　“main_kqgl_gcqj_addModify”考勤員工公出請假添加，修改的操作窗口</p><p>　　“main_kqgl_sjsz”上下班時間操作窗口</p><p>　　“main_rsgl_bxgl”員工福利管理操作窗口</p><p>

60、;　　“main_rsgl_bxgl_lr”保險操作窗口</p><p>　　“main_rsgl_rsbd”人事調動操作窗口</p><p>　　“main_rsgl_rsbd_lr”添加調動信息操作窗口</p><p>　　“main_rsgl_yglz”員工離職操作窗口</p><p>　　“main_selman”選擇員工操作窗口&l

61、t;/p><p>　　“main_tj_age”員工年齡統(tǒng)計操作窗口</p><p>　　“main_tj_gztj”員工工資統(tǒng)計操作窗口</p><p>　　“main_tj_whcd”員工文化程度統(tǒng)計操作窗口</p><p>　　“main_yggl_addmodify”員工入職信息操作窗口</p><p>　　“ma

62、in_yggl_find”員工信息查詢操作窗口</p><p>　　“main_yggl_modify”員工信息瀏覽窗口</p><p>　　“MDIfrm_main”企業(yè)人事管理系統(tǒng)操作窗口</p><p>　　系統(tǒng)功能窗體圖如圖2所示：</p><p>　　圖2 系統(tǒng)功能窗體圖</p><p>　　4.2、工程環(huán)

63、境搭建</p><p>　　控件準備和引用設置是目前制作應用程序的前提條件，在Visual Basic 6.0默認的工具箱中，很多使用的部件沒有顯示，所以要將我們需要的部件添加進工具箱。另外，包括一些庫文件的函數，也是沒有被引用，我們要先將這些具有特定功能的函數引用。</p><p>　　4.2.1、控件準備</p><p>　　企業(yè)人事管理系統(tǒng)中需要通過“工程”→

64、“部件”命令添加到工具箱中的“ActiveX”部件，如圖3所示。</p><p><b>　　圖3 控件準備圖</b></p><p>　　4.2.2、引用設置</p><p>　　人事管理系統(tǒng)中需要通過“工程”→“引用”命令引用庫文件內的函數，來完成數據庫的連接，如圖4所示。</p><p><b>　　圖

65、4 引用設置圖</b></p><p>　　4.3、功能模塊的實現(xiàn)</p><p>　　只要是合法的用戶都可以登陸主窗體界面進入系統(tǒng)。主窗體界面是顯示系統(tǒng)主要操作功能的面板，在系統(tǒng)主窗體的狀態(tài)欄中，</p><p>　　4.3.1、系統(tǒng)主窗體的功能</p><p>　　成功登錄后，進入的系統(tǒng)的主窗體，在主窗體中有兩組按鈕，第一組

66、是工具欄選擇按鈕，人事管理、部門管理、考勤管理、工資管理、福利管理、人事信息統(tǒng)計、窗口、退出作為主窗體的默認表，通過點擊相應的按鈕可以在主窗體中顯示不同的表單，這些表單分別是員工管理、添加部門、日?？记凇⒐稣埣?、過期處理、工資導出、包括編輯，刪除，查詢和設置。用戶成功進入系統(tǒng)主窗體運行結果如圖5所示：</p><p><b>　　圖5 主窗體界面</b></p><p

67、>　　4.3.2、系統(tǒng)功能模塊</p><p>　　1、人事管理：包括添加員工信息、修改員工信息、查詢員工信息、員工調動、員工離職、可以對員工信息進行編輯，刪除，查詢和設置。</p><p>　　（1）添加員工信息：的編輯是可以對新員工進行添加錄入，對在職員工的信息進行修改，也可進行相應的刪除操作。員工信息編輯窗體運行結果如圖6所示：</p><p>　　圖6

68、 添加員工信息窗體</p><p><b>　　關鍵代碼如下：</b></p><p>　　Dim i As Integer '定義整型變量</p><p>　　Dim rs1 As New ADODB.Recordset '定義數據集對象</p><p>　　Public photoF

69、ilename As String</p><p>　　Dim mst As New ADODB.Stream</p><p>　　Private Sub Form_Activate()</p><p>　　Txt1(1).SetFocus</p><p><b>　　End Sub</b></p><

70、;p>　　Private Sub Form_Load()</p><p>　　'在Combo1中添加性別</p><p>　　Combo1.AddItem ("男")</p><p>　　Combo1.AddItem ("女")</p><p>　　Combo1.ListIndex = 0

71、</p><p>　　'在Combo2中添加民族</p><p>　　Combo2.AddItem ("漢族")</p><p>　　Combo2.AddItem ("回族")</p><p>　　Combo2.AddItem ("滿族")</p><p&

72、gt;　　Combo2.AddItem ("蒙古族")</p><p>　　Combo2.AddItem ("朝鮮族")</p><p>　　Combo2.ListIndex = 0</p><p>　　'在Combo3中添加婚姻狀況</p><p>　　Combo3.AddItem (&quo

73、t;未婚")</p><p>　　Combo3.AddItem ("已婚")</p><p>　　Combo3.AddItem ("再婚")</p><p>　　Combo3.ListIndex = 0</p><p>　　'在Combo4中添加政治面貌</p><

74、p>　　Combo4.AddItem ("團員")</p><p>　　Combo4.AddItem ("共產黨員")</p><p>　　Combo4.ListIndex = 0</p><p>　　'在Combo5中添加最高學歷</p><p>　　Combo5.AddItem (&q

75、uot;中專")</p><p>　　Combo5.AddItem ("高中")</p><p>　　Combo5.AddItem ("大專")</p><p>　　Combo5.AddItem ("本科")</p><p>　　Combo5.AddItem ("

76、碩士研究生")</p><p>　　Combo5.AddItem ("博士研究生")</p><p>　　Combo5.ListIndex = 2</p><p>　　'在Combo6中添加職位</p><p>　　Combo6.AddItem ("無")</p><

77、;p>　　Combo6.AddItem ("經理")</p><p>　　Combo6.AddItem ("副經理")</p><p>　　Combo6.AddItem ("部門經理")</p><p>　　Combo6.ListIndex = 0</p><p>　　'

78、;在Combo7中添加職稱</p><p>　　Combo7.AddItem ("無")</p><p>　　Combo7.AddItem ("初級")</p><p>　　Combo7.AddItem ("中級")</p><p>　　Combo7.AddItem ("高

79、級")</p><p>　　Combo7.ListIndex = 0</p><p>　　If blnAddRS = True Then</p><p>　　Me.Caption = "添加員工信息"</p><p>　　rs1.Open "select * from 員工信息表 order by 編號

80、", cnn, adOpenKeyset, adLockOptimistic</p><p>　　If rs1.RecordCount > 0 Then</p><p>　　rs1.MoveLast</p><p>　　Txt1(0) = Format(Val(rs1.Fields("編號")) + 1, "00000&

81、quot;)</p><p><b>　　Else</b></p><p>　　Txt1(0) = "00001"</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>

82、　　Private Sub CmdEnd_Click()</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　修改員工信息：瀏覽是用戶可以通過員工信息表中員工的相關信息進行模糊查詢、修改、刪除，可以幫用戶快速找到相應的員工。用戶可以通過員工信息查詢

83、信息。員工信息查詢窗體如圖7所示：</p><p>　　圖7 修改員工信息窗體</p><p><b>　　關鍵代碼如下：</b></p><p>　　Private Sub cmdDelete_Click()</p><p>　　Me.Caption = "修改員工信息"</p>&

84、lt;p>　　With main_yggl_modify.Adodc1.Recordset</p><p>　　If .RecordCount > 0 Then</p><p>　　Txt1(0) = .Fields("編號")</p><p>　　Txt1(1) = .Fields("姓名")</p>

85、<p>　　Combo1.Text = .Fields("性別")</p><p>　　Txt1(2) = .Fields("身份證號")</p><p>　　DTP1.Value = .Fields("出生年月")</p><p>　　Txt1(13) = .Fields("年齡&

86、quot;)</p><p>　　Combo2 = .Fields("民族")</p><p>　　Combo3 = .Fields("婚姻狀況")</p><p>　　Combo4 = .Fields("政治面貌")</p><p>　　DTP2.Value = .Fields(&

87、quot;入黨團時間")</p><p>　　Txt1(3) = .Fields("籍貫")</p><p>　　Txt1(4) = .Fields("聯(lián)系電話")</p><p>　　Txt1(5) = .Fields("手機號碼")</p><p>　　Txt1(6)

88、= .Fields("家庭地址")</p><p>　　Txt1(7) = .Fields("畢業(yè)院校")</p><p>　　Txt1(8) = .Fields("專業(yè)")</p><p>　　Combo5 = .Fields("最高學歷")</p><p>　

89、　Txt1(9) = .Fields("特長")</p><p>　　DTP3.Value = .Fields("參加工作時間")</p><p>　　Txt1(10) = .Fields("總工齡")</p><p>　　Set PicPhoto.DataSource = main_yggl_modify

90、.Adodc1</p><p>　　PicPhoto.DataField = "照片"</p><p>　　If .Fields("照片") Is Nothing Then</p><p>　　PicPhoto.Picture = LoadPicture()</p><p><b>　　End

91、 If</b></p><p>　　DataCombo1 = .Fields("部門")</p><p>　　Combo6 = .Fields("職務")</p><p>　　Combo7 = .Fields("職稱")</p><p>　　Txt1(11) = .Fie

92、lds("基本工資")</p><p>　　DTP4.Value = .Fields("入職時間")</p><p>　　Txt1(12) = .Fields("本單位工齡")</p><p><b>　　End If</b></p><p><b>

93、　　End With</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　（3）查詢員工信息：快速查詢出員工個人信息，查詢員工信息窗體如圖8所示：</p><p>　　圖8 查詢員工信息窗體</p>

94、;<p><b>　　關鍵代碼：</b></p><p>　　Private Sub Command2_Click()</p><p>　　Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)</p><p>　　Select Case Butto

95、n.Key</p><p>　　Case "find"</p><p>　　tb1 = "員工信息表"</p><p>　　Load main_fzfind</p><p>　　main_fzfind.Show</p><p>　　Case "all"<

96、/p><p>　　Adodc1.RecordSource = "select * from 員工信息表 order by 編號"</p><p>　　Adodc1.Refresh</p><p>　　Case "excel"</p><p>　　Dim r As Integer, c As Integer&

97、lt;/p><p>　　Dim newxls As Excel.Application</p><p>　　Dim newbook As Excel.Workbook</p><p>　　Dim newsheet As Excel.Worksheet</p><p>　　Set newxls = CreateObject("Excel.

98、Application") '創(chuàng)建excel應用程序,打開excel2000</p><p>　　Set newbook = newxls.Workbooks.Add '創(chuàng)建工作簿</p><p>　　Set newsheet = newbook.Worksheets(1) '創(chuàng)建工作表</p><p>　　If sql1 &l

99、t;> "" Then</p><p>　　Adodc1.RecordSource = "select * from " & sql1</p><p>　　Adodc1.Refresh</p><p><b>　　Else</b></p><p>　　Adodc1.R

100、ecordSource = "select * from 員工信息表 order by 編號"</p><p>　　Adodc1.Refresh</p><p><b>　　End If</b></p><p>　　If Adodc1.Recordset.RecordCount > 0 Then</p>

101、<p>　　newxls.Visible = True</p><p>　　For i = 0 To DataGrid1.Columns.Count - 1</p><p>　　newsheet.Cells(1, i + 1) = DataGrid1.Columns(i).Caption</p><p><b>　　Next i</b>

102、;</p><p><b>　　'指定表格內容</b></p><p>　　Adodc1.Recordset.MoveFirst</p><p>　　Do Until Adodc1.Recordset.EOF</p><p>　　r = Adodc1.Recordset.AbsolutePosition</

103、p><p>　　For c = 0 To DataGrid1.Columns.Count - 1</p><p>　　newsheet.Cells(r + 1, c + 1) = DataGrid1.Columns(c)</p><p><b>　　Next c</b></p><p>　　Adodc1.Recordset.

104、MoveNext</p><p><b>　　Loop</b></p><p><b>　　End If</b></p><p>　　Case "close"</p><p><b>　　Unload Me</b></p><p>　

105、　End Select</p><p><b>　　End Sub</b></p><p>　　（4）員工調動：用戶可以通過員工調動表對員工的相關信息進行模糊查詢、全部、調動、退出幫助用戶快速找到相應調動的員工。員工調動窗體如圖9所示：</p><p>　　圖9 員工調動窗體</p><p><b>　　關鍵

106、代碼如下：</b></p><p>　　Dim rs1 As New ADODB.Recordset</p><p>　　Private Sub Form_Activate()</p><p>　　If sql1 <> "" Then</p><p>　　Adodc1.RecordSource =

107、"select * from " & sql1</p><p>　　Adodc1.Refresh</p><p>　　If Adodc1.Recordset.RecordCount > 0 Then</p><p><b>　　Else</b></p><p>　　MsgBox &quo

108、t;沒有找到符合條件的記錄！", , "提示窗口"</p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub

109、Form_Load()</p><p>　　Me.Caption = Text</p><p>　　DataGrid1_RowColChange 0, 0</p><p><b>　　End Sub</b></p><p>　　Private Sub Form_QueryUnload(Cancel As Integer,

110、 UnloadMode As Integer)</p><p><b>　　sql1 = ""</b></p><p><b>　　End Sub</b></p><p>　　Private Sub DataGrid1_DblClick()</p><p>　　Load main

111、_rsgl_rsbd_lr</p><p>　　main_rsgl_rsbd_lr.Show</p><p>　　With main_rsgl_rsbd_lr</p><p>　　.DataCombo1 = Adodc1.Recordset.Fields("部門")</p><p>　　.Text1(0) = Adodc1

112、.Recordset.Fields("職務")</p><p>　　.Text1(1) = Adodc1.Recordset.Fields("職稱")</p><p><b>　　End With</b></p><p><b>　　End Sub</b></p>&l

113、t;p>　　Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)</p><p>　　With Adodc1.Recordset</p><p>　　If Adodc1.Recordset.RecordCount > 0 Then</p><p>

114、　　Text1(0) = .Fields("編號")</p><p>　　Text1(1) = .Fields("姓名")</p><p>　　Text1(2) = .Fields("部門")</p><p>　　Text1(3) = .Fields("職務")</p>&

115、lt;p>　　Text1(4) = .Fields("職稱")</p><p><b>　　End If</b></p><p><b>　　End With</b></p><p><b>　　End Sub</b></p><p>　　Privat

116、e Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)</p><p>　　Select Case Button.Key</p><p>　　Case "find"</p><p>　　tb1 = "員工調動表"</p><p>　　

117、Load main_fzfind</p><p>　　main_fzfind.Show</p><p>　　Case "all"</p><p>　　Adodc1.RecordSource = "select * from 員工信息表 order by 編號"</p><p>　　Adodc1.Refr

118、esh</p><p>　　Case "remove"</p><p>　　DataGrid1_DblClick</p><p>　　Case "close"</p><p><b>　　Unload Me</b></p><p>　　End Select&

119、lt;/p><p><b>　　End Sub</b></p><p>　　員工離職：用戶可以通過員工離職表對員工的相關信息進行模糊查詢、全部、調動、退出幫助用戶快速找到相應離職的員工。員工離職窗體見圖9所示：</p><p>　　圖10 員工離職窗體</p><p><b>　　關鍵代碼如下：</b>

120、;</p><p>　　Dim rs1 As New ADODB.Recordset</p><p>　　Private Sub Form_Activate()</p><p>　　If sql1 <> "" Then</p><p>　　Adodc1.RecordSource = "select *

121、 from " & sql1</p><p>　　Adodc1.Refresh</p><p>　　If Adodc1.Recordset.RecordCount > 0 Then</p><p><b>　　Else</b></p><p>　　MsgBox "沒有找到符合條件的記錄！