論文樣例人事、勞資管理信息系統(tǒng)設(shè)計(jì)

1、.PAGE ：.； PAGE 45人事、勞資管理信息系統(tǒng)設(shè)計(jì)摘 要隨著時(shí)代的開展，計(jì)算機(jī)技術(shù)越來越深化各行各業(yè)，為寬廣的用戶提供了更為周到和便利的效力，在企業(yè)中，人事信息管理是非常重要的事情。所以需求開發(fā)一個(gè)簡(jiǎn)單的、易于操作的人事信息管理系統(tǒng)。人事管理系統(tǒng)是典型的信息管理系統(tǒng)(MIS)，其開發(fā)主要包括后臺(tái)數(shù)據(jù)庫的建立和維護(hù)以及前端運(yùn)用程序的開發(fā)兩個(gè)方面。對(duì)于前者要求建立起數(shù)據(jù)一致性和完好性強(qiáng)、數(shù)據(jù)平安性好的數(shù)據(jù)庫。而對(duì)于后者那么要求運(yùn)用程序功能完備，易運(yùn)用等特點(diǎn)。人事管理系統(tǒng)是對(duì)任務(wù)人員進(jìn)展一致的管理，可以方便的進(jìn)展錄入，查詢，修正，刪除，退出。 結(jié)合本系統(tǒng)開發(fā)的特點(diǎn)，該系統(tǒng)采用SQLserv

2、er做后臺(tái)數(shù)據(jù)庫管理系統(tǒng)，同時(shí)選擇了比較容易自學(xué)的、功能強(qiáng)大的 Visual Basic .作為開發(fā)工具，利用軟件工程的思想和方法來設(shè)計(jì)。 本系統(tǒng)對(duì)員工的根本信息、考勤信息、工資信息等，進(jìn)展了分類管理和統(tǒng)籌規(guī)劃。采用了進(jìn)入系統(tǒng)前驗(yàn)證用戶身份的方法來加強(qiáng)對(duì)系統(tǒng)的平安性和嚴(yán)密性的管理，從而使得只需合法的用戶才干進(jìn)入本系統(tǒng)進(jìn)展操作?！娟P(guān)鍵詞】人事管理系統(tǒng) 根本信息 考勤信息 工資信息AbstractWith the development of the times, computer technology is becoming increasingly widely used in all wal

3、ks of life. Also, it supplies a more thoughtful and convenient services to a large number of users. In enterprises, the personnel information management is of great significance. Therefore, develop a simple, user-friendly personnel information management system is necessary.Personnel management syst

4、em is a typical management information system (MIS), including the establishment and maintenance of the background-database and front-end application development. To the former, the request for the data which is powerful in consistency and integrity, database which is good in security. For the latte

5、r, the request for the applications program which is integrity and easy to easy, Personnel management system can manage the staff and admit input, enquiries, modify, delete, and exit.Combining to the characteristics of the system development, that system made the choice to adopt SQLserver to the bac

6、kstage of the database management system. Also, it has chosen the easily self-taught but strongly-effect tool, Visual Basic ., as the system development tool. Meanwhile, I took the advantages of the thought and methods of the software engineering to accomplish that system.The system makes the classi

7、fication of each employees basic information, the checking on work attendance information and salary information, etc. Anyone cannot login into the system until the verification system works on. that greatly strengthens the safety and confidentiality of the system management. Thus, only the legal pe

8、rsons who are imposed of some certain priority have the feasibility to operate that system.【Key word】sPersonal management system; Basic information; Test frequently information; Wages information目 錄第一章 引言. 背景引見. 問題的提出. 研討的內(nèi)容、目的、過程和方法第二章 系統(tǒng)分析. 系統(tǒng)分析概述. 系統(tǒng)功能規(guī)劃. 可行性分析 . 現(xiàn)行業(yè)務(wù)流程描畫. 處置過程設(shè)計(jì). 系統(tǒng)規(guī)劃. 系統(tǒng)數(shù)據(jù)流圖. 系

9、統(tǒng)建模E-R圖. 數(shù)據(jù)字典第三章 系統(tǒng)設(shè)計(jì)與實(shí)施. VisualBasic .及SQL數(shù)據(jù)庫簡(jiǎn)介. 系統(tǒng)設(shè)計(jì)概述. 系統(tǒng)設(shè)計(jì)思緒. 系統(tǒng)功能模塊圖. 代碼設(shè)計(jì). 數(shù)據(jù)庫設(shè)計(jì). 模塊內(nèi)部設(shè)計(jì)第四章 系統(tǒng)測(cè)試、運(yùn)轉(zhuǎn)于維護(hù). 系統(tǒng)測(cè)試. 系統(tǒng)運(yùn)轉(zhuǎn)與維護(hù)結(jié)論 致謝 參考文獻(xiàn) 第一章 引言. 背景引見在競(jìng)爭(zhēng)越來越猛烈的社會(huì)里，企業(yè)人事管理就越顯示出其不可缺性，成為企業(yè)一個(gè)非常重要的模塊。企業(yè)人事管理系統(tǒng)主要是用于員工個(gè)人相關(guān)信息的管理。運(yùn)用人事管理系統(tǒng)，便于公司指點(diǎn)掌握人員的動(dòng)向和人員的綜合素質(zhì)，及時(shí)調(diào)整人才的分配，運(yùn)用計(jì)算機(jī)對(duì)人事勞資信息進(jìn)展管理，具有檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、嚴(yán)密性好、

10、本錢低等優(yōu)點(diǎn)，可以極大地提高人事資源管理的效率，也是企業(yè)科學(xué)化、正規(guī)化管理的重要條件。設(shè)計(jì)一個(gè)企業(yè)人事信息管理系統(tǒng)，此系統(tǒng)要以人為中心，為企業(yè)提供全面的人事管理處理方案；為企業(yè)建立規(guī)范化、實(shí)時(shí)化人事管理機(jī)制；()提高企業(yè)人事管理的效率、節(jié)約相關(guān)的管理本錢，加強(qiáng)者事管理的平安性；()滿足企業(yè)管理層，人事業(yè)務(wù)操作層和全體員工的不同層次和不同方面的需求；()對(duì)企業(yè)未來的整體信息化建立提供必要的支持。. 問題的提出隨著計(jì)算機(jī)技術(shù)的飛速開展，計(jì)算機(jī)在企業(yè)管理中的普及，利用計(jì)算機(jī)實(shí)現(xiàn)企業(yè)人事信息的管理勢(shì)在必行。人事管理是現(xiàn)代企業(yè)管理任務(wù)中不可短少的一部分，是順應(yīng)現(xiàn)企業(yè)管理尺度的要求、推進(jìn)企業(yè)勞動(dòng)人事管理走

