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

1、<p>　　計(jì)算機(jī)科學(xué)與技術(shù)專業(yè)畢業(yè)論文(設(shè)計(jì))</p><p><b>　　畢業(yè)論文</b></p><p>　　課題：基于C/S結(jié)構(gòu)的企業(yè)人事管理系統(tǒng)</p><p>　　姓 名： 學(xué) 號(hào)： </p><p>　　年級(jí)專業(yè)

2、： 組 別： </p><p>　　指導(dǎo)教師： 完成時(shí)間：_ __ ______</p><p><b>　　摘 要</b></p><p>　　在當(dāng)今21世紀(jì)，辦公自動(dòng)化進(jìn)入社會(huì)的每一個(gè)角落已經(jīng)勢(shì)不可檔,

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

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

5、是系統(tǒng)的需求分析，主要是人事管理系統(tǒng)的需求分析；第四部分，是系統(tǒng)分析與實(shí)現(xiàn)，包括系統(tǒng)功能模塊的設(shè)計(jì)和數(shù)據(jù)庫(kù)的設(shè)計(jì)；第五部分，是代碼的設(shè)計(jì)與實(shí)現(xiàn)，系統(tǒng)事件運(yùn)行的主要代碼；第六部分，是系統(tǒng)的實(shí)現(xiàn)，最后，是軟件的測(cè)試。</p><p>　　關(guān)鍵詞：信息管理；人事管理；人事管理系統(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本課題的來(lái)源………………………………………………………………5</p><p>　　1.2本課題研究的目的及意義…………………………………………………6</p><p>　　1.3國(guó)內(nèi)外研究的現(xiàn)狀…………………………………………………………7</p>

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

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

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

15、……………………………………47</p><p>　　六、結(jié)束語(yǔ) …………………………………………………………47</p><p>　　主要參考文獻(xiàn)…………………………………………………………47</p><p><b>　　引 言</b></p><p>　　人力資源管理是結(jié)合公司實(shí)際的人事、制度，經(jīng)過(guò)實(shí)際的需求分析

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

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

18、理工作的效率，為辦公自動(dòng)化的普及奠定了基礎(chǔ)。隨著我國(guó)國(guó)有和私營(yíng)企業(yè)的快速發(fā)展, 企業(yè)員工的規(guī)模不斷擴(kuò)大,人事管理系統(tǒng)是任何一個(gè)現(xiàn)代化企事業(yè)單位不可缺少的一部份,人事管理系統(tǒng)就是把分散的企業(yè)單位的職工信息實(shí)行統(tǒng)一,集中,規(guī)范的收集管理。為了實(shí)現(xiàn)對(duì)企業(yè)員工進(jìn)行科學(xué)管理必須開(kāi)發(fā)一套以計(jì)算機(jī)為主的信息管理系統(tǒng),它的內(nèi)容對(duì)于企事業(yè)的管理者來(lái)說(shuō)至關(guān)重要。人事管理系統(tǒng)應(yīng)該能夠?yàn)楣芾碚咛峁┏渥愕男畔⒑涂旖莸牟樵兪侄巍５F(xiàn)在很多單位并沒(méi)有對(duì)人事工作進(jìn)行電

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

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

21、對(duì)于企業(yè)的決策者和管理者來(lái)說(shuō)都至關(guān)重要，所以人事管理系統(tǒng)應(yīng)該能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄巍５恢币詠?lái)人們使用傳統(tǒng)人工的方式管理文件檔案，這種管理方式存在著許多缺點(diǎn)，如:效率低、保密性差，另外時(shí)間一長(zhǎng)，將產(chǎn)生大量的文件和數(shù)據(jù)，這對(duì)于查找、更新和維護(hù)都帶來(lái)了不少的困難。</p><p>　　隨著計(jì)算機(jī)技術(shù)的飛速發(fā)展，計(jì)算機(jī)在企業(yè)管理中應(yīng)用的普及， 利用計(jì)算機(jī)實(shí)現(xiàn)企業(yè)人事管理勢(shì)在必行。合理的利用有助于企業(yè)發(fā)

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

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

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

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

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

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

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

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

