【文章內(nèi)容簡介】 ypanel = (2) 39。狀態(tài)欄2顯示星期幾Call MyWeekDaySet mypanel = (3)(3).Text = 當(dāng)前用戶： amp。 = sbrContentsSet mypanel = (4) 39。狀態(tài)欄3顯示文本消息 = sbrSpringEnd SubPrivate Sub mnuAbout_Click() ’設(shè)置說明ShellAbout , 員工培訓(xùn)管理系統(tǒng), 版權(quán)所有(C) amp。 vbCrLf amp。 開發(fā):yeao, End SubPrivate Sub mnuAddResult_Click() ’以下定義菜單點擊觸發(fā)各模塊End SubPrivate Sub mnuClassQuery_Click()End SubPrivate Sub mnuCourseQuery_Click()End SubPrivate Sub mnuResultQuery_Click()End SubPrivate Sub mnuSchoolSet_Click()End SubPrivate Sub mnuSetClass_Click()End SubPrivate Sub mnuAddStudentInfo_Click()End SubPrivate Sub mnuAddUser_Click()End SubPrivate Sub mnuBackUpDB_Click()End SubPrivate Sub mnuDeleteUser_Click()End SubPrivate Sub mnuModiPwd_Click()End SubPrivate Sub mnuExit_Click() ’設(shè)置退出系統(tǒng)If MsgBox(要退出系統(tǒng)嗎？, vbYesNo + vbInformation, 退出) = vbYes Then Unload FrmMainEnd IfEnd SubPrivate Sub mnuLogoff_Click() ’ 設(shè)置注銷系統(tǒng)If MsgBox(要注銷系統(tǒng)嗎？, vbYesNo + vbInformation, 注銷) = vbYes Then Unload FrmMain End IfEnd SubPrivate Sub mnuRestoreDB_Click()If MsgBox(是否現(xiàn)在就執(zhí)行還原數(shù)據(jù)庫的操作？, vbYesNo + vbInformation, 還原數(shù)據(jù)庫) = vbYes Then success = WritePrivateProfileString(BackUp, Restore, True, amp。 \)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。 歡迎使用員工培訓(xùn)管理系統(tǒng)！End IfMyinfo = Right(Myinfo, Len(Myinfo) 1)(4).Text = MyinfoEnd SubPrivate Sub MyWeekDay() ’定義顯示日期函數(shù)Select Case Weekday(Date) Case 1 (2).Text = 星期日 Case 2 (2).Text = 星期一 Case 3 (2).Text = 星期二 Case 4 (2).Text = 星期三 Case 5 (2).Text = 星期四 Case 6 (2).Text = 星期五 Case 7 (2).Text = 星期六End SelectEnd Sub 用戶管理界面及代碼設(shè)計這里的用戶是指使用員工培訓(xùn)管理系統(tǒng)的用戶，其界面包括：添加和刪除用戶、數(shù)據(jù)還原和備份等；用戶按權(quán)限等級分系統(tǒng)管理員、超級用戶和普通用戶。系統(tǒng)管理員擁有各級系統(tǒng)的全部使用功能；超級用戶與系統(tǒng)管理員相比，只不具備系統(tǒng)的數(shù)據(jù)還原和備份功能，其他功能與系統(tǒng)管理員一樣；而普通用戶只具有查詢管理功能。圖54 用戶管理界面用戶管理界面實現(xiàn)的代碼設(shè)計如下（這里以添加用戶為例）：Dim MyAddUser As OpenRs ’調(diào)用類函數(shù)Dim Choose As BooleanDim Level As IntegerPrivate Sub Cmdcancel_Click() ’設(shè)置取消鍵Unload MeEnd SubPrivate Sub cmdComp_Click() If Choose = False Then MsgBox 請選擇一個操作級別！, vbOKOnly + vbInformation, 添加新用戶 Exit SubEnd 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。 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。 vbCrLf amp。 請重新輸入！, vbOKOnly + vbInformation, 提示 = = Exit Sub End If = False = True = False = TrueFor i = 0 To 2 39。取消選項按鈕選擇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。全選 (i) = True Next i = 1ElseIf Option1(1).Value = True Then Level = 2 For i = 0 To 6 (i) = True Next i (7) = False (8) = False (9) = False = 1ElseIf Option1(2).Value = True Then Level = 3 (0) = True (1) = True For i = 2 To 9 (i) = False Next i = 1End IfEnd SubPrivate Sub Form_Load()Set MyAddUser = New OpenRsEnd SubPrivate Sub Option1_Click(Index As Integer)Choose = TrueCall Choose_levelEnd SubPrivate Sub ClearText()Dim i As Integer = = = = = For i = 0 To 2 39。取消選項按鈕選擇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è)置等。圖55 設(shè)置界面設(shè)置界面實現(xiàn)的代碼設(shè)計如下（這里以員工基本信息設(shè)置為例，包括添加、修改、刪除和簡單查詢等）：Option ExplicitDim myModiStudent As New OpenRs 39。聲明連接數(shù)據(jù)庫的類Dim Change As BooleanPrivate Sub cboClass_Click() = = FalseEnd SubPrivate Sub cboClass_KeyPress(KeyAscii As Integer) ’部門設(shè)置回車確定If KeyAscii = 13 Then Else KeyAscii =