【正文】 管理采用了一些簡單的應(yīng)用程序，但離使用計(jì)算機(jī)系統(tǒng)和專門軟件來管理還有一段距離。 通過一個(gè)先進(jìn)的、完善的員工培訓(xùn)管理系統(tǒng)，使企業(yè)的培訓(xùn)工作系統(tǒng)化、規(guī)范化、自動(dòng)化，從而達(dá)到提高企業(yè)培訓(xùn)管理效率的目的。 。此外 ,計(jì)算機(jī)管理系統(tǒng)具有檢索速度快、查找方便、可靠性高、保密性好等優(yōu)點(diǎn)。 開發(fā)工具及平臺(tái) 微軟公司的 Visual Basic 6． 0。 Microsoft Visual Basic，它提供了開發(fā) Microsoft Windows(R) 應(yīng)用程序的最迅速、最簡捷的方法。 關(guān)系型數(shù)據(jù)庫 SQL 信息技術(shù)的飛速發(fā)展大大推動(dòng)了社會(huì)的進(jìn)步，已經(jīng)逐漸改變了人類的生活、工作、學(xué)習(xí)等方式。用戶可使用 SQL語言在數(shù)據(jù)庫中執(zhí)行各種操作。 Microsoft SQL Server 2020的高度可擴(kuò)展性和高可靠性。它被設(shè)計(jì)用來同新的數(shù)據(jù)訪問層 OLE DB Provider一起協(xié)同工作，以提供通用數(shù)據(jù)訪問（ Universal Data Access）能力。因此 ADO通過其內(nèi)部的屬性和方法提供統(tǒng)一的數(shù)據(jù) 訪問 接口。 員工培訓(xùn)管理系統(tǒng)功能需求主要有：員工信息管理功能、培訓(xùn)計(jì)劃管理功能、課程信息管理功能、培訓(xùn)效果評(píng)價(jià)功能、查詢管理功能、及使用系統(tǒng)的用戶管理功能、還原數(shù)據(jù)和備份數(shù)據(jù)、幫助功能等。 ? 培訓(xùn)計(jì)劃的查詢。 ? 培訓(xùn)項(xiàng)目效果查詢。 第四章 系統(tǒng)總體設(shè)計(jì)方案 系統(tǒng)功能總體方案 我們采用面向?qū)ο蟮姆治龊驮O(shè)計(jì)方案，面向?qū)ο蠓治龊兔嫦驅(qū)ο笤O(shè)計(jì)之間有密切的銜接關(guān)系，從面向?qū)ο?分析到面向?qū)ο笤O(shè)計(jì)是一個(gè)逐漸擴(kuò)充模型的過程。 通常，利用面向?qū)ο笤O(shè)計(jì)得到的系統(tǒng)框架如圖 31所示： 圖 41 面向?qū)ο笤O(shè)計(jì)得到的系統(tǒng)框架圖 系統(tǒng)的目標(biāo) 系統(tǒng)開發(fā)的總體任務(wù)是實(shí)現(xiàn) 員工培訓(xùn)管理 各種信息的系統(tǒng)化、規(guī)范化和自動(dòng)化。 1)用戶登錄模塊：完成用戶身份的驗(yàn)證 ,設(shè)定指定用戶的操作權(quán)限。 5)打印報(bào)表模塊 ：將員工基本信息和培訓(xùn)計(jì)劃等以報(bào)表的方式打印出來。 數(shù)據(jù)庫需求分析是數(shù)據(jù)庫結(jié)構(gòu)設(shè)計(jì)的第一個(gè)階段，是 非常重要的一個(gè)階段。 由上面的設(shè)計(jì)規(guī)劃出的實(shí)體有：部門實(shí)體、員工實(shí)體、課程實(shí)體、資源實(shí)體。 圖 51 歡迎主界面 歡迎主界面代碼設(shè)計(jì) 歡迎主界面實(shí)現(xiàn)的代碼設(shè)計(jì)如下： Dim DelayTime As Integer ’ 定義計(jì)時(shí)器 Private Sub Form_Load() DelayTime = 0 = True End Sub Private Sub Timer1_Timer() If DelayTime 3 Then ’ 延遲三秒載入登錄界面 = False Load FrmLogin Unload Me Else DelayTime = DelayTime + 1 End If End Sub 登錄界面及代碼設(shè)計(jì) 圖 52 登錄界面 登錄界面代碼設(shè)計(jì) 登錄界面實(shí)現(xiàn)的代碼設(shè)計(jì)如下： Dim MyLogin As OpenRs ’ 定義變量 Dim UseridSQL As String Dim Level As Integer Public CurrentUser As String Private Sub Cmdcancel_Click() ’ 取消按鈕命令 Unload Me ’ 釋放當(dāng)前表 End Sub Private Sub cmdOK_Click() ’ 確定密碼命令 If = administrator And = Then Unload Me Exit Sub End If ’ 如權(quán)限符合 ,準(zhǔn)予登陸 If = Then MsgBox 請(qǐng)輸入用戶編號(hào)！ , vbOKOnly + vbInformation, 用戶登陸 Exit Sub ’ 用戶為空時(shí)提示 ,聚焦 Else UseridSQL = select * from User_Info where user_Id=39。 ’ 用戶非空時(shí)啟用數(shù)據(jù)庫鏈接 UseridSQL ’ 把 sql語句傳給函數(shù) If = False Then ’ 列表未到底從數(shù)據(jù)庫中取值 = Trim(!user_name) Level = !user_level If = Trim(!user_pwd) Then ’ 密碼符合 CurrentUser = Trim(!user_name) Call DisplayMenu Unload Me ’ 載入主界面 Else MsgBox 密碼錯(cuò)誤！ amp。 vbCrLf amp。 amp。狀態(tài)欄 2顯示星期幾 Call MyWeekDay Set mypanel = (3) (3).Text = 當(dāng)前用戶： amp。 開發(fā) :yeao, End Sub Private Sub mnuAddResult_Click() ’ 以下定義菜單點(diǎn)擊觸發(fā)各模塊 End Sub Private Sub mnuClassQuery_Click() End Sub Private Sub mnuCourseQuery_Click() End Sub Private Sub mnuResultQuery_Click() End Sub Private Sub mnuSchoolSet_Click() End Sub Private Sub mnuSetClass_Click() End Sub Private Sub mnuAddStudentInfo_Click() End Sub Private Sub mnuAddUser_Click() End Sub Private Sub mnuBackUpDB_Click() End Sub Private Sub mnuDeleteUser_Click() End Sub Private Sub mnuModiPwd_Click() End Sub Private Sub mnuExit_Click() ’ 設(shè)置退出系統(tǒng) If MsgBox(要退出系統(tǒng)嗎？ , vbYesNo + vbInformation, 退出 ) = vbYes Then Unload FrmMain End If End Sub Private Sub mnuLogoff_Click() ’ 設(shè)置 注銷系統(tǒng) If MsgBox(要注銷系統(tǒng)嗎？ , vbYesNo + vbInformation, 注銷 ) = vbYes Then Unload FrmMain End If End Sub Private Sub mnuRestoreDB_Click() If MsgBox(是否現(xiàn)在就執(zhí)行還原數(shù)據(jù)庫的操作？ , vbYesNo + vbInformation, 還原數(shù)據(jù)庫 ) = vbYes Then success = WritePrivateProfileString(BackUp, Restore, True, amp。 圖 54 用戶管理界面 界面代碼設(shè)計(jì) 用戶管理界面實(shí)現(xiàn)的代碼設(shè)計(jì)如下（這里以添加用戶為例）： Dim MyAddUser As OpenRs ’ 調(diào)用類函數(shù) Dim Choose As Boolean Dim Level As Integer Private Sub Cmdcancel_Click() ’ 設(shè)置取消鍵 Unload Me End Sub Private Sub cmdComp_Click() If Choose = False Then MsgBox 請(qǐng)選擇一個(gè)操作級(jí)別！ , vbOKOnly + vbInformation, 添加新用戶 Exit Sub End If ’ 增加一條連接到表的記錄集 !user_id = Trim() ’ 把輸入框數(shù)據(jù)存入記錄集 !user_name = Trim(txtUsername .Text) !user_des = Trim() !user_pwd = Trim() !user_level = Level ’ 更新存入表 If MsgBox(添加用戶成功！ amp。 vbCrLf amp。全選 (i) = True Next i = 1 ElseIf Option1(1).Value = True Then Level = 2 For i = 0 To 6 (i) = True Next i (7) = False (8) = False (9) = False = 1 ElseIf Option1(2).Value = True Then Level = 3 (0) = True (1) = True For i = 2 To 9 (i) = False Next i = 1 End If End Sub Private Sub Form_Load() Set MyAddUser = New OpenRs End Sub Private Sub Option1_Click(Index As Integer) Choose = True Call Choose_level End Sub Private Sub ClearText() Dim i As Integer = = = = = For i = 0 To 2 39。A) Then Call ClearText = 取消 (amp。S) = False = False End If End Sub Private Sub cmdDel_Click() ’ 刪除按鈕的設(shè)置 SELECT * FROM student_info where student_id=39。 ’ 把 sql語句傳遞給函數(shù) If MsgBox(確認(rèn)要?jiǎng)h除該記錄嗎？ , vbQuestion + vbOKCancel, 刪除記錄 ) = vbOK Then ’ 刪除記錄集 Else Exit Sub End If Call ClearText = 保存 (amp。 39。 39。U) = True = True sql Set = = | 編號(hào) | 姓名 |性別 | 出生日期 |部門 | 聯(lián)系電話 | 就職時(shí)間 | 家庭住址 | 注釋 End If End Sub Private Sub cmdReturn_Click() ’ 設(shè)置返回 SELECT * FROM student_info 39。 amp。A) = 保存 (amp。 3