培訓(xùn)管理系統(tǒng)-工學(xué)學(xué)士畢業(yè)論文

1、abstractthe along with the rapid development of computer technology，computer technology extensive moments should be moving or future in affects us ordinary life， although people dont really understand the computer technology, but their life has is closely related with it，computer technology not only

2、 affects peoples life，and a wider range of affecting our enterprise company，they obtained by computer technology, that they originally old soar revolutionized the management mode of change，greatly reducing the cost of manpower. using the information management system to replace original artificially

3、 management mode，certainly will give companies bring an unprecedented revolution.based on the background of employee training management system，combining with the actual situation of the company, after field research，through actual requirement analysis，using powerful vs tool development staff traini

4、ng management system, this system is make the enterprise staff training work systematized, standardization，automation，so as to improve the enterprise training management efficiency purpose. the system fully utilize the companys existing resources, and improve the system development level and applica

5、tion effect，from the entire system to operate and friendly interface and the completion of the operator management staff management system，including users of the system management，rights management， data backup，restore data，system initialization. training various information input, including course

6、management，the latest training information management，training demand management, classrooms management，management of department and so on, each module is done in information add, delete，modify，inquires the and so on function! system uses modular programming method，convenient for system combination

7、and modification, facilitate again companys technical maintenance personnel maintenance.keywords: training management; training needs; the latest training; standardized training1. 緒論1.1組織機(jī)構(gòu)概況通威集團(tuán)是以農(nóng)業(yè)、新能源雙主業(yè)發(fā)展，并在化工、寵物食品、1t、建筑與 房地產(chǎn)等行業(yè)快速發(fā)展的大型民營科技型企業(yè)。集團(tuán)現(xiàn)擁奮遍布全國各地及東南 亞地區(qū)的一百余家分、子公司，員工逾萬人，.其中通威股份上市公司年飼料生產(chǎn) 能

8、力逾600萬噸，是全球最大的水產(chǎn)飼料生產(chǎn)企業(yè)及主要的畜禽飼料生產(chǎn)企業(yè)， 水產(chǎn)飼料全國市場占有率己達(dá)到25%，連續(xù)16年位居全國第一。通威集團(tuán)歷來注重員工教育培訓(xùn)制度，突出知識培訓(xùn)和能力培訓(xùn)相結(jié)合，努 力學(xué)習(xí)飼料創(chuàng)新知識，提高員工內(nèi)在素質(zhì)教育，提升員工適應(yīng)能力，競爭能力， 外在發(fā)展能力0標(biāo)。1.2項(xiàng)目開發(fā)背景由于集團(tuán)近兒年發(fā)展迅速，成長加速，不斷開發(fā)適銷的產(chǎn)品，滿足市場需求， 很快創(chuàng)出了自己的品牌，內(nèi)部和外部的競爭壓力日益增大，對集團(tuán)領(lǐng)導(dǎo)管理能力 和員工的專業(yè)水平及創(chuàng)新水平提出了一定的挑戰(zhàn)。面對這種形勢，通威集團(tuán)領(lǐng)導(dǎo)深刻認(rèn)識進(jìn)一步提高管理水平和員工自身專業(yè) 水平的重耍性，為了使公司的培訓(xùn)工作科學(xué)

9、化，規(guī)范化，適應(yīng)激烈的市場競爭， 為公司更好的發(fā)展做好準(zhǔn)備，通威飼料集團(tuán)領(lǐng)導(dǎo)決定建立培訓(xùn)管理系統(tǒng)。1.3項(xiàng)目開發(fā)的意義由于原本集團(tuán)教育培訓(xùn)主要采取手工作業(yè)方式，人量數(shù)據(jù)流失，培訓(xùn)成效較 低，信息處理的工作量大，重復(fù)量大，費(fèi)時(shí)費(fèi)力，容易出錯。現(xiàn)今集閉規(guī)模不斷 增大，人員增多，所以集閉培訓(xùn)管理系統(tǒng)的改變勢在必行，確保其準(zhǔn)確性、有效 性和系統(tǒng)性。既節(jié)省y時(shí)間又提高y工作效率，管理工作也可以便捷有序地進(jìn)行。2. 系統(tǒng)分析系統(tǒng)分析階段是最主要的工作，在于明確系統(tǒng)的目標(biāo)和用戶對新系統(tǒng)的具體 需求，同時(shí)以文件表達(dá)的方式詳細(xì)而完整地描述需求的內(nèi)容，即新系統(tǒng)將要“做 什么”，并定義新系統(tǒng)的各項(xiàng)功能和性能，對現(xiàn)行