11、向科學(xué)化、規(guī)范化的必要條件。只需人事管理規(guī)范了，才干在其他方面有更好的開展。為了順應(yīng)現(xiàn)代企業(yè)或公司運(yùn)營(yíng)開展的需求，人事管理也從以前的手工管理逐漸被規(guī)范化的管理信息系統(tǒng)所替代。眾所周知，當(dāng)今社會(huì)為信息社會(huì)，世界已進(jìn)入計(jì)算機(jī)信息管理猛烈競(jìng)爭(zhēng)的年代，因此，加強(qiáng)者事管理在單純依托以手工管理的方法，不僅需求耗用大量的人力、物力、財(cái)力，而且任務(wù)效率低，破綻和錯(cuò)誤眾多，難以到達(dá)預(yù)期的目的，為了提高企業(yè)任務(wù)效率、保證企業(yè)人事管理質(zhì)量、快速而且準(zhǔn)確地為企業(yè)制定好的運(yùn)營(yíng)方針與決策，在有限的時(shí)間內(nèi)完成任務(wù)義務(wù)及到達(dá)預(yù)期的目的，所以，開發(fā)企業(yè)人事信息管理系統(tǒng)是有必要的。由于管理系統(tǒng)的對(duì)象單一，僅對(duì)人事信息進(jìn)展管理，且

12、在對(duì)人事信息進(jìn)展增減、修正、刪除及統(tǒng)計(jì)操作時(shí)根本不涉及到計(jì)算過程，因此，這個(gè)管理系統(tǒng)比較適宜采用數(shù)據(jù)庫來設(shè)計(jì)。在計(jì)算機(jī)硬件和軟件快速開展的今天，計(jì)算機(jī)硬件和軟件曾經(jīng)遠(yuǎn)遠(yuǎn)滿足本管理系統(tǒng)的要求。在數(shù)據(jù)庫編程工具方面，各種可視化編程方法的出現(xiàn)，一矯正去程序設(shè)計(jì)的概念和方法，用戶用鼠標(biāo)就可以快速、簡(jiǎn)捷地創(chuàng)建運(yùn)用程序，極大地提高了編程效率。在本人所了解數(shù)據(jù)庫系統(tǒng)中，由于學(xué)過VisualBasic .，所以對(duì)VisualBasic .及 SQL 數(shù)據(jù)庫比較熟習(xí)， VisualBasic .中文版數(shù)據(jù)庫開發(fā)的運(yùn)用程序可以獨(dú)立運(yùn)轉(zhuǎn)于windows平臺(tái)，而且SQL 產(chǎn)生的數(shù)據(jù)庫表適用范圍廣，因此決議采用Visu

13、alBasic .中文版來完成人事信息管理系統(tǒng)的設(shè)計(jì)。. 研討的內(nèi)容、目的、過程和方法. 研討的內(nèi)容和目的本文研討的主要內(nèi)容是公司人事信息管理系統(tǒng)的分析和設(shè)計(jì)過程，其目的在于為該系統(tǒng)的開發(fā)奠定堅(jiān)實(shí)的實(shí)際根底。系統(tǒng)的勝利開發(fā)將大大緩解人事管理的任務(wù)壓力，這樣，既可以提高人事管理任務(wù)的任務(wù)效率，又能在客觀上促進(jìn)企業(yè)的信息化開展。. 研討的過程從選題，調(diào)研，熟習(xí)開發(fā)環(huán)境，實(shí)驗(yàn)關(guān)鍵技術(shù)，查找類似的相關(guān)系統(tǒng)的資料；系統(tǒng)需求分析，數(shù)據(jù)庫構(gòu)造設(shè)計(jì)，功能模塊開發(fā)，功能模塊測(cè)試，系統(tǒng)調(diào)試和系統(tǒng)試運(yùn)轉(zhuǎn)和修正。下面的流程圖反映了此題的根本的思緒和過程。在各階段的時(shí)間安排上，選題和調(diào)研用了兩周左右的時(shí)間；熟習(xí)開發(fā)環(huán)境

14、，實(shí)驗(yàn)關(guān)鍵技術(shù)，查找類似的相關(guān)系統(tǒng)的資料用了兩周時(shí)間；系統(tǒng)需求分析用了一周的時(shí)間；數(shù)據(jù)庫構(gòu)造設(shè)計(jì)用了一周時(shí)間；功能模塊開發(fā)和功能模塊測(cè)試用了周圍的時(shí)間；最后，系統(tǒng)調(diào)試和系統(tǒng)試運(yùn)轉(zhuǎn)和修正用了約三周的時(shí)間。完成全部任務(wù)大約用了近個(gè)月的時(shí)間。系統(tǒng)義務(wù)描畫框架如圖-所示：圖- 系統(tǒng)義務(wù)描畫框架. 研討的方法 該系統(tǒng)的研討主要采用了構(gòu)造化的系統(tǒng)分析與設(shè)計(jì)方法。該方法主要包括以下幾個(gè)特點(diǎn)：預(yù)先明確用戶需求，根據(jù)需求來設(shè)計(jì)信息系統(tǒng)自頂向下來設(shè)計(jì)或規(guī)劃信息系統(tǒng)嚴(yán)厲按階段進(jìn)展任務(wù)文檔規(guī)范化和規(guī)范化運(yùn)用系統(tǒng)的分解和綜合技術(shù)，使復(fù)雜的系統(tǒng)簡(jiǎn)單化強(qiáng)調(diào)階段成果的審定和檢驗(yàn). 系統(tǒng)開發(fā)框架. 系統(tǒng)開發(fā)框架：系統(tǒng)開發(fā)框架如

15、圖-所示：圖- 系統(tǒng)開發(fā)框架第二章 系統(tǒng)分析軟件工程采用的生命周期方法學(xué)就是要從時(shí)間的角度對(duì)軟件開發(fā)和維護(hù)的復(fù)雜問題進(jìn)展分解，把軟件生命的漫長(zhǎng)周期依次劃分為假設(shè)干個(gè)階段，每個(gè)階段都有相對(duì)獨(dú)立的義務(wù)，然后逐漸完成每個(gè)階段的義務(wù)。本文所設(shè)計(jì)的人事、勞資管理信息系統(tǒng)也要按照這個(gè)來做。因此，首先要對(duì)人事信息管理系統(tǒng)進(jìn)展需求分析。需求分析的義務(wù)不是詳細(xì)處理問題，主要確定系統(tǒng)必需具備那些功能。在這個(gè)階段確定的系統(tǒng)邏輯模型是以后設(shè)計(jì)和實(shí)現(xiàn)目的系統(tǒng)的根底，因此必需準(zhǔn)確完好地表達(dá)用戶的要求。.系統(tǒng)分析概述系統(tǒng)分析的義務(wù)是：對(duì)客觀世界存在的事物或問題進(jìn)展分析，并用科學(xué)的方法將其籠統(tǒng)為邏輯模型。系統(tǒng)模型分為邏輯模型

