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