10、系統(tǒng)進(jìn)行充分的調(diào)查研宄，了 解現(xiàn)行系統(tǒng)的現(xiàn)狀和業(yè)務(wù)流程，針對其存在的主要問題，提出新系統(tǒng)的邏輯模型。2.1系統(tǒng)調(diào)査了解系統(tǒng)需求是進(jìn)行系統(tǒng)分析和設(shè)計(jì)的重要基礎(chǔ)工作，因此必須對集團(tuán)各管 理部們的工作進(jìn)行全而、細(xì)致而充分的調(diào)斉研宂，只有通過對現(xiàn)行系統(tǒng)全而深入 的調(diào)奔分析，才能找出解決的問題的關(guān)鍵所在，從而確保新系統(tǒng)的有效性。經(jīng)初 步調(diào)奔，通威飼料集團(tuán)由董事會主席負(fù)責(zé)制，集團(tuán)各個(gè)部門由主席直接管理，管 理部門有人力資源部，市場部，工程部，財(cái)務(wù)部，研發(fā)部，其中人力資源部下設(shè): 培訓(xùn)部和行政部各個(gè)部們的職責(zé)如下：人力資源部：職工的職務(wù)調(diào)動、職工培訓(xùn)、考勤記錄財(cái)務(wù)部：組織實(shí)施并督導(dǎo)公司核算管理、資產(chǎn)管理、現(xiàn)

11、金管理、票據(jù)管理登 記工作，審核各部門的設(shè)備、物資采購計(jì)劃、公司開支計(jì)劃。市場部：進(jìn)行飼料的銷售，以及售后服務(wù)工作工程部：管理某區(qū)的飼料銷售工作研發(fā)部：研發(fā)新型飼料的工作從總體結(jié)構(gòu)來看，集團(tuán)的組織層次圖如下：人力資源部培訓(xùn)部 行政部主席總經(jīng)理財(cái)務(wù)部市場部 工程部采購部 銷售部吿后研發(fā)部圖2-1組織結(jié)構(gòu)圖2.2可行性分析可行性分析是需求分析的重要活動，是對系統(tǒng)進(jìn)行全面、概要的分析?，F(xiàn)行系統(tǒng)主要進(jìn)行培訓(xùn)課程的錄入和一些簡單的查詢，很多地方仍需要手工 操作。il信息處理出錯率比較高，尤其是對于大量數(shù)據(jù)性能差。因此，我們需要建立新的信息自動化的管理系統(tǒng)，充分利用現(xiàn)有資源，改進(jìn) 工作方式，提高管理水平，

12、因此要對系統(tǒng)進(jìn)行技術(shù)可行性、經(jīng)濟(jì)可行性兩方面的 系統(tǒng)可行性分析。2.2.1技術(shù)可行性近兒年來計(jì)算機(jī)技術(shù)發(fā)展異常迅猛，高速度大容量的電腦已經(jīng)成為許多集團(tuán) 閂常工作必不可少的設(shè)備，推動辦公自動化的軟件不斷涌現(xiàn)，微機(jī)的普及為該系 統(tǒng)的開發(fā)奠定了堅(jiān)實(shí)的基礎(chǔ)，本開發(fā)小組有能力根據(jù)系統(tǒng)對技術(shù)的耍求，完成整 個(gè)系統(tǒng)開發(fā)工作，按照目前的計(jì)算機(jī)書庫存儲量及運(yùn)行處理性能，運(yùn)用現(xiàn)有的管 理信息系統(tǒng)開發(fā)理論及成熟技術(shù)，完全可以實(shí)現(xiàn)開發(fā)要求2.2.2.經(jīng)濟(jì)可行性對于開發(fā)一方面可以做到對于系統(tǒng)開發(fā)的集中，另一方面也可以節(jié)省系統(tǒng)的 開發(fā)費(fèi)用，系統(tǒng)開發(fā)成功投入使用之后，給集團(tuán)帶來了很人的利益，降低了教育 成本，并能更快更及時(shí)

13、地讓員工獲得更多有用的信息，提高了決策水平，所以， 培訓(xùn)管理系統(tǒng)所需的開發(fā)費(fèi)用并不是很昂貴，然而這套系統(tǒng)的成功投入使用可以 幫助集團(tuán)使員工的培訓(xùn)管理更加合理化、規(guī)范化。2.3軟件系統(tǒng)的總目標(biāo)通過培訓(xùn)管理信息系統(tǒng)的原理和方法，采用成熟的信息技術(shù)和手段，支持集 團(tuán)對員工情況的管理，提高集團(tuán)各部門各對應(yīng)的運(yùn)行機(jī)制，及吋發(fā)現(xiàn)蘇中存在的 問題，提供管理決策支持功能，為了提高集團(tuán)的質(zhì)量提供幫助，也為今后的發(fā)展 提供了技術(shù)準(zhǔn)備，從而達(dá)到提高企業(yè)培訓(xùn)管理效率的b的。系統(tǒng)開發(fā)的總體任務(wù) 是實(shí)現(xiàn)企業(yè)員工培訓(xùn)管理的系統(tǒng)化、規(guī)范化、自動化。3. 概要設(shè)計(jì)在對通威飼料集團(tuán)培訓(xùn)管理系統(tǒng)的分析完成之后，為了將系統(tǒng)分析階段提