30、面向?qū)ο蟮姆椒?，綜合運(yùn)用數(shù)據(jù)庫(kù)技術(shù)、程序設(shè)計(jì)技術(shù)，結(jié)合企業(yè)人事管理知識(shí)，以Visual Basic 6.0作為系統(tǒng)前臺(tái)應(yīng)用程序開(kāi)發(fā)工具，SQL Server 2000作為后臺(tái)數(shù)據(jù)庫(kù)，通過(guò)Visual Basic 6.0中的控件使兩者進(jìn)行連接從而進(jìn)行系統(tǒng)軟件開(kāi)發(fā)。</p><p>　　2.1、開(kāi)發(fā)軟件SQL Server 2000的介紹</p><p>　　SQL Server 2000 是

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

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

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

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

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

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

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

38、lt;p>　　1991年，Microsoft公司首先推出了建立在Windows開(kāi)發(fā)平臺(tái)基礎(chǔ)上的開(kāi)發(fā)工具——Visual Basic 1.0，Visual Basic是基于Basic語(yǔ)言基礎(chǔ)上的一種可視化程序設(shè)計(jì)語(yǔ)言。之后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在開(kāi)發(fā)環(huán)境、功能上進(jìn)一步完善和擴(kuò)充，在數(shù)據(jù)庫(kù)管理、網(wǎng)絡(luò)編成等方面得到了更廣泛的應(yīng)用。</p><p>　　當(dāng)然, 使用單一的一個(gè)工具去完成一個(gè)中大型的應(yīng)用系統(tǒng)的需求分析, 是不可能成功的。因?yàn)樯鐣?huì)在發(fā)展, 用戶的需求也在改變, 如何把握住用戶的需求是需要時(shí)間的, 面向?qū)ο蟮姆椒ㄓ袝r(shí)也會(huì)忽略外在的與表層的要求, 不僅僅是要獲得關(guān)鍵的需求, 其他更多的需求往往要等到用戶在使用

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

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

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

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

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

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

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

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

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

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

50、<p>　　圖1 系統(tǒng)功能結(jié)構(gòu)圖</p><p><b>　　3.3、數(shù)據(jù)庫(kù)設(shè)計(jì)</b></p><p>　　企業(yè)人事管理系統(tǒng)是為中小型企業(yè)服務(wù)的企業(yè)人事管理系統(tǒng)，考慮到系統(tǒng)在企業(yè)內(nèi)部局域網(wǎng)中的應(yīng)該，而采用了SQL Server2000數(shù)據(jù)庫(kù)，該數(shù)據(jù)庫(kù)用來(lái)存儲(chǔ)部門(mén)信息、員工詳細(xì)信息、員工調(diào)動(dòng)和離職信息、員工出勤信息、員工公出、請(qǐng)假信息、員工工資信息、員

51、工福利信息等。這里將數(shù)據(jù)庫(kù)命名為db_manmanage,其中包含了9張數(shù)據(jù)表。下面分別給出數(shù)據(jù)表概要說(shuō)明和主要數(shù)據(jù)表的結(jié)構(gòu)。</p><p>　?。?）人事調(diào)動(dòng)表：用于存儲(chǔ)人員調(diào)動(dòng)信息。人事調(diào)動(dòng)表見(jiàn)表1所示：</p><p><b>　　表1 人事調(diào)動(dòng)表</b></p><p>　　（2）公出請(qǐng)假記錄表：用于存儲(chǔ)員工公出請(qǐng)假信息，公出請(qǐng)假記

52、錄表見(jiàn)表2所示：</p><p>　　表2 公出請(qǐng)假記錄表</p><p>　　（3）出勤記錄表：用于存儲(chǔ)員工出勤情況。出勤記錄表見(jiàn)表3所示：</p><p><b>　　表3 出勤記錄表</b></p><p>　　員工信息表：用于存儲(chǔ)員工基本信息和單位信息，員工信息表見(jiàn)表3所示：</p><p

