員工培訓(xùn)管理系統(tǒng)(共43頁(yè))

1、精選優(yōu)質(zhì)文檔-傾情為你奉上畢業(yè)設(shè)計(jì)員工培訓(xùn)管理系統(tǒng)學(xué)生姓名系部名稱系專業(yè)班級(jí)班學(xué) 號(hào)指導(dǎo)教師教務(wù)處二一一年三月專心-專注-專業(yè)摘要隨著人類社會(huì)的發(fā)展，社會(huì)不斷的在進(jìn)步，對(duì)知識(shí)的渴望越來(lái)越大，人類已經(jīng)逐步進(jìn)入信息化社會(huì)。信息增長(zhǎng)的速度越來(lái)越快，人們希望利用先進(jìn)的管理理論方法和手段來(lái)處理越來(lái)越多的信息，員工培訓(xùn)也是其中一組成部分，想以提高工作管理水平。因此，學(xué)習(xí)與再學(xué)習(xí)始終伴隨著我們，其中有關(guān)的培訓(xùn)機(jī)構(gòu)有著不可替代的作用，在這種形勢(shì)下，如何更好的對(duì)培訓(xùn)工作進(jìn)行管理，就成了我們需要解決的一個(gè)問題，因此，開發(fā)一套完善的員工培訓(xùn)管理系統(tǒng)就成不可少了，本文介紹了在visual basic 6.0環(huán)境下利用

2、其提供的各種面向?qū)ο蟮拈_發(fā)工具開發(fā)本系統(tǒng)的詳細(xì)過(guò)程，從軟件工程的角度進(jìn)行了科學(xué)而嚴(yán)謹(jǐn)?shù)年U述。關(guān)鍵詞：?jiǎn)T工培訓(xùn)；管理系統(tǒng)；visual basic 6.0Abstract With the development of the human, the society gets progress continuously and the desire of knowlege become more and more large. The human being have been into the informational stage step by step. Furthermore, the

3、increase of information speed up too. People would like to use the advanced means and methods of management to do with the information which gets more and larger. A matter of course, staff train is the same want to improve their level of management and work. As a result, study and restudy come along

4、 with us from beginning to end. The train organization in it have been the important role that can't replace. In this situation, it is a problem for us to solve how to manage the staff train more efficient .In a word, it is indispensable to develop a perfect system of management of staff train.

5、This article explains the detailed developed process and the use of tools opening up the objects in the platform of visual basic 6.0, expounding it scientificly and strictly in the direction of soft engineering.Keyword：staff train；Management system；visual basic 6.0目 錄摘要iAbstracti第一章 前 言41.1 本課題的意義41

6、.2 當(dāng)前培訓(xùn)管理軟件的現(xiàn)狀41.3 選擇本課題的目的4第二章 開發(fā)運(yùn)行環(huán)境及相關(guān)理論知識(shí)52.1運(yùn)行環(huán)境和開發(fā)工具及平臺(tái)52.2 相關(guān)理論知識(shí)52.2.1 Visual Basic 60簡(jiǎn)介52.2.2 關(guān)系型數(shù)據(jù)庫(kù)-SQL62.2.3 二者的結(jié)合ADO6第三章 系統(tǒng)功能需求分析73.1 員工信息管理功能需求73.2 培訓(xùn)計(jì)劃管理及效果評(píng)價(jià)功能需求73.3 課程信息管理功能需求83.4 用戶查詢管理功能需求83.7 文件功能需求8第四章 系統(tǒng)總體設(shè)計(jì)方案84.1 系統(tǒng)功能總體方案84.2系統(tǒng)的目標(biāo)94.3 系統(tǒng)的設(shè)計(jì)思想94.4 系統(tǒng)的功能模塊結(jié)構(gòu)94.5 數(shù)據(jù)庫(kù)的設(shè)計(jì)104.5.1數(shù)據(jù)庫(kù)需

7、求分析104.5.2數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì)114.5.3數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì)11第五章 系統(tǒng)的具體設(shè)計(jì)125.1 歡迎主界面及代碼設(shè)計(jì)125.2 登錄界面及代碼設(shè)計(jì)135.3 系統(tǒng)主界面及代碼設(shè)計(jì)155.4 用戶管理界面及代碼設(shè)計(jì)195.5 設(shè)置界面及代碼設(shè)計(jì)235.6 查詢界面及代碼設(shè)計(jì)33第六章 系統(tǒng)的測(cè)試與分析366.1 系統(tǒng)測(cè)試測(cè)試策略說(shuō)明366.2. 用戶登錄界面、系統(tǒng)主界面的測(cè)試376.2.1 課程信息管理功能的測(cè)試376.3 系統(tǒng)性能分析38總結(jié)39參考文獻(xiàn)40附錄：公用類模塊源代碼40四川城市職業(yè)學(xué)院畢業(yè)論文任務(wù)書及開題報(bào)告42四川城市職業(yè)學(xué)院畢業(yè)論文指導(dǎo)與初評(píng)意見43四川城市職業(yè)學(xué)