14、出 的系統(tǒng)的邏輯方案換成可以實(shí)施的基于計(jì)算機(jī)和網(wǎng)絡(luò)通信系統(tǒng)的物理方案。概要 設(shè)計(jì)主要考慮的是實(shí)現(xiàn)這個(gè)系統(tǒng)/子系統(tǒng)，應(yīng)該設(shè)計(jì)幾個(gè)功能模塊，這些模塊由 哪些程序組成，他們之間以什么方式鏈接在一起構(gòu)成一個(gè)最好的系統(tǒng)機(jī)內(nèi)結(jié)構(gòu)。系統(tǒng)設(shè)計(jì)階段主要考慮的是在計(jì)算機(jī)知識和應(yīng)用軟件開發(fā)經(jīng)驗(yàn)，由系統(tǒng)的特 性決定在系統(tǒng)設(shè)計(jì)過程中可以使用“自頂向下”的原則，將系統(tǒng)分為若干模塊之 后，可以用結(jié)構(gòu)圖來表達(dá)這些模塊之間的聯(lián)結(jié)關(guān)系概要設(shè)計(jì)階段的主要內(nèi)容有：系統(tǒng)的總體結(jié)構(gòu)設(shè)計(jì)和概念模式設(shè)計(jì)。3.1系統(tǒng)總體結(jié)構(gòu)設(shè)計(jì)系統(tǒng)的總體結(jié)構(gòu)設(shè)計(jì)是指整個(gè)系統(tǒng)由哪些部分組成，以及各部分在物理邏輯 上的相互關(guān)系，包括硬件部分和軟件部分，主要任務(wù)就

15、是整個(gè)系統(tǒng)合理的劃分為 若干個(gè)功能模塊，正確地處理模塊之間與模塊內(nèi)部的聯(lián)系以及他們之間的調(diào)用關(guān) 系和數(shù)據(jù)聯(lián)系，定義子模塊的內(nèi)部結(jié)構(gòu)等。3.1.1模塊結(jié)構(gòu)培訓(xùn)管理系統(tǒng)v用v課y部v課戶程門室管管管管理理1理理1培最培訓(xùn)ios新訓(xùn)課培需程訓(xùn)求管課管理程理管理圖3-1模塊結(jié)構(gòu)圖3.1.2關(guān)系模型用戶（賬號，密碼，級別）其中賬號為主鍵；課室（教室號，培訓(xùn)類別，培訓(xùn)科目，地點(diǎn)，教室名）其中教室號為主鍵;課程（課程號，課程名，培訓(xùn)學(xué)時(shí)，培訓(xùn)類別，培訓(xùn)月份，最新課程號，最 新課程名）其中課程號為主鍵；部門（職工號，姓名，性別，培訓(xùn)方向，職位）其中職工號為主鍵；需求（培訓(xùn)需求編號，培訓(xùn)需求標(biāo)題，培訓(xùn)類別，培訓(xùn)

16、地點(diǎn)，聯(lián)系人，聯(lián)系電話）其中培訓(xùn)需求編號為主鍵。3.2數(shù)據(jù)庫設(shè)計(jì)用戶表（把賬號作為用戶表的主鍵）ta設(shè)計(jì)表“用戶表”位罝是“schooll”中、1“ clocal)” _列名數(shù)據(jù)類型長度允許空ichar10密碼char10v級別nvarchar30圖3-2用戶表圖課室表（把教室號作為課室表的主鍵）設(shè)計(jì)表“課室表”、1p?晉是 “schooll” 中、1“ olocal)” .列名數(shù)據(jù)類型長度允許空|?粉室號nchar10培訓(xùn)類別varchar20v培訓(xùn)科目varchar20v地點(diǎn)varchar20v教室名varchar20v圖3-3課室表圖課程表（把課程號作為課程表的主鍵）tfi設(shè)計(jì)表“課程表

17、”位昔縣“schooll”中、“clocal)” 上列名數(shù)據(jù)類型長度允許空隱程號nchar10課程名nchar10培訓(xùn)學(xué)時(shí)char10v培訓(xùn)類別nchar10v培訓(xùn)月份nchar10v最新課程號nchar10v最新課程名nchar10v圖3-4課程表圖部門表(把職工號作為部門表的主鍵)%設(shè)計(jì)表“部門表”，位查是“schooll”中、“ (local)”上列名數(shù)據(jù)類型長度允許空|nchar10姓名varchar20v性別nchar4v培訓(xùn)方向varchar20v職位varchar20v圖3-5部門表圖需求表(把培訓(xùn)需求編號作為需求表的主鍵)設(shè)計(jì)表“需求表”，位罝是“schooll”中、“ (lo

18、cal)” j列名數(shù)據(jù)類型長度允許空1b吾訓(xùn)需求編號1char20培訓(xùn)需求標(biāo)題nvarchar40培訓(xùn)類別nvarchar30v培訓(xùn)地點(diǎn)char10 聯(lián)系人char10v聯(lián)系電話chariov圖3-6耑求表圖4. 系統(tǒng)實(shí)現(xiàn)4.1主界面操作流程開始凋入主菜單川戶管理課程管理圖4-1操作流程圖4.2物理配置方案作為一個(gè)而向廣大用戶應(yīng)用的信息管理系統(tǒng)，最終設(shè)計(jì)的目的就是應(yīng)用，因 此必須考慮為該信息系統(tǒng)設(shè)計(jì)一個(gè)完整可行的支撐環(huán)境來組成一個(gè)完成的計(jì)算 機(jī)信息系統(tǒng)。通常，一個(gè)計(jì)算機(jī)信息系統(tǒng)由軟件和硬件組成，合理的選擇和配置 配件部分，可以是我們以最小的成本代價(jià)，獲得最大的使用效果和收益。4.3人機(jī)界面設(shè)計(jì)

