【正文】 ’添加按鈕的設(shè)置If = 添加(amp。取消選項按鈕選擇Option1(i).Value = FalseNext iChoose = FalseFor i = 0 To 9(i) = False = 1Next IEnd Sub 設(shè)置界面及代碼設(shè)計系統(tǒng)的設(shè)置界面包括：成績信息設(shè)置、課程基本信息設(shè)置、培訓(xùn)計劃添加、培訓(xùn)效果評價、課程培訓(xùn)需求、員工信息設(shè)置等。取消選項按鈕選擇Option1(i).Value = FalseNext i = 1End SubPrivate Sub Choose_level() ’各用戶等級權(quán)限設(shè)置Dim i As IntegerIf Option1(0).Value = True Then Level = 1 For i = 0 To 9 39。 vbCrLf amp。 是否繼續(xù)添加用戶？, vbYesNo + vbQuestion, 添加用戶) = vbYes Then = False = False = True = True Call ClearText Else Unload MeEnd IfEnd SubPrivate Sub cmdNext_Click() ’設(shè)置下一步按鈕Choose = FalseDim txtUseridSQL As StringIf Trim() = Then ’用戶id為空重新輸入 MsgBox 用戶編號不能為空！, vbOKOnly + vbInformation, 提示 Exit SubElse txtUseridSQL = select * from User_Info ’從數(shù)據(jù)庫讀出用戶id驗證 txtUseridSQL While ( = False) If Trim(!user_id) = Trim() Then MsgBox 用戶編號已存在，請重新輸入用戶編號！, vbOKOnly + vbExclamation, 警告 = = = Exit Sub Else End If WendEnd IfIf = Then ’用戶名為空提示 MsgBox 用戶名不能為空！, vbOKOnly + vbInformation, 提示 Exit SubEnd If = False = True = False = TrueEnd SubPrivate Sub cmdNext1_Click() ’密碼為空提示Dim i As Integer If = Then MsgBox 請輸入密碼！, vbOKOnly + vbInformation, 提示 Exit Sub End If If = Then MsgBox 請輸入確認密碼！, vbOKOnly + vbInformation, 提示 Exit Sub End If If Then ’密碼不一致提示 MsgBox 兩次輸入的密碼不一致?。?！ amp。 vbCrLf amp。系統(tǒng)管理員擁有各級系統(tǒng)的全部使用功能；超級用戶與系統(tǒng)管理員相比，只不具備系統(tǒng)的數(shù)據(jù)還原和備份功能，其他功能與系統(tǒng)管理員一樣；而普通用戶只具有查詢管理功能。 \)Unload MeShell End IfEnd SubPrivate Sub mnuSetCourse_Click()End SubPrivate Sub mnuSetCourseInfo_Click()End SubPrivate Sub mnuSetGrade_Click()End SubPrivate Sub mnuStudentQuery_Click()End SubPrivate Sub Timer1_Timer() ’狀態(tài)欄移動的歡迎辭If Myinfo = Then Myinfo = Space(85) amp。 vbCrLf amp。 = sbrContentsSet mypanel = (4) 39。狀態(tài)欄1顯示日期Set mypanel = (2) 39。 39。 amp。 vbCrLf amp。 請重新輸入！, vbOKOnly + vbInformation, 用戶登陸 ’ 密碼錯誤提示 = Exit Sub End If Else MsgBox 用戶編號不存在！ amp。 vbCrLf amp。 39。 amp。表41 course_info 課程信息表屬性名數(shù)據(jù)類型大小允許空說明Course_NoInt4否課程號Course_NameChar10是課程名Course_TypeChar10是課程類型Course_DesChar15是課程注釋表42 course_need 培訓(xùn)需求分析表屬性名數(shù)據(jù)類型大小允許空說明Course_NameChar10否培訓(xùn)課程名Course_DesVarchar50是培訓(xùn)需求表43 plan_info 培訓(xùn)計劃表屬性名數(shù)據(jù)類型大小允許空說明ProjectChar10否培訓(xùn)項目TimeDatetime8是培訓(xùn)時間PlaceChar10是培訓(xùn)地點表44 result_info員工成績表屬性名數(shù)據(jù)類型大小允許空說明Exam_noChar10否考試編號Student_idInt4是員工號Student_nameChar10是員工名Course_noInt4是課程號Course_nameChar10是課程名ResultFloat8是成績表45 student_info員工基本信息表屬性名數(shù)據(jù)類型大小允許空說明Student_idInt4否員工號Student_nameChar10是員工名Student_sexChar2是性別Birth_dateDatetime8是出生日期DepartChar10是部門Tele_numberChar10是電話號碼In_dateDatetime8是就職日期AddressvarChar50是家庭地址CommentvarChar100是注釋表46 trainresult_info員工培訓(xùn)評價表屬性名數(shù)據(jù)類型大小允許空說明Prochar10否培訓(xùn)項目EffectVarchar50是培訓(xùn)效果評價表47 user_info 用戶密碼表屬性名數(shù)據(jù)類型大小允許空說明user_idChar10否用戶iduser_pwdChar10是用戶密碼user_nameChar10是用戶名user_levelInt4是權(quán)限等級user_desChar10是用戶描述第五章 系統(tǒng)的具體設(shè)計 歡迎主界面及代碼設(shè)計運行員工培訓(xùn)管理系統(tǒng)后，首先將出現(xiàn)歡迎主界面，如下圖。實體和實體之間的關(guān)系E－R圖如圖4－3所示。圖42　數(shù)據(jù)流程圖這一設(shè)計階段是在需求分析的基礎(chǔ)上，設(shè)計出能夠滿足用戶需求的各種褓，以及它們之間的關(guān)系，為后面的邏輯結(jié)構(gòu)設(shè)計打下基礎(chǔ)。在這個階段主要是收集基本數(shù)據(jù)、數(shù)據(jù)結(jié)構(gòu)以及數(shù)據(jù)處理的流程，組成一份詳盡的數(shù)據(jù)字典，為以后進一步設(shè)計打下基礎(chǔ)。在數(shù)據(jù)庫系統(tǒng)開始設(shè)計的時候我們應(yīng)該盡量考慮全面，尤其應(yīng)該仔細考慮用戶的各種需求，避免浪費人力和物力。 數(shù)據(jù)庫的設(shè)計在數(shù)據(jù)庫應(yīng)用系統(tǒng)的開發(fā)過程中，數(shù)據(jù)庫的結(jié)構(gòu)設(shè)計是一個非常重要的問題。4)數(shù)據(jù)錄入模塊：將錄入數(shù)據(jù)保存到相應(yīng)的數(shù)據(jù)庫。2)添加修改模塊：完成各種對各種員工數(shù)據(jù)的添加和修改。培訓(xùn)管理系統(tǒng)培訓(xùn)需求管理 培訓(xùn)計劃管理　基本信息管理培訓(xùn)計劃實施培訓(xùn)效果評價培訓(xùn)資源管理系統(tǒng)管理其他課程信息管理學(xué)員基本信息管理成績信息管理用戶管理權(quán)限管理 系統(tǒng)的功能模塊結(jié)構(gòu)圖41 系統(tǒng)功能模塊圖系統(tǒng)功能細分如圖41所示，可概括分為5個模塊，即：用戶登錄模塊，添加修改模塊，查詢顯示模塊、數(shù)據(jù)錄入模塊、打印報表模塊。 主要包括：員工基本信息的查詢,刪除,修改和添加；員工成績信息的查詢, 刪除,修改和添加；員工培訓(xùn)評價查詢, 刪除,修改和添加；員工培訓(xùn)計劃的信息和管理功能；員工信息報表打印功能；用戶權(quán)限的管理和用戶的添加,刪除；高層設(shè)計包括像用戶界面那樣的問題解決部分，低層設(shè)計集中于類的詳細設(shè)計階段。分析處理是以問題為中心的，可以不考慮任何與特定計算機有關(guān)的問題，而面向?qū)ο笤O(shè)計則把我們帶進了面向計算機的“實地”開發(fā)活動中去。 文件功能需求l 文件功能包括備份數(shù)據(jù)庫、還原數(shù)據(jù)庫、及用戶注銷、退出系統(tǒng)等。 查詢管理功能需求l 查詢管理功能包括培訓(xùn)計劃查詢、課程信息查詢、成績信息查詢和員工信息查詢。 培訓(xùn)效果評價功能需求l 培訓(xùn)效果評價包括培訓(xùn)項目、及培訓(xùn)效果等。 課程信息管理功能需求l 課程信息設(shè)置，包括課程基本信息和課程查詢，如課程編號、名稱、類型及課程描述等。 培訓(xùn)計劃管理功能需求l 培訓(xùn)計劃的制定，包括培訓(xùn)項目、時間、地點等。 員工信息管理功能需求l 包括員工各種信息的輸入和刪除，包括員工基本信息、職稱、崗位、已經(jīng)培訓(xùn)過的課程和成績、培訓(xùn)計劃等。系統(tǒng)分析階段主要任務(wù)是確定系統(tǒng)的總體設(shè)計方案、劃分子系統(tǒng)功能、確定共享數(shù)據(jù)的組織，然后進行詳細設(shè)計。ADO集中了DAO和RDO的優(yōu)點，可以使用相同的編程模式連接到不同的數(shù)據(jù)提供者，而不管給定提供者的特定特性，具有高度的靈活性。ADO是基于OLE－DB之上的技術(shù)。ADO設(shè)計為一種極簡單的格式,通過ODBC的方法同數(shù)據(jù)庫接口相連。 二者的結(jié)合——ADOADO（ActiveX Data Objects）是微軟提供的數(shù)據(jù)庫訪問技術(shù),實際上是一種訪問各種類型數(shù)據(jù)庫的連接機制。Microsoft SQL Server 2000使用了業(yè)界最先進的數(shù)據(jù)結(jié)構(gòu)，能夠為要求最苛刻的Web應(yīng)用和企業(yè)應(yīng)用提供高度的可擴展性和高可靠性。 Microsoft SQL Server 2000是一個應(yīng)用廣泛的數(shù)據(jù)庫管理系統(tǒng)，它為用戶提供了一個完整的數(shù)據(jù)庫解決方案，具有許多顯著的優(yōu)點，例如，用戶喜歡的易用性、適合分布式組織的可伸縮性、用于決策支持的數(shù)據(jù)倉庫功能、與許多其他服務(wù)器軟件緊密關(guān)聯(lián)的集成性、良好的性能價格比等。SQL查詢語言包括了所有對數(shù)據(jù)庫的操作，這些操作可以分為四個部分：即數(shù)據(jù)定義語言、數(shù)據(jù)操縱語言、數(shù)據(jù)控制語言和嵌入式SQL 語言。SQL是結(jié)構(gòu)化查詢語言（Struture Query Language）的簡稱，是關(guān)系型數(shù)據(jù)庫管理系統(tǒng)中最流行的數(shù)據(jù)查詢和更新語言。數(shù)據(jù)庫技術(shù)和網(wǎng)絡(luò)技術(shù)是信息技術(shù)中最重要的兩大支柱。故而，實現(xiàn)本系統(tǒng)VB是一個較好的選擇。不論是 Microsoft Windows 應(yīng)用程序的資深專業(yè)開發(fā)人員還是初學(xué)者，Visual Basic 都為他們提供了整套工具，以方便開發(fā)應(yīng)用程序。Visual Basic提供了大量的控件，這些控件可用于設(shè)計界面和實現(xiàn)各種功能，減少了編程人員的工作量，也簡化了界面設(shè)計過程，從而有效的提高了應(yīng)用程序的運行效率和可靠性。分布式的關(guān)系型數(shù)據(jù)庫管理系統(tǒng)Microsoft SQL Server 2000。硬件環(huán)境：Pentium 2 以上處理器。因此，開發(fā)本系統(tǒng)具有重要的意義。員工培訓(xùn)管理系統(tǒng)通過制定合理的培訓(xùn)計劃，運用正確的方法收集相關(guān)的數(shù)據(jù)和信息，善于發(fā)現(xiàn)員工的績效現(xiàn)狀和公司管理層對員工的期望之間的差距，共同為提高企業(yè)績效而努