畢業(yè)設(shè)計(jì)（論文）-VB6.0員工培訓(xùn)管理系統(tǒng).doc

員工培訓(xùn)管理系統(tǒng) 目錄第一章 1.1總體需求調(diào)查1.1. 1組織結(jié)構(gòu)圖1.1.2系統(tǒng)目標(biāo) 1.1.3 應(yīng)用現(xiàn)狀調(diào)查 1.1.4 總體流程 1.2 員工信息管理1.2. 1員工信息管理1.2.2員工培訓(xùn)需求 1.2.3操作員管理 1.2.4系統(tǒng)幫助功能 第二章 2.1概念設(shè)計(jì)2.2對(duì)數(shù)據(jù)庫(kù)鏈接設(shè)計(jì) 第三章 詳細(xì)設(shè)計(jì) 3.1啟動(dòng)界面設(shè)計(jì) 3.2 主界面 3.3員工基本信息及管理 3.4 員工培訓(xùn)需求 3.5計(jì)劃修改 3.6 操作員設(shè)置 3.7 權(quán)限設(shè)置 3.8數(shù)據(jù)備份 3.9 數(shù)據(jù)恢復(fù) 3.10 初始化第四章 測(cè)試及性能分析第五章 結(jié)束語(yǔ)第六章 參考文獻(xiàn)摘要隨著計(jì)算機(jī)技術(shù)的飛速發(fā)展，計(jì)算機(jī)在企業(yè)管理中應(yīng)用的普及，利用計(jì)算機(jī)實(shí)現(xiàn)一個(gè)對(duì)員工培訓(xùn)管理操作勢(shì)在必行。近年來(lái)，隨著改革開(kāi)放步伐的加快和中西方文化的交流，特別是中國(guó)加入WTO，各種公司都將面臨巨大的挑戰(zhàn)，只有公司的每個(gè)員工都具備更好的技術(shù)，最新的知識(shí)，才能在改革開(kāi)放的浪潮中處于不敗之地。如何對(duì)員工培訓(xùn)進(jìn)行管理，這需要一個(gè)適應(yīng)自己的管理系統(tǒng)。只有這樣才能使公司不被淘汰。使用本系統(tǒng)，不僅使公司更加方便的管理員工、培養(yǎng)員工，也不會(huì)發(fā)生員工重復(fù)培訓(xùn)，沒(méi)培訓(xùn)等等錯(cuò)誤。避免發(fā)生不應(yīng)該發(fā)生的事情。本系統(tǒng)結(jié)合臺(tái)州地區(qū)的公司情況、員工知識(shí)結(jié)構(gòu)，員工的年齡結(jié)構(gòu)，小公司的普遍性，加上電腦界面的友好性，經(jīng)過(guò)實(shí)際的需求分析，采用功能強(qiáng)大的Visual Basic 6.0 工具開(kāi)發(fā)員工培訓(xùn)管理系統(tǒng)。整個(gè)系統(tǒng)從符合操作簡(jiǎn)便、界面友好、靈活、實(shí)用、安全的要求出發(fā)，完成對(duì)員工管理系統(tǒng)的操作員管理，包括系統(tǒng)用戶管理、權(quán)限管理、數(shù)據(jù)備份、數(shù)據(jù)恢復(fù)、系統(tǒng)初始化。員工各種信息的輸入，包括員工基本信息、職稱、崗位、已經(jīng)培訓(xùn)過(guò)的課程和成績(jī)、培訓(xùn)計(jì)劃等。員工各種信息的查詢、修改，包括員工基本信息、職稱、崗位、已經(jīng)培訓(xùn)過(guò)的課程和成績(jī)、培訓(xùn)計(jì)劃等。企業(yè)所有員工培訓(xùn)需求的管理。企業(yè)培訓(xùn)計(jì)劃的制定、修改、使用幫助。經(jīng)過(guò)實(shí)際使用證明，本文所設(shè)計(jì)的員工培訓(xùn)管理系統(tǒng)可以滿足臺(tái)州以及全國(guó)各地區(qū)的各種小型公司員工的培訓(xùn)管理，操作方面的需要。論文主要介紹了本課題的開(kāi)發(fā)背景，所要完成的功能和開(kāi)發(fā)的過(guò)程。重點(diǎn)的說(shuō)明了系統(tǒng)設(shè)計(jì)的重點(diǎn)、設(shè)計(jì)思想、難點(diǎn)技術(shù)和解決方案。 關(guān)鍵字：?jiǎn)T工培訓(xùn)、課程設(shè)置、管理系統(tǒng)。 第一章1.1 總體需求調(diào)查1.1.1組織結(jié)構(gòu)圖員工培訓(xùn)管理系統(tǒng)組織結(jié)構(gòu)圖如下： 員工各種信息的輸入，包括員工基本信息、職稱、崗位、已經(jīng)培訓(xùn)過(guò)的課程和成績(jī)、 培訓(xùn)計(jì)劃等。 員工各種信息的查詢、修改，包括員工基本信息、職稱、崗位、已經(jīng)培訓(xùn)過(guò)的課程和成績(jī)、培訓(xùn)計(jì)劃等。 企業(yè)所有員工培訓(xùn)需求的管理。 企業(yè)培訓(xùn)計(jì)劃的制定、修改 系統(tǒng)用戶管理、權(quán)限管理、數(shù)據(jù)備份、數(shù)據(jù)恢復(fù)、系統(tǒng)初始化 使用幫助1.1.2 系統(tǒng)目標(biāo)面對(duì)信息化時(shí)代及其發(fā)展過(guò)程中出現(xiàn)的各種情況，員工培訓(xùn)管理系統(tǒng)在實(shí)施后達(dá)到以下目標(biāo)：1實(shí)現(xiàn)多點(diǎn)操作的信息共享，相互之間傳遞準(zhǔn)確、快捷、順暢。2.全面自動(dòng)化的管理,可隨時(shí)掌握員工各種信息及培訓(xùn)的各種情況等等。3.能夠快捷、準(zhǔn)確處理員工是否培訓(xùn)，處理各種資源、教材、教師等信息。4.系統(tǒng)界面友好美觀，操作簡(jiǎn)單易行，查詢、修改等操作靈活方便，數(shù)據(jù)存儲(chǔ)安全可靠。5.系統(tǒng)維護(hù)安全，方便，可靠，并且能夠滿足實(shí)用性、先進(jìn)性的要求。1.1.3 應(yīng)用現(xiàn)狀調(diào)查目前，企業(yè)員工培訓(xùn)管理都是人工管理。各方面都是的人工操作，這樣不僅浪費(fèi)人員且操作不方便，不能滿足企業(yè)的需求，而且不能滿足當(dāng)前臺(tái)州中小企業(yè)的發(fā)展需要。1.1.4 總體流程：開(kāi)始進(jìn)入的進(jìn)入界面,再進(jìn)入主界面進(jìn)行各種操作,包括操作員設(shè)置、系統(tǒng)用戶管理、權(quán)限管理、數(shù)據(jù)備份、數(shù)據(jù)恢復(fù)、系統(tǒng)初始化等一系列操作。1.2員工信息管理整個(gè)系統(tǒng)從總體上分為員工信息管理、員工培訓(xùn)需求、操作員管理、幫助四大部分，每一部分應(yīng)實(shí)現(xiàn)的功能.1.2.1員工信息管理 員工基本信息的輸入，包括姓名、崗位、性別、已培訓(xùn)課程、出生年月、成績(jī)、職稱、培訓(xùn)計(jì)劃等基本信息。 員工信息的維護(hù)：包括添加、修改、刪除、查找等。 員工基本信息的查找：按姓名，崗位，職稱。查找包括姓名、崗位、性別、已培訓(xùn)課程、出生年月、成績(jī)、職稱、培訓(xùn)計(jì)劃等基本信息。 1.2.2員工培訓(xùn)需求員工培訓(xùn)需求的輸入，包括課程，教師，人數(shù)，地點(diǎn)，備注。員工培訓(xùn)需求的維護(hù)：包括添加、修改、刪除、查找等。 員工培訓(xùn)需求的查找：按課程，培訓(xùn)教師，培訓(xùn)地點(diǎn)，查找包括課程，教師，人數(shù)，地點(diǎn)，備注等基本信息。1.2.3操作員管理操作員管理的輸入：包括操作員設(shè)置，權(quán)限設(shè)置，數(shù)據(jù)備份，數(shù)據(jù)恢復(fù)，初始化。操作員管理的維護(hù)：包括添加、修改等權(quán)限設(shè)置：包括操作員刪除、權(quán)限添加等。數(shù)據(jù)備份：把當(dāng)前的數(shù)據(jù)庫(kù)文件b.mdb保存為今天的日期b.mdb數(shù)據(jù)恢復(fù)：把當(dāng)前的數(shù)據(jù)庫(kù)文件恢復(fù)為以前的文件。初始化：把員工基本信息、教師評(píng)價(jià)、教師信息管理、課程管理、培訓(xùn)需求等數(shù)據(jù)表內(nèi)的內(nèi)容清空。 1.2.4系統(tǒng)幫助功能 可以通過(guò)上面的控件發(fā)Email到我的郵箱。 第二章2.1概念設(shè)計(jì)概要設(shè)計(jì)基礎(chǔ)是完成需求分析后提供的需求說(shuō)明書(shū)，用概念數(shù)據(jù)模型表示數(shù)據(jù)及其相互間的關(guān)系，這種數(shù)據(jù)模型是與DBMS無(wú)關(guān)的、面向現(xiàn)實(shí)世界的、易如理解的數(shù)據(jù)模型，其獨(dú)立于計(jì)算機(jī)的數(shù)據(jù)模型，獨(dú)立于計(jì)算機(jī)的軟硬件系統(tǒng)，與用戶進(jìn)行交流十分方便。概念性數(shù)據(jù)模型關(guān)心的是如何完整、正確地反映客觀實(shí)際情況，不關(guān)心在數(shù)據(jù)庫(kù)中如何實(shí)現(xiàn)。這種數(shù)據(jù)模式能真實(shí)地反應(yīng)用戶要求的實(shí)際情況，是一種容易被人們理解的直觀的數(shù)據(jù)庫(kù)結(jié)構(gòu)模式。同時(shí)也是一種相對(duì)穩(wěn)定統(tǒng)一的數(shù)據(jù)模式，一般情況下很少變動(dòng)。概念性數(shù)據(jù)在用戶和設(shè)計(jì)者之間建立了橋梁。是設(shè)計(jì)數(shù)據(jù)庫(kù)結(jié)構(gòu)的基礎(chǔ)。概念設(shè)計(jì)中自頂向下的實(shí)體分析方法，即常用的實(shí)體聯(lián)系模型（簡(jiǎn)稱E-R模型），對(duì)具體數(shù)據(jù)進(jìn)行抽象加工，將實(shí)體集合抽象成實(shí)體類型。用實(shí)體間聯(lián)系反映現(xiàn)實(shí)世界事物間的內(nèi)在聯(lián)系。E-R模型是建立概念性數(shù)據(jù)模型的有力工具。通過(guò)對(duì)員工信息管理系統(tǒng)內(nèi)容過(guò)程的分析，本系統(tǒng)應(yīng)設(shè)計(jì)的實(shí)體和屬性如下：?jiǎn)T工信息管理（包括員工基本信息，信息管理）培訓(xùn)需求管理（員工培訓(xùn)需求，計(jì)劃修改）操作員管理（操作員管理、權(quán)限管理、數(shù)據(jù)備份、數(shù)據(jù)恢復(fù)、系統(tǒng)初始化）幫助（通過(guò)發(fā)Email進(jìn)行幫助）2.2對(duì)數(shù)據(jù)庫(kù)鏈接設(shè)計(jì)作為Microsoft公司的數(shù)據(jù)庫(kù)，Access數(shù)據(jù)庫(kù)在Visual Basic 6.0中的應(yīng)用非常廣泛，為此我選用Access數(shù)據(jù)庫(kù)來(lái)進(jìn)行數(shù)據(jù)庫(kù)的邏輯設(shè)計(jì)。根據(jù)前面定義的實(shí)體及實(shí)休之間的關(guān)系，形成數(shù)據(jù)庫(kù)的表格以及各個(gè)表之間的關(guān)系。在控制面板中進(jìn)行數(shù)據(jù)源設(shè)置。如下： 在控制面板中雙擊ODBC數(shù)據(jù)源（32位），進(jìn)入如下： 點(diǎn)擊“添加”，進(jìn)入如下：選中Microsoft Access Driver (*.mdb) 單擊完成，如下： 在數(shù)據(jù)源名中填寫(xiě)a,單擊選取選擇b.mdb，最后確定。 在vb數(shù)據(jù)源連接中如下：而Gatagird的datasource的屬性值為Adodc這個(gè)控件用以下代碼：Dim mycon As New ADODB.Connection 定義Connection對(duì)象，連接數(shù)據(jù)庫(kù)Dim myrs As New ADODB.Recordset 定義Recordset對(duì)象，操作數(shù)據(jù)mycon.Open dsn=a 打開(kāi)數(shù)據(jù)庫(kù)myrs.Open kcpj, mycon, 3, 2 打開(kāi)表kcpj,3,2代表打開(kāi)的表可讀可寫(xiě)為了減少數(shù)據(jù)冗余度，將表設(shè)置包括操作員qxsz(操作員，密碼等)，員工基本信息表ygg,員工培訓(xùn)計(jì)劃ph,計(jì)劃修改jh表。 操作員設(shè)置qxsz表：a其它略。第三章 詳細(xì)設(shè)計(jì) 根據(jù)需求分析、概要設(shè)計(jì)的結(jié)果，采用Visual Basic 6.0做為開(kāi)發(fā)工具，實(shí)現(xiàn)員工培訓(xùn)管理系統(tǒng)各模塊的功能。3.1啟動(dòng)界面設(shè)計(jì)：Option ExplicitDim mycon As New ADODB.ConnectionDim myrs As New ADODB.RecordsetDim TIM As IntegerDim myval As StringPrivate Sub cmd1_Click()main.StatusBar1.Panels(4).Text = Text1.BoundText Adodc1.RecordSource = select * from qxsz where 操作員= & Text1.BoundText & Adodc1.Refresh If Text1.BoundText And Text2.Text And Text2.Text = Adodc1.Recordset.Fields(密碼) Then main.Show Unload Me Else If TIM = 2 Then myval = MsgBox(密碼輸入錯(cuò)誤,請(qǐng)向系統(tǒng)管理員查詢!) If myval = vbOK Then End End If If Text1.BoundText = Then MsgBox (請(qǐng)輸入操作員!) Text1.SetFocus Else If Text1.BoundText Adodc1.Recordset.Fields(操作員) Then MsgBox (查無(wú)此操作員,請(qǐng)重新輸入操作員!) Text1.SetFocus Else If Text2.Text = Then MsgBox (請(qǐng)輸入操作員密碼!) Text2.SetFocus Else If Text2.Text Adodc1.Recordset.Fields(密碼) Then MsgBox (密碼錯(cuò)誤,請(qǐng)重新輸入密碼!) TIM = TIM + 1 Text2.SetFocus End If End If End If End If End IfEnd SubPrivate Sub cmd2_Click()EndEnd SubPrivate Sub Form_Activate()mycon.Open dsn=amyrs.Open qxsz, mycon, 3, 2If myrs.RecordCount = 0 ThenMsgBox (請(qǐng)先設(shè)置操作員密碼和權(quán)限！)Load main main.Show Unload Me End If End SubPrivate Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyReturn Then cmd1.SetFocusEnd Sub進(jìn)入員工培訓(xùn)管理系統(tǒng)必須有操作員及密碼。當(dāng)數(shù)據(jù)庫(kù)中無(wú)這個(gè)操作員時(shí)，會(huì)有查無(wú)此操作員,請(qǐng)重新輸入操作員!這個(gè)提示框。當(dāng)操作員及密碼輸入框?yàn)榭諘r(shí)會(huì)彈出請(qǐng)輸入操作員!及請(qǐng)輸入操作員密碼!等等。32 主界面 部份代碼如下：Private Sub dt3_Click()Unload Mesjbf.ShowEnd SubPrivate Sub fdfsa_Click()Unload Mecsh.ShowEnd SubPrivate Sub fg_Click()Unload Mezycx.ShowEnd SubPrivate Sub Form_Activate() With Data1.Recordset If .BOF = False Then .MoveFirst .FindFirst 操作員 like + Chr(34) + StatusBar1.Panels(4).Text + Chr(34) + If .NoMatch Then Elsefdfsa.Enabled = czysz.Enabled = Data1.Recordset.Fields(初始化)kk.Enabled = Data1.Recordset.Fields(操作員設(shè)置)l.Enabled = Trueds.Enabled = Data1.Recordset.Fields(計(jì)劃制定、修改)jj.Enabled = Data1.Recordset.Fields(教師基本信息)jhd.Enabled = Data1.Recordset.Fields(教師評(píng)價(jià))sd.Enabled = Data1.Recordset.Fields(課程評(píng)價(jià))sa.Enabled = Data1.Recordset.Fields(培訓(xùn)課程管理)da.Enabled = Data1.Recordset.Fields(員工培訓(xùn)需求)hu.Enabled = Data1.Recordset.Fields(培訓(xùn)教材管理)kl.Enabled = Data1.Recordset.Fields(權(quán)限設(shè)置)dt3.Enabled = Data1.Recordset.Fields(數(shù)據(jù)備份)gfdg.Enabled = Data1.Recordset.Fields(數(shù)據(jù)恢復(fù))ii.Enabled = Data1.Recordset.Fields(外出培訓(xùn)管理)aa.Enabled = Data1.Recordset.Fields(員工基本信息)au.Enabled = Data1.Recordset.Fields(員工信息管理)fg.Enabled = Data1.Recordset.Fields(培訓(xùn)資源管理) End If End WithEnd SubPrivate Sub Form_Load() Data1.DatabaseName = App.Path & b.MDBEnd Sub在這里會(huì)進(jìn)行分辨該操作員具有怎樣的權(quán)限。3.3 員工基本信息及管理Private Sub cmd1_Click()Dim mycon As New ADODB.ConnectionDim myrs As New ADODB.Recordsetmycon.Open dsn=amyrs.Open ygg, mycon, 3, 2If Text1.Text = Or Text2.Text = Or Text4.Text = Or Text5.Text = ThenMsgBox (不能為空！)Exit SubEnd Ifmyrs.AddNewmyrs.Fields(姓名) = Trim(Text1.Text)myrs.Fields(崗位) = Trim(Text2.Text)myrs.Fields(性別) = Trim(Combo1.Text)myrs.Fields(已培訓(xùn)課程) = Trim(Combo3.Text)myrs.Fields(出生年月) = Trim(Text4.Text)myrs.Fields(成績(jī)) = Trim(Text5.Text)myrs.Fields(職稱) = Trim(Combo2.Text)myrs.Fields(培訓(xùn)計(jì)劃) = Trim(Text7.Text)myrs.Updatemyrs.Closemycon.CloseMsgBox 添加成功！Adodc1.RefreshDataGrid1.Refreshyggsz.Adodc1.Refreshyggsz.DataGrid1.RefreshEnd SubPrivate Sub cmd2_Click()Text1.Text = : Text2.Text = : Text4.Text = : Text5.Text = End SubPrivate Sub cmd3_Click()Me.Hidemain.ShowEnd SubPrivate Sub Combo4_click()If Combo4.Text = 第一階段 ThenCombo3.AddItem (語(yǔ)文)Combo3.AddItem (數(shù)學(xué))Combo3.AddItem (英語(yǔ))Combo3.AddItem (物理)ElseIf Combo4.Text = 第二階段 ThenCombo3.AddItem (大學(xué)語(yǔ)文)Combo3.AddItem (大學(xué)數(shù)學(xué))Combo3.AddItem (大學(xué)英語(yǔ))Combo3.AddItem (大學(xué)物理)ElseIf Combo4.Text = 第三階段 ThenCombo3.AddItem (計(jì)算機(jī)基礎(chǔ))Combo3.AddItem (C+語(yǔ)言)Combo3.AddItem (電路基礎(chǔ))Combo3.AddItem (操作系統(tǒng))ElseIf Combo4.Text = 第四階段 ThenCombo3.AddItem (微機(jī)技術(shù))Combo3.AddItem (C語(yǔ)言)Combo3.AddItem (Java 語(yǔ)言)Combo3.AddItem (軟件工程)End IfEnd SubPrivate Sub Form_Load()Combo1.AddItem (男)Combo1.AddItem (女)Combo2.AddItem (教授)Combo2.AddItem (副教授)Combo2.AddItem (助教)Combo4.AddItem (第一階段)Combo4.AddItem (第二階段)Combo4.AddItem (第三階段)Combo4.AddItem (第四階段)End SubPrivate Sub Text5_KeyPress(KeyAscii As Integer)If KeyAscii = 33 ThenIf KeyAscii = vbKey0 ThenElseKeyAscii = 0MsgBox 只能輸入數(shù)字！End IfEnd IfEnd SubOption ExplicitDim i As IntegerDim mycon As New ADODB.ConnectionDim myrs As New ADODB.RecordsetPrivate Sub cmd1_Click()Adodc1.RecordSource = select * from ygg where (ygg. & Combo1.Text & like + + Text8.Text + +%) Adodc1.Refresh If Adodc1.Recordset.RecordCount 0 Thenz(0).Text = Adodc1.Recordset.Fields(姓名)z(1).Text = Adodc1.Recordset.Fields(崗位)z(2).Text = Adodc1.Recordset.Fields(性別)z(3).Text = Adodc1.Recordset.Fields(已培訓(xùn)課程)z(4).Text = Adodc1.Recordset.Fields(出生年月)Text1.Text = Adodc1.Recordset.Fields(成績(jī))z(6).Text = Adodc1.Recordset.Fields(職稱)z(7).Text = Adodc1.Recordset.Fields(培訓(xùn)計(jì)劃) Else: z(0).Text = : z(1).Text = : z(2).Text = : z(3).Text = : z(4).Text = : Text1.Text = : z(6).Text = : z(7).Text = End IfEnd SubPrivate Sub cmd2_Click() Dim mycon As New ADODB.ConnectionDim myrs As New ADODB.Recordsetmycon.Open dsn=amyrs.Open ygg, mycon, 3, 2myrs.Fields(姓名) = Trim(z(0).Text)myrs.Fields(崗位) = Trim(z(1).Text)myrs.Fields(性別) = Trim(z(2).Text)myrs.Fields(已培訓(xùn)課程) = Trim(z(3).Text)myrs.Fields(出生年月) = Trim(z(4).Text)myrs.Fields(成績(jī)) = Trim(Text1.Text)myrs.Fields(職稱) = Trim(z(6).Text)myrs.Fields(培訓(xùn)計(jì)劃) = Trim(z(7).Text)myrs.Updatemyrs.Closemycon.Close MsgBox 修改成功！Adodc1.RefreshDataGrid1.RefreshEnd SubPrivate Sub cmd3_Click()Me.Hidemain.ShowEnd SubPrivate Sub Command1_Click()Dim a As StringIf Adodc1.Recordset.RecordCount 0 Then a = MsgBox(您確實(shí)要?jiǎng)h除這條數(shù)據(jù)嗎?, vbYesNo) If a = vbYes Then Adodc1.Recordset.Delete Adodc1.Refresh End If End IfEnd SubPrivate Sub Form_Load()Combo1.AddItem (姓名)Combo1.AddItem (崗位)Combo1.AddItem (職稱)End SubPrivate Sub text1_KeyPress(KeyAscii As Integer)If KeyAscii = 33 ThenIf KeyAscii = vbKey0 ThenElseKeyAscii = 0MsgBox 只能輸入數(shù)字！End IfEnd IfEnd Sub3.4 員工培訓(xùn)需求 （圖略）代碼如下：Option ExplicitPrivate Sub cmd1_Click()Dim mycon As New ADODB.ConnectionDim myrs As New ADODB.Recordsetmycon.Open dsn=amyrs.Open ph, mycon, 3, 2If z(0).Text = Or z(1).Text = Or z(2).Text = Or z(3).Text = Or z(4).Text = ThenMsgBox (不能為空！)Exit SubEnd Ifmyrs.AddNewmyrs.Fields(課程) = Trim(z(0).Text)myrs.Fields(培訓(xùn)教師) = Trim(z(1).Text)myrs.Fields(培訓(xùn)人數(shù)) = Trim(z(2).Text)myrs.Fields(培訓(xùn)地點(diǎn)) = Trim(z(3).Text)myrs.Fields(備注) = Trim(z(4).Text)myrs.Updatemyrs.Closemycon.CloseMsgBox 添加成功！Adodc1.RefreshDataGrid1.RefreshEnd SubPrivate Sub cmd2_Click()Dim i As IntegerAdodc1.RecordSource = select * from ph where (ph. & Combo2.Text & like + + Text6.Text + +%)Adodc1.Refresh For i = 0 To 4 If Adodc1.Recordset.RecordCount 0 Then z(i).Text = Adodc1.Recordset.Fields(i) Else: z(i).Text = End IfNext icmd3.Enabled = TrueEnd SubPrivate Sub cmd3_Click() Dim mycon As New ADODB.ConnectionDim myrs As New ADODB.Recordsetmycon.Open dsn=amyrs.Open ph, mycon, 3, 2myrs.Fields(課程) = Trim(z(0).Text)myrs.Fields(培訓(xùn)教師) = Trim(z(1).Text)myrs.Fields(培訓(xùn)人數(shù)) = Trim(z(2).Text)myrs.Fields(培訓(xùn)地點(diǎn)) = Trim(z(3).Text)myrs.Fields(備注) = Trim(z(4).Text)myrs.Updatemyrs.Closemycon.CloseMsgBox 修改成功！Adodc1.RefreshDataGrid1.RefreshEnd SubPrivate Sub cmd4_Click()Unload Memain.ShowEnd SubPrivate Sub Command1_Click()Dim a As StringIf Adodc1.Recordset.RecordCount 0 Then a = MsgBox(您確實(shí)要?jiǎng)h除這條數(shù)據(jù)嗎?, vbYesNo) If a = vbYes Then Adodc1.Recordset.Delete Adodc1.Refresh End If End IfEnd SubPrivate Sub Form_Load()Combo2.AddItem (課程)Combo2.AddItem (培訓(xùn)教師)Combo2.AddItem (培訓(xùn)地點(diǎn))cmd1.Enabled = Truecmd2.Enabled = Truecmd3.Enabled = FalseCommand1.Enabled = TrueEnd Sub3.5計(jì)劃修改 （圖略）部分代碼：rivate Sub cmd1_Click()Dim mycon As New ADODB.ConnectionDim myrs As New ADODB.Recordsetmycon.Open dsn=amyrs.Open jh, mycon, 3, 2If Text1.Text = Or Text2.Text = Or Text3.Text = Or Text4.Text = ThenMsgBox (不能為空！)Exit SubEnd Ifmyrs.AddNewmyrs.Fields(事件) = Trim(Text1.Text)myrs.Fields(時(shí)間) = Trim(Text2.Text)myrs.Fields(地點(diǎn)) = Trim(Text3.Text)myrs.Fields(計(jì)劃) = Trim(Text4.Text)myrs.Updatemyrs.Closemycon.CloseMsgBox 添加成功！Adodc1.RefreshDataGrid1.RefreshEnd SubPrivate Sub cmd2_Click()Adodc1.RecordSource = select * from jh where (jh. & Combo2.Text & like + + Text5.Text + +%) Adodc1.Refresh If Adodc1.Recordset.RecordCount 0 ThenText1.Text = Adodc1.Recordset.Fields(0)Text2.Text = Adodc1.Recordset.Fields(1)Text3.Text = Adodc1.Recordset.Fields(2)Text4.Text = Adodc1.Recordset.Fields(3)End Ifcmd3.Enabled = TrueEnd SubPrivate Sub cmd3_Click() Dim mycon As New ADODB.ConnectionDim myrs As New ADODB.Recordsetmycon.Open dsn=amyrs.Open jh, mycon, 3, 2myrs.Fields(事件) = Trim(Text1.Text)myrs.Fields(時(shí)間) = Trim(Text2.Text)myrs.Fields(地點(diǎn)) = Trim(Text3.Text)myrs.Fields(計(jì)劃) = Trim(Text4.Text)myrs.Updatemyrs.Closemycon.Close MsgBox 修改成功！Adodc1.RefreshDataGrid1.RefreshEnd Sub36 操作員設(shè)置（圖略）部份代碼如下rivate Sub cmd1_Click()Dim mycon As New ADODB.ConnectionDim myrs As New ADODB.Recordsetmycon.Open dsn=amyrs.Open jh, mycon, 3, 2If Text1.Text = Or Text2.Text = Or Text3.Text = Or Text4.Text = ThenMsgBox (不能為空！)Exit SubEnd Ifmyrs.AddNewmyrs.Fields(事件) = Trim(Text1.Text)myrs.Fields(時(shí)間) = Trim(Text2.Text)myrs.Fields(地點(diǎn)) = Trim(Text3.Text)myrs.Fields(計(jì)劃) = Trim(Text4.Text)myrs.Updatemyrs.Closemycon.CloseMsgBox 添加成功！Adodc1.RefreshDataGrid1.RefreshEnd SubPrivate Sub cmd2_Click()Adodc1.RecordSource = select * from jh where (jh. & Combo2.Text & like + + Text5.Text + +%) Adodc1.Refresh If Adodc1.Recordset.RecordCount 0 ThenText1.Text = Adodc1.Recordset.Fields(0)Text2.Text = Adodc1.Recordset.Fields(1)Text3.Text = Adodc1.Recordset.Fields(2)Text4.Text = Adodc1.Recordset.Fields(3)End Ifcmd3.Enabled = TrueEnd SubPrivate Sub cmd3_Click() Dim mycon As New ADODB.ConnectionDim myrs As New ADODB.Recordsetmycon.Open dsn=amyrs.Open jh, mycon, 3, 2myrs.Fields(事件) = Trim(Text1.Text)myrs.Fields(時(shí)間) = Trim(Text2.Text)myrs.Fields(地點(diǎn)) = Trim(Text3.Text)myrs.Fields(計(jì)劃) = Trim(Text4.Text)myrs.Updatemyrs.Closemycon.Close MsgBox 修改成功！Adodc1.RefreshDataGrid1.RefreshEnd Sub37 權(quán)限設(shè)置（圖略）代碼如下：Option ExplicitDim i As IntegerPrivate Sub cmd3_Click() If DBList1.BoundText Then Data2.Recordset.FindFirst 操作員= & DBList1.BoundText & If Data2.Recordset.NoMatch Then Else Data2.Recordset.Edit For i = 2 To 18 Data2.Recordset.Fields(i) = z(i).Value Next i Data2.Recordset.Update Data2.Refresh End If End IfEnd SubPrivate Sub Command1_Click() On Error Resume Next Data2.Recordset.Delete Data2.Refresh Data1.RefreshEnd SubPrivate Sub Command2_Click()Unload Memain.ShowEnd SubPrivate Sub DBList1_Click()If Data2.Recordset.BOF = False Then Data2.Recordset.MoveFirst Data2.Recordset.FindFirst 操作員= & DBList1.BoundText & If Data2.Recordset.NoMatch Then DBList1.BoundText = 0 Else For i = 2 To 18 If Data2.Recordset.Fields(i) = -1 Then z(i).Value = 1 Else z(i).Value = 0 Next i End IfEnd SubPrivate Sub Form_Load()Data1.DatabaseName = App.Path & b.MDB Data2.DatabaseName = App.Path & b.MDBEnd SubPrivate Sub Form_Unload(Cancel As Integer) main.Enabled = TrueEnd SubPrivate Sub cmd1_Click() For i = 2 To 18 z(i).Value = 1 Next iEnd SubPrivate Sub cmd2_Click() For i = 2 To 18 z(i).Value = 0 Next iEnd Sub38數(shù)據(jù)備份（圖略）代碼如下：Option ExplicitPrivate Sub Command1_Click() Me.MousePointer = 11 FileCopy App.Path & b.mdb, App.Path & b & Date & .mdb Me.MousePointer = 0 MsgBox 數(shù)據(jù)已備份完畢。End SubPrivate Sub Command2_Click()main.Show Unload MeEnd SubPrivate Sub Form_Unload(Cancel As Integer)main.Enabled = TrueEnd Sub39 數(shù)據(jù)恢復(fù) （圖略）代碼如下：Private Sub Form_Unload(Cancel As Integer)main.Enabled = TrueEnd SubPrivate Sub Dir1_Change() File1.Path = Dir1.PathEnd SubPrivate Sub Drive1_Change() Dir1.Path = Drive1.DriveEnd SubPrivate Sub File1_Click() Text1.Text = Dir1.Path & & File1.FileNameEnd SubPrivate Sub Command1_Click() If Text1.Text = Then MsgBox 請(qǐng)選擇要恢復(fù)的數(shù)據(jù)！ Else Me.MousePointer = 11 FileCopy Dir1.Path & & File1.FileName, App.Path & a.mdb Me.MousePointer = 0 MsgBox 數(shù)據(jù)已恢復(fù)完畢！ End IfEnd SubPrivate Sub Command2_Click() main.Show Unload MeEnd Sub310 初始化（圖略）代碼如下：Private Sub Form_Unload(Cancel As Integer)main.Enabled = TrueEnd SubPrivate Sub Comks_Click() Comcsh.Enabled = TrueEnd SubPrivate Sub Comcsh_Click() Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset Dim cnn As ADODB.Connection Set cnn = New ADODB.Connection cnn.Open dsn=a Dim connter As Integer Dim sql, workarea(200) As String ProgressBar1.Visible = True ProgressBar1.Max = UBound(workarea) ProgressBar1.Value = ProgressBar1.Min For Counter = LBound(workarea) To UBound(worka