【正文】 39。 amp。 39。 ’ 把 sql語句傳遞給函數(shù) If MsgBox(確認要刪除該記錄嗎？ , vbQuestion + vbOKCancel, 刪除記錄 ) = vbOK Then ’ 刪除記錄集 Else Exit Sub End If Call ClearText = 保存 (amp。A) Then Call ClearText = 取消 (amp。 vbCrLf 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í)行還原數(shù)據(jù)庫的操作？ , vbYesNo + vbInformation, 還原數(shù)據(jù)庫 ) = vbYes Then success = WritePrivateProfileString(BackUp, Restore, True, amp。 amp。 ’ 用戶非空時啟用數(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 密碼錯誤！ amp。 由上面的設計規(guī)劃出的實體有：部門實體、員工實體、課程實體、資源實體。 5)打印報表模塊 ：將員工基本信息和培訓計劃等以報表的方式打印出來。 通常，利用面向?qū)ο笤O計得到的系統(tǒng)框架如圖 31所示： 圖 41 面向?qū)ο笤O計得到的系統(tǒng)框架圖 系統(tǒng)的目標 系統(tǒng)開發(fā)的總體任務是實現(xiàn) 員工培訓管理 各種信息的系統(tǒng)化、規(guī)范化和自動化。 ? 培訓項目效果查詢。 員工培訓管理系統(tǒng)功能需求主要有：員工信息管理功能、培訓計劃管理功能、課程信息管理功能、培訓效果評價功能、查詢管理功能、及使用系統(tǒng)的用戶管理功能、還原數(shù)據(jù)和備份數(shù)據(jù)、幫助功能等。它被設計用來同新的數(shù)據(jù)訪問層 OLE DB Provider一起協(xié)同工作，以提供通用數(shù)據(jù)訪問（ Universal Data Access）能力。用戶可使用 SQL語言在數(shù)據(jù)庫中執(zhí)行各種操作。 Microsoft Visual Basic，它提供了開發(fā) Microsoft Windows(R) 應用程序的最迅速、最簡捷的方法。此外 ,計算機管理系統(tǒng)具有檢索速度快、查找方便、可靠性高、保密性好等優(yōu)點。 通過一個先進的、完善的員工培訓管理系統(tǒng)，使企業(yè)的培訓工作系統(tǒng)化、規(guī)范化、自動化，從而達到提高企業(yè)培訓管理效率的目的。比如，在美國有 ASTDAmerican Society for Training and Development、 The Distance and Education Training Council Online、 TCM’ s HR Careers、 Resource Software 、 Safety Software amp。信息增長的速度越來越快，人們希望利用先進的管理理論方法和手段來處理越來越多的信息，員工培訓也是其中一 組成部分 ，想以提高工作管理水平。因此，開發(fā)一個功能先進、完善的培訓管理軟件來輔助企業(yè)管理培訓業(yè)務是增強企業(yè)競爭力的一項重要措施。綜上所述，無論在國內(nèi)外，目前還沒有一套比較完善的、專門的、適用于各種企業(yè)自己使用的企業(yè)員工培訓管理軟件。 。 分布式的關(guān)系型數(shù)據(jù)庫管理系統(tǒng) Microsoft SQL Server 2020。數(shù)據(jù)庫技術(shù)和網(wǎng)絡技術(shù)是信息技術(shù)中最重要的兩大支柱。 Microsoft SQL Server 2020使用了業(yè)界最先進的數(shù)據(jù)結(jié)構(gòu)，能夠為要求最苛刻的 Web應用和企業(yè)應用提供高度的可擴展性和高可靠性。 ADO集中了 DAO和 RDO的優(yōu)點， 可以使用相同的編程模式連接到不同的數(shù)據(jù) 提供者，而不管給定提供者的特定特性 ， 具有高度的靈活性。 課程信息管理功能需求 ? 課程信息設置，包括課程基本信息和課程查詢，如課程編號、名稱、類型及課程描述等。分析處理是以問題為中心的，可以不考慮任何與特定計算機有關(guān)的問題，而面向?qū)ο笤O計則把我們帶進了面向計算機的“實地”開發(fā)活動中去。 2)添加修改模塊：完成各種對各種員工數(shù)據(jù)的添加和修改。在這個階段主要是收集基本數(shù)據(jù)、數(shù)據(jù)結(jié)構(gòu)以及數(shù)據(jù)處理的流程，組成一份詳盡的數(shù)據(jù)字典，為以后進一步設計打下基礎。 amp。 vbCrLf amp。 = sbrContents Set mypanel = (4) 39。 vbCrLf amp。取消選項按鈕選擇 Option1(i).Value = False Next i Choose = False For i = 0 To 9 (i) = False = 1 Next I End Sub 設置界面及代碼設計 界面 系統(tǒng)的設置界面包括：成績信息設置、課程基本信息設置、培 訓計劃添加、培訓效果評價、課程培訓需求、員工信息設置等。 amp。 Else sql1 = End If If Then sql2 = and depart=39。If Not Then Set = = | 編號 | 姓名 |性別 | 出生日期 |部門 | 聯(lián)系電話| 就職時間 | 家庭住址 | 注釋 39。S) = False = False Else select * from student_info where student_id=39。A) = False = False End If = | 編號 | 姓名 |性別 | 出生日期 |部門 | 聯(lián)系電話 | 就職時間 | 家庭住址 | 注釋 SELECT * FROM student_info Set = End Sub Private。 If Not Then MsgBox id已存在 ,請重新輸入！ , vbOKOnly + vbInformation, 提示 = Exit Sub End If With ’ 添加指向表的數(shù)據(jù)集 .AddNew !student_id = ’ 輸入信息存入數(shù)據(jù)集 !student_name = !student_sex = !Birth_date = !depart = !tele_number = !in_date = !address = !ment = .Update ’ 更新保存 End With Set = ’ 設置指向數(shù)據(jù)源的數(shù)據(jù)集 = | 編號 | 姓名 |性別 | 出生日期 |部門 | 聯(lián)系電話| 就職時間 | 家庭住址 | 注釋 MsgBox 信息已成功添加！ , vbOKOnly + vbInformation, 員工信息添加 = False = 添加 (amp。 sql2 ’ 合并 sql語句 sql ’ 將 sql語句賦給函數(shù) If Then = | 編號 | 姓名 |性別 | 出生日期 |部門 | 聯(lián)系電話 | 就職時間 | 家庭住址 | 注釋 MsgBox 沒有找到符合條件的記錄！ , vbOKOnly + vbInformation, 提示 = ’ 設置 0記錄顯示 Else Set = = | 編號 | 姓名 |性別 | 出生日期 |部門 | 聯(lián)系電話 | 就職時間 | 家庭住址 | 注釋 = True Change = False ’ 找到記錄把其值傳給各輸入控件 = !student_name = !depart = !student_id = !student_sex = Format(!Birth_date, yyyymmdd) = !tele_number = Format(!in_date, yyyymmdd) = !address = !ment = True = 更新 (amp。 amp。A) = False = 保存 (amp。取消選項按鈕選擇 Option1(i).Value = False Next i = 1 End Sub Private Sub Choose_level() ’ 各用戶等級權(quán)限設置 Dim i As Integer If Option1(0).Value = True Then Level = 1 For i = 0 To 9 39。系統(tǒng)管理員擁有各級系統(tǒng)的全部使用功能；超級用戶與系統(tǒng)管理員相比，只不具備系統(tǒng)的數(shù)據(jù)還原和備份功能，其他功能與系統(tǒng)管理員一樣；而普通用戶只 具有查詢管理功能。狀態(tài)欄 1顯示日期 Set mypanel = (2) 39。 請重新輸入！ , vbOKOnly + vbInformation, 用戶登陸