8、院畢業(yè)論文答辯記錄表46第一章 前 言1.1 本課題的意義隨著經(jīng)濟(jì)全球化發(fā)展、知識(shí)更新速度加快、國(guó)際企業(yè)的發(fā)展，企業(yè)員工培訓(xùn)將日益成為企業(yè)的一項(xiàng)重要業(yè)務(wù)?？梢哉f(shuō)，今后企業(yè)的競(jìng)爭(zhēng)將是企業(yè)員工素質(zhì)的競(jìng)爭(zhēng)。因此，開發(fā)一個(gè)功能先進(jìn)、完善的培訓(xùn)管理軟件來(lái)輔助企業(yè)管理培訓(xùn)業(yè)務(wù)是增強(qiáng)企業(yè)競(jìng)爭(zhēng)力的一項(xiàng)重要措施。1.2 當(dāng)前培訓(xùn)管理軟件的現(xiàn)狀近年來(lái)，有關(guān)員工培訓(xùn)管理的軟件很多。但大部分是培訓(xùn)中介組織的一項(xiàng)面向企業(yè)的服務(wù)，而且還是一些網(wǎng)絡(luò)版本。比如，在美國(guó)有ASTD-American Society for Training and Development、The Distance and Education T

9、raining Council Online、TCMs HR Careers、Resource Software 、Safety Software & Computer Based Training Software Skills Testing Software等；在國(guó)內(nèi)，網(wǎng)絡(luò)學(xué)校及其培訓(xùn)管理軟件比較盛行。但真正由企業(yè)自身組織的員工培訓(xùn)，據(jù)調(diào)查的資料可知，到目前為止只有一些國(guó)外國(guó)企業(yè)以及在中國(guó)的跨國(guó)企業(yè)，擁有自己的員工培訓(xùn)管理軟件，而且這些也只是作為企業(yè)其他軟件的一個(gè)組成部分出現(xiàn)，如摩托羅拉的員工培訓(xùn)管理就是其人力資源管理軟件的一個(gè)組成部分，且還只實(shí)現(xiàn)了員工個(gè)人信息管理很小的一部分功

10、能。在國(guó)內(nèi)企業(yè)中，盡管領(lǐng)導(dǎo)們都認(rèn)識(shí)到員工培訓(xùn)的重要性，也有一些企業(yè)采取了一些有益的措施。他們購(gòu)買了計(jì)算機(jī)，也建立起自己的內(nèi)部網(wǎng)，對(duì)員工培訓(xùn)管理采用了一些簡(jiǎn)單的應(yīng)用程序，但離使用計(jì)算機(jī)系統(tǒng)和專門軟件來(lái)管理還有一段距離。綜上所述，無(wú)論在國(guó)內(nèi)外，目前還沒有一套比較完善的、專門的、適用于各種企業(yè)自己使用的企業(yè)員工培訓(xùn)管理軟件。因此，研究開發(fā)出一套比較通用、功能比較完善的企業(yè)員工培訓(xùn)管理軟件，力求在這一領(lǐng)域取得一些新的成果。1.3 選擇本課題的目的企業(yè)在面臨全球化、高質(zhì)量、高效率的工作系統(tǒng)挑戰(zhàn)中，培訓(xùn)管理顯得更為重要。通過(guò)一個(gè)先進(jìn)的、完善的員工培訓(xùn)管理系統(tǒng)，使企業(yè)的培訓(xùn)工作系統(tǒng)化、規(guī)范化、自動(dòng)化，從而達(dá)

11、到提高企業(yè)培訓(xùn)管理效率的目的。培訓(xùn)使員工的知識(shí)、技能與態(tài)度明顯提高與改善，由此提高企業(yè)效益，獲得競(jìng)爭(zhēng)優(yōu)勢(shì)。具體體現(xiàn)在以下方面：1.能提高員工的職業(yè)能力。2.有利于企業(yè)獲得競(jìng)爭(zhēng)優(yōu)勢(shì)。3.有利于改善企業(yè)的工作質(zhì)量。4.有利于高效工作績(jī)效系統(tǒng)的構(gòu)建。5.滿足員工實(shí)現(xiàn)自我價(jià)值的需要。員工培訓(xùn)管理系統(tǒng)通過(guò)制定合理的培訓(xùn)計(jì)劃，運(yùn)用正確的方法收集相關(guān)的數(shù)據(jù)和信息，善于發(fā)現(xiàn)員工的績(jī)效現(xiàn)狀和公司管理層對(duì)員工的期望之間的差距，共同為提高企業(yè)績(jī)效而努力。此外,計(jì)算機(jī)管理系統(tǒng)具有檢索速度快、查找方便、可靠性高、保密性好等優(yōu)點(diǎn)。因此，開發(fā)本系統(tǒng)具有重要的意義。第二章 開發(fā)運(yùn)行環(huán)境及相關(guān)理論知識(shí)軟件環(huán)境：Windows

12、98/2000/XP/win7。硬件環(huán)境：Pentium 2 以上處理器。2.1運(yùn)行環(huán)境和開發(fā)工具及平臺(tái)軟件環(huán)境：Windows 98/2000/XP/win7。硬件環(huán)境：Pentium 2 以上處理器。微軟公司的Visual Basic 60。分布式的關(guān)系型數(shù)據(jù)庫(kù)管理系統(tǒng)-Microsoft SQL Server 2000。2.2 相關(guān)理論知識(shí)2.2.1 Visual Basic 60簡(jiǎn)介 微軟公司的Visual Basic 60是Windows應(yīng)用程序開發(fā)工具，是目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_發(fā)工具。Visual Basic提供了大量的控件，這些控件可用于設(shè)計(jì)界面和實(shí)現(xiàn)各種功能，減