16、和物理模型。邏輯模型主要確定系統(tǒng)做什么，而物理模型那么主要處理怎樣做的問題，前者是系統(tǒng)分析的主要義務(wù)，后者是系統(tǒng)設(shè)計(jì)的主要義務(wù)。系統(tǒng)分析的主要任務(wù)有：需求分析。包括需求的產(chǎn)生，數(shù)據(jù)需求，功能需求和非功能需求?？尚行苑治觥，F(xiàn)行業(yè)務(wù)流程分析。系統(tǒng)建模。包括功能建模和信息建模. 系統(tǒng)功能規(guī)劃. 系統(tǒng)功能概略經(jīng)過了解，如今不少單位人員較多而且人員的調(diào)動(dòng)流通比較頻繁，加上聘用的外面的人員較多，對(duì)他們也要建立信息檔案進(jìn)展管理，因此管理系統(tǒng)要有較好的添加人事信息、修正人事信息和刪除人事信息的功能。作為人事信息管理系統(tǒng)查詢功能是必不可少的。在幾年的改革過程中，時(shí)常要對(duì)各種人事信息進(jìn)展查詢。在進(jìn)展定員定額時(shí)要對(duì)

17、各個(gè)部門的人員進(jìn)展查詢，在對(duì)職工的人員素質(zhì)調(diào)查時(shí)，要對(duì)全體人員的文化程度和年齡構(gòu)造進(jìn)展查詢。因此管理系統(tǒng)的查詢功能要強(qiáng)大，不僅要支持單個(gè)查詢，還要能進(jìn)展復(fù)雜的多條件查詢。在人事信息管理任務(wù)中，要經(jīng)常了解各個(gè)部門的人員多少，知道男女人員的比例構(gòu)造，各個(gè)年齡層次上人員的多少等等，都需求有統(tǒng)計(jì)人數(shù)的功能。任何單位對(duì)內(nèi)部員工的人事管理，都要建立花名冊(cè)，所謂的花名冊(cè)就是要把單位一切人員的主要信息打印出來，裝訂成冊(cè)，放入單位檔案以便備查。因此在人事信息管理系統(tǒng)要具備打印花名冊(cè)的功能。另外，人事信息管理系統(tǒng)里面包含了單位一切人員的信息，不是任何人都能查看的。所以要對(duì)管理系統(tǒng)設(shè)置密碼限制。除了人事信息管理人員

18、以外，還有比如單位主要指點(diǎn)等都有權(quán)益對(duì)人事信息進(jìn)展查詢，因此要對(duì)管理系統(tǒng)設(shè)置級(jí)別限制，不同級(jí)別的人員有不同的操作范圍。人事管理系統(tǒng)普通有將本單位的人事庫上報(bào)給上級(jí)單位的要求。如今是網(wǎng)絡(luò)時(shí)代，系統(tǒng)最好有上報(bào)功能。. 系統(tǒng)功能分析在經(jīng)過對(duì)人事管理人員的調(diào)查和對(duì)他們的了解，要求管理系統(tǒng)應(yīng)具備以下功能：()由人事管理人員的條件決議，管理系統(tǒng)要有良好的人機(jī)界面。()要有簡(jiǎn)一方便的添加、修正、查詢?nèi)耸滦畔⒌墓δ堋?)要有快速準(zhǔn)確的人事信息查詢，并且要支持多條件的查詢。()對(duì)操作人員的限制和多級(jí)別的控制，因此要有較好的權(quán)限管理()在相應(yīng)的權(quán)限下，修正數(shù)據(jù)要方便簡(jiǎn)單，數(shù)據(jù)穩(wěn)定性要好。()要有方便的退出功能，并

19、對(duì)設(shè)計(jì)做一個(gè)簡(jiǎn)單的關(guān)于闡明。()人事信息管理系統(tǒng)數(shù)據(jù)庫的設(shè)計(jì)采用VisualBasic .及SQL 。 需求分析階段的任務(wù)結(jié)果是開發(fā)軟件的重要根底，大量統(tǒng)計(jì)數(shù)字闡明，軟件系統(tǒng)中%的錯(cuò)誤來源于錯(cuò)誤的需求。為了提高軟件的質(zhì)量，確保軟件開發(fā)勝利，降低軟件的開發(fā)本錢，一旦對(duì)目的系統(tǒng)提出一組要求之后，必需嚴(yán)厲驗(yàn)證這些需求的正確性。普通來說，應(yīng)從下面四個(gè)方面進(jìn)展驗(yàn)證： ()一致性 一切需求必需是一致的，任何一條需求不能和其他需相互矛盾。 ()完好性 需求必需是完好的，規(guī)格闡明書應(yīng)該包括用戶需求的每一個(gè)功能或性能。 ()現(xiàn)實(shí)性 指定的需求應(yīng)該是用現(xiàn)有的硬件技術(shù)和軟件技術(shù)根底上可以實(shí)現(xiàn)。對(duì)硬件技術(shù)的提高可以做

20、些預(yù)測(cè)，對(duì)軟件技術(shù)的提高很難做些預(yù)測(cè)，只能從現(xiàn)有的技術(shù)程度出發(fā)判別需求的現(xiàn)實(shí)性。 ()有效性 必需證明需求是正確有效的，確保能處理用戶面對(duì)的問題。經(jīng)過用戶和設(shè)計(jì)者對(duì)上述需求分析所得到的管理系統(tǒng)功能的復(fù)查，并且對(duì)照上面幾點(diǎn)要求進(jìn)展驗(yàn)證，人事、勞資管理信息系統(tǒng)提出的根本滿足需求分析驗(yàn)證的要求。. 可行性分析可行性研討的目的就是要用最小的代價(jià)在盡能夠短的時(shí)間內(nèi)確定問題能否可以處理。當(dāng)然不能靠客觀猜測(cè)而是要靠客觀分析。必需分析幾種主要的能夠解法的利弊，從而判原定的系統(tǒng)目的和規(guī)模能否現(xiàn)實(shí)，系統(tǒng)完成后所能帶來的效益能否大到值得去投資開發(fā)這個(gè)系統(tǒng)的程度。因此，可行性研討本質(zhì)上是要進(jìn)展依次大大地緊縮簡(jiǎn)化了的系