19、所謂用戶界面就是指軟件與使用者交互的接u,通常包括：輸入、輸出、人 -機(jī)對話的界面和方式等等。用戶界面設(shè)計(jì)的好壞將直接影響到整個(gè)軟件系統(tǒng)的質(zhì)量，人機(jī)界面的好壞涉 及到用戶對軟件系統(tǒng)的滿意度，甚至影響到一個(gè)信息系統(tǒng)能否得到廣大用戶的認(rèn) 可。由于培訓(xùn)管理系統(tǒng)面向的是非計(jì)算機(jī)方面的人員，他們對計(jì)算機(jī)系統(tǒng)或者 vs之類的開發(fā)軟件不是很了解，因此，從實(shí)際條件和使用要求出發(fā)，本系統(tǒng)采 用了比較簡單的表單操作，并且在保證記錄內(nèi)容大體不變的前提下盡量采用和手 工表達(dá)格式一致的表單形勢，界面中的擔(dān)任步驟也盡量簡化和集中。4.3.1登錄界面設(shè)計(jì)圖4-2登錄界而圖備注：初始賬號為admin,密碼為123,輸入后點(diǎn)擊

20、登錄即可進(jìn)入系統(tǒng)的主 界而登錄模塊代碼：imports system.data imports system.data.sqlclient public class 登錄窗口dim n as integer = 0private sub button l_click(byval sender as system.object，byval e as system.eventargs) handles button 1.clickdim mytable as datatable dim mysql 1 as stringmysqll = select * from 用戶表 where 賬號=&qu

21、ot; & textboxl.text & " and 密碼:& textbox2.text &mytable = dbop.sel(mysqll)if mytable.rows.count = 0 thenn += 1if n < 3 thenmsgbox(n不存在該用戶或密碼錯誤！ "，msgboxstyle.okonly + msgboxstyle.exclamation,n信息提示)textboxl.text =textbox2.text =textboxl.focus()elsemsgboxf己登錄失敗次，系統(tǒng)自動關(guān)閉！

22、9; msgboxstyle.okonly + msgboxstyle.exclamation, 信息提示”)me.close()end ifelseuserlevel = mytable.rows(0)('級別n) xuehao = textbox 1 .text textbox2.text =""主菜單.showdialogo me.close()end ifend subprivate sub b utton2_click(by v al sender as system.object，by val e as system.eventargs) handles

23、 button2.clickme.close()end sub end class4.3.2主界面圖4-3主界面圖主登錄界面采用簡潔的界面設(shè)計(jì)，展現(xiàn)給使用者的是美觀、舒適的感覺，用 toolstripmenuitemd方式把各個(gè)菜單統(tǒng)籌在里面，方便快捷的選用。主菜單登錄 界面含：用戶管理、部門管理、課程管理、課室管理幾個(gè)大模塊，具體的細(xì) 模塊在各自的模塊里面。4.3.3用戶管理模塊設(shè)計(jì)與實(shí)現(xiàn)圖4-4用廣管理模塊圖和通常的管理軟件一樣，系統(tǒng)用戶模塊也伍含了添加、刪除和修改的功能， 在用戶管理這個(gè)模塊，用datagridview控件來顯示用戶的當(dāng)前操作情況，能及時(shí) 把更新后的信息反映給用戶。添加用

24、戶的實(shí)現(xiàn)是通過數(shù)據(jù)庫的insert語句來實(shí)現(xiàn) 的，主要是：if textbox3.text and textbox4.text and combobox2.text <> "" then dbop.idu（"insert into 用戶表valuesf" & textbox3.text &&textbox4.text && combobox2.text &mytable = dbop.sel（select * from 用戶表"） datagridviewl.datasource =

25、mytableelsemsgbox（"請輸入賬號和密弼，并選擇級別！"，msgboxstyle.okonly,"提示"）end iftextbox3.text 里面的內(nèi)容為賬號 textbox4.text 是密碼 combobox2.text 是級 別，在添加的時(shí)候，代碼首先判斷出這三個(gè)內(nèi)容是否為空，如果不為空，就通 過這一段"insert into 用戶表 valuesf" & textbox3.text & "，& textbox4.text & ，& combobox2.text

26、 &語句把具體的內(nèi)容寫進(jìn)數(shù)據(jù)庫里面；如果為空，就彈出提示窗門，提醒用戶，實(shí)現(xiàn)該方法的是以下語句：msgbox（”請輸入賬號 和密碼，并選擇級別！ 'msgboxstyle.okonly，”提示”）。刪除用戶是通過數(shù)據(jù)庫的delete語句來實(shí)現(xiàn)的，主要是：if textboxl.text <> "" thendbop.idu（”delete 用戶表where 貝長號textboxl.text & mytable = dbop.sel（”select * from 用戶表n） datagridviewl.datasource = mytabl

27、eelsemsgbox（n請輸入賬號！ "，msgboxstyle.okonly,"提示"）end iftextboxl.text里面的內(nèi)容為賬號，刪除時(shí)代碼首先判斷出這個(gè)內(nèi)容是否為空， 如果不為空，就通過這一段delete用戶表where賬號="& textboxl.text & 語句來實(shí)現(xiàn)，把該賬號的全部內(nèi)容-起刪除，因?yàn)橘~號是主鍵，所以可以全部 刪除掉；如果判斷為空，就彈出提示窗門，提醒用戶“請輸入賬號”，g現(xiàn)該方 法的是以下語句：msgbox（n請輸入賬號！ 'msgboxstyle.okonly，”提示n）。修改用戶數(shù)據(jù)