13、少了編程人員的工作量，也簡(jiǎn)化了界面設(shè)計(jì)過(guò)程，從而有效的提高了應(yīng)用程序的運(yùn)行效率和可靠性。Microsoft Visual Basic，它提供了開發(fā) Microsoft Windows(R) 應(yīng)用程序的最迅速、最簡(jiǎn)捷的方法。不論是 Microsoft Windows 應(yīng)用程序的資深專業(yè)開發(fā)人員還是初學(xué)者，Visual Basic 都為他們提供了整套工具，以方便開發(fā)應(yīng)用程序。數(shù)據(jù)訪問特性允許對(duì)包括 Microsoft SQL Server 和其它企業(yè)數(shù)據(jù)庫(kù)在內(nèi)的大部分?jǐn)?shù)據(jù)庫(kù)格式建立數(shù)據(jù)庫(kù)和前端應(yīng)用程序，以及可調(diào)整的服務(wù)器端部件。故而，實(shí)現(xiàn)本系統(tǒng)VB是一個(gè)較好的選擇。2.2.2 關(guān)系型數(shù)據(jù)庫(kù)-SQL

14、信息技術(shù)的飛速發(fā)展大大推動(dòng)了社會(huì)的進(jìn)步，已經(jīng)逐漸改變了人類的生活、工作、學(xué)習(xí)等方式。數(shù)據(jù)庫(kù)技術(shù)和網(wǎng)絡(luò)技術(shù)是信息技術(shù)中最重要的兩大支柱。在當(dāng)前熱門的信息系統(tǒng)開發(fā)領(lǐng)域，Microsoft SQL Server 2000 由于不斷采納新技術(shù)來(lái)滿足用戶不斷增長(zhǎng)和變化的需求，該產(chǎn)品的功能越來(lái)越強(qiáng)大、系統(tǒng)的可靠性也越來(lái)越高，從而該產(chǎn)品的應(yīng)用也越來(lái)越廣泛。SQL是結(jié)構(gòu)化查詢語(yǔ)言（Struture Query Language）的簡(jiǎn)稱，是關(guān)系型數(shù)據(jù)庫(kù)管理系統(tǒng)中最流行的數(shù)據(jù)查詢和更新語(yǔ)言。用戶可使用SQL語(yǔ)言在數(shù)據(jù)庫(kù)中執(zhí)行各種操作。SQL查詢語(yǔ)言包括了所有對(duì)數(shù)據(jù)庫(kù)的操作，這些操作可以分為四個(gè)部分：即數(shù)據(jù)定義語(yǔ)言

15、、數(shù)據(jù)操縱語(yǔ)言、數(shù)據(jù)控制語(yǔ)言和嵌入式SQL 語(yǔ)言。Microsoft SQL Server 2000 是一個(gè)分布式的關(guān)系型數(shù)據(jù)庫(kù)管理系統(tǒng)，具有客戶機(jī)/服務(wù)器體系結(jié)構(gòu)，采用了一種稱為：Transact-SQL的SQL語(yǔ)言在客戶機(jī)和服務(wù)器之間傳遞客戶機(jī)的請(qǐng)求和服務(wù)器的處理結(jié)果。 Microsoft SQL Server 2000是一個(gè)應(yīng)用廣泛的數(shù)據(jù)庫(kù)管理系統(tǒng)，它為用戶提供了一個(gè)完整的數(shù)據(jù)庫(kù)解決方案，具有許多顯著的優(yōu)點(diǎn)，例如，用戶喜歡的易用性、適合分布式組織的可伸縮性、用于決策支持的數(shù)據(jù)倉(cāng)庫(kù)功能、與許多其他服務(wù)器軟件緊密關(guān)聯(lián)的集成性、良好的性能價(jià)格比等。Microsoft SQL Server 20

16、00的高度可擴(kuò)展性和高可靠性。Microsoft SQL Server 2000使用了業(yè)界最先進(jìn)的數(shù)據(jù)結(jié)構(gòu)，能夠?yàn)橐笞羁量痰腤eb應(yīng)用和企業(yè)應(yīng)用提供高度的可擴(kuò)展性和高可靠性。Microsoft SQL Server 2000在許多工業(yè)基準(zhǔn)測(cè)試中的性能都創(chuàng)立了新世界紀(jì)錄。2.2.3 二者的結(jié)合ADOADO（ActiveX Data Objects）是微軟提供的數(shù)據(jù)庫(kù)訪問技術(shù),實(shí)際上是一種訪問各種類型數(shù)據(jù)庫(kù)的連接機(jī)制。它被設(shè)計(jì)用來(lái)同新的數(shù)據(jù)訪問層OLE DB Provider一起協(xié)同工作，以提供通用數(shù)據(jù)訪問（Universal Data Access）能力。ADO設(shè)計(jì)為一種極簡(jiǎn)單的格式,通過(guò)OD