53、><b>　　表4 員工信息表</b></p><p>　　員工福利表：用于存儲(chǔ)不同時(shí)期的福利信息，員工福利表見(jiàn)表5所示：</p><p><b>　　表5 員工福利表</b></p><p>　?。?）工資表：用于存儲(chǔ)員工每月的詳細(xì)工資信息，工資表見(jiàn)表6所示：</p><p><b&

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

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

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

57、l_addmodify”可以對(duì)部門(mén)管理信息進(jìn)行添加，修改的操作</p><p>　　“main_bmgl_cx”部門(mén)管理信息窗口</p><p>　　“main_fzfind”萬(wàn)能查詢器信息窗口</p><p>　　“main_gzgl_gqsjcl”工資過(guò)期數(shù)據(jù)處理信息窗口</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”考勤員工公出請(qǐng)假操作窗口</p><p>　　“main_kqgl_gcqj_addModify”考勤員工公出請(qǐng)假添加，修改的操作窗口</p><p>　　“main_kqgl_sjsz”上下班時(shí)間操作窗口</p><p>　　“main_rsgl_bxgl”員工福利管理操作窗口</p><p>

60、;　　“main_rsgl_bxgl_lr”保險(xiǎn)操作窗口</p><p>　　“main_rsgl_rsbd”人事調(diào)動(dòng)操作窗口</p><p>　　“main_rsgl_rsbd_lr”添加調(diào)動(dòng)信息操作窗口</p><p>　　“main_rsgl_yglz”員工離職操作窗口</p><p>　　“main_selman”選擇員工操作窗口&l

61、t;/p><p>　　“main_tj_age”員工年齡統(tǒng)計(jì)操作窗口</p><p>　　“main_tj_gztj”員工工資統(tǒng)計(jì)操作窗口</p><p>　　“main_tj_whcd”員工文化程度統(tǒng)計(jì)操作窗口</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>　　控件準(zhǔn)備和引用設(shè)置是目前制作應(yīng)用程序的前提條件，在Visual Basic 6.0默認(rèn)的工具箱中，很多使用的部件沒(méi)有顯示，所以要將我們需要的部件添加進(jìn)工具箱。另外，包括一些庫(kù)文件的函數(shù)，也是沒(méi)有被引用，我們要先將這些具有特定功能的函數(shù)引用。</p><p>　　4.2.1、控件準(zhǔn)備</p><p>　　企業(yè)人事管理系統(tǒng)中需要通過(guò)“工程”→

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

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

66、是工具欄選擇按鈕，人事管理、部門(mén)管理、考勤管理、工資管理、福利管理、人事信息統(tǒng)計(jì)、窗口、退出作為主窗體的默認(rèn)表，通過(guò)點(diǎn)擊相應(yīng)的按鈕可以在主窗體中顯示不同的表單，這些表單分別是員工管理、添加部門(mén)、日?？记?、公出請(qǐng)假、過(guò)期處理、工資導(dǎo)出、包括編輯，刪除，查詢和設(shè)置。用戶成功進(jìn)入系統(tǒng)主窗體運(yùn)行結(jié)果如圖5所示：</p><p><b>　　圖5 主窗體界面</b></p><p

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

68、 添加員工信息窗體</p><p><b>　　關(guān)鍵代碼如下：</b></p><p>　　Dim i As Integer '定義整型變量</p><p>　　Dim rs1 As New ADODB.Recordset '定義數(shù)據(jù)集對(duì)象</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 ("團(tuán)員")</p><p>　　Combo4.AddItem ("共產(chǎn)黨員")</p><p>　　Combo4.ListIndex = 0</p><p>　　'在Combo5中添加最高學(xué)歷</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 ("無(wú)")</p><

