員工培訓(xùn)管理實(shí)現(xiàn)與設(shè)計(jì)畢業(yè)論文

1、<p><b>　　目錄</b></p><p><b>　　1.1總體需求調(diào)查</b></p><p><b>　　1組織結(jié)構(gòu)圖</b></p><p><b>　　1.1.2系統(tǒng)目標(biāo)</b></p><p>　　1.1.3 應(yīng)用現(xiàn)狀調(diào)查<

2、;/p><p>　　1..1.4 總體流程</p><p>　　1.2 員工信息管理</p><p><b>　　1員工信息管理</b></p><p>　　1.2.2員工培訓(xùn)需求</p><p>　　1.2.3操作員管理</p><p>　　1.2.4系統(tǒng)幫助功能</

3、p><p>　　第二章 2.1概念設(shè)計(jì)</p><p>　　2.2對(duì)數(shù)據(jù)庫(kù)鏈接設(shè)計(jì)</p><p>　　第三章 詳細(xì)設(shè)計(jì)</p><p><b>　　3.1啟動(dòng)界面設(shè)計(jì)</b></p><p><b>　　3.2 主界面</b></p><p>　　

4、3.3員工基本信息及管理</p><p>　　3.4 員工培訓(xùn)需求</p><p><b>　　3.5計(jì)劃修改</b></p><p><b>　　3.6 操作員設(shè)置</b></p><p><b>　　3.7 權(quán)限設(shè)置</b></p><p><

5、b>　　3.8數(shù)據(jù)備份</b></p><p><b>　　3.9 數(shù)據(jù)恢復(fù)</b></p><p><b>　　3.10 初始化</b></p><p>　　第四章 測(cè)試及性能分析</p><p><b>　　第五章 結(jié)束語</b></p>&

6、lt;p><b>　　第六章 參考文獻(xiàn)</b></p><p><b>　　摘要</b></p><p>　　隨著計(jì)算機(jī)技術(shù)的飛速發(fā)展，計(jì)算機(jī)在企業(yè)管理中應(yīng)用的普及，利用計(jì)算機(jī)實(shí)現(xiàn)一個(gè)對(duì)員工培訓(xùn)管理操作勢(shì)在必行。近年來，隨著改革開放步伐的加快和中西方文化的交流，特別是中國(guó)加入WTO，各種公司都將面臨巨大的挑戰(zhàn)，只有公司的每個(gè)員工都具備更好的

7、技術(shù)，最新的知識(shí)，才能在改革開放的浪潮中處于不敗之地。如何對(duì)員工培訓(xùn)進(jìn)行管理，這需要一個(gè)適應(yīng)自己的管理系統(tǒng)。只有這樣才能使公司不被淘汰。使用本系統(tǒng)，不僅使公司更加方便的管理員工、培養(yǎng)員工，也不會(huì)發(fā)生員工重復(fù)培訓(xùn)，沒培訓(xùn)等等錯(cuò)誤。避免發(fā)生不應(yīng)該發(fā)生的事情。</p><p>　　本系統(tǒng)結(jié)合臺(tái)州地區(qū)的公司情況、員工知識(shí)結(jié)構(gòu)，員工的年齡結(jié)構(gòu)，小公司的普遍性，加上電腦界面的友好性，經(jīng)過實(shí)際的需求分析，采用功能強(qiáng)大的Visu

8、al Basic 6.0 工具開發(fā)員工培訓(xùn)管理系統(tǒng)。</p><p>　　整個(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)過的課程和成績(jī)、培訓(xùn)計(jì)劃等。員工各種信息的查詢、修改，包括員工基本信息、職稱、崗位、已經(jīng)培訓(xùn)過的課程和成績(jī)、培訓(xùn)計(jì)劃等。企業(yè)所有員