17、BC的方法同數(shù)據(jù)庫(kù)接口相連。用戶可以使用任何一種ODBC數(shù)據(jù)源, 即不僅適合于SQl SERVER,Oracle,Access等數(shù)據(jù)庫(kù)應(yīng)用程序,也適合于Excel表格，文本文件，圖形文件和無(wú)格式數(shù)據(jù)文件。ADO是基于OLEDB之上的技術(shù)。因此ADO通過(guò)其內(nèi)部的屬性和方法提供統(tǒng)一的數(shù)據(jù)訪問接口。ADO集中了DAO和RDO的優(yōu)點(diǎn)，可以使用相同的編程模式連接到不同的數(shù)據(jù)提供者，而不管給定提供者的特定特性，具有高度的靈活性。第三章 系統(tǒng)功能需求分析系統(tǒng)分析（又稱邏輯設(shè)計(jì)）是管理信息系統(tǒng)開發(fā)的關(guān)鍵環(huán)節(jié)，要求在系統(tǒng)調(diào)查的基礎(chǔ)上，對(duì)新系統(tǒng)的功能進(jìn)行細(xì)致的分析，并建立一個(gè)新系統(tǒng)的邏輯模型。系統(tǒng)分析階段主要任務(wù)

18、是確定系統(tǒng)的總體設(shè)計(jì)方案、劃分子系統(tǒng)功能、確定共享數(shù)據(jù)的組織，然后進(jìn)行詳細(xì)設(shè)計(jì)。員工培訓(xùn)管理系統(tǒng)功能需求主要有：?jiǎn)T工信息管理功能、培訓(xùn)計(jì)劃管理功能、課程信息管理功能、培訓(xùn)效果評(píng)價(jià)功能、查詢管理功能、及使用系統(tǒng)的用戶管理功能、還原數(shù)據(jù)和備份數(shù)據(jù)、幫助功能等。3.1 員工信息管理功能需求l 包括員工各種信息的輸入和刪除，包括員工基本信息、職稱、崗位、已經(jīng)培訓(xùn)過(guò)的課程和成績(jī)、培訓(xùn)計(jì)劃等。l 員工各種信息的查詢、修改，包括員工基本信息、職稱、崗位、幾經(jīng)培訓(xùn)過(guò)的課程和成績(jī)、培訓(xùn)計(jì)劃等。3.2 培訓(xùn)計(jì)劃管理及效果評(píng)價(jià)功能需求l 培訓(xùn)計(jì)劃的制定，包括培訓(xùn)項(xiàng)目、時(shí)間、地點(diǎn)等。l 培訓(xùn)計(jì)劃的查詢。l 培訓(xùn)效果評(píng)

19、價(jià)包括培訓(xùn)項(xiàng)目、及培訓(xùn)效果等。l 培訓(xùn)項(xiàng)目效果查詢。3.3 課程信息管理功能需求l 課程信息設(shè)置，包括課程基本信息和課程查詢，如課程編號(hào)、名稱、類型及課程描述等。l 課程培訓(xùn)需求，包括課程需求分析、課程需求名稱及需求刪除等。3.4 用戶查詢管理功能需求l 查詢管理功能包括培訓(xùn)計(jì)劃查詢、課程信息查詢、成績(jī)信息查詢和員工信息查詢。l 用戶管理包括用戶添加、用戶刪除和密碼修改等，用戶權(quán)限分系統(tǒng)管理員、超級(jí)用戶和普通用戶。3.7 文件功能需求l 文件功能包括備份數(shù)據(jù)庫(kù)、還原數(shù)據(jù)庫(kù)、及用戶注銷、退出系統(tǒng)等。第四章 系統(tǒng)總體設(shè)計(jì)方案4.1 系統(tǒng)功能總體方案我們采用面向?qū)ο蟮姆治龊驮O(shè)計(jì)方案，面向?qū)ο蠓治龊兔?/p>

20、向?qū)ο笤O(shè)計(jì)之間有密切的銜接關(guān)系，從面向?qū)ο蠓治龅矫嫦驅(qū)ο笤O(shè)計(jì)是一個(gè)逐漸擴(kuò)充模型的過(guò)程。分析處理是以問題為中心的，可以不考慮任何與特定計(jì)算機(jī)有關(guān)的問題，而面向?qū)ο笤O(shè)計(jì)則把我們帶進(jìn)了面向計(jì)算機(jī)的“實(shí)地”開發(fā)活動(dòng)中去。通常，面向?qū)ο笤O(shè)計(jì)分為兩個(gè)階段：高層設(shè)計(jì)和低層設(shè)計(jì)。高層設(shè)計(jì)包括像用戶界面那樣的問題解決部分，低層設(shè)計(jì)集中于類的詳細(xì)設(shè)計(jì)階段。通常，利用面向?qū)ο笤O(shè)計(jì)得到的系統(tǒng)框架如圖3-1所示：圖4-1 面向?qū)ο笤O(shè)計(jì)得到的系統(tǒng)框架圖4.2系統(tǒng)的目標(biāo)系統(tǒng)開發(fā)的總體任務(wù)是實(shí)現(xiàn)員工培訓(xùn)管理各種信息的系統(tǒng)化、規(guī)范化和自動(dòng)化。 主要包括：1、員工基本信息的查詢,刪除,修改和添加；2、員工成績(jī)信息的查詢, 刪除,