21、統(tǒng)分析和設(shè)計(jì)的過程，也就是在較高層次以較籠統(tǒng)的方式進(jìn)展的系統(tǒng)分析和設(shè)計(jì)的過程。可行性研討主要從以下五個(gè)方面來進(jìn)展。. 技術(shù)可行性 運(yùn)用現(xiàn)有的技術(shù)能不能實(shí)現(xiàn)這個(gè)系統(tǒng)。由于本管理系統(tǒng)的對(duì)象單一，僅對(duì)本單位的人事信息進(jìn)展管理，且在對(duì)人事信息進(jìn)展增減、修正、刪除及統(tǒng)計(jì)操作時(shí)根本不涉及到計(jì)算過程，因此，這個(gè)管理系統(tǒng)比較適宜采用數(shù)據(jù)庫來設(shè)計(jì)。在計(jì)算機(jī)硬件和軟件快速開展的今天，計(jì)算機(jī)硬件和軟件曾經(jīng)遠(yuǎn)遠(yuǎn)滿足本管理系統(tǒng)的要求。在數(shù)據(jù)庫編程工具方面，各種可視化編程方法的出現(xiàn)，一矯正去程序設(shè)計(jì)的概念和方法，用戶用鼠標(biāo)就可以快速、簡(jiǎn)捷地創(chuàng)建運(yùn)用程序，極大地提高了編程效率。在作者所了解數(shù)據(jù)庫系統(tǒng)中，由于學(xué)過Visual

22、 Basic .，對(duì)SQL 數(shù)據(jù)庫比較熟習(xí)，因此決議采用VisualBasic .及SQL 來完成人事信息管理系統(tǒng)的設(shè)計(jì)。VisualBasic .和SQL 共同完成人事信息管理系統(tǒng)，它提供了面向?qū)ο蟮木幊碳夹g(shù)，編寫少量或不用編寫程序代碼就能快速地創(chuàng)建出功能強(qiáng)大的可視化運(yùn)用程序，可簡(jiǎn)化數(shù)據(jù)庫管理，使開發(fā)運(yùn)用程序這項(xiàng)艱苦的任務(wù)就象堆積木那樣簡(jiǎn)一方便。另外，用SQL 數(shù)據(jù)庫開發(fā)的運(yùn)用程序可以獨(dú)立運(yùn)轉(zhuǎn)于windows平臺(tái)， 而且SQL 產(chǎn)生的數(shù)據(jù)庫表適用范圍廣。 . 經(jīng)濟(jì)可行性 這個(gè)系統(tǒng)的經(jīng)濟(jì)效益能不能超越它的開發(fā)本錢。本人事信息管理系統(tǒng)是基于VisualBasic .及SQL 根底上開發(fā)的小型數(shù)據(jù)

23、庫運(yùn)用程序，不需求多少人力和物力就可以設(shè)計(jì)的。但本系一致旦投入運(yùn)用，將大大減少人事信息管理人員的任務(wù)量，提高了任務(wù)效率，其經(jīng)濟(jì)效益是顯兒易見的。. 操作可行性 系統(tǒng)的操作方式在這個(gè)用戶組織內(nèi)能不能行得通。在進(jìn)展需求分析時(shí)，對(duì)用戶組織進(jìn)展調(diào)查，針對(duì)詳細(xì)的情況，設(shè)計(jì)出適宜這個(gè)用戶組織的人機(jī)界面，使操作方式簡(jiǎn)單明了。. 人員的可行性本人事信息管理系統(tǒng)是用VisualBasic .及SQL 設(shè)計(jì)的小型數(shù)據(jù)庫運(yùn)用程序，無須多少人員就可以設(shè)計(jì)勝利的。經(jīng)過對(duì)人事信息管理系統(tǒng)的可行性分析，所提出的功能是適宜人事信息管理的，也完全可以實(shí)現(xiàn)的。. 現(xiàn)行業(yè)務(wù)流程描畫根據(jù)人事管理任務(wù)的程序，現(xiàn)行業(yè)務(wù)流程如圖-所示：圖

24、- 圖例ref SHAPE * MERGEFORMAT 圖- 現(xiàn)行業(yè)務(wù)流程圖. 處置過程設(shè)計(jì) 處置過程設(shè)計(jì)是指模塊的處置流程或算法流程。為保證在系統(tǒng)實(shí)施階段，可以編出良好的程序，在模塊內(nèi)部設(shè)計(jì)時(shí)采用了構(gòu)造化的設(shè)計(jì)方法。本文中將用流程圖表示處置過程。以下將就本系統(tǒng)的中心部分進(jìn)展分析，并列出程序處置過程的流程圖。系統(tǒng)登陸程序流程圖系統(tǒng)登錄程序如圖-所示：ref SHAPE * MERGEFORMAT 圖- 系統(tǒng)登陸程序流程圖員工根本信息程序流程圖員工根本信息程序如圖-所示：圖- 員工根本信息程序流程圖員工考勤管理程序流程圖員工根本信息程序如圖-所示：ref SHAPE * MERGEFORMAT

25、圖- 員工考勤管理程序流程圖員工任務(wù)評(píng)價(jià)程序流程圖員工任務(wù)評(píng)價(jià)程序如圖-所示：ref SHAPE * MERGEFORMAT 圖- 員工任務(wù)評(píng)價(jià)程序流程圖員工工資管理程序流程圖員工工資管理程序如圖-所示：圖- 員工總工資管理程序流程圖 系統(tǒng)規(guī)劃經(jīng)過上面的系統(tǒng)需求分析和可行性研討，根本確定了本管理系統(tǒng)的各個(gè)功能模塊。人事信息管理系統(tǒng)是單位用來存儲(chǔ)、查詢及統(tǒng)計(jì)人員各種信息的，因此，它是個(gè)典型的數(shù)據(jù)庫管理系統(tǒng)。主要由系統(tǒng)管理模塊、員工根本信息模塊、員工考勤管理模塊、員工任務(wù)評(píng)價(jià)模塊、員工工資管理模塊、關(guān)于模塊和程序封面模塊等組成。. 系統(tǒng)管理模塊該模塊的主要作用是維護(hù)本人事管理系統(tǒng)的平安和退出的。為

26、了保證系統(tǒng)的平安，在系統(tǒng)中設(shè)置了用戶登陸密碼，因此，在這個(gè)模塊中設(shè)計(jì)了用戶密碼修正功能，同時(shí)為了系統(tǒng)維護(hù)管理員對(duì)整個(gè)系統(tǒng)進(jìn)展管理，設(shè)計(jì)了添加用戶、注銷用戶的功能。在設(shè)計(jì)中，將本系統(tǒng)的退出功能也放在這個(gè)模塊中。. 員工根本信息模塊該模塊主要實(shí)現(xiàn)如下功能：添加員工根本信息修正員工根本信息刪除員工根本信息查詢員工根本信息. 員工考勤管理模塊該模塊主要實(shí)現(xiàn)如下功能：添加考勤信息修正考勤信息刪除考勤信息考勤信息查詢. 員工任務(wù)評(píng)價(jià)模塊該模塊主要實(shí)現(xiàn)如下功能：添加任務(wù)評(píng)價(jià)信息修正任務(wù)評(píng)價(jià)信息刪除任務(wù)評(píng)價(jià)信息任務(wù)評(píng)價(jià)信息查詢. 員工工資管理模塊 該模塊主要實(shí)現(xiàn)如下功能：計(jì)發(fā)員工工資信息修正員工工資信息員工總