9、工培訓(xùn)需求的管理。企業(yè)培訓(xùn)計(jì)劃的制定、修改、使用幫助。</p><p>　　經(jīng)過實(shí)際使用證明，本文所設(shè)計(jì)的員工培訓(xùn)管理系統(tǒng)可以滿足臺(tái)州以及全國(guó)各地區(qū)的各種小型公司員工的培訓(xùn)管理，操作方面的需要。論文主要介紹了本課題的開發(fā)背景，所要完成的功能和開發(fā)的過程。重點(diǎn)的說明了系統(tǒng)設(shè)計(jì)的重點(diǎn)、設(shè)計(jì)思想、難點(diǎn)技術(shù)和解決方案。 </p><p>　　[關(guān)鍵字]：?jiǎn)T工培訓(xùn)、課程設(shè)置、管理系統(tǒng)。&l

10、t;/p><p><b>　　第一章</b></p><p><b>　　總體需求調(diào)查</b></p><p>　　1.1.1組織結(jié)構(gòu)圖——員工培訓(xùn)管理系統(tǒng)組織結(jié)構(gòu)圖如下：</p><p>　　● 員工各種信息的輸入，包括員工基本信息、職稱、崗位、已經(jīng)培訓(xùn)過的課程和成績(jī)、</p><

11、;p><b>　　培訓(xùn)計(jì)劃等。</b></p><p>　　員工各種信息的查詢、修改，包括員工基本信息、職稱、崗位、已經(jīng)培訓(xùn)過的課程和成績(jī)、培訓(xùn)計(jì)劃等。</p><p>　　企業(yè)所有員工培訓(xùn)需求的管理。</p><p>　　企業(yè)培訓(xùn)計(jì)劃的制定、修改</p><p>　　系統(tǒng)用戶管理、權(quán)限管理、數(shù)據(jù)備份、數(shù)據(jù)恢復(fù)、系

12、統(tǒng)初始化</p><p><b>　　使用幫助</b></p><p>　　1.1.2 系統(tǒng)目標(biāo)</p><p>　　面對(duì)信息化時(shí)代及其發(fā)展過程中出現(xiàn)的各種情況，員工培訓(xùn)管理系統(tǒng)在實(shí)施后達(dá)到以下目標(biāo)：</p><p>　　1．實(shí)現(xiàn)多點(diǎn)操作的信息共享，相互之間傳遞準(zhǔn)確、快捷、順暢。</p><p&g

13、t;　　2.全面自動(dòng)化的管理,可隨時(shí)掌握員工各種信息及培訓(xùn)的各種情況等等。</p><p>　　3.能夠快捷、準(zhǔn)確處理員工是否培訓(xùn)，處理各種資源、教材、教師等信息。</p><p>　　4.系統(tǒng)界面友好美觀，操作簡(jiǎn)單易行，查詢、修改等操作靈活方便，數(shù)據(jù)存儲(chǔ)安全可靠。</p><p>　　5.系統(tǒng)維護(hù)安全，方便，可靠，并且能夠滿足實(shí)用性、先進(jìn)性的要求。<

14、/p><p>　　1.1.3 應(yīng)用現(xiàn)狀調(diào)查</p><p>　　目前，企業(yè)員工培訓(xùn)管理都是人工管理。各方面都是的人工操作，這樣不僅浪費(fèi)人員且操作不方便，不能滿足企業(yè)的需求，而且不能滿足當(dāng)前臺(tái)州中小企業(yè)的發(fā)展需要。</p><p>　　1.1.4 總體流程：</p><p>　　開始進(jìn)入的進(jìn)入界面,再進(jìn)入主界面進(jìn)行各種操作,包括操作員設(shè)置、系統(tǒng)用

15、戶管理、權(quán)限管理、數(shù)據(jù)備份、數(shù)據(jù)恢復(fù)、系統(tǒng)初始化等一系列操作。</p><p><b>　　1.2員工信息管理</b></p><p>　　整個(gè)系統(tǒng)從總體上分為員工信息管理、員工培訓(xùn)需求、操作員管理、幫助四大部分，每一部分應(yīng)實(shí)現(xiàn)的功能.</p><p>　　1.2.1員工信息管理</p><p>　　員工基本信息的輸入，

