本科畢業(yè)設(shè)計-培訓(xùn)管理系統(tǒng)

AbstracttheAlongwiththerapiddevelopmentofcomputertechnology,computertechnologyextensivemomentsshouldbemovingorfutureinaffectsusordinarylife,althoughpeopledon'treallyunderstandthecomputertechnology,buttheirlifehasiscloselyrelatedwithit,computertechnologynotonlyaffectspeople'slife,andawiderrangeofaffectingourenterprisecompany,theyobtainedbycomputertechnology,thattheyoriginallyoldsoarrevolutionizedthemanagementmodeofchange,greatlyreducingthecostofmanpower.Usingtheinformationmanagementsystemtoreplaceoriginalartificiallymanagementmode,certainlywillgivecompaniesbringanunprecedentedrevolution.Basedonthebackgroundofemployeetrainingmanagementsystem,combiningwiththeactualsituationofthecompany,afterfieldresearch,throughactualrequirementanalysis,usingpowerfulVStooldevelopmentstafftrainingmanagementsystem,thissystemismaketheenterprisestafftrainingworksystematized,standardization,automation,soastoimprovetheenterprisetrainingmanagementefficiencypurpose.Thesystemfullyutilizethecompany'sexistingresources,andimprovethesystemdevelopmentlevelandapplicationeffect,fromtheentiresystemtooperateandfriendlyinterfaceandthecompletionoftheoperatormanagementstaffmanagementsystem,includingusersofthesystemmanagement,rightsmanagement,databackup,restoredata,systeminitialization.Trainingvariousinformationinput,includingcoursemanagement,thelatesttraininginformationmanagement,trainingdemandmanagement,classroomsmanagement,managementofdepartmentandsoon,eachmoduleisdoneininformationadd,delete,modify,inquirestheandsoonfunction!SystemUSESmodularprogrammingmethod,convenientforsystemcombinationandmodification,facilitateagaincompany'stechnicalmaintenancepersonnelmaintenance.Keywords:trainingmanagement;Trainingneeds;Thelatesttraining;Standardizedtraining1.緒論1.1組織機構(gòu)概況通威集團是以農(nóng)業(yè)、新能源雙主業(yè)發(fā)展，并在化工、寵物食品、IT、建筑與房地產(chǎn)等行業(yè)快速發(fā)展的大型民營科技型企業(yè)。集團現(xiàn)擁有遍布全國各地及東南亞地區(qū)的一百余家分、子公司，員工逾萬人，其中通威股份上市公司年飼料生產(chǎn)能力逾600萬噸，是全球最大的水產(chǎn)飼料生產(chǎn)企業(yè)及主要的畜禽飼料生產(chǎn)企業(yè)，水產(chǎn)飼料全國市場占有率已達到25%，連續(xù)16年位居全國第一。通威集團歷來注重員工教育培訓(xùn)制度，突出知識培訓(xùn)和能力培訓(xùn)相結(jié)合，努力學(xué)習(xí)飼料創(chuàng)新知識，提高員工內(nèi)在素質(zhì)教育，提升員工適應(yīng)能力，競爭能力，外在發(fā)展能力目標。1.2項目開發(fā)背景由于集團近幾年發(fā)展迅速，成長加速，不斷開發(fā)適銷的產(chǎn)品，滿足市場需求，很快創(chuàng)出了自己的品牌，內(nèi)部和外部的競爭壓力日益增大，對集團領(lǐng)導(dǎo)管理能力和員工的專業(yè)水平及創(chuàng)新水平提出了一定的挑戰(zhàn)。面對這種形勢，通威集團領(lǐng)導(dǎo)深刻認識進一步提高管理水平和員工自身專業(yè)水平的重要性，為了使公司的培訓(xùn)工作科學(xué)化，規(guī)范化，適應(yīng)激烈的市場競爭，為公司更好的發(fā)展做好準備，通威飼料集團領(lǐng)導(dǎo)決定建立培訓(xùn)管理系統(tǒng)。1.3項目開發(fā)的意義由于原本集團教育培訓(xùn)主要采取手工作業(yè)方式，大量數(shù)據(jù)流失，培訓(xùn)成效較低，信息處理的工作量大，重復(fù)量大，費時費力，容易出錯?，F(xiàn)今集團規(guī)模不斷增大，人員增多，所以集團培訓(xùn)管理系統(tǒng)的改變勢在必行，確保其準確性、有效性和系統(tǒng)性。既節(jié)省了時間又提高了工作效率，管理工作也可以便捷有序地進行。2.系統(tǒng)分析系統(tǒng)分析階段是最主要的工作，在于明確系統(tǒng)的目標和用戶對新系統(tǒng)的具體需求，同時以文件表達的方式詳細而完整地描述需求的內(nèi)容，即新系統(tǒng)將要“做什么”，并定義新系統(tǒng)的各項功能和性能，對現(xiàn)行系統(tǒng)進行充分的調(diào)查研究，了解現(xiàn)行系統(tǒng)的現(xiàn)狀和業(yè)務(wù)流程，針對其存在的主要問題，提出新系統(tǒng)的邏輯模型。 2.1系統(tǒng)調(diào)查了解系統(tǒng)需求是進行系統(tǒng)分析和設(shè)計的重要基礎(chǔ)工作，因此必須對集團各管理部們的工作進行全面、細致而充分的調(diào)查研究，只有通過對現(xiàn)行系統(tǒng)全面深入的調(diào)查分析，才能找出解決的問題的關(guān)鍵所在，從而確保新系統(tǒng)的有效性。經(jīng)初步調(diào)查，通威飼料集團由董事會主席負責制，集團各個部門由主席直接管理，管理部門有人力資源部，市場部，工程部，財務(wù)部，研發(fā)部，其中人力資源部下設(shè)：培訓(xùn)部和行政部各個部們的職責如下：人力資源部：職工的職務(wù)調(diào)動、職工培訓(xùn)、考勤記錄財務(wù)部：組織實施并督導(dǎo)公司核算管理、資產(chǎn)管理、現(xiàn)金管理、票據(jù)管理登記工作，審核各部門的設(shè)備、物資采購計劃、公司開支計劃。市場部：進行飼料的銷售，以及售后服務(wù)工作工程部：管理某區(qū)的飼料銷售工作研發(fā)部：研發(fā)新型飼料的工作從總體結(jié)構(gòu)來看，集團的組織層次圖如下：主席主席總經(jīng)理市場部人力資源部財務(wù)部工程部研發(fā)部培訓(xùn)部行政部采購部銷售部售后服務(wù)部信息采購部設(shè)計開發(fā)部圖2-1組織結(jié)構(gòu)圖2.2可行性分析可行性分析是需求分析的重要活動，是對系統(tǒng)進行全面、概要的分析。現(xiàn)行系統(tǒng)主要進行培訓(xùn)課程的錄入和一些簡單的查詢，很多地方仍需要手工操作。且信息處理出錯率比較高，尤其是對于大量數(shù)據(jù)性能差。因此，我們需要建立新的信息自動化的管理系統(tǒng)，充分利用現(xiàn)有資源，改進工作方式，提高管理水平，因此要對系統(tǒng)進行技術(shù)可行性、經(jīng)濟可行性兩方面的系統(tǒng)可行性分析。2.2.1技術(shù)可行性近幾年來計算機技術(shù)發(fā)展異常迅猛，高速度大容量的電腦已經(jīng)成為許多集團日常工作必不可少的設(shè)備，推動辦公自動化的軟件不斷涌現(xiàn)，微機的普及為該系統(tǒng)的開發(fā)奠定了堅實的基礎(chǔ)，本開發(fā)小組有能力根據(jù)系統(tǒng)對技術(shù)的要求，完成整個系統(tǒng)開發(fā)工作，按照目前的計算機書庫存儲量及運行處理性能，運用現(xiàn)有的管理信息系統(tǒng)開發(fā)理論及成熟技術(shù)，完全可以實現(xiàn)開發(fā)要求2.2.2.經(jīng)濟可行性對于開發(fā)一方面可以做到對于系統(tǒng)開發(fā)的集中，另一方面也可以節(jié)省系統(tǒng)的開發(fā)費用，系統(tǒng)開發(fā)成功投入使用之后，給集團帶來了很大的利益，降低了教育成本，并能更快更及時地讓員工獲得更多有用的信息，提高了決策水平，所以，培訓(xùn)管理系統(tǒng)所需的開發(fā)費用并不是很昂貴，然而這套系統(tǒng)的成功投入使用可以幫助集團使員工的培訓(xùn)管理更加合理化、規(guī)范化。2.3軟件系統(tǒng)的總目標通過培訓(xùn)管理信息系統(tǒng)的原理和方法，采用成熟的信息技術(shù)和手段，支持集團對員工情況的管理，提高集團各部門各對應(yīng)的運行機制，及時發(fā)現(xiàn)其中存在的問題，提供管理決策支持功能，為了提高集團的質(zhì)量提供幫助，也為今后的發(fā)展提供了技術(shù)準備，從而達到提高企業(yè)培訓(xùn)管理效率的目的。系統(tǒng)開發(fā)的總體任務(wù)是實現(xiàn)企業(yè)員工培訓(xùn)管理的系統(tǒng)化、規(guī)范化、自動化。3.概要設(shè)計在對通威飼料集團培訓(xùn)管理系統(tǒng)的分析完成之后，為了將系統(tǒng)分析階段提出的系統(tǒng)的邏輯方案換成可以實施的基于計算機和網(wǎng)絡(luò)通信系統(tǒng)的物理方案。概要設(shè)計主要考慮的是實現(xiàn)這個系統(tǒng)/子系統(tǒng)，應(yīng)該設(shè)計幾個功能模塊，這些模塊由哪些程序組成，他們之間以什么方式鏈接在一起構(gòu)成一個最好的系統(tǒng)機內(nèi)結(jié)構(gòu)。系統(tǒng)設(shè)計階段主要考慮的是在計算機知識和應(yīng)用軟件開發(fā)經(jīng)驗，由系統(tǒng)的特性決定在系統(tǒng)設(shè)計過程中可以使用“自頂向下”的原則，將系統(tǒng)分為若干模塊之后，可以用結(jié)構(gòu)圖來表達這些模塊之間的聯(lián)結(jié)關(guān)系概要設(shè)計階段的主要內(nèi)容有：系統(tǒng)的總體結(jié)構(gòu)設(shè)計和概念模式設(shè)計。3.1系統(tǒng)總體結(jié)構(gòu)設(shè)計系統(tǒng)的總體結(jié)構(gòu)設(shè)計是指整個系統(tǒng)由哪些部分組成，以及各部分在物理邏輯上的相互關(guān)系，包括硬件部分和軟件部分，主要任務(wù)就是整個系統(tǒng)合理的劃分為若干個功能模塊，正確地處理模塊之間與模塊內(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)培訓(xùn)課程管理用戶管理課程管理部門管理課室管理最新培訓(xùn)課程管理培訓(xùn)需求管理培訓(xùn)管理系統(tǒng)圖3-1模塊結(jié)構(gòu)圖3.1.2關(guān)系模型用戶（賬號，密碼，級別）其中賬號為主鍵；課室（教室號，培訓(xùn)類別，培訓(xùn)科目，地點，教室名）其中教室號為主鍵；課程（課程號，課程名，培訓(xùn)學(xué)時，培訓(xùn)類別，培訓(xùn)月份，最新課程號，最新課程名）其中課程號為主鍵；部門（職工號，姓名，性別，培訓(xùn)方向，職位）其中職工號為主鍵；需求（培訓(xùn)需求編號，培訓(xùn)需求標題，培訓(xùn)類別，培訓(xùn)地點，聯(lián)系人，聯(lián)系電話）其中培訓(xùn)需求編號為主鍵。3.2數(shù)據(jù)庫設(shè)計用戶表（把賬號作為用戶表的主鍵）圖3-2用戶表圖課室表（把教室號作為課室表的主鍵）圖3-3課室表圖課程表（把課程號作為課程表的主鍵）圖3-4課程表圖部門表（把職工號作為部門表的主鍵）圖3-5部門表圖需求表（把培訓(xùn)需求編號作為需求表的主鍵）圖3-6需求表圖4.系統(tǒng)實現(xiàn)4.1主界面操作流程圖開始開始進入系統(tǒng)輸入賬號及密碼判斷賬號及密碼是否正確是否重新輸入調(diào)入主菜單菜單選擇用戶管理課程管理課室管理部門管理退出圖4-1操作流程圖4.2物理配置方案作為一個面向廣大用戶應(yīng)用的信息管理系統(tǒng)，最終設(shè)計的目的就是應(yīng)用，因此必須考慮為該信息系統(tǒng)設(shè)計一個完整可行的支撐環(huán)境來組成一個完成的計算機信息系統(tǒng)。通常，一個計算機信息系統(tǒng)由軟件和硬件組成，合理的選擇和配置配件部分，可以是我們以最小的成本代價，獲得最大的使用效果和收益。4.3人機界面設(shè)計所謂用戶界面就是指軟件與使用者交互的接口，通常包括：輸入、輸出、人-機對話的界面和方式等等。用戶界面設(shè)計的好壞將直接影響到整個軟件系統(tǒng)的質(zhì)量，人機界面的好壞涉及到用戶對軟件系統(tǒng)的滿意度，甚至影響到一個信息系統(tǒng)能否得到廣大用戶的認可。由于培訓(xùn)管理系統(tǒng)面向的是非計算機方面的人員，他們對計算機系統(tǒng)或者VS之類的開發(fā)軟件不是很了解，因此，從實際條件和使用要求出發(fā)，本系統(tǒng)采用了比較簡單的表單操作，并且在保證記錄內(nèi)容大體不變的前提下盡量采用和手工表達格式一致的表單形勢，界面中的擔任步驟也盡量簡化和集中。4.3.1登錄界面設(shè)計圖4-2登錄界面圖備注：初始賬號為admin，密碼為123，輸入后點擊登錄即可進入系統(tǒng)的主界面登錄模塊代碼：Importssystem.DataImportsSystem.Data.SqlClientPublicClass登錄窗口DimnAsInteger=0PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimmytableAsDataTableDimmysql1AsStringmysql1="select*from用戶表where賬號='"&TextBox1.Text&"'and密碼='"&TextBox2.Text&"'"mytable=dbop.sel(mysql1)Ifmytable.Rows.Count=0Thenn+=1Ifn<3ThenMsgBox("不存在該用戶或密碼錯誤！",MsgBoxStyle.OkOnly+MsgBoxStyle.Exclamation,"信息提示")TextBox1.Text=""TextBox2.Text=""TextBox1.Focus()ElseMsgBox("已登錄失敗次，系統(tǒng)自動關(guān)閉！",MsgBoxStyle.OkOnly+MsgBoxStyle.Exclamation,"信息提示")Me.Close()EndIfElseuserlevel=mytable.Rows(0)("級別")xuehao=TextBox1.TextTextBox2.Text=""主菜單.ShowDialog()Me.Close()EndIfEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickMe.Close()EndSubEndClass4.3.2主界面圖4-3主界面圖主登錄界面采用簡潔的界面設(shè)計，展現(xiàn)給使用者的是美觀、舒適的感覺，用toolstripmenuitemd方式把各個菜單統(tǒng)籌在里面，方便快捷的選用。主菜單登錄界面包含：用戶管理、部門管理、課程管理、課室管理幾個大模塊，具體的細模塊在各自的模塊里面。4.3.3用戶管理模塊設(shè)計與實現(xiàn)圖4-4用戶管理模塊圖和通常的管理軟件一樣，系統(tǒng)用戶模塊也包含了添加、刪除和修改的功能，在用戶管理這個模塊，用datagridview控件來顯示用戶的當前操作情況，能及時把更新后的信息反映給用戶。添加用戶的實現(xiàn)是通過數(shù)據(jù)庫的insert語句來實現(xiàn)的，主要是：IfTextBox3.Text<>""AndTextBox4.Text<>""AndComboBox2.Text<>""Thendbop.idu("insertinto用戶表values('"&TextBox3.Text&"','"&TextBox4.Text&"','"&ComboBox2.Text&"')")mytable=dbop.sel("select*from用戶表")DataGridView1.DataSource=mytableElseMsgBox("請輸入賬號和密碼，并選擇級別！",MsgBoxStyle.OkOnly,"提示")EndIfTextBox3.Text里面的內(nèi)容為賬號TextBox4.Text是密碼ComboBox2.Text是級別，在添加的時候，代碼首先判斷出這三個內(nèi)容是否為空，如果不為空，就通過這一段"insertinto用戶表values('"&TextBox3.Text&"','"&TextBox4.Text&"','"&ComboBox2.Text&"')")語句把具體的內(nèi)容寫進數(shù)據(jù)庫里面；如果為空，就彈出提示窗口，提醒用戶，實現(xiàn)該方法的是以下語句：MsgBox("請輸入賬號和密碼，并選擇級別！",MsgBoxStyle.OkOnly,"提示")。刪除用戶是通過數(shù)據(jù)庫的delete語句來實現(xiàn)的，主要是：IfTextBox1.Text<>""Thendbop.idu("delete用戶表where賬號='"&TextBox1.Text&"'")mytable=dbop.sel("select*from用戶表")DataGridView1.DataSource=mytableElseMsgBox("請輸入賬號！",MsgBoxStyle.OkOnly,"提示")EndIfTextBox1.Text里面的內(nèi)容為賬號，刪除時代碼首先判斷出這個內(nèi)容是否為空，如果不為空，就通過這一段"delete用戶表where賬號='"&TextBox1.Text&"'"語句來實現(xiàn)，把該賬號的全部內(nèi)容一起刪除，因為賬號是主鍵，所以可以全部刪除掉；如果判斷為空，就彈出提示窗口，提醒用戶“請輸入賬號”，實現(xiàn)該方法的是以下語句：MsgBox("請輸入賬號！",MsgBoxStyle.OkOnly,"提示")。修改用戶數(shù)據(jù)是用update語句實現(xiàn)的，具體修改用戶代碼如下：IfTextBox1.Text<>""AndComboBox1.Text<>""Thendbop.idu("update用戶表set密碼='"&TextBox2.Text&"'where賬號='"&TextBox1.Text&"'")dbop.idu("update用戶表set級別='"&ComboBox1.Text&"'where賬號='"&TextBox1.Text&"'")mytable=dbop.sel("select*from用戶表")DataGridView1.DataSource=mytableElseMsgBox("請輸入賬號！",MsgBoxStyle.OkOnly,"提示")EndIf和上述說的實現(xiàn)方法大同小異，也是先判斷TextBox1.Text（賬號）和ComboBox1.Text（級別）這些的內(nèi)容是否為空，如果不為空，就通過這一段"update語句來實現(xiàn)，把新的內(nèi)容寫進數(shù)據(jù)庫里面；如果判斷為空，就彈出提示窗口，提醒用戶“請輸入賬號”，實現(xiàn)該方法的是以下語句：MsgBox("請輸入賬號！",MsgBoxStyle.OkOnly,"提示")。4.3.4部門信息管理模塊設(shè)計圖4-5部門信息管理模塊圖部門信息管理模塊，包含了添加、修改、刪除和查找功能，其中還有重置的方便設(shè)計。添加方面的實現(xiàn)方法如下：Ifmytable.Rows.Count=0Thendbop.idu("insertinto部門表(職工號,姓名,性別,培訓(xùn)方向,職位)values('"&TextBox2.Text&"','"&TextBox3.Text&"','"&ComboBox1.Text&"','"&TextBox6.Text&"','"&TextBox4.Text&"')")MsgBox("錄入成功",MsgBoxStyle.OkOnly,"提示")ElseMsgBox("錯誤！該職工號已存在！",MsgBoxStyle.OkOnly,"提示")EndIfCallenbutton()用戶把要添加的內(nèi)容詳細填入后，通過Inser語句把相對應(yīng)的內(nèi)容寫入數(shù)據(jù)庫中并保存起來，然后彈出一個提示框，告知用戶數(shù)據(jù)已經(jīng)成功錄入，更好的進行交互；如果用戶在添加的過程中，把已存在的用戶職工號錯誤填寫進去，系統(tǒng)會提示用戶“錯誤！該職工號已存在！”修改部門信息數(shù)據(jù)是通過update語句來實現(xiàn)的，代碼如下：IfTextBox2.Text=""ThenMsgBox("修改職工號必需填寫！",MsgBoxStyle.OkOnly,"提示")ElseIfMsgBox("確定修改"&TextBox2.Text&"這個人的資料？",MsgBoxStyle.YesNo,"提示")=MsgBoxResult.YesThendbop.idu("update部門表set姓名='"&TextBox3.Text&"',性別='"&ComboBox1.Text&"',培訓(xùn)方向='"&TextBox6.Text&"',職位='"&TextBox4.Text&"'where職工號='"&TextBox2.Text&"'")EndIfEndIfmytable=dbop.sel("select*from部門表")DataGridView1.DataSource=mytableCallenbutton()該段代碼首先判斷用戶要修改的數(shù)據(jù)職工號是完整的，因為職工號在數(shù)據(jù)庫表里面是主鍵，必須要填寫，所以先判斷是否有，這個機制保證了數(shù)據(jù)的完整性。然后通過這段代碼（update部門表set姓名='"&TextBox3.Text&"',性別='"&ComboBox1.Text&"',培訓(xùn)方向='"&TextBox6.Text&"',職位='"&TextBox4.Text&"'where職工號='"&TextBox2.Text&"）來實現(xiàn)修改的目的，一旦用戶修改了部門信息數(shù)據(jù)后，可以及時的通過datagridview控件來查看是否已經(jīng)修改，實現(xiàn)該方法的是：mytable=dbop.sel("select*from部門表")DataGridView1.DataSource=mytable刪除部門信息數(shù)據(jù)是用delete語句來實現(xiàn)的，這段代碼是這樣的：IfTextBox2.Text=""ThenMsgBox("刪除職工號必需填寫！",MsgBoxStyle.OkOnly,"提示")ElseIfMsgBox("確定刪除"&TextBox2.Text&"職工的資料？",MsgBoxStyle.YesNo,"提示")=MsgBoxResult.YesThendbop.idu("delete部門表where職工號='"&TextBox2.Text&"'")EndIfEndIfmytable=dbop.sel("select*from部門表")DataGridView1.DataSource=mytableCallenbutton()要刪除部門信息數(shù)據(jù)，首先要確定是刪除哪個部門的信息，因此這個語句代碼首先就判斷是否填寫了職工號，如果沒有，就會彈出一個提示框來提醒用戶沒有填寫職工號，實現(xiàn)該方法是這個語句：IfTextBox2.Text=""ThenMsgBox("刪除職工號必需填寫！",MsgBoxStyle.OkOnly,"提示")如果全部信息都確定了，系統(tǒng)就通過delete語句把該職工號的所有數(shù)據(jù)都刪除掉，并且及時把更新的信息顯示出來。查找是用Like語句來實現(xiàn)的，具體要查找什么內(nèi)容，可以通過部門信息里面所有列名來匹配查找，可以是職工號、姓名、性別、職位、培訓(xùn)方向來匹配查找。具體的代碼如下：IfTextBox2.Text<>""Thenmysql="職工號like'"&TextBox2.Text&"%'"EndIfIfTextBox3.Text<>""ThenIfmysql<>""Thenmysql=mysql&"and姓名like'"&TextBox3.Text&"%'"Elsemysql="姓名like'"&TextBox3.Text&"%'"EndIfEndIfIfComboBox1.Text<>""ThenIfmysql<>""Thenmysql=mysql&"and性別='"&ComboBox1.Text&"'"Elsemysql="性別='"&ComboBox1.Text&"'"EndIfEndIfIfTextBox4.Text<>""ThenIfmysql<>""Thenmysql=mysql&"and職位='"&TextBox4.Text&"'"Elsemysql="職位='"&TextBox4.Text&"'"EndIfEndIfIfTextBox6.Text<>""ThenIfmysql<>""Thenmysql=mysql&"and培訓(xùn)方向='"&TextBox6.Text&"'"Elsemysql="培訓(xùn)方向='"&TextBox6.Text&"'"EndIf重置的功能其實就是把所有當前textbox.text里面的內(nèi)容賦空值，實現(xiàn)代碼是TextBox2.Text=""TextBox3.Text=""ComboBox1.Text=""TextBox4.Text=""TextBox6.Text=""4.3.5培訓(xùn)課程管理模塊設(shè)計圖4-6培訓(xùn)課程管理模塊圖該管理模塊包括了添加、修改、查找、刪除功能，添加方面的實現(xiàn)方法如下：mytable=dbop.sel("selectdistinct課程號from課程表where課程號='"&TextBox2.Text&"'")Ifmytable.Rows.Count=0Thendbop.idu("insertinto課程表(課程號,課程名,培訓(xùn)學(xué)時,培訓(xùn)月份,培訓(xùn)類別)values('"&TextBox2.Text&"','"&TextBox3.Text&"','"&TextBox6.Text&"','"&TextBox4.Text&"','"&TextBox5.Text&"')")MsgBox("錄入成功",MsgBoxStyle.OkOnly,"提示")ElseMsgBox("錯誤！該課程號已存在！",MsgBoxStyle.OkOnly,"提示")EndIfCallenbutton()用戶把要添加的內(nèi)容詳細填入后，通過Insert語句把相對應(yīng)的內(nèi)容寫入數(shù)據(jù)庫中并保存起來，然后彈出一個提示框，告知用戶數(shù)據(jù)已經(jīng)成功錄入，更好的進行交互；如果用戶在添加的過程中，把已存在的課程號錯誤填寫進去，系統(tǒng)會提示用戶“錯誤！該課程號已存在！”修改部門信息數(shù)據(jù)是通過update語句來實現(xiàn)的，代碼如下：IfTextBox2.Text=""ThenMsgBox("修改課程號必需填寫！",MsgBoxStyle.OkOnly,"提示")ElseIfMsgBox("確定修改"&TextBox2.Text&"課程的資料？",MsgBoxStyle.YesNo,"提示")=MsgBoxResult.YesThendbop.idu("update課程表set培訓(xùn)學(xué)時='"&TextBox6.Text&"',課程名='"&TextBox3.Text&"',培訓(xùn)月份='"&TextBox4.Text&"',培訓(xùn)類別='"&TextBox5.Text&"'where課程號='"&TextBox2.Text&"'")EndIfEndIfmytable=dbop.sel("select*from課程表")DataGridView1.DataSource=mytableCallenbutton()該段代碼首先判斷用戶要修改的課程號是完整的，因為課程號在數(shù)據(jù)庫表里面是主鍵，必須要填寫，所以先判斷是否有，這個機制保證了數(shù)據(jù)的完整性。然后通過這段代碼（"update課程表set培訓(xùn)學(xué)時='"&TextBox6.Text&"',課程名='"&TextBox3.Text&"',培訓(xùn)月份='"&TextBox4.Text&"',培訓(xùn)類別='"&TextBox5.Text&"'where課程號='"&TextBox2.Text&"'")來實現(xiàn)修改的目的，一旦用戶修改了培訓(xùn)課程數(shù)據(jù)后，可以及時的通過datagridview控件來查看是否已經(jīng)修改，實現(xiàn)該方法的是：mytable=dbop.sel("select*from課程表")DataGridView1.DataSource=mytable刪除部門信息數(shù)據(jù)是用delete語句來實現(xiàn)的，這段代碼是這樣的：IfTextBox2.Text=""ThenMsgBox("刪除課程號必需填寫！",MsgBoxStyle.OkOnly,"提示")ElseIfMsgBox("確定刪除"&TextBox2.Text&"課程的資料？",MsgBoxStyle.YesNo,"提示")=MsgBoxResult.YesThendbop.idu("delete課程表where課程號='"&TextBox2.Text&"'")EndIfEndIfmytable=dbop.sel("select*from課程表")DataGridView1.DataSource=mytableCallenbutton()要刪除培訓(xùn)課程數(shù)據(jù)，首先要確定是刪除哪個課程的信息，因此這個語句代碼首先就判斷是否填寫了課程號，如果沒有，就會彈出一個提示框來提醒用戶沒有填寫課程號，實現(xiàn)該方法是這個語句：IfTextBox2.Text=""ThenMsgBox("刪除課程號必需填寫！",MsgBoxStyle.OkOnly,"提示")如果全部信息都確定了，系統(tǒng)就通過delete語句把該課程號的所有數(shù)據(jù)都刪除掉，并且及時把更新的信息顯示出來。查找是用Like語句來實現(xiàn)的，具體要查找什么內(nèi)容，可以通過培訓(xùn)課程信息里面所有列名來匹配查找，可以是課程號、課程名、培訓(xùn)類別、培訓(xùn)月份、培訓(xùn)學(xué)時來匹配查找。具體的代碼如下：IfTextBox2.Text<>""Thenmysql="課程號like'"&TextBox2.Text&"%'"EndIfIfTextBox3.Text<>""ThenIfmysql<>""Thenmysql=mysql&"and課程名like'"&TextBox3.Text&"%'"Elsemysql="課程名like'"&TextBox3.Text&"%'"EndIfEndIfIfTextBox4.Text<>""ThenIfmysql<>""Thenmysql=mysql&"and培訓(xùn)月份='"&TextBox4.Text&"'Elsemysql="培訓(xùn)月份='"&TextBox4.Text&"'"EndIfEndIfIfTextBox5.Text<>""ThenIfmysql<>""Thenmysql=mysql&"and培訓(xùn)類別='"&TextBox5.Text&"'Elsemysql="培訓(xùn)類別='"&TextBox5.Text&"'"EndIfEndIfIfTextBox6.Text<>""ThenIfmysql<>""Thenmysql=mysql&"and培訓(xùn)學(xué)時='"&TextBox6.Text&"'Elsemysql="培訓(xùn)學(xué)時='"&TextBox6.Text&"'"EndIfEndIfIfmysql<>""Thenmysql="select*from課程表where"&mysql&""mytable=dbop.sel(mysql)DataGridView1.DataSource=mytableCallenbutton()4.3.6最新培訓(xùn)課程信息管理模塊設(shè)計圖4-7最新培訓(xùn)課程管理模塊圖該管理模塊包括了修改、查找、刪除功能，修改方面的實現(xiàn)方法如下：IfTextBox8.Text=""ThenMsgBox("課程號必需填寫！",MsgBoxStyle.OkOnly,"提示")ElseIfMsgBox("確定修改"&TextBox7.Text&"課程的資料？",MsgBoxStyle.YesNo,"提示")=MsgBoxResult.YesThendbop.idu("update課程表set培訓(xùn)學(xué)時='"&TextBox6.Text&"',最新課程名='"&TextBox3.Text&"',培訓(xùn)月份='"&TextBox4.Text&"',培訓(xùn)類別='"&TextBox5.Text&"',最新課程號='"&TextBox2.Text&"',課程名='"&TextBox7.Text&"'where課程號='"&TextBox8.Text&"'")EndIfEndIfmytable=dbop.sel("select*from課程表")DataGridView1.DataSource=mytableCallenbutton()該段代碼首先判斷用戶要修改的課程號是完整的，因為課程號在數(shù)據(jù)庫表里面是主鍵，必須要填寫，所以先判斷是否有，這個機制保證了數(shù)據(jù)的完整性。然后通過這段代碼（"update課程表set培訓(xùn)學(xué)時='"&TextBox6.Text&"',最新課程名='"&TextBox3.Text&"',培訓(xùn)月份='"&TextBox4.Text&"',培訓(xùn)類別='"&TextBox5.Text&"',最新課程號='"&TextBox2.Text&"',課程名='"&TextBox7.Text&"'where課程號='"&TextBox8.Text&"'")來實現(xiàn)修改的目的，一旦用戶修改了最新培訓(xùn)課程數(shù)據(jù)后，可以及時的通過datagridview控件來查看是否已經(jīng)修改，實現(xiàn)該方法的是：mytable=dbop.sel("select*from課程表")DataGridView1.DataSource=mytable刪除部門信息數(shù)據(jù)是用delete語句來實現(xiàn)的，這段代碼是這樣的：IfTextBox8.Text=""ThenMsgBox("課程號必需填寫！",MsgBoxStyle.OkOnly,"提示")ElseIfMsgBox("確定刪除"&TextBox7.Text&"課程的資料？",MsgBoxStyle.YesNo,"提示")=MsgBoxResult.YesThendbop.idu("delete課程表where課程號='"&TextBox8.Text&"'")EndIfEndIfmytable=dbop.sel("select*from課程表")DataGridView1.DataSource=mytableCallenbutton()要刪除最新培訓(xùn)課程數(shù)據(jù)，首先要確定是刪除哪個課程的信息，因此這個語句代碼首先就判斷是否填寫了課程號，如果沒有，就會彈出一個提示框來提醒用戶沒有填寫課程號，實現(xiàn)該方法是這個語句：IfTextBox8.Text=""ThenMsgBox("課程號必需填寫！",MsgBoxStyle.OkOnly,"提示")如果全部信息都確定了，系統(tǒng)就通過delete語句把該課程號的所有數(shù)據(jù)都刪除掉，并且及時把更新的信息顯示出來。查找是用Like語句來實現(xiàn)的，具體要查找什么內(nèi)容，可以通過培訓(xùn)課程信息里面所有列名來匹配查找，可以是課程號、課程名、培訓(xùn)類別、培訓(xùn)月份、培訓(xùn)學(xué)時最新課程名，最新課程號來匹配查找。具體的代碼如下：mysql=""IfTextBox2.Text<>""Thenmysql="最新課程號like'"&TextBox2.Text&"%'"EndIfIfTextBox3.Text<>""ThenIfmysql<>""Thenmysql=mysql&"and最新課程名like'"&TextBox3.Text&"%'"Elsemysql="最新課程名like'"&TextBox3.Text&"%'"EndIfEndIfIfTextBox4.Text<>""ThenIfmysql<>""Thenmysql=mysql&"and培訓(xùn)月份='"&TextBox4.Text&"'"Elsemysql="培訓(xùn)月份='"&TextBox4.Text&"'"EndIfEndIfIfTextBox5.Text<>""ThenIfmysql<>""Thenmysql=mysql&"and培訓(xùn)類別='"&TextBox5.Text&"'"Elsemysql="培訓(xùn)類別='"&TextBox5.Text&"'"EndIfEndIfIfTextBox6.Text<>""ThenIfmysql<>""Thenmysql=mysql&"and培訓(xùn)學(xué)時='"&TextBox6.Text&"'"Elsemysql="培訓(xùn)學(xué)時='"&TextBox6.Text&"'"EndIfEndIfIfTextBox7.Text<>""ThenIfmysql<>""Thenmysql=mysql&"and課程名='"&TextBox7.Text&"'"Elsemysql="課程名='"&TextBox7.Text&"'"EndIfEndIfIfTextBox8.Text<>""ThenIfmysql<>""Thenmysql=mysql&"and課程名='"&TextBox8.Text&"'"Elsemysql="課程名='"&TextBox8.Text&"'"EndIfEndIfIfmysql<>""Thenmysql="select*from課程表where"&mysql&""mytable=dbop.sel(mysql)DataGridView1.DataSource=mytableCallenbutton()4.3.7培訓(xùn)需求信息管理模塊設(shè)計圖4-8培訓(xùn)需求信息管理模塊圖該管理模塊包括了添加、修改、查找、刪除功能，添加方面的實現(xiàn)方法如下：mytable=dbop.sel("selectdistinct培訓(xùn)需求編號from需求表where培訓(xùn)需求編號='"&TextBox7.Text&"'")IfTextBox7.Text<>""Thendbop.idu("insertinto需求表(培訓(xùn)需求編號,培訓(xùn)需求標題,培訓(xùn)地點,聯(lián)系電話,聯(lián)系人,培訓(xùn)類別)values('"&TextBox7.Text&"','"&TextBox2.Text&"','"&TextBox5.Text&"','"&TextBox4.Text&"','"&TextBox6.Text&"','"&TextBox3.Text&"')")MsgBox("錄入成功",MsgBoxStyle.OkOnly,"提示")ElseMsgBox("錯誤！該培訓(xùn)需求編號已存在！",MsgBoxStyle.OkOnly,"提示")EndIfmytable=dbop.sel("select*from需求表")DataGridView1.DataSource=mytableCallenbutton()用戶把要添加的內(nèi)容詳細填入后，通過Inser語句把相對應(yīng)的內(nèi)容寫入數(shù)據(jù)庫中并保存起來，然后彈出一個提示框，告知用戶數(shù)據(jù)已經(jīng)成功錄入，更好的進行交互；如果用戶在添加的過程中，把已存在的培訓(xùn)需求編號錯誤填寫進去，系統(tǒng)會提示用戶“錯誤！該培訓(xùn)需求編號已存在！”修改方面的實現(xiàn)方法如下：IfTextBox7.Text=""ThenMsgBox("修改培訓(xùn)需求編號必需填寫！",MsgBoxStyle.OkOnly,"提示")ElseIfMsgBox("確定修改"&TextBox2.Text&"需求的資料？",MsgBoxStyle.YesNo,"提示")=MsgBoxResult.YesThendbop.idu("update需求表set聯(lián)系電話='"&TextBox4.Text&"',培訓(xùn)地點='"&TextBox5.Text&"',聯(lián)系人='"&TextBox6.Text&"',培訓(xùn)類別='"&TextBox3.Text&"',培訓(xùn)需求標題='"&TextBox2.Text&"'where培訓(xùn)需求編號='"&TextBox7.Text&"'")EndIfEndIfmytable=dbop.sel("select*from需求表")DataGridView1.DataSource=mytableCallenbutton()該段代碼首先判斷用戶要修改的培訓(xùn)需求編號是完整的，因為培訓(xùn)需求編號在數(shù)據(jù)庫表里面是主鍵，必須要填寫，所以先判斷是否有，這個機制保證了數(shù)據(jù)的完整性。然后通過這段代碼（"update需求表set聯(lián)系電話='"&TextBox4.Text&"',培訓(xùn)地點='"&TextBox5.Text&"',聯(lián)系人='"&TextBox6.Text&"',培訓(xùn)類別='"&TextBox3.Text&"',培訓(xùn)需求標題='"&TextBox2.Text&"'where培訓(xùn)需求編號='"&TextBox7.Text&"'")來實現(xiàn)修改的目的，一旦用戶修改了培訓(xùn)需求管理數(shù)據(jù)后，可以及時的通過datagridview控件來查看是否已經(jīng)修改，實現(xiàn)該方法的是：mytable=dbop.sel("select*from需求表")DataGridView1.DataSource=mytable刪除部門信息數(shù)據(jù)是用delete語句來實現(xiàn)的，這段代碼是這樣的：IfTextBox7.Text=""ThenMsgBox("刪除培訓(xùn)需求編號必需填寫！",MsgBoxStyle.OkOnly,"提示")ElseIfMsgBox("確定刪除"&TextBox2.Text&"需求的資料？",MsgBoxStyle.YesNo,"提示")=MsgBoxResult.YesThendbop.idu("delete需求表where培訓(xùn)需求編號='"&TextBox7.Text&"'")EndIfEndIfmytable=dbop.sel("select*from需求表")DataGridView1.DataSource=mytableCallenbutton()要刪除培訓(xùn)需求管理數(shù)據(jù)，首先要確定是刪除哪個培訓(xùn)需求的信息，因此這個語句代碼首先就判斷是否填寫了培訓(xùn)需求編號，如果沒有，就會彈出一個提示框來提醒用戶沒有填寫培訓(xùn)需求編號，實現(xiàn)該方法是這個語句：TextBox7.Text=""ThenMsgBox("刪除培訓(xùn)需求編號必需填寫！",MsgBoxStyle.OkOnly,"提示")如果全部信息都確定了，系統(tǒng)就通過delete語句把該課程號的所有數(shù)據(jù)都刪除掉，并且及時把更新的信息顯示出來。查找是用Like語句來實現(xiàn)的，具體要查找什么內(nèi)容，可以通過培訓(xùn)課程信息里面所有列名來匹配查找，可以是培訓(xùn)需求標題、培訓(xùn)需求編號、培訓(xùn)類別、聯(lián)系電話、聯(lián)系人，培訓(xùn)地點來匹配查找。具體的代碼如下：IfTextBox7.Text=""ThenMsgBox("刪除培訓(xùn)需求編號必需填寫！",MsgBoxStyle.OkOnly,"提示")ElseIfMsgBox("確定刪除"&TextBox2.Text&"需求的資料？",MsgBoxStyle.YesNo,"提示")=MsgBoxResult.YesThendbop.idu("delete需求表where培訓(xùn)需求編號='"&TextBox7.Text&"'")EndIfEndIfmytable=dbop.sel("select*from需求表")DataGridView1.DataSource=mytableCallenbutton()EndSubPrivateSubButton4_Click_1(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.Clickmysql=""IfTextBox2.Text<>""Thenmysql="培訓(xùn)需求標題like'"&TextBox2.Text&"%'"EndIfIfTextBox3.Text<>""ThenIfmysql<>""Thenmysql=mysql&"and培訓(xùn)類別like'"&TextBox3.Text&"%'"Elsemysql="培訓(xùn)類別like'"&TextBox3.Text&"%'"EndIfEndIfIfTextBox4.Text<>""ThenIfmysql<>""Thenmysql=mysql&"and聯(lián)系電話='"&TextBox4.Text&"'Elsemysql="聯(lián)系電話='"&TextBox4.Text&"'"EndIfEndIfIfTextBox6.Text<>""ThenIfmysql<>""Thenmysql=mysql&"and聯(lián)系人='"&TextBox6.Text&"'"Elsemysql="聯(lián)系人='"&TextBox6.Text&"'"EndIfEndIfIfTextBox5.Text<>""ThenIfmysql<>""Thenmysql=mysql&"and培訓(xùn)地點='"&TextBox5.Text&"Elsemysql="培訓(xùn)地點='"&TextBox5.Text&"'"EndIfEndIfIfTextBox7.Text<>""ThenIfmysql<>""Thenmysql=mysql&"and培訓(xùn)需求編號='"&TextBox7.Text&"'"Elsemysql="培訓(xùn)需求編號='"&TextBox7.Text&"'"EndIfEndIfIfmysql<>""Thenmysql="select*from需求表where"&mysql&""mytable=dbop.sel(mysql)DataGridView1.DataSource=mytableCallenbutton()4.3.8培訓(xùn)教室管理模塊設(shè)計圖4-9培訓(xùn)教室管理模塊圖該管理模塊包括了添加、修改、查找、刪除功能，添加方面的實現(xiàn)方法如下：mytable=dbop.sel("selectdistinct教室號from課室表where教室號='"&TextBox2.Text&"'")Ifmytable.Rows.Count=0Thendbop.idu("insertinto課室表(教室號,培訓(xùn)類別,培訓(xùn)科目,地點,教室名)values('"&TextBox2.Text&"','"&TextBox3.Text&"','"&TextBox6.Text&"','"&TextBox5.Text&"','"&TextBox4.Text&"')")MsgBox("錄入成功",MsgBoxStyle.OkOnly,"提示")ElseMsgBox("錯誤！該課室號已存在！",MsgBoxStyle.OkOnly,"提示")EndIfmytable=dbop.sel("select*from課室表")DataGridView1.DataSource=mytableCallenbutton()用戶把要添加的內(nèi)容詳細填入后，通過Insert語句把相對應(yīng)的內(nèi)容寫入數(shù)據(jù)庫中并保存起來，然后彈出一個提示框，告知用戶數(shù)據(jù)已經(jīng)成功錄入，更好的進行交互；如果用戶在添加的過程中，把已存在的教室號錯誤填寫進去，系統(tǒng)會提示用戶“錯誤！該教室號已存在！”修改方面的實現(xiàn)方法如下：IfTextBox2.Text=""ThenMsgBox("修改教室號必需填寫！",MsgBoxStyle.OkOnly,"提示")ElseIfMsgBox("確定修改"&TextBox2.Text&"課室的資料？",MsgBoxStyle.YesNo,"提示")=MsgBoxResult.YesThendbop.idu("update課室表set培訓(xùn)科目='"&TextBox6.Text&"',培訓(xùn)類別='"&TextBox3.Text&"',教室名='"&TextBox4.Text&"',地點='"&TextBox5.Text&"'where教室號='"&TextBox2.Text&"'")EndIfEndIfmytable=dbop.sel("select*from課室表")DataGridView1.DataSource=mytableCallenbutton()該段代碼首先判斷用戶要修改的教室號是完整的，因為教室號在數(shù)據(jù)庫表里面是主鍵，必須要填寫，所以先判斷是否有，這個機制保證了數(shù)據(jù)的完整性。然后通過這段代碼（update課室表set培訓(xùn)科目='"&TextBox6.Text&"',培訓(xùn)類別='"&TextBox3.Text&"',教室名='"&TextBox4.Text&"',地點='"&TextBox5.Text&"'where教室號='"&TextBox2.Text&"'")來實現(xiàn)修改的目的，一旦用戶修改了培訓(xùn)教師數(shù)據(jù)后，可以及時的通過datagridview控件來查看是否已經(jīng)修改，實現(xiàn)該方法的是：mytable=dbop.sel("select*from課室表")DataGridView1.DataSource