員工培訓管理系統(tǒng)畢業(yè)設計論文

1、員工培訓管理系統(tǒng) 目錄第一章 1.1總體需求調(diào)查1.1. 1組織結(jié)構(gòu)圖1.1.2系統(tǒng)目標 1.1.3 應用現(xiàn)狀調(diào)查 1.1.4 總體流程 1.2 員工信息管理1.2. 1員工信息管理1.2.2員工培訓需求 1.2.3操作員管理 1.2.4系統(tǒng)幫助功能 第二章 2.1概念設計2.2對數(shù)據(jù)庫鏈接設計 第三章 詳細設計 3.1啟動界面設計 3.2 主界面 3.3員工基本信息及管理 3.4 員工培訓需求 3.5計劃修改 3.6 操作員設置 3.7 權(quán)限設置 3.8數(shù)據(jù)備份 3.9 數(shù)據(jù)恢復 3.10 初始化第四章 測試及性能分析第五章 結(jié)束語第六章 參考文獻摘要隨著計算機技術的飛速發(fā)展，計算機在企業(yè)管

2、理中應用的普及，利用計算機實現(xiàn)一個對員工培訓管理操作勢在必行。近年來，隨著改革開放步伐的加快和中西方文化的交流，特別是中國加入wto，各種公司都將面臨巨大的挑戰(zhàn)，只有公司的每個員工都具備更好的技術，最新的知識，才能在改革開放的浪潮中處于不敗之地。如何對員工培訓進行管理，這需要一個適應自己的管理系統(tǒng)。只有這樣才能使公司不被淘汰。使用本系統(tǒng)，不僅使公司更加方便的管理員工、培養(yǎng)員工，也不會發(fā)生員工重復培訓，沒培訓等等錯誤。避免發(fā)生不應該發(fā)生的事情。本系統(tǒng)結(jié)合臺州地區(qū)的公司情況、員工知識結(jié)構(gòu)，員工的年齡結(jié)構(gòu)，小公司的普遍性，加上電腦界面的友好性，經(jīng)過實際的需求分析，采用功能強大的visual basi

3、c 6.0 工具開發(fā)員工培訓管理系統(tǒng)。整個系統(tǒng)從符合操作簡便、界面友好、靈活、實用、安全的要求出發(fā)，完成對員工管理系統(tǒng)的操作員管理，包括系統(tǒng)用戶管理、權(quán)限管理、數(shù)據(jù)備份、數(shù)據(jù)恢復、系統(tǒng)初始化。員工各種信息的輸入，包括員工基本信息、職稱、崗位、已經(jīng)培訓過的課程和成績、培訓計劃等。員工各種信息的查詢、修改，包括員工基本信息、職稱、崗位、已經(jīng)培訓過的課程和成績、培訓計劃等。企業(yè)所有員工培訓需求的管理。企業(yè)培訓計劃的制定、修改、使用幫助。經(jīng)過實際使用證明，本文所設計的員工培訓管理系統(tǒng)可以滿足臺州以及全國各地區(qū)的各種小型公司員工的培訓管理，操作方面的需要。論文主要介紹了本課題的開發(fā)背景，所要完成的功能和

4、開發(fā)的過程。重點的說明了系統(tǒng)設計的重點、設計思想、難點技術和解決方案。 關鍵字：員工培訓、課程設置、管理系統(tǒng)。 第一章1.1 總體需求調(diào)查1.1.1組織結(jié)構(gòu)圖員工培訓管理系統(tǒng)組織結(jié)構(gòu)圖如下： 員工各種信息的輸入，包括員工基本信息、職稱、崗位、已經(jīng)培訓過的課程和成績、 培訓計劃等。 員工各種信息的查詢、修改，包括員工基本信息、職稱、崗位、已經(jīng)培訓過的課程和成績、培訓計劃等。 企業(yè)所有員工培訓需求的管理。 企業(yè)培訓計劃的制定、修改 系統(tǒng)用戶管理、權(quán)限管理、數(shù)據(jù)備份、數(shù)據(jù)恢復、系統(tǒng)初始化 使用幫助1.1.2 系統(tǒng)目標面對信息化時代及其發(fā)展過程中出現(xiàn)的各種情況，員工培訓管理系統(tǒng)在實施后達到以下目標：1