27、工資信息查詢. 關(guān)于模塊此模塊的功能是對(duì)本人事管理系統(tǒng)作一個(gè)闡明。闡明本系統(tǒng)的性質(zhì)、設(shè)計(jì)時(shí)間等等。. 程序封面模塊此封面模塊的功能一是為了美化本系統(tǒng)程序，二是為了在啟動(dòng)本系統(tǒng)時(shí)用作登陸表單。系統(tǒng)啟動(dòng)時(shí)首先翻開封面模塊，只需在封面模塊中的用戶登陸窗口中輸入用戶名和密碼，經(jīng)系統(tǒng)確認(rèn)正確后才干運(yùn)用本系統(tǒng)。系統(tǒng)數(shù)據(jù)流圖根據(jù)人事信息管理系統(tǒng)的設(shè)計(jì)思緒，將系統(tǒng)中的數(shù)據(jù)處置過程籠統(tǒng)化，繪制成數(shù)據(jù)流程圖，以便調(diào)查數(shù)據(jù)的處置方式。數(shù)據(jù)流程圖簡(jiǎn)稱DFD圖是利用外部項(xiàng)，數(shù)據(jù)流，處置邏輯和數(shù)據(jù)存儲(chǔ)四種根本成分及假設(shè)干規(guī)那么來描畫系統(tǒng)邏輯模型的。DFD圖將運(yùn)用以下的符號(hào)來表示四種根本元素。如圖-所示：圖- 圖例人事信息

28、管理系統(tǒng)的數(shù)據(jù)流圖。如圖-，圖-，圖-所示：圖-系統(tǒng)數(shù)據(jù)流圖圖-系統(tǒng)數(shù)據(jù)流圖圖-系統(tǒng)數(shù)據(jù)流圖 系統(tǒng)建模E-R圖系統(tǒng)信息建模主要用到的工具是E-R圖。實(shí)體與實(shí)體間的關(guān)系E-R圖如以下圖-所示：圖- 系統(tǒng)E-R圖實(shí)體與實(shí)體間的關(guān)系E-R圖規(guī)劃出的實(shí)體有：?jiǎn)T工根本信息、員工考勤信息、員工任務(wù)評(píng)價(jià)信息、員工工資信息。各個(gè)實(shí)體詳細(xì)的描畫E-R圖如圖-，圖-，圖-，圖-所示：圖- 員工根本信息實(shí)體E-R圖圖- 員工考勤信息實(shí)體E-R圖圖- 員工任務(wù)評(píng)價(jià)信息實(shí)體E-R圖圖- 員工工資信息實(shí)體E-R圖 數(shù)據(jù)字典根據(jù)公司的人事信息管理系統(tǒng)的需求，經(jīng)過對(duì)員工任務(wù)過程的內(nèi)容和數(shù)據(jù)流分析，設(shè)計(jì)如下所示的數(shù)據(jù)向和數(shù)據(jù)構(gòu)

29、造。 針對(duì)公司人事信息管理系統(tǒng)的需求，經(jīng)過對(duì)員工任務(wù)過程的內(nèi)容和數(shù)據(jù)流程分析，設(shè)計(jì)如下面所示的數(shù)據(jù)項(xiàng)和數(shù)據(jù)構(gòu)造：?jiǎn)T工根本信息：包括的數(shù)據(jù)項(xiàng)有員工編號(hào)、員工姓名、性別、出生日期、所在部門、籍貫、學(xué)歷、專業(yè)、參與任務(wù)時(shí)間、進(jìn)入公司時(shí)間、起薪時(shí)間、調(diào)入部門時(shí)間、職稱、入黨時(shí)間、檔號(hào)、原身份、原職務(wù)、原任務(wù)單位、備注等。員工考勤信息：包括的數(shù)據(jù)項(xiàng)有員工所在部門、員工姓名、出勤時(shí)間、公休時(shí)間、曠工時(shí)間、請(qǐng)假時(shí)間、早退時(shí)間、遲到時(shí)間、加班時(shí)間、出差時(shí)間等。員工任務(wù)評(píng)價(jià)信息：包括的數(shù)據(jù)項(xiàng)有員工姓名、員工所在部門、任務(wù)業(yè)績(jī)、任務(wù)態(tài)度、業(yè)務(wù)程度、備注等。員工工資信息：包括的數(shù)據(jù)項(xiàng)有員工所在部門、員工姓名、底薪、

30、補(bǔ)貼、獎(jiǎng)金、加班、住房補(bǔ)貼、房租、養(yǎng)老金、醫(yī)療保險(xiǎn)、住房公積金、所得稅、實(shí)發(fā)工資等。第三章 系統(tǒng)設(shè)計(jì)與實(shí)施. VisualBasic .及SQL 數(shù)據(jù)庫簡(jiǎn)介. VisualBasic的開展 VisualBasic簡(jiǎn)稱VB是美國(guó)Microsoft公司推出、專門針對(duì)位Windows操作系統(tǒng)的程序設(shè)計(jì)言語。隨著計(jì)算機(jī)的普及，當(dāng)時(shí)PC機(jī)上操作系統(tǒng)也不斷開展，Microsoft公司對(duì)其Baxic產(chǎn)品也做了許多方面的改良，推出了Quick Basic,并得到了廣泛的好評(píng)。世紀(jì)年代初，由于Windows操作平臺(tái)的逐漸流行，PC機(jī)的操作方式開場(chǎng)由命令型方式向圖形用戶界面(GUI,Graphical User

31、Interface)方式轉(zhuǎn)變。Microsoft公司憑仗強(qiáng)大的技術(shù)支持，開場(chǎng)把Basic向可視化編程方向開展，于是就有了第一代的Visual Basic產(chǎn)品。雖然第一代的產(chǎn)品功能很少，但是他有跨時(shí)代的意義。隨著Windows操作系統(tǒng)的不斷成熟，Visual Basic產(chǎn)品有.版晉級(jí)到.版，此時(shí)Visual Basic 已初具規(guī)模了，利用它可以快速的創(chuàng)建各種運(yùn)用程序，包括非常流行的多媒體運(yùn)用程序和各種圖形操作界面。在年，Microsoft推出了Visual Basic . 版本，這一版本得到了很大的擴(kuò)展和加強(qiáng)。他還引入了運(yùn)用部件編程的概念，實(shí)踐上這是對(duì)面向?qū)ο缶幊趟枷氲臄U(kuò)展。迄今為止，Visua