16、包括姓名、崗位、性別、已培訓(xùn)課程、出生年月、成績(jī)、職稱、培訓(xùn)計(jì)劃等基本信息。</p><p>　　員工信息的維護(hù)：包括添加、修改、刪除、查找等。</p><p>　　員工基本信息的查找：按姓名，崗位，職稱。查找包括姓名、崗位、性別、已培訓(xùn)課程、出生年月、成績(jī)、職稱、培訓(xùn)計(jì)劃等基本信息。</p><p>　　1.2.2員工培訓(xùn)需求</p><p&g

17、t;　　員工培訓(xùn)需求的輸入，包括課程，教師，人數(shù)，地點(diǎn)，備注。</p><p>　　員工培訓(xùn)需求的維護(hù)：包括添加、修改、刪除、查找等。</p><p>　　員工培訓(xùn)需求的查找：按課程，培訓(xùn)教師，培訓(xùn)地點(diǎn)，查找包括課程，教師，人數(shù)，地點(diǎn)，備注等基本信息。</p><p>　　1.2.3操作員管理</p><p>　　操作員管理的輸入：包括操作員

18、設(shè)置，權(quán)限設(shè)置，數(shù)據(jù)備份，數(shù)據(jù)恢復(fù)，初始化。</p><p>　　操作員管理的維護(hù)：包括添加、修改等</p><p>　　權(quán)限設(shè)置：包括操作員刪除、權(quán)限添加等。</p><p>　　數(shù)據(jù)備份：把當(dāng)前的數(shù)據(jù)庫(kù)文件b.mdb保存為今天的日期b.mdb</p><p>　　數(shù)據(jù)恢復(fù)：把當(dāng)前的數(shù)據(jù)庫(kù)文件恢復(fù)為以前的文件。</p><

19、;p>　　初始化：把員工基本信息、教師評(píng)價(jià)、教師信息管理、課程管理、培訓(xùn)需求等數(shù)據(jù)表內(nèi)的內(nèi)容清空。</p><p>　　1.2.4系統(tǒng)幫助功能</p><p>　　可以通過上面的控件發(fā)Email到我的郵箱。</p><p><b>　　第二章</b></p><p><b>　　2.1概念設(shè)計(jì)</b

20、></p><p>　　概要設(shè)計(jì)基礎(chǔ)是完成需求分析后提供的需求說明書，用概念數(shù)據(jù)模型表示數(shù)據(jù)及其相互間的關(guān)系，這種數(shù)據(jù)模型是與DBMS無關(guān)的、面向現(xiàn)實(shí)世界的、易如理解的數(shù)據(jù)模型，其獨(dú)立于計(jì)算機(jī)的數(shù)據(jù)模型，獨(dú)立于計(jì)算機(jī)的軟硬件系統(tǒng)，與用戶進(jìn)行交流十分方便。</p><p>　　概念性數(shù)據(jù)模型關(guān)心的是如何完整、正確地反映客觀實(shí)際情況，不關(guān)心在數(shù)據(jù)庫(kù)中如何實(shí)現(xiàn)。這種數(shù)據(jù)模式能真實(shí)地反應(yīng)用戶

21、要求的實(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ǔ)。</p><p>　　概念設(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ù)模型的有力工具。<

22、;/p><p>　　通過對(duì)員工信息管理系統(tǒng)內(nèi)容過程的分析，本系統(tǒng)應(yīng)設(shè)計(jì)的實(shí)體和屬性如下：</p><p>　　員工信息管理（包括員工基本信息，信息管理）</p><p>　　培訓(xùn)需求管理（員工培訓(xùn)需求，計(jì)劃修改）</p><p>　　操作員管理（操作員管理、權(quán)限管理、數(shù)據(jù)備份、數(shù)據(jù)恢復(fù)、系統(tǒng)初始化）</p><p>　　幫

