【正文】 A) = 保存 (amp。 39。全選 (i) = True Next i = 1 ElseIf Option1(1).Value = True Then Level = 2 For i = 0 To 6 (i) = True Next i (7) = False (8) = False (9) = False = 1 ElseIf Option1(2).Value = True Then Level = 3 (0) = True (1) = True For i = 2 To 9 (i) = False Next i = 1 End If End Sub Private Sub Form_Load() Set MyAddUser = New OpenRs End Sub Private Sub Option1_Click(Index As Integer) Choose = True Call Choose_level End Sub Private Sub ClearText() Dim i As Integer = = = = = For i = 0 To 2 39。狀態(tài)欄 2顯示星期幾 Call MyWeekDay Set mypanel = (3) (3).Text = 當前用戶： amp。 圖 51 歡迎主界面 歡迎主界面代碼設計 歡迎主界面實現的代碼設計如下： Dim DelayTime As Integer ’ 定義計時器 Private Sub Form_Load() DelayTime = 0 = True End Sub Private Sub Timer1_Timer() If DelayTime 3 Then ’ 延遲三秒載入登錄界面 = False Load FrmLogin Unload Me Else DelayTime = DelayTime + 1 End If End Sub 登錄界面及代碼設計 圖 52 登錄界面 登錄界面代碼設計 登錄界面實現的代碼設計如下： Dim MyLogin As OpenRs ’ 定義變量 Dim UseridSQL As String Dim Level As Integer Public CurrentUser As String Private Sub Cmdcancel_Click() ’ 取消按鈕命令 Unload Me ’ 釋放當前表 End Sub Private Sub cmdOK_Click() ’ 確定密碼命令 If = administrator And = Then Unload Me Exit Sub End If ’ 如權限符合 ,準予登陸 If = Then MsgBox 請輸入用戶編號！ , vbOKOnly + vbInformation, 用戶登陸 Exit Sub ’ 用戶為空時提示 ,聚焦 Else UseridSQL = select * from User_Info where user_Id=39。 1)用戶登錄模塊：完成用戶身份的驗證 ,設定指定用戶的操作權限。 ? 培訓計劃的查詢。 Microsoft SQL Server 2020的高度可擴展性和高可靠性。 開發(fā)工具及平臺 微軟公司的 Visual Basic 6． 0。他們購買了計算機，也建立起自己的內部網，對員工培訓管理采用了一些簡單的應用程序，但離使用計算機系統(tǒng)和專門軟件來管理還有一段距離。因此，學習與再學習始終伴隨著我們，其中有關的培訓機構有著 不 可替代的作用，在這種形勢下，如何更好的對培訓工作進行管理，就成了我們需要解決的一個問題，因此，開發(fā)一套完善的員工培訓管理系統(tǒng)就成不可少了，本文介紹了在 visual basic 環(huán)境下利用其提 供的各種面向對象的開發(fā)工具開發(fā)本系統(tǒng)的詳細過程，從軟件工程的角度進行了科學而嚴謹的闡述。 培訓使員工的知識、技能與態(tài)度明顯提高與改善，由此提高企業(yè)效益，獲得競爭優(yōu)勢 。不論是 Microsoft Windows 應用程序的資深專業(yè)開發(fā)人員還是初學者， Visual Basic 都為他們提供了整套工具，以方便開發(fā)應用程序。 ADO設計為一種極簡單的格式 ,通過 ODBC的方法同數據庫接口相連 。 查詢管理功能需求 ? 查詢管理功能包括培訓計劃查詢、課程信息查詢、成績信息查詢和員工信息查詢。 數據庫的設計 在數據庫應用系統(tǒng)的開發(fā)過程中，數據庫的結構設計是一個非常重要的問題。 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。C) = True Change = True = 保存 (amp。 Else sql2 = End If sql = SELECT * FROM student_info where 1=1 amp。 With !student_id = !student_name = !student_sex = !Birth_date = !depart = !tele_number = !in_date = !address = !ment = .Update ’ 成功保存數據 End With MsgBox 信息已成功更新！ , vbOKOnly + vbInformation, 員工信息添加 = False = 保存 (amp。S) Then select * from student_Info where student_id=39。 39。 是否繼續(xù)添加用戶？ , vbYesNo + vbQuestion, 添加用戶 ) = vbYes Then = False = False = True = True Call ClearText Else Unload Me End If End Sub Private Sub cmdNext_Click() ’ 設置下一步按鈕 Choose = False Dim txtUseridSQL As String If Trim() = Then ’ 用戶 id為空重新輸入 MsgBox 用戶編號不能為空！ , vbOKOnly + vbInformation, 提示 Exit Sub Else txtUseridSQL = select * from User_Info ’ 從數據庫讀出用戶 id驗證 txtUseridSQL While ( = False) If Trim(!user_id) = Trim() Then MsgBox 用戶編號已存在，請重新輸入用戶編號！ , 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 請輸入密碼！ , vbOKOnly + vbInformation, 提示 Exit Sub End If If = Then MsgBox 請輸入確認密碼！ , vbOKOnly + vbInformation, 提示 Exit Sub End If If Then ’ 密碼不一致提示 MsgBox 兩次輸入的密碼不一致?。?！ amp。 amp。 圖 42 數據流程圖 這一設計階段是在需求分析的基礎上，設計出能夠滿足用戶需求的各種褓，以及它們之間的關系，為后面的邏輯結構設計打下基礎。高層設計包括像用戶界面那樣的問題解決部分，低層設計集中于類的詳細設計階段。系統(tǒng)分析階段主要任務是確定系統(tǒng)的總體設計方案、劃分子系統(tǒng)功能、確定共享數據的組織，然后進行詳細設計。 SQL是結構化查詢語言（ Struture Query Language）的簡稱，是關系型數據庫管理系統(tǒng)中最流行的數據查詢和更新語言。 員工培訓管理系統(tǒng)通過制定合理的培訓計劃，運用正確的方法收集相關的數據和信息 ，善于發(fā)現員工的績效現狀和公司管理層對員工的期望之間的差距，共同為提高企業(yè)績效而努力。但大部分是培訓中介組織的一項面向企業(yè)的服務，而且還是一些網絡版本。 當前培訓管理軟件的現狀 近年來，有關員工培訓管理的軟件很多。 。在當前熱門的信息 系統(tǒng)開發(fā)領域， Microsoft SQL Server 2020 由于不斷采納新技術來滿足用戶不斷增長和變化的需求，該產品的功能越來越強大、系統(tǒng)的可靠性也越來越高，從而該產品的應用也越來越廣泛。 第三章 系統(tǒng)功能需求分析 系統(tǒng)分析（又稱邏輯設計）是管理信息系統(tǒng)開發(fā)的關鍵環(huán)節(jié)，要求在系統(tǒng)調查的基礎上，對新系統(tǒng)的功能進行細致的分析，并建立一個新系統(tǒng)的邏輯模型。通常，面向對象設計分為兩個階段：高層設計和低層設計。 在經過仔細調查研究企業(yè)員工培訓管理過程的基礎上，我們得到本系統(tǒng)所處理的數據流如圖 4－ 2所示。 請重新輸入！ , vbOKOnly + vbInformation, 用戶登陸 ’ 用戶不存在 提示 ,清空聚焦 = Exit Sub End If End If End Sub Private Sub Form_Load() Set MyLogin = New OpenRs