32、l Basic曾經(jīng)開展成為快速運(yùn)用程序開發(fā)(RAD,Rapid Application Debelopment)工具的代表。. VisualBasic特點(diǎn)Visual Basic是Windows平臺(tái)上一個(gè)強(qiáng)大的開發(fā)工具，無論是初學(xué)者，還是專業(yè)人員都可以方便的運(yùn)用它進(jìn)展程序設(shè)計(jì)。Visual Basic提供的是真正的面向?qū)ο蟮目梢暬幊谭椒?，開發(fā)人員只需少量代碼就可以編者出具有規(guī)范Windows風(fēng)格的程序，代碼維護(hù)非常方便。運(yùn)用Visual Basic言語，不但可以編制常規(guī)的運(yùn)用程序，而且可以運(yùn)用VB的腳本言語VBScript進(jìn)展Web開發(fā)、運(yùn)用嵌入式VB言語VB for Application

33、VBA對(duì)一些流行軟件進(jìn)展二次開發(fā)，還可以設(shè)計(jì)ActiveX控件，用于Web或其他支持這一技術(shù)的程序中。Microsoft不斷的把最新的技術(shù)融入Visual Basic中，無論是網(wǎng)絡(luò)運(yùn)用程序、多媒體軟件還是數(shù)據(jù)庫系統(tǒng)，運(yùn)用Visual Basic都可以容易地實(shí)現(xiàn)。. 系統(tǒng)設(shè)計(jì)概述系統(tǒng)設(shè)計(jì)的義務(wù)是：在系統(tǒng)分析提出的邏輯模型的根底上科學(xué)合理地進(jìn)展物理模型設(shè)計(jì)。系統(tǒng)設(shè)計(jì)的主要任務(wù)有：總體設(shè)計(jì)。包括系統(tǒng)技術(shù)構(gòu)架，軟件構(gòu)造設(shè)計(jì)和系統(tǒng)流程設(shè)計(jì)。代碼設(shè)計(jì)。數(shù)據(jù)庫設(shè)計(jì)。輸入/輸出設(shè)計(jì)。從系統(tǒng)分析的邏輯模型設(shè)計(jì)到系統(tǒng)設(shè)計(jì)的物理模型設(shè)計(jì)是一個(gè)由籠統(tǒng)到詳細(xì)的過程。經(jīng)過系統(tǒng)設(shè)計(jì)，設(shè)計(jì)人員應(yīng)能為程序開發(fā)人員提供完好，清楚

34、的設(shè)計(jì)文檔，并對(duì)設(shè)計(jì)規(guī)范中不清楚的地方做出解釋。系統(tǒng)設(shè)計(jì)的原那么包括：系統(tǒng)性系統(tǒng)是作為一致整體而存在的，因此，在系統(tǒng)設(shè)計(jì)中，要從整個(gè)系統(tǒng)的角度進(jìn)展思索，系統(tǒng)的代碼要一致，設(shè)計(jì)規(guī)范要規(guī)范，傳送言語要盡能夠一致，對(duì)系統(tǒng)的數(shù)據(jù)采集要做到數(shù)出一處，全局共享，使一次輸入得到多次利用。靈敏性為堅(jiān)持系統(tǒng)的長(zhǎng)久生命力，要求系統(tǒng)具有很強(qiáng)的環(huán)境順應(yīng)性，為此，系統(tǒng)應(yīng)具有較好的開放性和構(gòu)造的可變性。在系統(tǒng)設(shè)計(jì)中，應(yīng)盡量采用模塊化構(gòu)造，提高各模塊的獨(dú)立性，盡能夠減少模塊間的數(shù)據(jù)耦合，使各子系統(tǒng)間的數(shù)據(jù)依賴減至最低限制。這樣，既便于模塊的修正，又便于添加新的內(nèi)容，提高系統(tǒng)順應(yīng)環(huán)境變化的才干?？煽啃钥煽啃允侵赶到y(tǒng)抵御外界干

35、擾的才干及受外界干擾時(shí)的恢復(fù)才干。一個(gè)勝利的管理信息系統(tǒng)必需具有較高的可靠性，如平安嚴(yán)密性，檢錯(cuò)及糾錯(cuò)才干，抗病毒才干等。經(jīng)濟(jì)性經(jīng)濟(jì)性指在滿足系統(tǒng)需求的前提下，盡能夠減少系統(tǒng)的開銷。一方面，在硬件投資上不能盲目追求技術(shù)上的先進(jìn)，而應(yīng)以滿足運(yùn)用需求為前提；另一方面，系統(tǒng)設(shè)計(jì)中應(yīng)盡量防止不用要的復(fù)雜化，各模塊應(yīng)盡量簡(jiǎn)約，以便縮短處置流程，減少處置費(fèi)用。. 系統(tǒng)設(shè)計(jì)思緒 針對(duì)該系統(tǒng)功能的相對(duì)獨(dú)立性的特點(diǎn)，將系統(tǒng)分成相對(duì)獨(dú)立的幾個(gè)子系統(tǒng)，獨(dú)立的進(jìn)展設(shè)計(jì)。各個(gè)子系統(tǒng)獨(dú)立地完成其所在模塊的效力功能，與其他子系統(tǒng)發(fā)生信息的傳送很少。 系統(tǒng)設(shè)計(jì)的主要根據(jù)是系統(tǒng)分析階段得到的系統(tǒng)功能模型，信息模型以及系統(tǒng)配置。

36、系統(tǒng)設(shè)計(jì)采用的主要方法是構(gòu)造設(shè)計(jì)方法，該方法自頂向下，逐漸求精。采用先全局后部分，先總體后細(xì)節(jié)，先籠統(tǒng)后詳細(xì)的過程，將系統(tǒng)設(shè)計(jì)成一個(gè)層次清楚的模塊化構(gòu)造，使系統(tǒng)的構(gòu)造明晰，具有可讀性，可維護(hù)性，可修正性等特點(diǎn)。. 系統(tǒng)功能模塊圖系統(tǒng)功能模型，反映了系統(tǒng)功能或處置的詳細(xì)內(nèi)容及邏輯關(guān)系，并沒有詳細(xì)闡明系統(tǒng)內(nèi)部一切的信息構(gòu)造的組織和相互關(guān)系。所以必需建立系統(tǒng)的信息模型。 深化分析后得知：數(shù)據(jù)是信息處置的中心，數(shù)據(jù)管理是系統(tǒng)建立的中心。建立系統(tǒng)信息模型的主要目的是提供一個(gè)數(shù)據(jù)的含義和相互關(guān)系的一致定義。從而用來集成，共享和管理數(shù)據(jù)的完好性。將具備以下特征：必需和系統(tǒng)根底構(gòu)造相一致，并且真正覆蓋一切運(yùn)用