21、修改和添加；3、員工培訓(xùn)評(píng)價(jià)查詢, 刪除,修改和添加；4、員工培訓(xùn)計(jì)劃的信息和管理功能；5、員工信息報(bào)表打印功能；6、用戶權(quán)限的管理和用戶的添加,刪除；7、友好.方便.美觀的界面設(shè)計(jì)。4.3 系統(tǒng)的設(shè)計(jì)思想實(shí)用性:在各項(xiàng)基本功能實(shí)用的上進(jìn)一步開發(fā)完善系統(tǒng)；先進(jìn)性:簡(jiǎn)化代碼去處冗余,引入先進(jìn)的編譯方式；易用性:授權(quán)實(shí)體在需要時(shí)可以簡(jiǎn)單快捷的訪問數(shù)據(jù)；保密性:確保信息不暴露給未授權(quán)的實(shí)體或者進(jìn)程；系統(tǒng)性:將各功能模塊有機(jī)融合成一個(gè)系統(tǒng)的整體。培訓(xùn)管理系統(tǒng)培訓(xùn)需求管理 培訓(xùn)計(jì)劃管理基本信息管理培訓(xùn)計(jì)劃實(shí)施培訓(xùn)效果評(píng)價(jià)培訓(xùn)資源管理系統(tǒng)管理其他課程信息管理學(xué)員基本信息管理成績(jī)信息管理用戶管理權(quán)限管理4.

22、4 系統(tǒng)的功能模塊結(jié)構(gòu)圖4-1 系統(tǒng)功能模塊圖系統(tǒng)功能細(xì)分如圖4-1所示，可概括分為5個(gè)模塊，即：用戶登錄模塊，添加修改模塊，查詢顯示模塊、數(shù)據(jù)錄入模塊、打印報(bào)表模塊。1)用戶登錄模塊：完成用戶身份的驗(yàn)證,設(shè)定指定用戶的操作權(quán)限。2)添加修改模塊：完成各種對(duì)各種員工數(shù)據(jù)的添加和修改。3)查詢顯示模塊：根據(jù)不同的查詢條件對(duì)數(shù)據(jù)進(jìn)行挑選,進(jìn)一步加工后加以顯示。4)數(shù)據(jù)錄入模塊：將錄入數(shù)據(jù)保存到相應(yīng)的數(shù)據(jù)庫(kù)。5)打印報(bào)表模塊：將員工基本信息和培訓(xùn)計(jì)劃等以報(bào)表的方式打印出來(lái)。4.5 數(shù)據(jù)庫(kù)的設(shè)計(jì)在數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)的開發(fā)過(guò)程中，數(shù)據(jù)庫(kù)的結(jié)構(gòu)設(shè)計(jì)是一個(gè)非常重要的問題。數(shù)據(jù)庫(kù)結(jié)構(gòu)設(shè)計(jì)的好壞將直接對(duì)應(yīng)用系統(tǒng)的效

23、率以及實(shí)現(xiàn)的效果產(chǎn)生影響，好的數(shù)據(jù)庫(kù)結(jié)構(gòu)設(shè)計(jì)會(huì)減少數(shù)據(jù)庫(kù)的存儲(chǔ)量，數(shù)據(jù)的完整性和一致性比較高，系統(tǒng)具有較快的響應(yīng)速度，簡(jiǎn)化基于此數(shù)據(jù)庫(kù)的應(yīng)用程序的實(shí)現(xiàn)等。在數(shù)據(jù)庫(kù)系統(tǒng)開始設(shè)計(jì)的時(shí)候我們應(yīng)該盡量考慮全面，尤其應(yīng)該仔細(xì)考慮用戶的各種需求，避免浪費(fèi)人力和物力。4.5.1數(shù)據(jù)庫(kù)需求分析數(shù)據(jù)庫(kù)需求分析是數(shù)據(jù)庫(kù)結(jié)構(gòu)設(shè)計(jì)的第一個(gè)階段，是非常重要的一個(gè)階段。在這個(gè)階段主要是收集基本數(shù)據(jù)、數(shù)據(jù)結(jié)構(gòu)以及數(shù)據(jù)處理的流程，組成一份詳盡的數(shù)據(jù)字典，為以后進(jìn)一步設(shè)計(jì)打下基礎(chǔ)。在經(jīng)過(guò)仔細(xì)調(diào)查研究企業(yè)員工培訓(xùn)管理過(guò)程的基礎(chǔ)上，我們得到本系統(tǒng)所處理的數(shù)據(jù)流如圖42所示。圖4-2數(shù)據(jù)流程圖4.5.2數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì)這一設(shè)計(jì)階段

24、是在需求分析的基礎(chǔ)上，設(shè)計(jì)出能夠滿足用戶需求的各種褓，以及它們之間的關(guān)系，為后面的邏輯結(jié)構(gòu)設(shè)計(jì)打下基礎(chǔ)。由上面的設(shè)計(jì)規(guī)劃出的實(shí)體有：部門實(shí)體、員工實(shí)體、課程實(shí)體、資源實(shí)體。實(shí)體和實(shí)體之間的關(guān)系ER圖如圖43所示。圖4-3實(shí)體之間關(guān)系ER圖4.5.3數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì)數(shù)據(jù)庫(kù)共包括7個(gè)表，具體數(shù)據(jù)字典見表1-7。表4-1 course_info 課程信息表屬性名數(shù)據(jù)類型大小允許空說(shuō)明Course_NoInt4否課程號(hào)Course_NameChar10是課程名Course_TypeChar10是課程類型Course_DesChar15是課程注釋表4-2 course_need 培訓(xùn)需求分析表屬性名數(shù)