77、;p>　　Combo6.AddItem ("經(jīng)理")</p><p>　　Combo6.AddItem ("副經(jīng)理")</p><p>　　Combo6.AddItem ("部門(mén)經(jīng)理")</p><p>　　Combo6.ListIndex = 0</p><p>　　'

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

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

80、", cnn, adOpenKeyset, adLockOptimistic</p><p>　　If rs1.RecordCount > 0 Then</p><p>　　rs1.MoveLast</p><p>　　Txt1(0) = Format(Val(rs1.Fields("編號(hào)")) + 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>　　修改員工信息：瀏覽是用戶可以通過(guò)員工信息表中員工的相關(guān)信息進(jìn)行模糊查詢、修改、刪除，可以幫用戶快速找到相應(yīng)的員工。用戶可以通過(guò)員工信息查詢

83、信息。員工信息查詢窗體如圖7所示：</p><p>　　圖7 修改員工信息窗體</p><p><b>　　關(guān)鍵代碼如下：</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("編號(hào)")</p><p>　　Txt1(1) = .Fields("姓名")</p>

85、<p>　　Combo1.Text = .Fields("性別")</p><p>　　Txt1(2) = .Fields("身份證號(hào)")</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;入黨團(tuán)時(shí)間")</p><p>　　Txt1(3) = .Fields("籍貫")</p><p>　　Txt1(4) = .Fields("聯(lián)系電話")</p><p>　　Txt1(5) = .Fields("手機(jī)號(hào)碼")</p><p>　　Txt1(6)

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

89、　Txt1(9) = .Fields("特長(zhǎng)")</p><p>　　DTP3.Value = .Fields("參加工作時(shí)間")</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("部門(mén)")</p><p>　　Combo6 = .Fields("職務(wù)")</p><p>　　Combo7 = .Fields("職稱")</p><p>　　Txt1(11) = .Fie

92、lds("基本工資")</p><p>　　DTP4.Value = .Fields("入職時(shí)間")</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>　?。?）查詢員工信息：快速查詢出員工個(gè)人信息，查詢員工信息窗體如圖8所示：</p><p>　　圖8 查詢員工信息窗體</p>

94、;<p><b>　　關(guān)鍵代碼：</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 編號(hào)"</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應(yīng)用程序,打開(kāi)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 編號(hào)"</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>　　'指定表格內(nèi)容</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>　?。?）員工調(diào)動(dòng)：用戶可以通過(guò)員工調(diào)動(dòng)表對(duì)員工的相關(guān)信息進(jìn)行模糊查詢、全部、調(diào)動(dòng)、退出幫助用戶快速找到相應(yīng)調(diào)動(dòng)的員工。員工調(diào)動(dòng)窗體如圖9所示：</p><p>　　圖9 員工調(diào)動(dòng)窗體</p><p><b>　　關(guān)鍵

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;沒(méi)有找到符合條件的記錄！", , "提示窗口"</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("部門(mén)")</p><p>　　.Text1(0) = Adodc1

112、.Recordset.Fields("職務(wù)")</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("編號(hào)")</p><p>　　Text1(1) = .Fields("姓名")</p><p>　　Text1(2) = .Fields("部門(mén)")</p><p>　　Text1(3) = .Fields("職務(wù)")</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 = "員工調(diào)動(dòng)表"</p><p>　　

117、Load main_fzfind</p><p>　　main_fzfind.Show</p><p>　　Case "all"</p><p>　　Adodc1.RecordSource = "select * from 員工信息表 order by 編號(hào)"</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>　　員工離職：用戶可以通過(guò)員工離職表對(duì)員工的相關(guān)信息進(jìn)行模糊查詢、全部、調(diào)動(dòng)、退出幫助用戶快速找到相應(yīng)離職的員工。員工離職窗體見(jiàn)圖9所示：</p><p>　　圖10 員工離職窗體</p><p><b>　　關(guān)鍵代碼如下：</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 "沒(méi)有找到符合條件的記錄！