37、范圍。必需是可擴(kuò)展的，可以在原定義數(shù)據(jù)不變的情況下再定義新的數(shù)據(jù)。系統(tǒng)功能模塊如圖-所示：圖- 系統(tǒng)功能模塊圖. 代碼設(shè)計(jì). 代碼的功能它為事物提供一個(gè)概要而不模糊的認(rèn)定，便于數(shù)據(jù)的存儲(chǔ)和檢索。代碼縮短了事物的稱號(hào)，無論是記錄、記憶還是存儲(chǔ)，都可以節(jié)省時(shí)間和空間。 運(yùn)用代碼可以提高處置的效率和精度。按代碼對(duì)事物進(jìn)展排序，累計(jì)或按某種規(guī)定算法進(jìn)展統(tǒng)計(jì)分析，可以非常迅速。 代碼提高了數(shù)據(jù)的全局一致性。這樣，對(duì)同一事物，即使在不同的場(chǎng)一切不同的叫法，都可以經(jīng)過編碼一致同來，提高了系統(tǒng)的整體性，減少了因數(shù)據(jù)不一致而呵斥的錯(cuò)誤。代碼是人和計(jì)算機(jī)的共同言語，是兩者交換信息的工具。在手工處置系統(tǒng)中，許多數(shù)據(jù)

38、早已運(yùn)用代碼。為了給尚無代碼的數(shù)據(jù)項(xiàng)編碼，為了一致和改良原有代碼，使之順應(yīng)計(jì)算機(jī)處置的要求，在建立新系統(tǒng)時(shí)，必需對(duì)整個(gè)系統(tǒng)進(jìn)展代碼設(shè)計(jì)。. 代碼的設(shè)計(jì)原那么合理的編碼構(gòu)造是信息處置系統(tǒng)能否具有生命力的一個(gè)重要要素，在代碼設(shè)計(jì)時(shí)，應(yīng)根據(jù)以下原那么： 設(shè)計(jì)的代碼在邏輯上必需能滿足用戶的需求，在構(gòu)造上該當(dāng)與處置的方法相一致。 一個(gè)代碼應(yīng)獨(dú)一標(biāo)識(shí)它所代表的事物或?qū)傩浴?代碼設(shè)計(jì)時(shí)，要預(yù)留足夠的位置，以順應(yīng)不斷變化的需求。否那么，在短時(shí)間內(nèi)，隨意改動(dòng)編碼構(gòu)造對(duì)設(shè)計(jì)任務(wù)來說是一種嚴(yán)重浪費(fèi)。普通來說，代碼愈短，分類、預(yù)備、存儲(chǔ)和傳送的開銷就愈低；代碼愈長(zhǎng)，對(duì)數(shù)據(jù)檢索，統(tǒng)計(jì)分析和滿足多樣化的處置要求就愈好。

39、代碼要系統(tǒng)化，代碼的編制應(yīng)盡量規(guī)范化，盡量使代碼構(gòu)造對(duì)事物的表示具有實(shí)踐意義，以便于了解及交流。 要留意防止引起誤解，不要運(yùn)用易于混淆的字符。如：O，Z，I，S，V與，U易混；不要把空格做作代碼；要運(yùn)用小時(shí)制表示時(shí)間等。 要留意盡量采用不易出錯(cuò)的代碼構(gòu)造，例如字母-字母-數(shù)字的構(gòu)造，如WW比字母-數(shù)字-字母的構(gòu)造如WW發(fā)生錯(cuò)誤的時(shí)機(jī)要少一些。 當(dāng)代碼長(zhǎng)于個(gè)字母或個(gè)數(shù)字字符時(shí)，應(yīng)分成小段。這樣人們讀寫時(shí)不 易發(fā)生錯(cuò)誤，如-比易于記憶，并能更準(zhǔn)確地記錄下來。. 代碼設(shè)計(jì)表表- 員工的ID代碼設(shè)計(jì)表格闡明:員工登記序號(hào)的前后順序按照結(jié)果錄入數(shù)據(jù)庫的時(shí)間順序陳列舉例:碼代表工程部序號(hào)為的在職員工。 關(guān)

40、鍵源代碼用戶登錄界面Begin VB.Form frmLogin BorderStyle = None Caption = 登錄窗口 ClientHeight = ClientLeft = ClientTop = ClientWidth = LinkTopic = Form MaxButton = False MinButton = False ScaleHeight = . ScaleMode = User ScaleWidth = . ShowInTaskbar = False StartUpPosition = 人事信息管理系統(tǒng) Begin VB.Frame Frame BackColo

41、r = &HDDD& Height = Left = TabIndex = Top = Width = Begin VB.Frame Frame BackColor = &HDDD& Height = Left = TabIndex = Top = Width = Begin VB.CommandButton Cmd_Cancel Caption = 取消 Height = Left = Style = Graphical TabIndex = Top = Width = End Begin VB.CommandButton Cmd_OK BackColor = &HFF& Caption =

42、 確定 Height = Left = TabIndex = Top = Width = End End Begin VB.Frame Frame BackColor = &HDDD& Height = Left = TabIndex = Top = Width = Begin VB.TextBox txtPwd Appearance = Flat BackColor = &HCFFFF& Height = IMEMode = DISABLE Left = PasswordChar = * TabIndex = Top = Width = End Begin VB.TextBox txtUse

43、r Appearance = Flat BackColor = &HCFFFF& Height = Left = TabIndex = Top = Width = End Begin VB.Label Label BackStyle = Transparent Caption = 輸入用戶密碼： Height = Left = TabIndex = Top = Width = End Begin VB.Label Label BackStyle = Transparent Caption = 輸入用戶姓名： Height = Left = TabIndex = Top = Width = En

44、d End End Begin VB.Image Image Height = Left = Picture = frmLogin.frx: Top = Width = End Begin VB.Label Label BackStyle = Transparent Caption = 登 陸 系 統(tǒng) BeginProperty Font Name = 宋體 Size = Charset = Weight = Underline = False Italic = False Strikethrough = False EndProperty ForeColor = &HFFFFFF& Heig

45、ht = Left = TabIndex = Top = Width = End Begin VB.Image Image Height = Left = Picture = frmLogin.frx: Top = Width = End End Attribute VB_Name = frmLogin Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Public PasswordK

46、ey As String Public NameKey As String Public Try_times As Integer Private Sub Cmd_Cancel_Click() End End Sub Private Sub Cmd_Ok_Click() Dim tmpUser, tmpPwd As String Dim isexe As Boolean Dim rsusers As ADODB.Recordset tmpUser = Trim(txtUser.Text) tmpPwd = Trim(txtPwd.Text) UserName = tmpUser If MyUs

47、er.in_db(tmpUser, tmpPwd) True Then MsgBox 用戶名或密碼錯(cuò)誤, , 提示 Else Unload Me Load frmMain frmMain.Show End If End Sub Private Sub Form_Load() txtUser.Text = admin txtPwd.Text = End Sub Private Sub Image_Click() Unload Me End Sub 部門查詢BEGIN MultiUse = - True Persistable = NotPersistable DataBindingBehavio