25、據(jù)類型大小允許空說(shuō)明Course_NameChar10否培訓(xùn)課程名Course_DesVarchar50是培訓(xùn)需求表4-3 plan_info 培訓(xùn)計(jì)劃表屬性名數(shù)據(jù)類型大小允許空說(shuō)明ProjectChar10否培訓(xùn)項(xiàng)目TimeDatetime8是培訓(xùn)時(shí)間PlaceChar10是培訓(xùn)地點(diǎn)表4-4 result_info員工成績(jī)表屬性名數(shù)據(jù)類型大小允許空說(shuō)明Exam_noChar10否考試編號(hào)Student_idInt4是員工號(hào)Student_nameChar10是員工名Course_noInt4是課程號(hào)Course_nameChar10是課程名ResultFloat8是成績(jī)表4-5 studen

26、t_info員工基本信息表屬性名數(shù)據(jù)類型大小允許空說(shuō)明Student_idInt4否員工號(hào)Student_nameChar10是員工名Student_sexChar2是性別Birth_dateDatetime8是出生日期DepartChar10是部門Tele_numberChar10是電話號(hào)碼In_dateDatetime8是就職日期AddressvarChar50是家庭地址CommentvarChar100是注釋表4-6 trainresult_info員工培訓(xùn)評(píng)價(jià)表屬性名數(shù)據(jù)類型大小允許空說(shuō)明Prochar10否培訓(xùn)項(xiàng)目EffectVarchar50是培訓(xùn)效果評(píng)價(jià)表4-7 user_inf

27、o 用戶密碼表屬性名數(shù)據(jù)類型大小允許空說(shuō)明user_idChar10否用戶iduser_pwdChar10是用戶密碼user_nameChar10是用戶名user_levelInt4是權(quán)限等級(jí)user_desChar10是用戶描述第五章 系統(tǒng)的具體設(shè)計(jì)5.1 歡迎主界面及代碼設(shè)計(jì)運(yùn)行員工培訓(xùn)管理系統(tǒng)后，首先將出現(xiàn)歡迎主界面，如下圖。圖5-1 歡迎主界面歡迎主界面實(shí)現(xiàn)的代碼設(shè)計(jì)如下：Dim DelayTime As Integer 定義計(jì)時(shí)器Private Sub Form_Load()DelayTime = 0Timer1.Enabled = TrueEnd SubPrivate Sub Ti

28、mer1_Timer()If DelayTime > 3 Then 延遲三秒載入登錄界面 Timer1.Enabled = False Load FrmLogin FrmLogin.Show Unload MeElse DelayTime = DelayTime + 1End IfEnd Sub5.2 登錄界面及代碼設(shè)計(jì)圖5-2 登錄界面登錄界面實(shí)現(xiàn)的代碼設(shè)計(jì)如下：Dim MyLogin As OpenRs 定義變量Dim UseridSQL As StringDim Level As IntegerPublic CurrentUser As StringPrivate Sub Cmdc

29、ancel_Click() 取消按鈕命令Unload Me 釋放當(dāng)前表End SubPrivate Sub cmdOK_Click() 確定密碼命令I(lǐng)f txtUserID.Text = "administrator" And txtPass.Text = "" Then Unload Me FrmMain.Show Exit SubEnd If 如權(quán)限符合,準(zhǔn)予登陸If txtUserID.Text = "" Then MsgBox "請(qǐng)輸入用戶編號(hào)！", vbOKOnly + vbInformation, &q

30、uot;用戶登陸" txtUserID.SetFocus Exit Sub 用戶為空時(shí)提示,聚焦Else UseridSQL = "select * from User_Info where user_Id='" & txtUserID.Text & "'" 用戶非空時(shí)啟用數(shù)據(jù)庫(kù)鏈接 MyLogin.rsDK1 UseridSQL 把sql語(yǔ)句傳給函數(shù) If MyLogin.rs1.EOF = False Then 列表未到底從數(shù)據(jù)庫(kù)中取值 txtUserName.Text = Trim(MyLogin.rs1!

31、user_name) Level = MyLogin.rs1!user_level If txtPass.Text = Trim(MyLogin.rs1!user_pwd) Then 密碼符合 CurrentUser = Trim(MyLogin.rs1!user_name) Call DisplayMenu Unload Me FrmMain.Show 載入主界面 Else MsgBox "密碼錯(cuò)誤！" & vbCrLf & vbCrLf & "請(qǐng)重新輸入！", vbOKOnly + vbInformation, "用

32、戶登陸" 密碼錯(cuò)誤提示 txtPass.Text = "" txtPass.SetFocus Exit Sub End If ElseMsgBox "用戶編號(hào)不存在！" & vbCrLf & vbCrLf & "請(qǐng)重新輸入！", vbOKOnly + vbInformation, "用戶登陸" 用戶不存在提示,清空聚焦 txtUserID.Text = "" txtUserID.SetFocus Exit Sub End IfEnd IfEnd SubPriva