23、助（通過發(fā)Email進(jìn)行幫助）</p><p>　　2.2對(duì)數(shù)據(jù)庫(kù)鏈接設(shè)計(jì)</p><p>　　作為Microsoft公司的數(shù)據(jù)庫(kù)，Access數(shù)據(jù)庫(kù)在Visual Basic 6.0中的應(yīng)用非常廣泛，為此我選用Access數(shù)據(jù)庫(kù)來進(jìn)行數(shù)據(jù)庫(kù)的邏輯設(shè)計(jì)。根據(jù)前面定義的實(shí)體及實(shí)休之間的關(guān)系，形成數(shù)據(jù)庫(kù)的表格以及各個(gè)表之間的關(guān)系。</p><p>　　在控制面板中進(jìn)行數(shù)

24、據(jù)源設(shè)置。如下：</p><p>　　在控制面板中雙擊ODBC數(shù)據(jù)源（32位），進(jìn)入如下： </p><p>　　點(diǎn)擊“添加”，進(jìn)入如下：</p><p>　　選中Microsoft Access Driver (*.mdb) 單擊完成，如下： </p><p>　　在數(shù)據(jù)源名中填寫a,單擊選取選擇b.mdb，最后確定。 </p>

25、<p>　　在vb數(shù)據(jù)源連接中如下：而Gatagird的datasource的屬性值為Adodc這個(gè)控件</p><p>　　用以下代碼：Dim mycon As New ADODB.Connection 定義Connection對(duì)象，連接數(shù)據(jù)庫(kù)</p><p>　　Dim myrs As New ADODB.Recordset 定義Recordset對(duì)象，操作

26、數(shù)據(jù)</p><p>　　mycon.Open "dsn=a" 打開數(shù)據(jù)庫(kù)</p><p>　　myrs.Open "kcpj", mycon, 3, 2 打開表kcpj,’3,2’代表打開的表可讀可寫</p><p>　　為了減少數(shù)據(jù)冗余度，將表設(shè)置包括操作員qx

27、sz(操作員，密碼等)，員工基本信息表ygg,員工培訓(xùn)計(jì)劃ph,計(jì)劃修改jh表。</p><p>　　操作員設(shè)置qxsz表：</p><p><b>　　a</b></p><p><b>　　其它略。</b></p><p><b>　　第三章 詳細(xì)設(shè)計(jì) </b>&l

28、t;/p><p>　　根據(jù)需求分析、概要設(shè)計(jì)的結(jié)果，采用Visual Basic 6.0做為開發(fā)工具，實(shí)現(xiàn)員工培訓(xùn)管理系統(tǒng)各模塊的功能。</p><p>　　3.1啟動(dòng)界面設(shè)計(jì)：</p><p>　　Option Explicit</p><p>　　Dim mycon As New ADODB.Connection</p><

29、;p>　　Dim myrs As New ADODB.Recordset</p><p>　　Dim TIM As Integer</p><p>　　Dim myval As String</p><p>　　Private Sub cmd1_Click()</p><p>　　main.StatusBar1.Panels(4).Te

30、xt = Text1.BoundText</p><p>　　Adodc1.RecordSource = "select * from qxsz where 操作員='" & Text1.BoundText & "'"</p><p>　　Adodc1.Refresh</p><p>　　If

31、Text1.BoundText <> "" And Text2.Text <> "" And Text2.Text = Adodc1.Recordset.Fields("密碼") Then</p><p><b>　　main.Show</b></p><p><b>　　U

32、nload Me</b></p><p><b>　　Else</b></p><p>　　If TIM = 2 Then</p><p>　　myval = MsgBox("密碼輸入錯(cuò)誤,請(qǐng)向系統(tǒng)管理員查詢!")</p><p>　　If myval = vbOK Then End<