48、r = vbNone DataSourceBehavior = vbNone MTSTransactionMode = NotAnMTSObject END Attribute VB_Name = Departments Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = True Attribute VB_PredeclaredId = False Attribute VB_Exposed = False DepId 數(shù)字，長(zhǎng)整型 部門編號(hào)，主鍵 DepName 文本，長(zhǎng)度為 部門稱號(hào)，必填字段是，允許空字符串否 Des

49、cribes 文本，長(zhǎng)度為 部門職能描畫，必填字段否，允許空字符串是 UpperId 數(shù)字，長(zhǎng)整型 上級(jí)部門編號(hào)，必填字段是 Public DepId As Long Public DepName As String Public Describes As String Public UpperId As Long Public Sub Init() DepId = - DepName = Describes = - UpperId = - End Sub 刪除Departments Public Sub Delete(ByVal TmpId As Long) SqlStmt = DELETE

50、 FROM Departments WHERE DepId= + Trim(Str(TmpId) SQLExt (SqlStmt) End Sub 讀取當(dāng)前部門記錄 Public Sub GetInfo(ByVal TmpId As Long) Dim rs As New ADODB.Recordset 定義結(jié)果集對(duì)象 DepId = TmpId 運(yùn)用SELECT語句讀取指定部門數(shù)據(jù) SqlStmt = SELECT * FROM Departments WHERE DepId= + Trim(Str(TmpId) Set rs = QueryExt(SqlStmt) If Not rs.EO

51、F Then DepName = Trim(rs.Fields() 部門稱號(hào) If IsNull(rs.Fields() Then Describes = Else Describes = Trim(rs.Fields() 部門描畫 End If UpperId = rs.Fields() 上級(jí)編號(hào) Else Init End If End Sub 根據(jù)部門編號(hào)，讀取部門稱號(hào) Public Function GetName(ByVal TmpId As Long) As String Dim rs As New ADODB.Recordset 定義結(jié)果集對(duì)象 運(yùn)用SELECT語句讀取指定部門稱

52、號(hào) SqlStmt = SELECT DepName FROM Departments WHERE DepId= _ + Trim(Str(TmpId) Set rs = QueryExt(SqlStmt) If Not rs.EOF Then GetName = Trim(rs.Fields() Else GetName = End If End Function 前往新記錄的編號(hào)，當(dāng)前最大編號(hào)加 Public Function GetNewId() As Long Dim TmpId As Long Dim rs As New ADODB.Recordset 運(yùn)用SELECT語句，讀取最大

53、的編號(hào) SqlStmt = SELECT Max(DepId) FROM Departments Set rs = QueryExt(SqlStmt) If rs.EOF Then GetNewId = Else GetNewId = rs.Fields() + End If End Function 判別指定的部門中能否存在員工記錄 Public Function HaveEmp(ByVal TmpDepid As Long) As Boolean Dim rs As New ADODB.Recordset 運(yùn)用SELECT語句在Employees表中讀取DepId字段等于TmpDepid的

54、記錄 SqlStmt = SELECT * FROM Employees WHERE DepId= + Trim(Str(TmpDepid) Set rs = QueryExt(SqlStmt) If Not rs.EOF Then HaveEmp = True Else HaveEmp = False End If End Function 判別一個(gè)部門能否包含下級(jí)部門，在刪除部門記錄時(shí)運(yùn)用 Public Function HaveSon(ByVal TmpUpperId As Long) As Boolean Dim rs As New ADODB.Recordset SqlStmt =

55、SELECT DepId FROM Departments WHERE UpperId= _ + Trim(Str(TmpUpperId) Set rs = QueryExt(SqlStmt) If Not rs.EOF Then HaveSon = True Else HaveSon = False End If End Function 判別部門稱號(hào)能否存在 Public Function In_DB(ByVal DepName As String, _ ByVal DepUpper As Long) As Boolean Dim rs As New ADODB.Recordset Sql

56、Stmt = SELECT DepId FROM Departments WHERE DepName= + Trim(DepName) _ + and UpperId= + Trim(Str(DepUpper) Set rs = QueryExt(SqlStmt) If Not rs.EOF Then In_DB = True Else In_DB = False End If End Function Public Function Insert() As Long Dim DepId As Long 生成新的編號(hào) DepId = GetNewId SqlStmt = INSERT INTO

57、 Departments VALUES( + Trim(Str(DepId) + , _ + Trim(DepName) + , + Trim(Describes) _ + , + Trim(Str(UpperId) + ) SQLExt (SqlStmt) Insert = DepId 前往記錄編號(hào) End Function 讀取指定部門編號(hào)的一切下級(jí)部門信息 Public Sub Load_Departments_ByUpper(UpperId As Long) Dim i As Integer Dim rs As New ADODB.Recordset 初始化部門數(shù)組 Erase Arr

58、_DepName Erase Arr_DepDescribe Erase Arr_DepId ReDim Arr_DepName() ReDim Arr_DepDescribe() ReDim Arr_DepId() 設(shè)置SELECT語句 SqlStmt = SELECT DepId,DepName,Describes FROM Departments WHERE UpperId= _ + Trim(Str(UpperId) + ORDER BY DepId Set rs = QueryExt(SqlStmt) i = Do Until rs.EOF 讀取部門編號(hào) ReDim Preserve

59、 Arr_DepId(i + ) Arr_DepId(i) = rs.Fields() 讀取部門稱號(hào) ReDim Preserve Arr_DepName(i + ) Arr_DepName(i) = Trim(rs.Fields() 讀取部門描畫 ReDim Preserve Arr_DepDescribe(i + ) If IsNull(rs.Fields() Then Arr_DepDescribe(i) = Else Arr_DepDescribe(i) = Trim(rs.Fields() End If rs.MoveNext i = i + Loop End Sub 更新數(shù)據(jù) Pu

60、blic Sub Update(ByVal TmpId As Long) 設(shè)置UPDATE語句 SqlStmt = UPDATE Departments SET DepName= + Trim(DepName) _ + ,Describes= + Trim(Describes) _ + WHERE DepId= + Trim(Str(TmpId) SQLExt (SqlStmt) End Sub . 數(shù)據(jù)庫設(shè)計(jì)數(shù)據(jù)庫在一個(gè)信息管理系統(tǒng)中占有非常重要的位置，數(shù)據(jù)庫構(gòu)造設(shè)計(jì)的好壞將直接對(duì)運(yùn)用系統(tǒng)的效率以及實(shí)現(xiàn)的效果產(chǎn)生影響。合理的數(shù)據(jù)庫構(gòu)造設(shè)計(jì)可以提高數(shù)據(jù)庫存儲(chǔ)的效率，保證數(shù)據(jù)的完好和一致。在系統(tǒng)