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