33、;/p><p><b>　　End If</b></p><p>　　If Text1.BoundText = "" Then</p><p>　　MsgBox ("請(qǐng)輸入操作員!")</p><p>　　Text1.SetFocus</p><p><b

34、>　　Else</b></p><p>　　If Text1.BoundText <> Adodc1.Recordset.Fields("操作員") Then</p><p>　　MsgBox ("查無此操作員,請(qǐng)重新輸入操作員!")</p><p>　　Text1.SetFocus</p&

35、gt;<p><b>　　Else</b></p><p>　　If Text2.Text = "" Then</p><p>　　MsgBox ("請(qǐng)輸入操作員密碼!")</p><p>　　Text2.SetFocus</p><p><b>　　Els

36、e</b></p><p>　　If Text2.Text <> Adodc1.Recordset.Fields("密碼") Then</p><p>　　MsgBox ("密碼錯(cuò)誤,請(qǐng)重新輸入密碼!")</p><p>　　TIM = TIM + 1</p><p>　　Tex

37、t2.SetFocus</p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p

38、><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub cmd2_Click()</p><p><b>　　End</b></p><p><b>　　End Sub</b>

39、;</p><p>　　Private Sub Form_Activate()</p><p>　　mycon.Open "dsn=a"</p><p>　　myrs.Open "qxsz", mycon, 3, 2</p><p>　　If myrs.RecordCount = 0 Then</

40、p><p>　　MsgBox ("請(qǐng)先設(shè)置操作員密碼和權(quán)限！")</p><p><b>　　Load main</b></p><p><b>　　main.Show</b></p><p><b>　　Unload Me</b></p><

41、;p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)</p><p>　　If KeyCode = vbKeyReturn Then

42、 cmd1.SetFocus</p><p><b>　　End Sub</b></p><p>　　進(jìn)入員工培訓(xùn)管理系統(tǒng)必須有操作員及密碼。當(dāng)數(shù)據(jù)庫(kù)中無這個(gè)操作員時(shí)，會(huì)有查無此操作員,請(qǐng)重新輸入操作員!這個(gè)提示框。當(dāng)操作員及密碼輸入框?yàn)榭諘r(shí)會(huì)彈出請(qǐng)輸入操作員!及請(qǐng)輸入操作員密碼!等等。</p><p><b>　　3．2 主界面 &

43、lt;/b></p><p><b>　　部份代碼如下：</b></p><p>　　Private Sub dt3_Click()</p><p><b>　　Unload Me</b></p><p><b>　　sjbf.Show</b></p>&l

44、t;p><b>　　End Sub</b></p><p>　　Private Sub fdfsa_Click()</p><p><b>　　Unload Me</b></p><p><b>　　csh.Show</b></p><p><b>　　End

45、Sub</b></p><p>　　Private Sub fg_Click()</p><p><b>　　Unload Me</b></p><p><b>　　zycx.Show</b></p><p><b>　　End Sub</b></p>

46、<p>　　Private Sub Form_Activate()</p><p>　　With Data1.Recordset</p><p>　　If .BOF = False Then .MoveFirst</p><p>　　.FindFirst "操作員 like " + Chr(34) + StatusBar1.Panel

47、s(4).Text + Chr(34) + ""</p><p>　　If .NoMatch Then</p><p><b>　　Else</b></p><p>　　fdfsa.Enabled = czysz.Enabled = Data1.Recordset.Fields("初始化")</p&

48、gt;<p>　　kk.Enabled = Data1.Recordset.Fields("操作員設(shè)置")</p><p>　　l.Enabled = True</p><p>　　ds.Enabled = Data1.Recordset.Fields("計(jì)劃制定、修改")</p><p>　　jj.Enable