5、實現(xiàn)多點操作的信息共享，相互之間傳遞準確、快捷、順暢。2.全面自動化的管理,可隨時掌握員工各種信息及培訓的各種情況等等。3.能夠快捷、準確處理員工是否培訓，處理各種資源、教材、教師等信息。4.系統(tǒng)界面友好美觀，操作簡單易行，查詢、修改等操作靈活方便，數(shù)據(jù)存儲安全可靠。5.系統(tǒng)維護安全，方便，可靠，并且能夠滿足實用性、先進性的要求。1.1.3 應用現(xiàn)狀調(diào)查目前，企業(yè)員工培訓管理都是人工管理。各方面都是的人工操作，這樣不僅浪費人員且操作不方便，不能滿足企業(yè)的需求，而且不能滿足當前臺州中小企業(yè)的發(fā)展需要。1.1.4 總體流程：開始進入的進入界面,再進入主界面進行各種操作,包括操作員設置、系統(tǒng)用戶管理

6、、權(quán)限管理、數(shù)據(jù)備份、數(shù)據(jù)恢復、系統(tǒng)初始化等一系列操作。1.2員工信息管理整個系統(tǒng)從總體上分為員工信息管理、員工培訓需求、操作員管理、幫助四大部分，每一部分應實現(xiàn)的功能.1.2.1員工信息管理 員工基本信息的輸入，包括姓名、崗位、性別、已培訓課程、出生年月、成績、職稱、培訓計劃等基本信息。 員工信息的維護：包括添加、修改、刪除、查找等。 員工基本信息的查找：按姓名，崗位，職稱。查找包括姓名、崗位、性別、已培訓課程、出生年月、成績、職稱、培訓計劃等基本信息。 1.2.2員工培訓需求員工培訓需求的輸入，包括課程，教師，人數(shù)，地點，備注。員工培訓需求的維護：包括添加、修改、刪除、查找等。 員工培訓需

7、求的查找：按課程，培訓教師，培訓地點，查找包括課程，教師，人數(shù)，地點，備注等基本信息。1.2.3操作員管理操作員管理的輸入：包括操作員設置，權(quán)限設置，數(shù)據(jù)備份，數(shù)據(jù)恢復，初始化。操作員管理的維護：包括添加、修改等權(quán)限設置：包括操作員刪除、權(quán)限添加等。數(shù)據(jù)備份：把當前的數(shù)據(jù)庫文件b.mdb保存為今天的日期b.mdb數(shù)據(jù)恢復：把當前的數(shù)據(jù)庫文件恢復為以前的文件。初始化：把員工基本信息、教師評價、教師信息管理、課程管理、培訓需求等數(shù)據(jù)表內(nèi)的內(nèi)容清空。 1.2.4系統(tǒng)幫助功能 可以通過上面的控件發(fā)email到我的郵箱。 第二章2.1概念設計概要設計基礎是完成需求分析后提供的需求說明書，用概念數(shù)據(jù)模型表

8、示數(shù)據(jù)及其相互間的關系，這種數(shù)據(jù)模型是與dbms無關的、面向現(xiàn)實世界的、易如理解的數(shù)據(jù)模型，其獨立于計算機的數(shù)據(jù)模型，獨立于計算機的軟硬件系統(tǒng)，與用戶進行交流十分方便。概念性數(shù)據(jù)模型關心的是如何完整、正確地反映客觀實際情況，不關心在數(shù)據(jù)庫中如何實現(xiàn)。這種數(shù)據(jù)模式能真實地反應用戶要求的實際情況，是一種容易被人們理解的直觀的數(shù)據(jù)庫結(jié)構(gòu)模式。同時也是一種相對穩(wěn)定統(tǒng)一的數(shù)據(jù)模式，一般情況下很少變動。概念性數(shù)據(jù)在用戶和設計者之間建立了橋梁。是設計數(shù)據(jù)庫結(jié)構(gòu)的基礎。概念設計中自頂向下的實體分析方法，即常用的實體聯(lián)系模型（簡稱e-r模型），對具體數(shù)據(jù)進行抽象加工，將實體集合抽象成實體類型。用實體間聯(lián)系反映現(xiàn)

9、實世界事物間的內(nèi)在聯(lián)系。e-r模型是建立概念性數(shù)據(jù)模型的有力工具。通過對員工信息管理系統(tǒng)內(nèi)容過程的分析，本系統(tǒng)應設計的實體和屬性如下：員工信息管理（包括員工基本信息，信息管理）培訓需求管理（員工培訓需求，計劃修改）操作員管理（操作員管理、權(quán)限管理、數(shù)據(jù)備份、數(shù)據(jù)恢復、系統(tǒng)初始化）幫助（通過發(fā)email進行幫助）2.2對數(shù)據(jù)庫鏈接設計作為microsoft公司的數(shù)據(jù)庫，access數(shù)據(jù)庫在visual basic 6.0中的應用非常廣泛，為此我選用access數(shù)據(jù)庫來進行數(shù)據(jù)庫的邏輯設計。根據(jù)前面定義的實體及實休之間的關系，形成數(shù)據(jù)庫的表格以及各個表之間的關系。在控制面板中進行數(shù)據(jù)源設置。如下：