28、是用update語句實(shí)現(xiàn)的，具體修改用戶代碼如下：if textboxl.text <> "" and comboboxl.text <> "" thendbop.idu(update 用戶表set 密碼=n& textbox2.text &" where 賬號=”，& textbox 1 .text & )dbop.idu("update 用戶表set 級別="& comboboxl.text &" where 賬號=" &

29、 textboxl.text & ,)mytable = dbop.sel（select * from 用戶表） datagridviewl .datasource = mytableelsemsgbox（”請輸入賬號！ ”，msgboxstyle.okonly,"提示"）end if和上述說的實(shí)現(xiàn)方法大同小異，也是先判斷textboxl.text （賬號）和 combobox 1 .text （級別）這些的內(nèi)容是否為空，如果不為空，就通過這一段” update語句來實(shí)現(xiàn)，把新的內(nèi)容寫進(jìn)數(shù)據(jù)庫里面：如果判斷為空，就彈出提示 窗口，提醒用戶“請輸入賬號”，g現(xiàn)該方法的

30、是以下語句：msgbox（"請輸入賬 號！"，msgboxstyle.okonly,"提示”）。4.3.4部門信息管理模塊設(shè)計(jì)圖4-5部門信息管理模塊圖部門信息管理模塊，包含了添加、修改、刪除和查找功能，其中還有重罝的 方便設(shè)計(jì)。添加方面的實(shí)現(xiàn)方法如下：if mytable.rows.count = 0 thendbop.idufinsert into部門表（職工號，姓名，性別，培訓(xùn)方向，職位） values（”，& textbox2.text& textbox3.text& combobox 1 .text && text

31、box6.text && textbox4.text & h,）n）msgbox（"錄入成功，msgboxstyle.okonly,"提示"）elsemsgbox（n錯誤！該職工號已存在！ n，msgboxstyle.okonly, ”提示end ifcall enbutton（）用戶把要添加的內(nèi)容詳細(xì)填入后，通過insei語句把相對應(yīng)的內(nèi)容寫入數(shù)據(jù) 庫中并保存起來，然后彈出一個(gè)提示框，告知用戶數(shù)據(jù)己經(jīng)成功錄入，更好的 進(jìn)行交互；如果用戶在添加的過程中，把已存在的用戶職工號錯誤填寫進(jìn)去， 系統(tǒng)會提示用戶“錯誤！該職工號己存在！”修改部門信息

32、數(shù)據(jù)是通過update語句來實(shí)現(xiàn)的，代碼如下：if textbox2.text = nn thenmsgbox（”修改職工號必需填寫！' msgboxstyle.okonly, 提示"）elseif msgbox（”確定修改n & textbox2.text & 這個(gè)人的資料？' msgboxstyle.yesno, ”提示'）=msgboxresult.yes thendbop.idu（update 部門表set 姓名="& textbox3.text & ，性 別：& comboboxl.text &

33、; "，培訓(xùn)方向二& textbox6.text & "，職位:& textbox4.text & n' where 職工號二& textbox2.text &end if end ifmytable = dbop.sel（"select * from 部門表”）datagridviewl.datasource = mytable call enbutton（）該段代碼首先判斷用戶要修改的數(shù)據(jù)職工號是完整的，因?yàn)槁毠ぬ栐跀?shù)據(jù)庫表 里面是主鍵，必須要填寫，所以先判斷是否有，這個(gè)機(jī)制保證了數(shù)據(jù)的完整 性。然后通過