49、d = Data1.Recordset.Fields("教師基本信息")</p><p>　　jhd.Enabled = Data1.Recordset.Fields("教師評(píng)價(jià)")</p><p>　　sd.Enabled = Data1.Recordset.Fields("課程評(píng)價(jià)")</p><p>

50、　　sa.Enabled = Data1.Recordset.Fields("培訓(xùn)課程管理")</p><p>　　da.Enabled = Data1.Recordset.Fields("員工培訓(xùn)需求")</p><p>　　hu.Enabled = Data1.Recordset.Fields("培訓(xùn)教材管理")</p&

51、gt;<p>　　kl.Enabled = Data1.Recordset.Fields("權(quán)限設(shè)置")</p><p>　　dt3.Enabled = Data1.Recordset.Fields("數(shù)據(jù)備份")</p><p>　　gfdg.Enabled = Data1.Recordset.Fields("數(shù)據(jù)恢復(fù)&qu

52、ot;)</p><p>　　ii.Enabled = Data1.Recordset.Fields("外出培訓(xùn)管理")</p><p>　　aa.Enabled = Data1.Recordset.Fields("員工基本信息")</p><p>　　au.Enabled = Data1.Recordset.Fields(&

53、quot;員工信息管理")</p><p>　　fg.Enabled = Data1.Recordset.Fields("培訓(xùn)資源管理")</p><p><b>　　End If</b></p><p><b>　　End With</b></p><p><b

54、>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　Data1.DatabaseName = App.Path & "\b.MDB"</p><p><b>　　End Sub</b></p><p>　　在這

55、里會(huì)進(jìn)行分辨該操作員具有怎樣的權(quán)限。</p><p>　　3.3 員工基本信息及管理</p><p>　　Private Sub cmd1_Click()</p><p>　　Dim mycon As New ADODB.Connection</p><p>　　Dim myrs As New ADODB.Recordset</p>

56、;<p>　　mycon.Open "dsn=a"</p><p>　　myrs.Open "ygg", mycon, 3, 2</p><p>　　If Text1.Text = "" Or Text2.Text = "" Or Text4.Text = "" Or Text

57、5.Text = "" Then</p><p>　　MsgBox ("不能為空！")</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　myrs.AddNew</p>&

58、lt;p>　　myrs.Fields("姓名") = Trim(Text1.Text)</p><p>　　myrs.Fields("崗位") = Trim(Text2.Text)</p><p>　　myrs.Fields("性別") = Trim(Combo1.Text)</p><p>　　my

59、rs.Fields("已培訓(xùn)課程") = Trim(Combo3.Text)</p><p>　　myrs.Fields("出生年月") = Trim(Text4.Text)</p><p>　　myrs.Fields("成績(jī)") = Trim(Text5.Text)</p><p>　　myrs.Fiel

60、ds("職稱") = Trim(Combo2.Text)</p><p>　　myrs.Fields("培訓(xùn)計(jì)劃") = Trim(Text7.Text)</p><p>　　myrs.Update</p><p>　　myrs.Close</p><p>　　mycon.Close</p>

61、<p>　　MsgBox "添加成功！"</p><p>　　Adodc1.Refresh</p><p>　　DataGrid1.Refresh</p><p>　　yggsz.Adodc1.Refresh</p><p>　　yggsz.DataGrid1.Refresh</p><p

62、><b>　　End Sub</b></p><p>　　Private Sub cmd2_Click()</p><p>　　Text1.Text = "": Text2.Text = "": Text4.Text = "": Text5.Text = ""</p>

63、<p><b>　　End Sub</b></p><p>　　Private Sub cmd3_Click()</p><p><b>　　Me.Hide</b></p><p><b>　　main.Show</b></p><p><b>　　End

64、Sub</b></p><p>　　Private Sub Combo4_click()</p><p>　　If Combo4.Text = "第一階段" Then</p><p>　　Combo3.AddItem ("語文")</p><p>　　Combo3.AddItem (&quo

65、t;數(shù)學(xué)")</p><p>　　Combo3.AddItem ("英語")</p><p>　　Combo3.AddItem ("物理")</p><p>　　ElseIf Combo4.Text = "第二階段" Then</p><p>　　Combo3.AddIte

66、m ("大學(xué)語文")</p><p>　　Combo3.AddItem ("大學(xué)數(shù)學(xué)")</p><p>　　Combo3.AddItem ("大學(xué)英語")</p><p>　　Combo3.AddItem ("大學(xué)物理")</p><p>　　ElseIf Co

67、mbo4.Text = "第三階段" Then</p><p>　　Combo3.AddItem ("計(jì)算機(jī)基礎(chǔ)")</p><p>　　Combo3.AddItem ("C++語言")</p><p>　　Combo3.AddItem ("電路基礎(chǔ)")</p><p

68、>　　Combo3.AddItem ("操作系統(tǒng)")</p><p>　　ElseIf Combo4.Text = "第四階段" Then</p><p>　　Combo3.AddItem ("微機(jī)技術(shù)")</p><p>　　Combo3.AddItem ("C語言")</

69、p><p>　　Combo3.AddItem ("Java 語言")</p><p>　　Combo3.AddItem ("軟件工程")</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p>&

70、lt;p>　　Private Sub Form_Load()</p><p>　　Combo1.AddItem ("男")</p><p>　　Combo1.AddItem ("女")</p><p>　　Combo2.AddItem ("教授")</p><p>　　Comb

71、o2.AddItem ("副教授")</p><p>　　Combo2.AddItem ("助教")</p><p>　　Combo4.AddItem ("第一階段")</p><p>　　Combo4.AddItem ("第二階段")</p><p>　　Com

72、bo4.AddItem ("第三階段")</p><p>　　Combo4.AddItem ("第四階段")</p><p><b>　　End Sub</b></p><p>　　Private Sub Text5_KeyPress(KeyAscii As Integer)</p><

73、;p>　　If KeyAscii >= 33 Then</p><p>　　If KeyAscii <= vbKey9 And KeyAscii >= vbKey0 Then</p><p><b>　　Else</b></p><p>　　KeyAscii = 0</p><p>　　MsgBo

74、x "只能輸入數(shù)字！"</p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Option Explicit</p><

75、p>　　Dim i As Integer</p><p>　　Dim mycon As New ADODB.Connection</p><p>　　Dim myrs As New ADODB.Recordset</p><p>　　Private Sub cmd1_Click()</p><p>　　Adodc1.RecordSour

76、ce = "select * from ygg where (ygg." & Combo1.Text & " like + '" + Text8.Text + "'+'%')"</p><p>　　Adodc1.Refresh</p><p>　　If Adodc1.Recordse

77、t.RecordCount <> 0 Then</p><p>　　z(0).Text = Adodc1.Recordset.Fields("姓名")</p><p>　　z(1).Text = Adodc1.Recordset.Fields("崗位")</p><p>　　z(2).Text = Adodc1.R

78、ecordset.Fields("性別")</p><p>　　z(3).Text = Adodc1.Recordset.Fields("已培訓(xùn)課程")</p><p>　　z(4).Text = Adodc1.Recordset.Fields("出生年月")</p><p>　　Text1.Text =

79、Adodc1.Recordset.Fields("成績(jī)")</p><p>　　z(6).Text = Adodc1.Recordset.Fields("職稱")</p><p>　　z(7).Text = Adodc1.Recordset.Fields("培訓(xùn)計(jì)劃")</p><p>　　Else: z(

80、0).Text = "": z(1).Text = "": z(2).Text = "": z(3).Text = "": z(4).Text = "": Text1.Text = "": z(6).Text = "": z(7).Text = ""</p><

81、;p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub cmd2_Click()</p><p>　　Dim mycon As New ADODB.Connection</p><p>　　Dim myrs As

82、New ADODB.Recordset</p><p>　　mycon.Open "dsn=a"</p><p>　　myrs.Open "ygg", mycon, 3, 2</p><p>　　myrs.Fields("姓名") = Trim(z(0).Text)</p><p>

83、　　myrs.Fields("崗位") = Trim(z(1).Text)</p><p>　　myrs.Fields("性別") = Trim(z(2).Text)</p><p>　　myrs.Fields("已培訓(xùn)課程") = Trim(z(3).Text)</p><p>　　myrs.Fields

84、("出生年月") = Trim(z(4).Text)</p><p>　　myrs.Fields("成績(jī)") = Trim(Text1.Text)</p><p>　　myrs.Fields("職稱") = Trim(z(6).Text)</p><p>　　myrs.Fields("培訓(xùn)計(jì)劃&q

85、uot;) = Trim(z(7).Text)</p><p>　　myrs.Update</p><p>　　myrs.Close</p><p>　　mycon.Close</p><p>　　MsgBox "修改成功！"</p><p>　　Adodc1.Refresh</p>

86、<p>　　DataGrid1.Refresh</p><p><b>　　End Sub</b></p><p>　　Private Sub cmd3_Click()</p><p><b>　　Me.Hide</b></p><p><b>　　main.Show</b

87、></p><p><b>　　End Sub</b></p><p>　　Private Sub Command1_Click()</p><p>　　Dim a As String</p><p>　　If Adodc1.Recordset.RecordCount > 0 Then</p>

88、<p>　　a = MsgBox("您確實(shí)要?jiǎng)h除這條數(shù)據(jù)嗎?", vbYesNo)</p><p>　　If a = vbYes Then</p><p>　　Adodc1.Recordset.Delete</p><p>　　Adodc1.Refresh</p><p><b>　　End If<

89、;/b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　Combo1.AddItem ("姓名")</p><

90、p>　　Combo1.AddItem ("崗位")</p><p>　　Combo1.AddItem ("職稱")</p><p><b>　　End Sub</b></p><p>　　Private Sub text1_KeyPress(KeyAscii As Integer)</p>

91、;<p>　　If KeyAscii >= 33 Then</p><p>　　If KeyAscii <= vbKey9 And KeyAscii >= vbKey0 Then</p><p><b>　　Else</b></p><p>　　KeyAscii = 0</p><p>　

92、　MsgBox "只能輸入數(shù)字！"</p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　3.4 員工培訓(xùn)需求 （圖略）代碼如下：</

93、p><p>　　Option Explicit</p><p>　　Private Sub cmd1_Click()</p><p>　　Dim mycon As New ADODB.Connection</p><p>　　Dim myrs As New ADODB.Recordset</p><p>　　mycon.O

94、pen "dsn=a"</p><p>　　myrs.Open "ph", mycon, 3, 2</p><p>　　If z(0).Text = "" Or z(1).Text = "" Or z(2).Text = "" Or z(3).Text = "" Or z

95、(4).Text = "" Then</p><p>　　MsgBox ("不能為空！")</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　myrs.AddNew</p>

96、<p>　　myrs.Fields("課程") = Trim(z(0).Text)</p><p>　　myrs.Fields("培訓(xùn)教師") = Trim(z(1).Text)</p><p>　　myrs.Fields("培訓(xùn)人數(shù)") = Trim(z(2).Text)</p><p>　　

97、myrs.Fields("培訓(xùn)地點(diǎn)") = Trim(z(3).Text)</p><p>　　myrs.Fields("備注") = Trim(z(4).Text)</p><p>　　myrs.Update</p><p>　　myrs.Close</p><p>　　mycon.Close<

98、/p><p>　　MsgBox "添加成功！"</p><p>　　Adodc1.Refresh</p><p>　　DataGrid1.Refresh</p><p><b>　　End Sub</b></p><p>　　Private Sub cmd2_Click()<