【正文】 ’ 添加按鈕的設(shè)置 If = 添加 (amp。A) = False = 保存 (amp。 39。 amp。 amp。 sql2 ’ 合并 sql語句 sql ’ 將 sql語句賦給函數(shù) If Then = | 編號 | 姓名 |性別 | 出生日期 |部門 | 聯(lián)系電話 | 就職時間 | 家庭住址 | 注釋 MsgBox 沒有找到符合條件的記錄！ , vbOKOnly + vbInformation, 提示 = ’ 設(shè)置 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。S) Then select * from student_Info where student_id=39。 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è)置指向數(shù)據(jù)源的數(shù)據(jù)集 = | 編號 | 姓名 |性別 | 出生日期 |部門 | 聯(lián)系電話| 就職時間 | 家庭住址 | 注釋 MsgBox 信息已成功添加！ , vbOKOnly + vbInformation, 員工信息添加 = False = 添加 (amp。 amp。A) = False = False End If = | 編號 | 姓名 |性別 | 出生日期 |部門 | 聯(lián)系電話 | 就職時間 | 家庭住址 | 注釋 SELECT * FROM student_info Set = End Sub Private。 With !student_id = !student_name = !student_sex = !Birth_date = !depart = !tele_number = !in_date = !address = !ment = .Update ’ 成功保存數(shù)據(jù) End With MsgBox 信息已成功更新！ , vbOKOnly + vbInformation, 員工信息添加 = False = 保存 (amp。S) = False = False Else select * from student_info where student_id=39。 amp。If Not Then Set = = | 編號 | 姓名 |性別 | 出生日期 |部門 | 聯(lián)系電話| 就職時間 | 家庭住址 | 注釋 39。 Else sql2 = End If sql = SELECT * FROM student_info where 1=1 amp。 Else sql1 = End If If Then sql2 = and depart=39。S) = False = False SELECT * FROM student_info If Then ’ 如記錄為空只顯示列名 = | 編號 | 姓名 |性別 | 出生日期 |部門 | 聯(lián)系電話 | 就職時間 | 家庭住址 | 注釋 Else ’ 否則顯示所有數(shù)據(jù) Set = = | 編號 | 姓名 |性別 | 出生日期 |部門 | 聯(lián)系電話 | 就職時間 | 家庭住址 | 注釋 ’ 設(shè)置列表框的列頭 End If select * from student_info Set = = | 編號 | 姓名 |性別 | 出生日期 |部門 | 聯(lián)系電話 | 就職時間 | 家庭住址 | 注釋 End Sub Private Sub cmdExit_Click() ’ 退出設(shè)置 Unload Me End Sub Private Sub Cmdfind_Click() ’ 查詢設(shè)置 Dim sql As String Dim sql1 As String Dim sql2 As String If = Empty And = Empty Then MsgBox 請輸入查詢條件！ , vbOKOnly + vbInformation, 員工信息設(shè)置 Exit Sub End If If Then ’ 設(shè)置 sql各分支查詢語句 sql1 = and student_name=39。 amp。C) = True Change = True = 保存 (amp。取消選項按鈕選擇 Option1(i).Value = False Next i Choose = False For i = 0 To 9 (i) = False = 1 Next I End Sub 設(shè)置界面及代碼設(shè)計 界面 系統(tǒng)的設(shè)置界面包括：成績信息設(shè)置、課程基本信息設(shè)置、培 訓(xùn)計劃添加、培訓(xùn)效果評價、課程培訓(xùn)需求、員工信息設(shè)置等。 vbCrLf amp。 vbCrLf amp。 \備份 .ini) Unload Me Shell End If End Sub Private Sub mnuSetCourse_Click() End Sub Private Sub mnuSetCourseInfo_Click() End Sub Private Sub mnuSetGrade_Click() End Sub Private Sub mnuStudentQuery_Click() End Sub Private Sub Timer1_Timer() ’ 狀態(tài)欄移動的歡迎辭 If Myinfo = Then Myinfo = Space(85) amp。 = sbrContents Set mypanel = (4) 39。 39。 vbCrLf amp。 vbCrLf amp。 amp。 實體和實體之間的關(guān)系 E－ R圖如圖 4－ 3所示。在這個階段主要是收集基本數(shù)據(jù)、數(shù)據(jù)結(jié)構(gòu)以及數(shù)據(jù)處理的流程，組成一份詳盡的數(shù)據(jù)字典，為以后進一步設(shè)計打下基礎(chǔ)。 數(shù)據(jù)庫的設(shè)計 在數(shù)據(jù)庫應(yīng)用系統(tǒng)的開發(fā)過程中，數(shù)據(jù)庫的結(jié)構(gòu)設(shè)計是一個非常重要的問題。 2)添加修改模塊：完成各種對各種員工數(shù)據(jù)的添加和修改。 主要包括： 員工基本信息的查詢 ,刪除 ,修改和添加； 員工成績信息的查詢 , 刪除 ,修改和添加； 員工培訓(xùn)評價查詢 , 刪除 ,修改和添加； 員工培訓(xùn)計劃的信息和管理功能； 員工信息報表打印功能； 用戶權(quán)限的管理和用戶的添加 ,刪除； 友好 .方便 .美觀的界面設(shè)計。分析處理是以問題為中心的，可以不考慮任何與特定計算機有關(guān)的問題，而面向?qū)ο笤O(shè)計則把我們帶進了面向計算機的“實地”開發(fā)活動中去。 查詢管理功能需求 ? 查詢管理功能包括培訓(xùn)計劃查詢、課程信息查詢、成績信息查詢和員工信息查詢。 課程信息管理功能需求 ? 課程信息設(shè)置，包括課程基本信息和課程查詢，如課程編號、名稱、類型及課程描述等。 員工信息管理功能需求 ? 包括員工各種信息的輸入和刪除，包括員工基本信息、職稱、崗位、已經(jīng)培訓(xùn)過的課程和成績、培訓(xùn)計劃等。 ADO集中了 DAO和 RDO的優(yōu)點， 可以使用相同的編程模式連接到不同的數(shù)據(jù) 提供者，而不管給定提供者的特定特性 ， 具有高度的靈活性。 ADO設(shè)計為一種極簡單的格式 ,通過 ODBC的方法同數(shù)據(jù)庫接口相連 。 Microsoft SQL Server 2020使用了業(yè)界最先進的數(shù)據(jù)結(jié)構(gòu)，能夠為要求最苛刻的 Web應(yīng)用和企業(yè)應(yīng)用提供高度的可擴展性和高可靠性。 SQL查詢語言包括了所有對數(shù)據(jù)庫的操作，這些操作可以分為四個部分：即數(shù)據(jù)定義語言、數(shù)據(jù)操縱語言、數(shù)據(jù)控制語言和嵌入式 SQL 語言。數(shù)據(jù)庫技術(shù)和網(wǎng)絡(luò)技術(shù)是信息技術(shù)中最重要的兩大支柱。不論是 Microsoft Windows 應(yīng)用程序的資深專業(yè)開發(fā)人員還是初學(xué)者， Visual Basic 都為他們提供了整套工具，以方便開發(fā)應(yīng)用程序。 分布式的關(guān)系型數(shù)據(jù)庫管理系統(tǒng) Microsoft SQL Server 2020。因此，開發(fā)本系統(tǒng)具有重要的意義。 。 培訓(xùn)使員工的知識、技能與態(tài)度明顯提高與改善，由此提高企業(yè)效益，獲得競爭優(yōu)勢 。綜上所述，無論在國內(nèi)外，目前還沒有一套比較完善的、專門的、適用于各種企業(yè)自己使用的企業(yè)員工培訓(xùn)管理軟件。 Computer Based Training Software Skills Testing Software等；在國內(nèi)，網(wǎng)絡(luò)學(xué)校及其培訓(xùn)管理軟件比較盛行。因此，開發(fā)一個功能先進、完善的培訓(xùn)管理軟件來輔助企業(yè)管理培訓(xùn)業(yè)務(wù)是增強企業(yè)競爭力的一項重要措施。因此，學(xué)習(xí)與再學(xué)習(xí)始終伴隨著我們，其中有關(guān)的培訓(xùn)機構(gòu)有著 不 可替代的作用，在這種形勢下，如何更好的對培訓(xùn)工作進行管理，就成了我們需要解決的一個問題，因此，開發(fā)一套完善的員工培訓(xùn)管理系統(tǒng)就成不可少了，本文介紹了在 visual basic 環(huán)境下利用其提 供的各種面向?qū)ο蟮拈_發(fā)工具開發(fā)本系統(tǒng)的詳細過程，從軟件工程的角度進行了科學(xué)而嚴謹?shù)年U述。信息增長的速度越來越快，人們希望利用先進的管理理論方法和手段來處理越來越多的信息，員工培訓(xùn)也是其中一 組成部分 ，想以提高工作管理水平?？梢哉f，今后企業(yè)的競爭將是企業(yè)員工素質(zhì)的競爭。比如，在美國有 ASTDAmerican Society for Training and Development、 The Distance and Education Training Council Online、 TCM’ s HR Careers、 Resource Software 、 Safety Software amp。他們購買了計算機，也建立起自己的內(nèi)部網(wǎng)，對員工培訓(xùn)