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

1、題 目 員工培訓(xùn)管理系統(tǒng) 姓 名 專 業(yè) 計算機(jī)科學(xué)與技術(shù) 指導(dǎo)教師 學(xué) 校 大學(xué) 日 期 目錄第一章 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è)計2.2對數(shù)據(jù)庫鏈接設(shè)計 第三章 詳細(xì)設(shè)計 3.1啟動界面設(shè)計 3.2 主界面 3.3員工基本信息及管理 3.4 員工培訓(xùn)需求 3.5計劃修改 3.6 操作員設(shè)置 3.7 權(quán)限設(shè)置 3.8數(shù)據(jù)備份 3.9 數(shù)據(jù)恢復(fù) 3.10 初始化第四章 測試及性能分析

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

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

4、培訓(xùn)管理，操作方面的需要。論文主要介紹了本課題的開發(fā)背景，所要完成的功能和開發(fā)的過程。重點的說明了系統(tǒng)設(shè)計的重點、設(shè)計思想、難點技術(shù)和解決方案。 關(guān)鍵字：員工培訓(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)過的課程和成績、 培訓(xùn)計劃等。 員工各種信息的查詢、修改，包括員工基本信息、職稱、崗位、已經(jīng)培訓(xùn)過的課程和成績、培訓(xùn)計劃等。 企業(yè)所有員工培訓(xùn)需求的管理。 企業(yè)培訓(xùn)計劃的制定、修改 系統(tǒng)用戶管理、權(quán)限管理、數(shù)據(jù)備份、數(shù)據(jù)恢復(fù)、系統(tǒng)初始化 使用幫助1.1.2 系統(tǒng)目標(biāo)面對信息化

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

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

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

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

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

10、，形成數(shù)據(jù)庫的表格以及各個表之間的關(guān)系。在控制面板中進(jìn)行數(shù)據(jù)源設(shè)置。如下： 在控制面板中雙擊odbc數(shù)據(jù)源（32位），進(jìn)入如下： 點擊“添加”，進(jìn)入如下：選中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對象，

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

12、ecordsetdim 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 u

13、nload me else if tim = 2 then myval = 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 (請輸入操作員密碼!) te

14、xt2.setfocus else if text2.text adodc1.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 (請先

15、設(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ù)庫中無這個操作員時，會有查無此操作員,請重新輸入操作員!這個提示框。當(dāng)操作員及密碼輸入框為空時會彈出請輸入操作員!及請輸入操作員密碼!等等。32 主界面 部份代碼如下：private sub dt3_click()u

16、nload 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.en

17、abled = czysz.enabled = data1.recordset.fields(初始化)kk.enabled = data1.recordset.fields(操作員設(shè)置)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.re

18、cordset.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.reco

19、rdset.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在這里會進(jìn)行分辨該操作員具有怎樣的權(quán)限。3.3 員工基本信息及管理private sub cmd1_click()dim mycon as new adodb.connectiondim myrs as n

20、ew 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(comb

21、o3.text)myrs.fields(出生年月) = trim(text4.text)myrs.fields(成績) = trim(text5.text)myrs.fields(職稱) = trim(combo2.text)myrs.fields(培訓(xùn)計劃) = trim(text7.text)myrs.updatemyrs.closemycon.closemsgbox 添加成功！adodc1.refreshdatagrid1.refreshyggsz.adodc1.refreshyggsz.datagrid1.refreshend subprivate sub cmd2_click()te

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

23、tem (大學(xué)數(shù)學(xué))combo3.additem (大學(xué)英語)combo3.additem (大學(xué)物理)elseif combo4.text = 第三階段 thencombo3.additem (計算機(jī)基礎(chǔ))combo3.additem (c+語言)combo3.additem (電路基礎(chǔ))combo3.additem (操作系統(tǒng))elseif combo4.text = 第四階段 thencombo3.additem (微機(jī)技術(shù))combo3.additem (c語言)combo3.additem (java 語言)combo3.additem (軟件工程)end ifend subpriv

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

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

26、count 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(成績)z(6).text = adodc1.recordset.fields(職稱)z(7).text

27、 = adodc1.recordset.fields(培訓(xùn)計劃) 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.f

28、ields(姓名) = 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(成績) = trim(text1.text)myrs.fields(職稱) = trim(z(6).text)myrs.fields(培訓(xùn)計劃) = 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ù)據(jù)嗎?, vbyesno) if a = vbyes then adodc1.recordset.delete adodc1.refresh end if end i