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