【正文】 ________ Exit Sub ElseIf Format(, yyyy/mm/dd) Format(Date, yyyy/mm/dd) Then MsgBox 出生日期不能大于今日 ,請(qǐng)重新輸入 ！ , vbInformation, 提示 Exit Sub ElseIf Format(, yyyy/mm/dd) Format(1/1/1900, yyyy/mm/dd) Then MsgBox 生出日期不能小于 1900年 ,請(qǐng)重新輸入！ , vbInformation, 提示 = ________ Exit Sub End If If = Empty Then MsgBox 請(qǐng)輸入就職時(shí)間！ , vbInformation, 提示 Exit Sub End If If Not IsDate(txtInDate) Then MsgBox 就職時(shí)間不是有效日期 ,請(qǐng)重新輸入！ , vbInformation, 提示 = ________ Exit Sub ElseIf Format(, yyyy/mm/dd) Format(Date, yyyy/mm/dd) Then MsgBox 就職日期不能大于今日 ,請(qǐng)重新輸入！ , vbInformation, 提示 = ________ Exit Sub ElseIf Format(, yyyy/mm/dd) Format(1/1/1900, yyyy/mm/dd) Then MsgBox 就職日期不能小于 1900年 ,請(qǐng)重新輸入！ , vbInformation, 提示 = ________ Exit Sub End If If = Empty Then If MsgBox(聯(lián)系電話是否為空 ?, vbYesNo + vbQuestion, 提示 ) = vbNo Then Exit Sub Else = 無 End If End If If = Empty Then MsgBox 請(qǐng)輸入家庭地址！ , vbInformation, 提示 Exit Sub End If If = Empty Then = 無 End If If = 保存 (amp。 amp。 amp。 圖 55 設(shè)置界面 界面代碼設(shè)計(jì) 設(shè)置界面實(shí)現(xiàn)的代碼設(shè)計(jì)如下（這里以員工基本信息設(shè)置為例，包括添加、修改、刪除和簡(jiǎn)單查詢等）： Option Explicit Dim myModiStudent As New OpenRs 39。 vbCrLf amp。狀態(tài)欄 3顯示文本消息 = sbrSpring End Sub Private Sub mnuAbout_Click() ’ 設(shè)置說明 ShellAbout , 員工培訓(xùn)管理系統(tǒng) , 版權(quán)所有 (C) amp。 請(qǐng)重新輸入！ , vbOKOnly + vbInformation, 用戶登陸 ’ 用戶不存在 提示 ,清空聚焦 = Exit Sub End If End If End Sub Private Sub Form_Load() Set MyLogin = New OpenRs ’ 引用類函數(shù) End Sub Private Sub txtPass_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then ’ 輸密碼時(shí)回車確定 Call cmdOK_Click End If End Sub Private Sub txtUserId_Change() ’ 用戶名改變文本框清空 = = End Sub Private Sub txtUserId_LostFocus() ’ 焦點(diǎn)從用戶 id轉(zhuǎn)移時(shí)從數(shù)據(jù)庫讀入用戶名 UseridSQL = select * from User_Info where user_Id=39。 amp。 在經(jīng)過仔細(xì)調(diào)查研究企業(yè)員工培訓(xùn)管理過程的基礎(chǔ)上，我們得到本系統(tǒng)所處理的數(shù)據(jù)流如圖 4－ 2所示。 3)查詢顯示模塊：根據(jù)不同的查詢條件對(duì)數(shù)據(jù)進(jìn)行挑選 ,進(jìn)一步加工后加以顯示。通常，面向?qū)ο笤O(shè)計(jì)分為兩個(gè)階段：高層設(shè)計(jì)和低層設(shè)計(jì)。 ? 課程培訓(xùn)需求，包括課程需求分析、課程需求名稱及需求刪除等。 第三章 系統(tǒng)功能需求分析 系統(tǒng)分析（又稱邏輯設(shè)計(jì)）是管理信息系統(tǒng)開發(fā)的關(guān)鍵環(huán)節(jié)，要求在系統(tǒng)調(diào)查的基礎(chǔ)上，對(duì)新系統(tǒng)的功能進(jìn)行細(xì)致的分析，并建立一個(gè)新系統(tǒng)的邏輯模型。 Microsoft SQL Server 2020在許多工業(yè)基準(zhǔn)測(cè)試中的性能都創(chuàng)立了新世界紀(jì)錄。在當(dāng)前熱門的信息 系統(tǒng)開發(fā)領(lǐng)域， Microsoft SQL Server 2020 由于不斷采納新技術(shù)來滿足用戶不斷增長(zhǎng)和變化的需求，該產(chǎn)品的功能越來越強(qiáng)大、系統(tǒng)的可靠性也越來越高，從而該產(chǎn)品的應(yīng)用也越來越廣泛。 相關(guān)理論 知識(shí) Visual Basic 6． 0簡(jiǎn)介 微軟公司的 Visual Basic 6． 0是 Windows 應(yīng)用程序開發(fā)工具，是目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_發(fā)工具。 。因此，研究開發(fā)出一套比較通用、功能比較完善的企業(yè)員工培訓(xùn)管理軟件，力求在這一領(lǐng)域取得一些新的成果。 當(dāng)前培訓(xùn)管理軟件的現(xiàn)狀 近年來，有關(guān)員工培訓(xùn)管理的軟件很多。員工培訓(xùn)管理系統(tǒng)的實(shí)現(xiàn) 摘要及關(guān)鍵詞 隨著人類社會(huì)的發(fā)展，社會(huì)不斷的在進(jìn)步 ， 對(duì)知識(shí)的渴望越來越大 ， 人類已經(jīng)逐步進(jìn)入信息化社會(huì)。但大部分是培訓(xùn)中介組織的一項(xiàng)面向企業(yè)的服務(wù)，而且還是一些網(wǎng)絡(luò)版本。 選擇本課題的目的 企業(yè)在面 臨全球化、高質(zhì)量、高效率的工作系統(tǒng)挑戰(zhàn)中，培訓(xùn) 管理 顯得更為重要。 員工培訓(xùn)管理系統(tǒng)通過制定合理的培訓(xùn)計(jì)劃，運(yùn)用正確的方法收集相關(guān)的數(shù)據(jù)和信息 ，善于發(fā)現(xiàn)員工的績(jī)效現(xiàn)狀和公司管理層對(duì)員工的期望之間的差距，共同為提高企業(yè)績(jī)效而努力。 Visual Basic 提供了大量的控件，這些控件可用于設(shè)計(jì)界面和實(shí)現(xiàn)各種功能，減少了編程人員的工作量，也簡(jiǎn)化了界面設(shè)計(jì)過程，從而有效的提高了應(yīng)用程序的運(yùn)行效率和可靠性。 SQL是結(jié)構(gòu)化查詢語言（ Struture Query Language）的簡(jiǎn)稱，是關(guān)系型數(shù)據(jù)庫管理系統(tǒng)中最流行的數(shù)據(jù)查詢和更新語言。 二者的結(jié)合 —— ADO ADO（ ActiveX Data Objects）是微軟提供的數(shù)據(jù)庫訪問技術(shù) ,實(shí)際上是一種訪問各種類型數(shù)據(jù)庫的連接機(jī)制 。系統(tǒng)分析階段主要任務(wù)是確定系統(tǒng)的總體設(shè)計(jì)方案、劃分子系統(tǒng)功能、確定共享數(shù)據(jù)的組織，然后進(jìn)行詳細(xì)設(shè)計(jì)。 培訓(xùn)效果評(píng)價(jià)功能需求 ? 培訓(xùn)效果評(píng)價(jià)包括培訓(xùn)項(xiàng)目、及培訓(xùn)效果等。高層設(shè)計(jì)包括像用戶界面那樣的問題解決部分，低層設(shè)計(jì)集中于類的詳細(xì)設(shè)計(jì)階段。 4)數(shù)據(jù)錄入模塊：將錄入數(shù)據(jù)保存到相應(yīng)的數(shù)據(jù)庫。 圖 42 數(shù)據(jù)流程圖 這一設(shè)計(jì)階段是在需求分析的基礎(chǔ)上，設(shè)計(jì)出能夠滿足用戶需求的各種褓，以及它們之間的關(guān)系，為后面的邏輯結(jié)構(gòu)設(shè)計(jì)打下基礎(chǔ)。 39。 amp。 vbCrLf amp。 是否繼續(xù)添加用戶？ , vbYesNo + vbQuestion, 添加用戶 ) = vbYes Then = False = False = True = True Call ClearText Else Unload Me End If End Sub Private Sub cmdNext_Click() ’ 設(shè)置下一步按鈕 Choose = False Dim txtUseridSQL As String If Trim() = Then ’ 用戶 id為空重新輸入 MsgBox 用戶編號(hào)不能為空！ , vbOKOnly + vbInformation, 提示 Exit Sub Else txtUseridSQL = select * from User_Info ’ 從數(shù)據(jù)庫讀出用戶 id驗(yàn)證 txtUseridSQL While ( = False) If Trim(!user_id) = Trim() Then MsgBox 用戶編號(hào)已存在，請(qǐng)重新輸入用戶編號(hào)！ , vbOKOnly + vbExclamation, 警告 = = = Exit Sub Else End If Wend End If If = Then ’ 用戶名為空提示 MsgBox 用戶名不能為空！ , vbOKOnly + vbInformation, 提示 Exit Sub End If = False = True = False = True End Sub Private Sub cmdNext1_Click() ’ 密碼為空提示 Dim i As Integer If = Then MsgBox 請(qǐng)輸入密碼！ , vbOKOnly + vbInformation, 提示 Exit Sub End If If = Then MsgBox 請(qǐng)輸入確認(rèn)密碼！ , vbOKOnly + vbInformation, 提示 Exit Sub End If If Then ’ 密碼不一致提示 MsgBox 兩次輸入的密碼不一致?。?！ amp。聲明連接數(shù)據(jù)庫的類 Dim Change As Boolean Private Sub cboClass_Click() = = False End Sub Private Sub cboClass_KeyPress(KeyAscii As Integer) ’ 部門設(shè)置回車確定 If KeyAscii = 13 Then Else KeyAscii = 0 End If End Sub Private Sub cboSex_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Else KeyAscii = 0 End If End Sub Private Sub cmdAdd_Click() ’ 添加按鈕的設(shè)置 If = 添加 (amp。 39。 amp。S) Then select * from student_Info where student_id=39。 amp。 With !student_id = !student_name = !student_sex = !Birth_date = !depart = !tele_number = !in_date = !address = !ment = .Update ’ 成功保存數(shù)據(jù) End With MsgBox 信