34、這段代碼（update部門表set姓名="& textbox3.text &，性別 & comboboxl.text & ，培訓(xùn)方向=n & textbox6.text & ，職位二& textbox4.text & n, where 職工號= & textbox2.text & "）來實(shí)現(xiàn)修改的 0 的， 一旦用戶修改丫部門信息數(shù)據(jù)后，可以及時(shí)的通過datagridview控件來查看是否 己經(jīng)修改，實(shí)現(xiàn)該方法的是：mytable = dbop.sel（"select * from 部

35、門表”）datagridviewl.datasource = mytable刪除部門信息數(shù)據(jù)是用delete語句來實(shí)現(xiàn)的，這段代碼是這樣的： iftextbox2.text = nn thenmsgbox（”刪除職工號必需填寫！ ，msgboxstyle.okonly, 提示n）elseif msgbox（”確定刪除"& textbox2.text & 職工的資料？ ， msgboxstyle.yesno, ”提示'）=msgboxresult.yes thendbop.idu（"delete 部門表where 職工號="'&

36、; textbox2.text & end ifend ifmytable = dbop.sel（”select * from 部門表，）datagridviewl.datasource = mytable call enbutton（）要刪除部門信息數(shù)據(jù)，首先要確定是刪除哪個(gè)部門的信息，因此這個(gè)語句代碼 首先就判斷是否填寫了職工號，如果沒有，就會彈出一個(gè)提示框來提醒用戶沒 有填寫職工號，實(shí)現(xiàn)該方法是這個(gè)語句：iftextbox2.text = nn thenmsgbox（刪除職工號必需填寫！' msgboxstyle.okonly, 提示）如果全部信息都確定了，系統(tǒng)就通過de

37、lete語句把該職工號的所冇數(shù)據(jù)都刪除 掉，并且及時(shí)把更新的信息顯示出來。查找是用like語句來實(shí)現(xiàn)的，具體要查找什么內(nèi)容，可以通過部門信息里 面所有列名來匹配查找，可以是職工號、姓名、性別、職位、培訓(xùn)方向來匹配 查找。具體的代碼如下：if textbox2.text <> "" thenmysql = 職工號like & textbox2.text &end ifif textbox3.text <> ,n then if mysql <> ,h, thenmysql = mysql & and 姓名like ”

38、 & textbox3.text &elsemysql ="姓名like & textbox3.text & "%end ifend ifif comboboxl.text then if mysql <"" thenmysql = mysql & n and 性別=& combobox 1 .text &elsemysql = 1 性別="'& comboboxl.text &end ifend ifif textbox4.text <> 

39、9;h' then if mysql thenmysql = mysql & and 職位=& textbox4.text & ”elsemysql = 職位="& textbox4.text & "end ifend ifif textbox6.text then if mysql < thenmysql = mysql & " and 培訓(xùn)方向=& textbox6.text &elsemysql ="培訓(xùn)方向="& textbox6.text &

40、end if重置的功能其實(shí)就是把所冇當(dāng)前textbox.text里面的內(nèi)容賦空值，實(shí)現(xiàn)代碼 是textbox2.text =textbox3.text =""combobox 1 .text =""textbox4.text =""textbox6.text =培訓(xùn)類別：|培訓(xùn)月份：4.3.5培訓(xùn)課程管理模塊設(shè)計(jì)課程號課程名培訓(xùn)學(xué)時(shí)培訓(xùn)類別培訓(xùn)月份1001員工營銷培訓(xùn)20營銷培訓(xùn)6來課程號：|課程名：查找 |培訓(xùn)學(xué)時(shí):圖4-6培i川課程管理模塊圖該管理模塊包括了添加、修改、查找、刪除功能，添加方面的實(shí)現(xiàn)方法如 下：niytable =

41、 dbop.sel（hselect distinct 課程號from 課程表where 課程號=n & textbox2.text & ”）if mytable.rows.count = 0 thendbop.idu（"insert into課程表（課程號，課程名，培訓(xùn)學(xué)吋，培訓(xùn)月份，培訓(xùn)類別）valuesc" & textbox2.text &"，" & textbox3.text & ，& textbox6.text & ”，& textbox4.text & ，” &a

42、mp; textbox5.text &msgbox（”錄入成功"，msgboxstyle.okonly,"提示"）elsemsgbox（”錯誤！該課程號已存在！ n，msgboxstyle.okonly,提示）end ifcal enbutton（）用戶把要添加的內(nèi)容詳細(xì)填入后，通過insert語句把相對應(yīng)的內(nèi)容寫入數(shù)據(jù) 庫中并保存起來，然后彈出一個(gè)提示框，告知用戶數(shù)據(jù)己經(jīng)成功錄入，更好的 進(jìn)行交互；如果用戶在添加的過程中，把己存在的課程號錯誤填寫進(jìn)去，系統(tǒng) 會提示用戶“錯誤！該課程號己存在！”修改部門信息數(shù)據(jù)是通過update語句來實(shí)現(xiàn)的，代碼如下：if

