員工培訓管理系統(tǒng)(共43頁)

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

2、其提供的各種面向對象的開發(fā)工具開發(fā)本系統(tǒng)的詳細過程，從軟件工程的角度進行了科學而嚴謹?shù)年U述。關鍵詞：員工培訓；管理系統(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 當前培訓管理軟件的現(xiàn)狀41.3 選擇本課題的目的4第二章 開發(fā)運行環(huán)境及相關理論知識52.1運行環(huán)境和開發(fā)工具及平臺52.2 相關理論知識52.2.1 Visual Basic 60簡介52.2.2 關系型數(shù)據庫-SQL62.2.3 二者的結合ADO6第三章 系統(tǒng)功能需求分析73.1 員工信息管理功能需求73.2 培訓計劃管理及效果評價功能需求73.3 課程信息管理功能需求83.4 用戶查詢管理功能需求83.7 文件功能需求8第四章 系統(tǒng)總體設計方案84.1 系統(tǒng)功能總體方案84.2系統(tǒng)的目標94.3 系統(tǒng)的設計思想94.4 系統(tǒng)的功能模塊結構94.5 數(shù)據庫的設計104.5.1數(shù)據庫需

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

8、院畢業(yè)論文答辯記錄表46第一章 前 言1.1 本課題的意義隨著經濟全球化發(fā)展、知識更新速度加快、國際企業(yè)的發(fā)展，企業(yè)員工培訓將日益成為企業(yè)的一項重要業(yè)務。可以說，今后企業(yè)的競爭將是企業(yè)員工素質的競爭。因此，開發(fā)一個功能先進、完善的培訓管理軟件來輔助企業(yè)管理培訓業(yè)務是增強企業(yè)競爭力的一項重要措施。1.2 當前培訓管理軟件的現(xiàn)狀近年來，有關員工培訓管理的軟件很多。但大部分是培訓中介組織的一項面向企業(yè)的服務，而且還是一些網絡版本。比如，在美國有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等；在國內，網絡學校及其培訓管理軟件比較盛行。但真正由企業(yè)自身組織的員工培訓，據調查的資料可知，到目前為止只有一些國外國企業(yè)以及在中國的跨國企業(yè)，擁有自己的員工培訓管理軟件，而且這些也只是作為企業(yè)其他軟件的一個組成部分出現(xiàn)，如摩托羅拉的員工培訓管理就是其人力資源管理軟件的一個組成部分，且還只實現(xiàn)了員工個人信息管理很小的一部分功

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

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

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

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

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

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

16、00的高度可擴展性和高可靠性。Microsoft SQL Server 2000使用了業(yè)界最先進的數(shù)據結構，能夠為要求最苛刻的Web應用和企業(yè)應用提供高度的可擴展性和高可靠性。Microsoft SQL Server 2000在許多工業(yè)基準測試中的性能都創(chuàng)立了新世界紀錄。2.2.3 二者的結合ADOADO（ActiveX Data Objects）是微軟提供的數(shù)據庫訪問技術,實際上是一種訪問各種類型數(shù)據庫的連接機制。它被設計用來同新的數(shù)據訪問層OLE DB Provider一起協(xié)同工作，以提供通用數(shù)據訪問（Universal Data Access）能力。ADO設計為一種極簡單的格式,通過OD

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

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

19、價包括培訓項目、及培訓效果等。l 培訓項目效果查詢。3.3 課程信息管理功能需求l 課程信息設置，包括課程基本信息和課程查詢，如課程編號、名稱、類型及課程描述等。l 課程培訓需求，包括課程需求分析、課程需求名稱及需求刪除等。3.4 用戶查詢管理功能需求l 查詢管理功能包括培訓計劃查詢、課程信息查詢、成績信息查詢和員工信息查詢。l 用戶管理包括用戶添加、用戶刪除和密碼修改等，用戶權限分系統(tǒng)管理員、超級用戶和普通用戶。3.7 文件功能需求l 文件功能包括備份數(shù)據庫、還原數(shù)據庫、及用戶注銷、退出系統(tǒng)等。第四章 系統(tǒng)總體設計方案4.1 系統(tǒng)功能總體方案我們采用面向對象的分析和設計方案，面向對象分析和面

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

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

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

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

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

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

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

27、o 用戶密碼表屬性名數(shù)據類型大小允許空說明user_idChar10否用戶iduser_pwdChar10是用戶密碼user_nameChar10是用戶名user_levelInt4是權限等級user_desChar10是用戶描述第五章 系統(tǒng)的具體設計5.1 歡迎主界面及代碼設計運行員工培訓管理系統(tǒng)后，首先將出現(xiàn)歡迎主界面，如下圖。圖5-1 歡迎主界面歡迎主界面實現(xiàn)的代碼設計如下：Dim DelayTime As Integer 定義計時器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 登錄界面及代碼設計圖5-2 登錄界面登錄界面實現(xiàn)的代碼設計如下：Dim MyLogin As OpenRs 定義變量Dim UseridSQL As StringDim Level As IntegerPublic CurrentUser As StringPrivate Sub Cmdc

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

30、uot;用戶登陸" txtUserID.SetFocus Exit Sub 用戶為空時提示,聚焦Else UseridSQL = "select * from User_Info where user_Id='" & txtUserID.Text & "'" 用戶非空時啟用數(shù)據庫鏈接 MyLogin.rsDK1 UseridSQL 把sql語句傳給函數(shù) If MyLogin.rs1.EOF = False Then 列表未到底從數(shù)據庫中取值 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 "密碼錯誤！" & vbCrLf & vbCrLf & "請重新輸入！", vbOKOnly + vbInformation, "用

32、戶登陸" 密碼錯誤提示 txtPass.Text = "" txtPass.SetFocus Exit Sub End If ElseMsgBox "用戶編號不存在！" & vbCrLf & vbCrLf & "請重新輸入！", 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 輸密碼時回車確定 Call cmdOK_ClickEnd IfEnd SubPrivate Sub txtUserId_Change() 用戶名改變文本框清空txtPass.Text = ""txtUserName.Text = ""End SubPrivate Sub txtUserId_LostFoc

34、us() 焦點從用戶id轉移時從數(shù)據庫讀入用戶名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() 設置用戶不同等級的訪問權限,不夠等級隱藏

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)主界面及代碼設計用戶登錄后，將進入系統(tǒng)主界面，如下圖：圖5-3 系統(tǒng)主界面系統(tǒng)主界面實現(xiàn)的代碼設計如下：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 調用類函數(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 = "當前用戶：" & FrmLogin.CurrentUsermypanel.AutoSize = sbrContentsSet mypanel = StatusBar1.Panels.Add(4) '狀態(tài)

39、欄3顯示文本消息mypanel.AutoSize = sbrSpringEnd SubPrivate Sub mnuAbout_Click() 設置說明ShellAbout Me.hwnd, "員工培訓管理系統(tǒng)", "版權所有(C)2005.6" & vbCrLf & "開發(fā):yeao", Me.IconEnd SubPrivate Sub mnuAddResult_Click() 以下定義菜單點擊觸發(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() 設置退出系統(tǒng)If MsgBox("要退出系統(tǒng)嗎？", vb

42、YesNo + vbInformation, "退出") = vbYes Then Unload FrmMainEnd IfEnd SubPrivate Sub mnuLogoff_Click() 設置注銷系統(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ù)據

43、庫的操作？", vbYesNo + vbInformation, "還原數(shù)據庫") = 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)欄移動的歡迎辭If Myinfo = "" Then Myinfo = Space(85) & "歡迎使用員工培訓管理系統(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 用戶管理界面及代碼設計這里的用戶是指使用員工培訓管理系統(tǒng)的用戶，其界面包括：添加和刪除用戶、數(shù)據還原和備份等；用戶按權限等級分系統(tǒng)管理員、超級用戶和普通用戶。系統(tǒng)

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

48、擇一個操作級別！", vbOKOnly + vbInformation, "添加新用戶" Exit SubEnd IfMyAddUser.rs1.AddNew 增加一條連接到表的記錄集MyAddUser.rs1!user_id = Trim(txtUserid.Text) 把輸入框數(shù)據存入記錄集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() 設置下一步按鈕Choose = FalseDim txtUseridSQL As StringIf Trim(txtUserid.Text) = "" Then 用戶id為空重新輸入 MsgBox "用戶編號不能為空！", vbOKOnly + vbInformation, "提示" txtUserid.SetFocus Exit SubElse txtUseridSQL = &qu

51、ot;select * from User_Info" 從數(shù)據庫讀出用戶id驗證 MyAddUser.rsDK1 txtUseridSQL While (MyAddUser.rs1.EOF = False) If Trim(MyAddUser.rs1!user_id) = Trim(txtUserid.Text) Then MsgBox "用戶編號已存在，請重新輸入用戶編號！", 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 = ""