10、 在控制面板中雙擊odbc數(shù)據(jù)源（32位），進入如下： 點擊“添加”，進入如下：選中microsoft access driver (*.mdb) 單擊完成，如下： 在數(shù)據(jù)源名中填寫a,單擊選取選擇b.mdb，最后確定。 在vb數(shù)據(jù)源連接中如下：而gatagird的datasource的屬性值為adodc這個控件用以下代碼：dim mycon as new adodb.connection 定義connection對象，連接數(shù)據(jù)庫dim myrs as new adodb.recordset 定義recordset對象，操作數(shù)據(jù)mycon.open dsn=a 打開數(shù)據(jù)庫myrs.open k

11、cpj, mycon, 3, 2 打開表kcpj,3,2代表打開的表可讀可寫為了減少數(shù)據(jù)冗余度，將表設置包括操作員qxsz(操作員，密碼等)，員工基本信息表ygg,員工培訓計劃ph,計劃修改jh表。 操作員設置qxsz表：a其它略。第三章 詳細設計 根據(jù)需求分析、概要設計的結(jié)果，采用visual basic 6.0做為開發(fā)工具，實現(xiàn)員工培訓管理系統(tǒng)各模塊的功能。3.1啟動界面設計：option explicitdim mycon as new adodb.connectiondim myrs as new adodb.recordsetdim tim as integerdim myval a

12、s 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 =

13、 msgbox(密碼輸入錯誤,請向系統(tǒng)管理員查詢!) if myval = vbok then end end if if text1.boundtext = then msgbox (請輸入操作員!) text1.setfocus else if text1.boundtext adodc1.recordset.fields(操作員) then msgbox (查無此操作員,請重新輸入操作員!) text1.setfocus else if text2.text = then msgbox (請輸入操作員密碼!) text2.setfocus else if text2.text adodc

14、1.recordset.fields(密碼) then msgbox (密碼錯誤,請重新輸入密碼!) 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 (請先設置操作員密碼和權(quán)限！)load main main.show unloa

15、d me end if end subprivate sub text2_keydown(keycode as integer, shift as integer)if keycode = vbkeyreturn then cmd1.setfocusend sub進入員工培訓管理系統(tǒng)必須有操作員及密碼。當數(shù)據(jù)庫中無這個操作員時，會有查無此操作員,請重新輸入操作員!這個提示框。當操作員及密碼輸入框為空時會彈出請輸入操作員!及請輸入操作員密碼!等等。32 主界面 部份代碼如下：private sub dt3_click()unload mesjbf.showend subprivate sub f

16、dfsa_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.records

17、et.fields(初始化)kk.enabled = data1.recordset.fields(操作員設置)l.enabled = trueds.enabled = data1.recordset.fields(計劃制定、修改)jj.enabled = data1.recordset.fields(教師基本信息)jhd.enabled = data1.recordset.fields(教師評價)sd.enabled = data1.recordset.fields(課程評價)sa.enabled = data1.recordset.fields(培訓課程管理)da.enabled = da

18、ta1.recordset.fields(員工培訓需求)hu.enabled = data1.recordset.fields(培訓教材管理)kl.enabled = data1.recordset.fields(權(quán)限設置)dt3.enabled = data1.recordset.fields(數(shù)據(jù)備份)gfdg.enabled = data1.recordset.fields(數(shù)據(jù)恢復)ii.enabled = data1.recordset.fields(外出培訓管理)aa.enabled = data1.recordset.fields(員工基本信息)au.enabled = data

19、1.recordset.fields(員工信息管理)fg.enabled = data1.recordset.fields(培訓資源管理) end if end withend subprivate sub form_load() data1.databasename = app.path & b.mdbend sub在這里會進行分辨該操作員具有怎樣的權(quán)限。3.3 員工基本信息及管理private sub cmd1_click()dim mycon as new adodb.connectiondim myrs as new adodb.recordsetmycon.open dsn=amyr

20、s.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(已培訓課程) = trim(combo3.text)myrs.fields(出生年月) = trim(text

21、4.text)myrs.fields(成績) = trim(text5.text)myrs.fields(職稱) = trim(combo2.text)myrs.fields(培訓計劃) = trim(text7.text)myrs.updatemyrs.closemycon.closemsgbox 添加成功！adodc1.refreshdatagrid1.refreshyggsz.adodc1.refreshyggsz.datagrid1.refreshend subprivate sub cmd2_click()text1.text = : text2.text = : text4.tex

22、t = : text5.text = end subprivate sub cmd3_click()me.hidemain.showend subprivate sub combo4_click()if combo4.text = 第一階段 thencombo3.additem (語文)combo3.additem (數(shù)學)combo3.additem (英語)combo3.additem (物理)elseif combo4.text = 第二階段 thencombo3.additem (大學語文)combo3.additem (大學數(shù)學)combo3.additem (大學英語)combo3