43、 textbox2.text = ,h thenmsgboxc修改課程號必需填寫！ ”，msgboxstyle.okonly,n提示n）elseif msgbox（”確定修改” & textbox2.text & "課程的資料？' msgboxstyle.yesno,n提示”）=msgboxresult.yes thendbop.idu（"update 課程表set 培訓(xùn)學(xué)時(shí)="& textbox6.text & "，課程名二& textbox3.text & "，培訓(xùn)月份=f” &

44、; textbox4.text & ，培訓(xùn)類別二& textbox5.text & where 課程號二& textbox2.text & ）end if end ifmytable = dbop.sel（select * from 課程表"）datagrid view 1 .datasource = mytable call enbutton（）該段代碼首先判斷用戶要修改的課程號是完整的，因?yàn)檎n程號在數(shù)據(jù)庫表 里而是主鍵，必須要填寫，所以先判斷是否有，這個(gè)機(jī)制保證了數(shù)據(jù)的完整 性。然后通過這段代碼（"update課程表set培訓(xùn)學(xué)時(shí)

45、="* & textbox6.text &， 課程名="& textbox3.text &，培訓(xùn)月份="& textbox4.text &，培訓(xùn)類別二& textbox5.text & ,n where 課程號二& textbox2.text & ,hh）來實(shí)現(xiàn)修改的目的，一旦用戶修改了培訓(xùn)課程數(shù)據(jù)后，可以及時(shí)的通過 datagridview控件來查看是否已經(jīng)修改，實(shí)現(xiàn)該方法的是：mytable = dbop.sel（select * from 課程表"）datagrid v

46、iew 1 .datasource = mytable刪除部門信息數(shù)據(jù)是用delete語句來實(shí)現(xiàn)的，這段代碼是這樣的：if textbox2.text = ,h thenmsgboxc刪除課程號必需填寫！ ”，msgboxstyle.okonly,n提示"）elseif msgbox（”確定刪除” & textbox2.text & ”課程的資料？' msgboxstyle.yesno, 提示”）=msgboxresult.yes thendbop.idu（"delete 課程表where 課程號=" &textbox2.text

47、& ”）end ifend ifmytable = dbop.sel（select * from 課程表"）datagridview 1 .datasource = mytable call enbutton（）要刪除培訓(xùn)課程數(shù)據(jù)，首先要確定是刪除哪個(gè)課程的信息，因此這個(gè)語句 代碼首先就判斷是否填寫了課程號，如果沒有，就會彈出一個(gè)提示框來提醒用 戶沒有填寫課程號，實(shí)現(xiàn)該方法是這個(gè)語句：if textbox2.text = ,h thenmsgboxc刪除課程號必需填寫！ ”，msgboxstyle.okonly,n提示"）如果全部信息都確定了，系統(tǒng)就通過delete

48、語句把該課程號的所有數(shù)據(jù)都刪 除掉，并且及時(shí)把更新的信息顯示出來。奔找是用like語句來實(shí)現(xiàn)的，具體要奔找什么內(nèi)容，可以通過培訓(xùn)課程信 息里而所有列名來匹配査找，可以是課程號、課程名、培訓(xùn)類別、培訓(xùn)月份、培訓(xùn)學(xué)時(shí)來匹配査找。具體的代碼如下：if textbox2.text thenmysql = 課程號like & textbox2.text & n%end ifif textbox3.text thenif mysql "n thenmysql = mysql & " and 課程名like & textbox3.text & &q

49、uot;% elsemysql ="課程名like & textbox3.text & ”nend ifend ifif textbox4.text thenif mysql "n thenmysql = mysql & " and 培訓(xùn)月份=n & textbox4.text & "elsemysql ="培訓(xùn)月份=” & textbox4.text &，end ifend ifif textbox5.text thenifmysql thenmysql = mysql & ”

50、and 語訓(xùn)類別=” & textbox5.text & "elsemysql ="培訓(xùn)類別=& textbox5.text & end ifend ifif textbox6.text thenif mysql "n thenmysql = mysql & " and 錯訓(xùn)學(xué)時(shí)=” & textbox6.text & "elsemysql ="培訓(xùn)學(xué)時(shí)=” & textbox6.text & end ifend ifif mysql "n thenmy

51、sql = "select * from 課程表where n & mysql & " n mytable = dbop.sel(mysql)datagridviewl.datasource = mytable call enbutton()4.3.6最新培訓(xùn)課程信息管理模塊設(shè)計(jì)培訓(xùn)學(xué)時(shí)：最新課程號：最新課程名：培訓(xùn)類別:課程號：1課程名：r培訓(xùn)月份:1修改1胭除i査找圖4-7最新培訓(xùn)課程管理模塊圖該管理模塊伍括了修改、查找、刪除功能，修改方面的實(shí)現(xiàn)方法如下：if textboxs.text = n" then重買返回msgbox（n課程號必需填寫

