員工培訓管理實現(xiàn)與設計畢業(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)目標</b></p><p>　　1.1.3 應用現(xiàn)狀調(diào)查<

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

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

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

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

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

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

8、al Basic 6.0 工具開發(fā)員工培訓管理系統(tǒng)。</p><p>　　整個系統(tǒng)從符合操作簡便、界面友好、靈活、實用、安全的要求出發(fā)，完成對員工管理系統(tǒng)的操作員管理，包括系統(tǒng)用戶管理、權(quán)限管理、數(shù)據(jù)備份、數(shù)據(jù)恢復、系統(tǒng)初始化。員工各種信息的輸入，包括員工基本信息、職稱、崗位、已經(jīng)培訓過的課程和成績、培訓計劃等。員工各種信息的查詢、修改，包括員工基本信息、職稱、崗位、已經(jīng)培訓過的課程和成績、培訓計劃等。企業(yè)所有員

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

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

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

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

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

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

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

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

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

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

19、;p>　　初始化：把員工基本信息、教師評價、教師信息管理、課程管理、培訓需求等數(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概念設計</b

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

21、要求的實際情況，是一種容易被人們理解的直觀的數(shù)據(jù)庫結(jié)構(gòu)模式。同時也是一種相對穩(wěn)定統(tǒng)一的數(shù)據(jù)模式，一般情況下很少變動。概念性數(shù)據(jù)在用戶和設計者之間建立了橋梁。是設計數(shù)據(jù)庫結(jié)構(gòu)的基礎。</p><p>　　概念設計中自頂向下的實體分析方法，即常用的實體聯(lián)系模型（簡稱E-R模型），對具體數(shù)據(jù)進行抽象加工，將實體集合抽象成實體類型。用實體間聯(lián)系反映現(xiàn)實世界事物間的內(nèi)在聯(lián)系。E-R模型是建立概念性數(shù)據(jù)模型的有力工具。<

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

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

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

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

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

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

28、t;/p><p>　　根據(jù)需求分析、概要設計的結(jié)果，采用Visual Basic 6.0做為開發(fā)工具，實現(xiàn)員工培訓管理系統(tǒng)各模塊的功能。</p><p>　　3.1啟動界面設計：</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("密碼輸入錯誤,請向系統(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 ("請輸入操作員!")</p><p>　　Text1.SetFocus</p><p><b

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

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

36、e</b></p><p>　　If Text2.Text <> Adodc1.Recordset.Fields("密碼") Then</p><p>　　MsgBox ("密碼錯誤,請重新輸入密碼!")</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 ("請先設置操作員密碼和權(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>　　進入員工培訓管理系統(tǒng)必須有操作員及密碼。當數(shù)據(jù)庫中無這個操作員時，會有查無此操作員,請重新輸入操作員!這個提示框。當操作員及密碼輸入框為空時會彈出請輸入操作員!及請輸入操作員密碼!等等。</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("操作員設置")</p><p>　　l.Enabled = True</p><p>　　ds.Enabled = Data1.Recordset.Fields("計劃制定、修改")</p><p>　　jj.Enable

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

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

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

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

53、quot;員工信息管理")</p><p>　　fg.Enabled = Data1.Recordset.Fields("培訓資源管理")</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、里會進行分辨該操作員具有怎樣的權(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("已培訓課程") = Trim(Combo3.Text)</p><p>　　myrs.Fields("出生年月") = Trim(Text4.Text)</p><p>　　myrs.Fields("成績") = Trim(Text5.Text)</p><p>　　myrs.Fiel

60、ds("職稱") = Trim(Combo2.Text)</p><p>　　myrs.Fields("培訓計劃") = 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ù)學")</p><p>　　Combo3.AddItem ("英語")</p><p>　　Combo3.AddItem ("物理")</p><p>　　ElseIf Combo4.Text = "第二階段" Then</p><p>　　Combo3.AddIte

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

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

68、>　　Combo3.AddItem ("操作系統(tǒng)")</p><p>　　ElseIf Combo4.Text = "第四階段" Then</p><p>　　Combo3.AddItem ("微機技術(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("已培訓課程")</p><p>　　z(4).Text = Adodc1.Recordset.Fields("出生年月")</p><p>　　Text1.Text =

79、Adodc1.Recordset.Fields("成績")</p><p>　　z(6).Text = Adodc1.Recordset.Fields("職稱")</p><p>　　z(7).Text = Adodc1.Recordset.Fields("培訓計劃")</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("已培訓課程") = Trim(z(3).Text)</p><p>　　myrs.Fields

84、("出生年月") = Trim(z(4).Text)</p><p>　　myrs.Fields("成績") = Trim(Text1.Text)</p><p>　　myrs.Fields("職稱") = Trim(z(6).Text)</p><p>　　myrs.Fields("培訓計劃&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ù)據(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 員工培訓需求 （圖略）代碼如下：</

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("培訓教師") = Trim(z(1).Text)</p><p>　　myrs.Fields("培訓人數(shù)") = Trim(z(2).Text)</p><p>　　

97、myrs.Fields("培訓地點") = 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()<