【正文】 ............................................. 44 數(shù)據(jù)測試項(xiàng)目 ................................................................ 44 測試報(bào)告 ...................................................................... 45 用戶登錄界面、系統(tǒng)主界面的測試 ............................................... 45 課程信息管理功能的測試 ....................................................... 45 系統(tǒng)性能分析 .................................................................. 47 第七章 結(jié)束語 .............................................................. 47 致 謝 ................................................................... 49 參考文獻(xiàn) ................................................................... 50 附錄：公用類模塊源代碼 ...................................................... 51 第一章 前 言 本課題的意義 隨著經(jīng)濟(jì)全球化發(fā)展、知識(shí)更新速度加快、國際企業(yè)的發(fā)展，企業(yè)員工培訓(xùn)將日 益成為企業(yè)的一項(xiàng)重要業(yè)務(wù)。但大部分是培訓(xùn)中介組織的一項(xiàng)面向企業(yè)的服務(wù)，而且還是一些網(wǎng)絡(luò)版本。 在國內(nèi)企業(yè)中，盡管領(lǐng)導(dǎo)們都認(rèn)識(shí)到員工培訓(xùn)的重要性，也有一些企業(yè)采取了一些有益的措施。 選擇本課題的目的 企業(yè)在面 臨全球化、高質(zhì)量、高效率的工作系統(tǒng)挑戰(zhàn)中，培訓(xùn) 管理 顯得更為重要。 。 員工培訓(xùn)管理系統(tǒng)通過制定合理的培訓(xùn)計(jì)劃，運(yùn)用正確的方法收集相關(guān)的數(shù)據(jù)和信息 ，善于發(fā)現(xiàn)員工的績效現(xiàn)狀和公司管理層對員工的期望之間的差距，共同為提高企業(yè)績效而努力。 硬件環(huán)境： Pentium 2 以上處理器。 Visual Basic 提供了大量的控件，這些控件可用于設(shè)計(jì)界面和實(shí)現(xiàn)各種功能，減少了編程人員的工作量，也簡化了界面設(shè)計(jì)過程，從而有效的提高了應(yīng)用程序的運(yùn)行效率和可靠性。 故而，實(shí)現(xiàn)本系統(tǒng) VB 是一個(gè)較好的選擇。 SQL是結(jié)構(gòu)化查詢語言（ Struture Query Language）的簡稱，是關(guān)系型數(shù)據(jù)庫管理系統(tǒng)中最流行的數(shù)據(jù)查詢和更新語言。 Microsoft SQL Server 2020是一個(gè)應(yīng)用廣泛的數(shù)據(jù)庫管理系統(tǒng)，它為用戶提供了一個(gè)完整的數(shù)據(jù)庫解決方案，具有許多顯著的優(yōu)點(diǎn)，例如，用戶喜歡的易用性、適合分布式組織的可伸縮性、用于決策支持的數(shù)據(jù)倉庫功能、與許多其他服務(wù)器軟件緊密關(guān)聯(lián)的集成性、良好的性能價(jià)格比等。 二者的結(jié)合 —— ADO ADO（ ActiveX Data Objects）是微軟提供的數(shù)據(jù)庫訪問技術(shù) ,實(shí)際上是一種訪問各種類型數(shù)據(jù)庫的連接機(jī)制 。 ADO是基于 OLE－ DB之上的技術(shù)。系統(tǒng)分析階段主要任務(wù)是確定系統(tǒng)的總體設(shè)計(jì)方案、劃分子系統(tǒng)功能、確定共享數(shù)據(jù)的組織，然后進(jìn)行詳細(xì)設(shè)計(jì)。 培訓(xùn)計(jì)劃管理功能需求 ? 培訓(xùn)計(jì)劃的制定，包括培訓(xùn)項(xiàng)目、時(shí)間、地點(diǎn)等。 培訓(xùn)效果評價(jià)功能需求 ? 培訓(xùn)效果評價(jià)包括培訓(xùn)項(xiàng)目、及培訓(xùn)效果等。 文件功能需求 ? 文件功能包括備份數(shù)據(jù)庫、還原數(shù)據(jù)庫、及用戶注銷、退出系統(tǒng)等。高層設(shè)計(jì)包括像用戶界面那樣的問題解決部分，低層設(shè)計(jì)集中于類的詳細(xì)設(shè)計(jì)階段。 系統(tǒng)的功能模塊結(jié)構(gòu) 圖 41 系統(tǒng)功能模塊圖 系統(tǒng)功能細(xì)分如圖 41所示，可概括分為 5個(gè)模塊，即：用戶登錄模塊，添加修改模塊，查詢顯示模塊、數(shù)據(jù)錄入模塊、打印報(bào)表模塊。 4)數(shù)據(jù)錄入模塊：將錄入數(shù)據(jù)保存到相應(yīng)的數(shù)據(jù)庫。 在數(shù)據(jù)庫系統(tǒng)開始設(shè)計(jì)的時(shí)候我們應(yīng)該盡量考慮全面，尤其應(yīng)該仔細(xì)考慮用戶的各種需求，避免浪費(fèi)人力和物力。 圖 42 數(shù)據(jù)流程圖 這一設(shè)計(jì)階段是在需求分析的基礎(chǔ)上，設(shè)計(jì)出能夠滿足用戶需求的各種褓，以及它們之間的關(guān)系，為后面的邏輯結(jié)構(gòu)設(shè)計(jì)打下基礎(chǔ)。 表 41 course_info 課程信息表 屬性名 數(shù)據(jù)類型 大小 允許空 說明 Course_No Int 4 否 課程號(hào) Course_Name Char 10 是 課程名 Course_Type Char 10 是 課程類型 Course_Des Char 15 是 課程注釋 表 42 course_need 培訓(xùn)需求分析表 屬性名 數(shù)據(jù)類型 大小 允許空 說明 Course_Name Char 10 否 培訓(xùn)課程名 Course_Des Varchar 50 是 培訓(xùn)需求 表 43 plan_info 培訓(xùn)計(jì)劃表 屬性名 數(shù)據(jù)類型 大小 允許空 說明 Project Char 10 否 培訓(xùn)項(xiàng)目 Time Datetime 8 是 培訓(xùn)時(shí)間 Place Char 10 是 培訓(xùn)地點(diǎn) 表 44 result_info員工成績表 屬性名 數(shù)據(jù)類型 大小 允許空 說明 Exam_no Char 10 否 考試編號(hào) Student_id Int 4 是 員工號(hào) Student_name Char 10 是 員工名 Course_no Int 4 是 課程號(hào) Course_name Char 10 是 課程名 Result Float 8 是 成績 表 45 student_info員工基本信息表 屬性名 數(shù)據(jù)類型 大小 允許空 說明 Student_id Int 4 否 員工號(hào) Student_name Char 10 是 員工名 Student_sex Char 2 是 性別 Birth_date Datetime 8 是 出生日 期 Depart Char 10 是 部門 Tele_number Char 10 是 電話號(hào)碼 In_date Datetime 8 是 就職日期 Address varChar 50 是 家庭地址 Comment varChar 100 是 注釋 表 46 trainresult_info員工培訓(xùn)評價(jià)表 屬性名 數(shù)據(jù)類型 大小 允許空 說明 Pro char 10 否 培訓(xùn)項(xiàng)目 Effect Varchar 50 是 培訓(xùn)效果評價(jià) 表 47 user_info 用戶密碼表 屬 性名 數(shù)據(jù)類型 大小 允許空 說明 user_id Char 10 否 用戶 id user_pwd Char 10 是 用戶密碼 user_name Char 10 是 用戶名 user_level Int 4 是 權(quán)限等級 user_des Char 10 是 用戶描述 第五章 系統(tǒng)的具體設(shè)計(jì) 歡迎主界面及代碼設(shè)計(jì) 運(yùn)行員工培訓(xùn)管理系統(tǒng)后，首先將出現(xiàn)歡迎主界面，如下圖。 39。 請重新輸入！ , vbOKOnly + vbInformation, 用戶登陸 ’ 密碼錯(cuò)誤 提示 = Exit Sub End If Else MsgBox 用戶編號(hào)不存在！ amp。 amp。狀態(tài)欄 1顯示日期 Set mypanel = (2) 39。 vbCrLf amp。系統(tǒng)管理員擁有各級系統(tǒng)的全部使用功能；超級用戶與系統(tǒng)管理員相比，只不具備系統(tǒng)的數(shù)據(jù)還原和備份功能，其他功能與系統(tǒng)管理員一樣；而普通用戶只 具有查詢管理功能。 是否繼續(xù)添加用戶？ , vbYesNo + vbQuestion, 添加用戶 ) = vbYes Then = False = False = True = True Call ClearText Else Unload Me End If End Sub Private Sub cmdNext_Click() ’ 設(shè)置下一步按鈕 Choose = False Dim txtUseridSQL As String If Trim() = Then ’ 用戶 id為空重新輸入 MsgBox 用戶編號(hào)不能為空！ , vbOKOnly + vbInformation, 提示 Exit Sub Else txtUseridSQL = select * from User_Info ’ 從數(shù)據(jù)庫讀出用戶 id驗(yàn)證 txtUseridSQL While ( = False) If Trim(!user_id) = Trim() Then MsgBox 用戶編號(hào)已存在，請重新輸入用戶編號(hào)！ , vbOKOnly + vbExclamation, 警告 = = = Exit Sub Else End If Wend End If If = Then ’ 用戶名為空提示 MsgBox 用戶名不能為空！ , vbOKOnly + vbInformation, 提示 Exit Sub End If = False = True = False = True End Sub Private Sub cmdNext1_Click() ’ 密碼為空提示 Dim i As Integer If = Then MsgBox 請輸入密碼！ , vbOKOnly + vbInformation, 提示 Exit Sub End If If = Then MsgBox 請輸入確認(rèn)密碼！ , vbOKOnly + vbInformation, 提示 Exit Sub End If If Then ’ 密碼不一致提示 MsgBox 兩次輸入的密碼不一致！??！ amp。取消選項(xiàng)按鈕選擇 Option1(i).Value = False Next i = 1 End Sub Private Sub Choose_level() ’ 各用戶等級權(quán)限設(shè)置 Dim i As Integer If Option1(0).Value = True Then Level = 1 For i = 0 To 9 39。聲明連接數(shù)據(jù)庫的類 Dim Change As Boolean Private Sub cboClass_Click() = = False End Sub Private Sub cboClass_KeyPress(KeyAscii As Integer) ’ 部門設(shè)置回車確定 If KeyAscii = 13 Then Else KeyAscii = 0 End If End Sub Private Sub cboSex_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Else KeyAscii = 0 End If End Sub Private Sub cmdAdd_Click()