33、te Sub Form_Load() Set MyLogin = New OpenRs 引用類函數(shù)End SubPrivate Sub txtPass_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then 輸密碼時(shí)回車確定 Call cmdOK_ClickEnd IfEnd SubPrivate Sub txtUserId_Change() 用戶名改變文本框清空txtPass.Text = ""txtUserName.Text = ""End SubPrivate Sub txtUserId_LostFoc

34、us() 焦點(diǎn)從用戶id轉(zhuǎn)移時(shí)從數(shù)據(jù)庫(kù)讀入用戶名UseridSQL = "select * from User_Info where user_Id='" & txtUserID.Text & "'" MyLogin.rsDK1 UseridSQL If MyLogin.rs1.EOF = False Then txtUserName.Text = Trim(MyLogin.rs1!user_name) End IfEnd SubPrivate Sub DisplayMenu() 設(shè)置用戶不同等級(jí)的訪問權(quán)限,不夠等級(jí)隱藏

35、If Level = 2 Then FrmMain.mnuBackUpDB.Visible = False FrmMain.mnuRestoreDB.Visible = False FrmMain.mnuAddUser.Visible = False FrmMain.mnuDeleteUser.Visible = FalseElseIf Level = 3 Then FrmMain.mnuBackUpDB.Visible = False FrmMain.mnuRestoreDB.Visible = False FrmMain.mnuUserManage.Visible = False FrmM

36、ain.mnuGrade.Visible = False FrmMain.mnuClass.Visible = False FrmMain.mnuCourseInfo.Visible = False FrmMain.mnuStudentInfo.Visible = False FrmMain.mnuResult.Visible = FalseEnd IfEnd Sub5.3 系統(tǒng)主界面及代碼設(shè)計(jì)用戶登錄后，將進(jìn)入系統(tǒng)主界面，如下圖：圖5-3 系統(tǒng)主界面系統(tǒng)主界面實(shí)現(xiàn)的代碼設(shè)計(jì)如下：Dim Myinfo As String 定義變量Dim success As LongPrivate Decla

37、re Function htmlhelp Lib "hhctrl.ocx" Alias "HtmlHelpA" (ByVal hwndCaller As Long, ByVal pszFile As String, ByVal uCommand As Long, ByVal dwData As Long) As LongPrivate Sub MDIForm_Load() Set Classprint = New OpenRs 調(diào)用類函數(shù)Timer1.Enabled = TrueDim mypanel As PanelSet mypanel = Stat

38、usBar1.Panels.Add(1, , , sbrDate) '狀態(tài)欄1顯示日期Set mypanel = StatusBar1.Panels.Add(2) '狀態(tài)欄2顯示星期幾Call MyWeekDaySet mypanel = StatusBar1.Panels.Add(3)StatusBar1.Panels(3).Text = "當(dāng)前用戶：" & FrmLogin.CurrentUsermypanel.AutoSize = sbrContentsSet mypanel = StatusBar1.Panels.Add(4) '狀態(tài)

39、欄3顯示文本消息mypanel.AutoSize = sbrSpringEnd SubPrivate Sub mnuAbout_Click() 設(shè)置說(shuō)明ShellAbout Me.hwnd, "員工培訓(xùn)管理系統(tǒng)", "版權(quán)所有(C)2005.6" & vbCrLf & "開發(fā):yeao", Me.IconEnd SubPrivate Sub mnuAddResult_Click() 以下定義菜單點(diǎn)擊觸發(fā)各模塊Frmresult.ShowEnd SubPrivate Sub mnuClassQuery_Click()Fr

40、mClassQuery.ShowEnd SubPrivate Sub mnuCourseQuery_Click()FrmCourseQuery.ShowEnd SubPrivate Sub mnuResultQuery_Click()FrmResultQuery.ShowEnd SubPrivate Sub mnuSchoolSet_Click()FrmSchoolInfo.ShowEnd SubPrivate Sub mnuSetClass_Click()FrmClassInfo.ShowEnd SubPrivate Sub mnuAddStudentInfo_Click()FrmAddSt