52、！ "，msgboxstyle.okonly, ”提示n）elseif msgbox（"確定修改& textbox7.text & "課程的資料？ ， msgboxstyle.yesno, 提示）= msgboxresult.yes thendbop.idu（update 課程表set 培訓(xùn)學(xué)時(shí)="& textbox6.text & ，最新課程名=" &textbox3.text &，培訓(xùn)月份= &textbox4.text &，培訓(xùn)類 別二& textbox5.text

53、& ”，最新課程號= & textbox2.text & ，課程名=” & textbox7.text & "where 課程號="'& textbox8.text & "）end if end ifmytable = dbop.sel（nselect * from 課程表）datagridviewl .datasource = mytable call enbutton（）該段代碼首先判斷用戶要修改的課程號是完整的，因?yàn)檎n程號在數(shù)據(jù)庫表里面是主鍵，必須要填寫，所以先判斷是否有，這個(gè)機(jī)制保證了數(shù)據(jù)的完

54、整性。然后通過這段代碼（"update課程表set培訓(xùn)學(xué)時(shí)="'& textbox6.text &，最新課程名="& textbox3.text & "，培訓(xùn)月份="& textbox4.text &，培訓(xùn)類別二& textbox5.text & ".，最新課程號="& textbox2.text & ，課程名="&textbox7.text & where 課程號二& textbox8.text &am

55、p; ”）來實(shí)現(xiàn)修改的目的，一旦用戶修改了最新培訓(xùn)課程數(shù)據(jù)后，可以及時(shí)的通過 datagridview控件來查看是否已經(jīng)修改，實(shí)現(xiàn)該方法的是：mytable = dbop.sel（select * from 課程表，） datagridview 1 .datasource = mytable刪除部門信息數(shù)據(jù)是用delete語句來實(shí)現(xiàn)的，這段代碼是這樣的：if textbox8.text = thenmsgbox（n課程號必需填寫！ n，msgboxstyle.okonly,n提示n）elseif msgbox（n確定刪除” & textbox7.text & "課程的

56、資料？ ， msgboxstyle.yesno,，提示"）=msgboxresult.yes thendbop.idu（"delete 課程表where 課程號='"& textbox8.text & ”） end ifend ifmytable = dbop.sel（select * from 課程表"）datagrid view 1. datasource = mytable call enbutton（）耍刪除最新培訓(xùn)課程數(shù)據(jù)，首先耍確定是刪除哪個(gè)課程的信息，因此這個(gè) 語句代碼首先就判斷是否填寫了課程號，如果沒有，就會彈出一

57、個(gè)提示框來提醒用戶沒有填寫課程號，實(shí)現(xiàn)該方法是這個(gè)語句：if textbox8.text = "" thenmsgbow課程號必需填寫！ ，msgboxstyle.okonly, ”提示"）如果全部信息都確定了，系統(tǒng)就通過delete語句把該課程號的所冇數(shù)據(jù)都刪除 掉，并且及時(shí)把更新的信息顯示出來。查找是用like語句來實(shí)現(xiàn)的，具體要查找什么內(nèi)容，可以通過培訓(xùn)課程信 息里面所有列名來匹配查找，可以是課程號、課程名、培訓(xùn)類別、培訓(xùn)份、 培訓(xùn)學(xué)時(shí)最新課程名，最新課程號來匹配查找。具體的代碼如下： mysql = n"if textbox2.text <

58、> "" thenmysql ="最新課程號like & textbox2.text & u%n,end ifif textbox3.text thenif mysql < thenmysql = mysql & and 最新課程名like & textbox3.text & "% elsemysql ="最新課程名 like & textbox3.text & "%end ifend ifif textbox4.text <> ""

59、thenif mysql <"" thenmysql = mysql & and 培訓(xùn)月份=& textbox4.text &elsemysql = h 培訓(xùn)月份=n & textbox4.text & "end ifend ifif textbox5.text thenif mysql thenmysql = mysql & and 培訓(xùn)類別=& textbox5.text &，elsemysql = 培訓(xùn)類別=& textbox5.text & "end ifend

60、 ifif textbox6.text thenif mysql thenmysql = mysql & ” and 培訓(xùn)學(xué)時(shí)=” & textbox6.text &elsemysql ="培訓(xùn)學(xué)時(shí)="& textbox6.text & end ifend ifif textbox7.text thenif mysql <"" thenmysql = mysql & " and 課程名=n & textbox7.text &elsemysql = h 課程名="& textbox7.text & nnend ifend ifif textbox8.text <> "n thenif mysql <> ,h, thenmysql = mysql & and 課程名=” & textbox8.text & "elsemysql ="課程名=n & textbox8.text &end ifend ifif mysql < thenmysql = &qu