23、.additem (大學物理)elseif combo4.text = 第三階段 thencombo3.additem (計算機基礎)combo3.additem (c+語言)combo3.additem (電路基礎)combo3.additem (操作系統(tǒng))elseif combo4.text = 第四階段 thencombo3.additem (微機技術)combo3.additem (c語言)combo3.additem (java 語言)combo3.additem (軟件工程)end ifend subprivate sub form_load()combo1.additem (男)

24、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

25、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.record

26、set.fields(姓名)z(1).text = adodc1.recordset.fields(崗位)z(2).text = adodc1.recordset.fields(性別)z(3).text = adodc1.recordset.fields(已培訓課程)z(4).text = adodc1.recordset.fields(出生年月)text1.text = adodc1.recordset.fields(成績)z(6).text = adodc1.recordset.fields(職稱)z(7).text = adodc1.recordset.fields(培訓計劃) else

27、: 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.field

28、s(崗位) = trim(z(1).text)myrs.fields(性別) = trim(z(2).text)myrs.fields(已培訓課程) = trim(z(3).text)myrs.fields(出生年月) = trim(z(4).text)myrs.fields(成績) = trim(text1.text)myrs.fields(職稱) = trim(z(6).text)myrs.fields(培訓計劃) = trim(z(7).text)myrs.updatemyrs.closemycon.close msgbox 修改成功！adodc1.refreshdatagrid1.re

29、freshend subprivate sub cmd3_click()me.hidemain.showend subprivate sub command1_click()dim a as stringif adodc1.recordset.recordcount 0 then a = msgbox(您確實要刪除這條數(shù)據(jù)嗎?, vbyesno) if a = vbyes then adodc1.recordset.delete adodc1.refresh end if end ifend subprivate sub form_load()combo1.additem (姓名)combo1

30、.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 員工培訓需求 （圖略）代碼如下：option explicitprivate sub cmd1_click()dim mycon as new adodb.connectiondim myrs as new adodb.recor

31、dsetmycon.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(培訓教師) = trim(z(1).text)myrs.fields(培訓人數(shù)) = trim(z(2).text)myrs.fields(培訓地點) = trim(z(3).text

32、)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.rec

33、ordcount 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(培訓教師) = trim(z

34、(1).text)myrs.fields(培訓人數(shù)) = trim(z(2).text)myrs.fields(培訓地點) = 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.reco

35、rdset.recordcount 0 then a = msgbox(您確實要刪除這條數(shù)據(jù)嗎?, vbyesno) if a = vbyes then adodc1.recordset.delete adodc1.refresh end if end ifend subprivate sub form_load()combo2.additem (課程)combo2.additem (培訓教師)combo2.additem (培訓地點)cmd1.enabled = truecmd2.enabled = truecmd3.enabled = falsecommand1.enabled = tru

36、eend sub3.5計劃修改 （圖略）部分代碼：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.f

37、ields(時間) = trim(text2.text)myrs.fields(地點) = trim(text3.text)myrs.fields(計劃) = 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

38、.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 myr

39、s as new adodb.recordsetmycon.open dsn=amyrs.open jh, mycon, 3, 2myrs.fields(事件) = trim(text1.text)myrs.fields(時間) = trim(text2.text)myrs.fields(地點) = trim(text3.text)myrs.fields(計劃) = trim(text4.text)myrs.updatemyrs.closemycon.close msgbox 修改成功！adodc1.refreshdatagrid1.refreshend sub36 操作員設置（圖略）部份代碼

40、如下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(時間) = trim(text2.

41、text)myrs.fields(地點) = trim(text3.text)myrs.fields(計劃) = 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.reco

42、rdset.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.recordse

43、tmycon.open dsn=amyrs.open jh, mycon, 3, 2myrs.fields(事件) = trim(text1.text)myrs.fields(時間) = trim(text2.text)myrs.fields(地點) = trim(text3.text)myrs.fields(計劃) = trim(text4.text)myrs.updatemyrs.closemycon.close msgbox 修改成功！adodc1.refreshdatagrid1.refreshend sub37 權(quán)限設置（圖略）代碼如下：option explicitdim i as

44、 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

45、 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.

46、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 i

47、nteger) 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 &

48、 .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ù)恢復 （圖略）代碼如下：private sub form_unload(cancel as integer)main.enabled = trueend subprivate sub dir1_change() file1.path = dir1.p

49、athend 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 請選擇要恢復的數(shù)據(jù)！ else me.mousepointer = 11 filecopy dir1.path & & file1.filename, app.path & a.mdb me.mous

50、epointer = 0 msgbox 數(shù)據(jù)已恢復完畢！ 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(workarea)