41、udentInfo.ShowEnd SubPrivate Sub mnuAddUser_Click()FrmAddUser.ShowEnd SubPrivate Sub mnuBackUpDB_Click()FrmBackUp.ShowEnd SubPrivate Sub mnuDeleteUser_Click()FrmDelUser.ShowEnd SubPrivate Sub mnuModiPwd_Click()FrmModiPass.ShowEnd SubPrivate Sub mnuExit_Click() 設(shè)置退出系統(tǒng)If MsgBox("要退出系統(tǒng)嗎？", vb

42、YesNo + vbInformation, "退出") = vbYes Then Unload FrmMainEnd IfEnd SubPrivate Sub mnuLogoff_Click() 設(shè)置注銷系統(tǒng)If MsgBox("要注銷系統(tǒng)嗎？", vbYesNo + vbInformation, "注銷") = vbYes Then Unload FrmMain FrmLogin.ShowEnd IfEnd SubPrivate Sub mnuRestoreDB_Click()If MsgBox("是否現(xiàn)在就執(zhí)行還原數(shù)據(jù)

43、庫(kù)的操作？", vbYesNo + vbInformation, "還原數(shù)據(jù)庫(kù)") = vbYes Then success = WritePrivateProfileString("BackUp", "Restore", "True", App.Path & "備份.ini")Unload MeShell "Restore.exe"End IfEnd SubPrivate Sub mnuSetCourse_Click()FrmGradecourse.Sho

44、wEnd SubPrivate Sub mnuSetCourseInfo_Click()FrmCourse.ShowEnd SubPrivate Sub mnuSetGrade_Click()FrmGradeInfo.ShowEnd SubPrivate Sub mnuStudentQuery_Click()FrmStuInfoQuery.ShowEnd SubPrivate Sub Timer1_Timer() 狀態(tài)欄移動(dòng)的歡迎辭If Myinfo = "" Then Myinfo = Space(85) & "歡迎使用員工培訓(xùn)管理系統(tǒng)！"En

45、d IfMyinfo = Right(Myinfo, Len(Myinfo) - 1)StatusBar1.Panels(4).Text = MyinfoEnd SubPrivate Sub MyWeekDay() 定義顯示日期函數(shù)Select Case Weekday(Date) Case 1 StatusBar1.Panels(2).Text = "星期日" Case 2 StatusBar1.Panels(2).Text = "星期一" Case 3 StatusBar1.Panels(2).Text = "星期二" Case

46、4 StatusBar1.Panels(2).Text = "星期三" Case 5 StatusBar1.Panels(2).Text = "星期四" Case 6 StatusBar1.Panels(2).Text = "星期五" Case 7 StatusBar1.Panels(2).Text = "星期六"End SelectEnd Sub5.4 用戶管理界面及代碼設(shè)計(jì)這里的用戶是指使用員工培訓(xùn)管理系統(tǒng)的用戶，其界面包括：添加和刪除用戶、數(shù)據(jù)還原和備份等；用戶按權(quán)限等級(jí)分系統(tǒng)管理員、超級(jí)用戶和普通用戶。系統(tǒng)

47、管理員擁有各級(jí)系統(tǒng)的全部使用功能；超級(jí)用戶與系統(tǒng)管理員相比，只不具備系統(tǒng)的數(shù)據(jù)還原和備份功能，其他功能與系統(tǒng)管理員一樣；而普通用戶只具有查詢管理功能。圖5-4 用戶管理界面用戶管理界面實(shí)現(xiàn)的代碼設(shè)計(jì)如下（這里以添加用戶為例）：Dim MyAddUser As OpenRs 調(diào)用類函數(shù)Dim Choose As BooleanDim Level As IntegerPrivate Sub Cmdcancel_Click() 設(shè)置取消鍵Unload MeEnd SubPrivate Sub cmdComp_Click() If Choose = False Then MsgBox "請(qǐng)選

48、擇一個(gè)操作級(jí)別！", vbOKOnly + vbInformation, "添加新用戶" Exit SubEnd IfMyAddUser.rs1.AddNew 增加一條連接到表的記錄集MyAddUser.rs1!user_id = Trim(txtUserid.Text) 把輸入框數(shù)據(jù)存入記錄集MyAddUser.rs1!user_name = Trim(txtUsername .Text)MyAddUser.rs1!user_des = Trim(txtUserdes.Text)MyAddUser.rs1!user_pwd = Trim(txtPwd1.Text

49、)MyAddUser.rs1!user_level = LevelMyAddUser.rs1.Update 更新存入表If MsgBox("添加用戶成功！" & vbCrLf & vbCrLf & "是否繼續(xù)添加用戶？", vbYesNo + vbQuestion, "添加用戶") = vbYes Then Frame3.Visible = False cmdComp.Visible = False Frame1.Visible = True cmdNext.Visible = True txtUserid.S

50、etFocus Call ClearTextElse Unload MeEnd IfEnd SubPrivate Sub cmdNext_Click() 設(shè)置下一步按鈕Choose = FalseDim txtUseridSQL As StringIf Trim(txtUserid.Text) = "" Then 用戶id為空重新輸入 MsgBox "用戶編號(hào)不能為空！", vbOKOnly + vbInformation, "提示" txtUserid.SetFocus Exit SubElse txtUseridSQL = &qu

51、ot;select * from User_Info" 從數(shù)據(jù)庫(kù)讀出用戶id驗(yàn)證 MyAddUser.rsDK1 txtUseridSQL While (MyAddUser.rs1.EOF = False) If Trim(MyAddUser.rs1!user_id) = Trim(txtUserid.Text) Then MsgBox "用戶編號(hào)已存在，請(qǐng)重新輸入用戶編號(hào)！", vbOKOnly + vbExclamation, "警告" txtUserid.Text = "" txtUsername.Text = &qu

52、ot;" txtUserdes.Text = "" txtUserid.SetFocus Exit Sub Else MyAddUser.rs1.MoveNext End If WendEnd IfIf txtUsername.Text = "" Then 用戶名為空提示 MsgBox "用戶名不能為空！", vbOKOnly + vbInformation, "提示" txtUsername.SetFocus Exit SubEnd IfFrame1.Visible = FalseFrame2.Visible = TruetxtPwd1.SetFocuscmdNext.Visible = FalsecmdNext1.Visible = TrueEnd SubPrivate Sub cmdNext1_Click() 密碼為空提示Dim i As Integer If txtPwd1.Text = ""