員工培訓(xùn)管理系統(tǒng)免費(fèi)畢業(yè)設(shè)計(jì)論文.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ù)據(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ù)源名中填寫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)的表可讀可寫為了減少數(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