畢業(yè)論文設(shè)備管理系統(tǒng)的設(shè)計與實現(xiàn)模板

畢業(yè)設(shè)計（論文）設(shè)計(論文)題目設(shè)備管理系統(tǒng)設(shè)計和實現(xiàn)畢業(yè)設(shè)計（論文）開題匯報論文題目：設(shè)備管理系統(tǒng)設(shè)計和實現(xiàn)姓名：學(xué)號：學(xué)院：機電工程學(xué)院專業(yè)：自動化年級：四年級指導(dǎo)老師：課題起源在三角華茂企業(yè)設(shè)備安裝調(diào)試期間進行了三個月實習(xí)實踐，對輪胎制造工藝幾大車間進行了基礎(chǔ)了解，關(guān)鍵針對和自己專業(yè)相關(guān)設(shè)備管理方面有了較為深入實踐認(rèn)識，期望將自己所學(xué)和工作中應(yīng)用結(jié)合起來，愈加好利用電氣時代帶來優(yōu)異條件，實現(xiàn)設(shè)備良好管理和維護。本課題基礎(chǔ)內(nèi)容一個完整設(shè)備管理系統(tǒng)應(yīng)該首先將工廠關(guān)鍵和設(shè)備相關(guān)多個部分清楚羅列出來，A,B,C,三大區(qū)域，加上動力站設(shè)備，和變電室是五個關(guān)鍵區(qū)域，設(shè)備管理系統(tǒng)設(shè)備管理系統(tǒng)變電室動力站CBA變電室動力站CBA 例B區(qū)：1、設(shè)備名稱2、設(shè)備編號3、制造商4、編輯5、查詢系統(tǒng)管理：用戶管理修改密碼換用戶登錄本課題關(guān)鍵和難點關(guān)鍵難點是：怎樣實現(xiàn)設(shè)備使用過程中所取得設(shè)備運行基礎(chǔ)情況統(tǒng)計，和在此基礎(chǔ)上進行對應(yīng)設(shè)備編輯、查詢；怎樣實現(xiàn)密碼修改及更換用戶登錄；怎樣把不一樣情況下條件進行組合來構(gòu)建SQL語句；例●WHERE條件（確定范圍謂詞BETWEENAND,確定集合謂詞IN）論文提要1、做好各個層次數(shù)據(jù)表，正確建立表關(guān)聯(lián)；2、做主窗體菜單，分一級菜單和二級菜單；3、編輯主窗體程序代碼；4、各個模塊要實現(xiàn)基礎(chǔ)添加、刪除、修改、查詢等操作；進度安排.12---.3.31在三角集團進行實習(xí)，具體了解車間設(shè)備結(jié)構(gòu)及工作原理.4.1---.4.25回學(xué)校進行論文輪廓設(shè)計及程序編寫，以結(jié)構(gòu)出論文大致模型．4.26---.5.25在論文細(xì)節(jié)方面進行補充,程序方面愈加完整,確保實例運行盡可能貼合實際生產(chǎn)要求.5.26---.6.5準(zhǔn)備論文答辨,制作答辨PPT.畢業(yè)設(shè)計（論文）成績評定表學(xué)院：專業(yè)：年級：姓名學(xué)號設(shè)計（論文）總成績設(shè)計（論文）題目指導(dǎo)教師評語評定成績：×60%=署名：年月日答辯小組評語答辯成績：×40%=組長署名：年月日注：指導(dǎo)老師、答辯小組給成績和設(shè)計（論文）總成績統(tǒng)一實施百分制，總成績中指導(dǎo)老師評分占60%，答辯小組評分占40%。評語、成績、署名及日期處必需手寫。目錄摘要……………………1Abstract…………………1一、系統(tǒng)需求分析………2（一）設(shè)備管理系統(tǒng)背景分析…………………2（二）開發(fā)設(shè)備管理系統(tǒng)必需性………………2二、系統(tǒng)可行性分析……………………2（一）技術(shù)可行性…………………2（二）經(jīng)濟可行性…………………3（三）操作可行性…………………3三、系統(tǒng)總體設(shè)計………3（一）系統(tǒng)目標(biāo)設(shè)計………………3（二）開發(fā)設(shè)計思想………………3（三）系統(tǒng)功效分析………………3（四）系統(tǒng)關(guān)鍵模塊組成…………4（五）設(shè)備管理系統(tǒng)開發(fā)環(huán)境介紹………………5四、數(shù)據(jù)庫設(shè)計…………6（一）數(shù)據(jù)表設(shè)計…………………6五、系統(tǒng)主窗體設(shè)計……………………7（一）創(chuàng)建工程項目--設(shè)備管理系統(tǒng)……………7（二）創(chuàng)建系統(tǒng)主窗體……………7（三）創(chuàng)建主窗體菜單……………8（四）創(chuàng)建主窗體工具欄…………14（五）創(chuàng)建主窗體狀態(tài)欄…………17六、系統(tǒng)各模塊設(shè)計……………………17（一）標(biāo)準(zhǔn)模塊設(shè)計………………17（二）編輯查詢模塊設(shè)計………18（三）系統(tǒng)管理模塊設(shè)計………28（四）登錄模塊設(shè)計……………31（五）系統(tǒng)說明性模塊設(shè)計……34參考文件………………36謝辭……………………37TOC\o"1-2"\h\z\u摘要現(xiàn)在企業(yè)企業(yè),對于大型電氣設(shè)備使用十分頻繁,對于大型設(shè)備管理也成為現(xiàn)代企業(yè)管理之中不可或缺一部分。所以,開發(fā)這么一套軟件成為很有必需事情。本管理系統(tǒng)是針對企業(yè)實際需求開發(fā)設(shè)計,針對性強,功效齊備,意在經(jīng)過幫助該企業(yè)設(shè)備管理實現(xiàn)信息化,以提升企業(yè)管理效率。

經(jīng)過分析,我們使用MICROSOFT企業(yè)ACCESS和VISUALBASIC6.0開發(fā)工具,利用其提供多種面向?qū)ο箝_發(fā)工具,首先在短時間內(nèi)建立系統(tǒng)應(yīng)用原型,然后對初始原型系統(tǒng)進行需求迭代,不停修正和改善,直到形成用戶滿意可行系統(tǒng)。關(guān)鍵字VisualBasic6.0、Access數(shù)據(jù)庫、設(shè)備管理AbstractNowcompanyandenterprise,fortheuseoflargescaleelectronicequipmentarefrequent,themanagementoflargescaleequipmentalsobecomesanintegralpartofenterprisemanagement.Thereforetodevelopsuchasetofsoftwareisbecomeverynecessarymatter.Thismanagementinformationsystemisthecreationthataimsatthebusinessenterpriseoftheactualneed.Thesystemisconcise,canbetothepointandisself-contained,whichaimstohelpthecompanyachievematerialmanagementinformationinordertoraiseeconomybenefit.Throughanalysis,weusetheAccessand

theVISUALBASIC

developmenttoolofthecompanyofMICROSOFT,makinguseofvariousdevelopmenttoolthatfacestotheobjectofwhatitprovide.Weshouldbuildupthesystemapplicationprototypeinashorttimefirst,then,starttheprototypesystemtocarryontheneed,reviseandimprovecontinuously,untilformattheonethatthecustomerissatisfiedandcanbeused.

KeywordsVisualBasic6.0,AccessDataBase,theequipmentmanagementinformation一、系統(tǒng)需求分析（一）設(shè)備管理系統(tǒng)背景分析設(shè)備管理系統(tǒng)是企業(yè)內(nèi)部信息管理系統(tǒng)，是連接企業(yè)內(nèi)部各生產(chǎn)部門橋梁和紐帶，起著關(guān)鍵作用。現(xiàn)在企業(yè)設(shè)備自動化管理水平并不高。大多數(shù)設(shè)備管理措施是設(shè)備采購進來以后，將設(shè)備基礎(chǔ)情況和相關(guān)信息登記，然后將檔案存檔。以后檔案基礎(chǔ)就沒人維護，所以設(shè)備修改、刪除情況等信息不會展現(xiàn)在管理工作人員面前。而且因為散亂、繁雜、查找和整理不便，設(shè)備跟蹤信息不能立即表現(xiàn)在設(shè)備檔案上。即便采取專門人員整點，對設(shè)備跟蹤信息能統(tǒng)計在案，但無形中增加了繁重手工勞動，整體管理水平還是較低。本設(shè)備管理系統(tǒng)合理借鑒國際領(lǐng)先設(shè)備管理思想并結(jié)合中國設(shè)備管理現(xiàn)實狀況，經(jīng)過在實習(xí)期間對三角集團設(shè)備管理情況研究探索，以靈活、通用為關(guān)鍵設(shè)計思想，開發(fā)適合本行業(yè)設(shè)備管理系統(tǒng)，實現(xiàn)了設(shè)備整個生命周期計算機化管理。本系統(tǒng)將會提升辦公效率和設(shè)備可靠性，降低工作人員勞動強度，降低辦公耗材，提升現(xiàn)代化管理水平?！?】（二）開發(fā)設(shè)備管理系統(tǒng)必需性傳統(tǒng)設(shè)備管理關(guān)鍵是以人工謄錄統(tǒng)計存檔運行模式。二十一世紀(jì)是科技信息時代,陳舊管理模式不能適應(yīng)新時代要求,它存在著操作速度慢、散亂、復(fù)雜等一系列缺點和不足。因為散亂、復(fù)雜，很可能有文案丟失情況，而且查找也不方便，給管理工作人員帶來很大程度管理滯后，增加了成本，降低了企業(yè)生產(chǎn)力。關(guān)注現(xiàn)代形式，利用社會上出來優(yōu)異技術(shù)開發(fā)出新設(shè)備管理系統(tǒng)是很多企業(yè)拭目以待，正所謂“工欲善其事，必先利其器”。由此開發(fā)設(shè)備管理系統(tǒng)是一套完全為設(shè)備管理人員設(shè)計把設(shè)備管理由被動管理轉(zhuǎn)為主動管理系統(tǒng)，它使用將極大地提升設(shè)備管理部門工作效率，使設(shè)備管理人員解脫了繁重手工勞動，實現(xiàn)了設(shè)備整個生命周期計算機化管理，同時再和使用單位內(nèi)部網(wǎng)絡(luò)配合基礎(chǔ)上能夠?qū)崿F(xiàn)無紙化辦公

二、系統(tǒng)可行性分析可行性研究目標(biāo)就是用最小代價在盡可能短時間內(nèi)確定問題是否能夠處理。必需記住，可行性研究目標(biāo)不是處理問題，而是確定問題是否值得去解。怎樣達(dá)成這個目標(biāo)呢？當(dāng)然不能靠主觀猜想，而只能靠客觀分析。必需分析多個關(guān)鍵可能解法利弊，從而判定原定系統(tǒng)目標(biāo)和規(guī)模是否現(xiàn)實，系統(tǒng)完成后所能帶來效益是否大到值得投資開發(fā)這個系統(tǒng)程度。本設(shè)計從以下三個方面進行可行性研究：（一）技術(shù)可行性本設(shè)計“設(shè)備管理系統(tǒng)”是為企業(yè)設(shè)備管理人員開發(fā)。鑒于本人在學(xué)習(xí)數(shù)據(jù)庫課程設(shè)計中已用VisualBasic6.0＋Access開發(fā)過學(xué)生成績管理系統(tǒng)，而且經(jīng)過三個月畢業(yè)實習(xí)中學(xué)習(xí)和實踐，對開發(fā)管理信息系統(tǒng)又有了新認(rèn)識和提升，使自己在開發(fā)管理信息系統(tǒng)方面技術(shù)愈加成熟。因為本設(shè)計最關(guān)鍵表現(xiàn)是實用性，所以，經(jīng)過在實習(xí)單位調(diào)查和分析，結(jié)合自己現(xiàn)有技術(shù)水平加上導(dǎo)師指導(dǎo)，還是能按期完成本畢業(yè)設(shè)計。（二）經(jīng)濟可行性成本方面：因為本畢業(yè)設(shè)計屬于(本科)教學(xué)最終一個步驟，所以人力消耗無償，資源學(xué)校提供，指導(dǎo)老師義務(wù)指導(dǎo)。所以成本計算只需計算開發(fā)期間開發(fā)者生活消費，學(xué)校資源消耗，所以開發(fā)本軟件成本是很低。效益方面：為企業(yè)開發(fā)一個完整、合理設(shè)備管理系統(tǒng)，可大大節(jié)余人力，以前需要多人干工作，使用本系統(tǒng)只需一個人或多個人就能完成，且工作量和勞動強度大大降低。所以開發(fā)本軟件能夠為社會帶來很好經(jīng)濟效益。從以上分析看開發(fā)本軟件在經(jīng)濟上是可行。（三）操作可行性本軟件是為企業(yè)設(shè)備管理者開發(fā)，全部本軟件用戶對象是企業(yè)工作人員，因為本軟件要設(shè)計成友好界面，寫出具體使用說明，用戶只需知道簡單計算機操作知識，就能自由應(yīng)用本軟件。所以從以上多個方面分析來看，開發(fā)本軟件是完全可行?！?】三、系統(tǒng)總體設(shè)計（一）系統(tǒng)目標(biāo)設(shè)計系統(tǒng)設(shè)計目標(biāo)是要設(shè)計成友好界面，以提升數(shù)據(jù)共享程度、降低數(shù)據(jù)冗余度、提升數(shù)據(jù)查詢效率為關(guān)鍵目標(biāo)。進而實現(xiàn)企業(yè)設(shè)備管理系統(tǒng)化、規(guī)范化和自動化，達(dá)成提升企業(yè)管理效率目標(biāo)（二）開發(fā)設(shè)計思想設(shè)備管理系統(tǒng)關(guān)鍵是對企業(yè)多種設(shè)備進行管理。設(shè)備管理特點是信息處理量比較大，所管理設(shè)備種類繁多，而且因為新增、修改、刪除設(shè)備時關(guān)聯(lián)信息多，查詢和統(tǒng)計方法各不相同。所以在管理上實現(xiàn)起來有一定困難。在本系統(tǒng)設(shè)計過程中，為了克服這些困難，滿足計算機管理工作需要，我們采取了下面部分標(biāo)準(zhǔn)：●統(tǒng)一多種編輯、查詢格式。●刪除無須要管理冗余，實現(xiàn)管理規(guī)范化、科學(xué)化?！癯绦虼a標(biāo)準(zhǔn)化，軟件統(tǒng)一化，確保軟件可維護性和實用性。●界面盡可能簡單化，做到實用、方便，盡可能滿足企業(yè)中不一樣層次職員需要。另外設(shè)備管理系統(tǒng)是一個信息管理系統(tǒng)(ManagementInformationSystem，MIS),其關(guān)鍵是數(shù)據(jù)庫，系統(tǒng)設(shè)計以提升數(shù)據(jù)共享程度、降低數(shù)據(jù)冗余度、提升數(shù)據(jù)查詢效率為關(guān)鍵目標(biāo)。考慮到這些我們采取VisualBasic6.0＋Access來進行開發(fā)。（三）系統(tǒng)功效分析本系統(tǒng)關(guān)鍵用編輯、查詢、系統(tǒng)管理三個功效模塊對設(shè)備信息進行綜合管理，讓管理人員隨時掌握設(shè)備運行動態(tài)，以進行操作和管理工作，功效模塊圖以下：設(shè)備管理系統(tǒng)編輯查詢設(shè)備管理系統(tǒng)編輯查詢系統(tǒng)管理單據(jù)管理登錄信息查詢統(tǒng)計報表中心視圖窗口幫助退出前臺是用戶進行綜合管理、進入其它操作模塊唯一接口，關(guān)鍵連接界面窗口有：

設(shè)備編輯、設(shè)備查詢、系統(tǒng)管理三個功效模

設(shè)備編輯包含新設(shè)備添加、修改、刪除；設(shè)置三個選項卡：設(shè)備、車間、制造商。

設(shè)備查詢包含按設(shè)備編號查詢、按車間名查詢。

系統(tǒng)管理包含對修改密碼、用戶管理、更換用戶登錄。（四）系統(tǒng)組成部分1．為方便用戶選擇本系統(tǒng)，主界面按下圖所表示組成：系統(tǒng)主界面系統(tǒng)主界面菜單欄工具欄狀態(tài)欄顯示界面圖3-2主界面布局其中菜單欄包含：編輯、查詢、系統(tǒng)管理、視圖、窗口、幫助、退出工具欄包含：說明、相關(guān)、ReadMe狀態(tài)欄用于顯示系統(tǒng)運行狀態(tài)如：系統(tǒng)時間、滾動信息顯示界面用于顯示目前用戶、登錄時間及各子窗口2．系統(tǒng)關(guān)鍵用編輯、查詢、系統(tǒng)管理三個功效模塊對設(shè)備信息進行綜合管理，讓管理人員隨時掌握設(shè)備運行動態(tài)，以進行操作和管理工作。這三個功效模塊組成份別以下：設(shè)備編輯設(shè)備編輯按設(shè)備按車間按制造商圖3-3編輯功效模塊設(shè)備查詢設(shè)備查詢按設(shè)備編號查詢按車間名查詢圖3-4查詢功效模塊系統(tǒng)管理系統(tǒng)管理修改密碼用戶管理換用戶登錄圖3-5系統(tǒng)管理模塊（五）設(shè)備管理系統(tǒng)開發(fā)環(huán)境介紹本設(shè)備管理系統(tǒng)是以VisualBasic為編程語言，以ACCESS作為后臺數(shù)據(jù)庫而開發(fā)一個數(shù)據(jù)庫管理系統(tǒng)。下面簡明介紹一下漢字VisualBasic6.0和Access。1、漢字VisualBasic6.0介紹VisualBasic提供了開發(fā)Windows應(yīng)用程序最快速、最簡練方法，它提供了一整套工具，供用戶開發(fā)應(yīng)用程序。它有其獨特特點，關(guān)鍵特點以下：（1）可視化設(shè)計。VB含有所見即所得功效，在程序設(shè)計時，頭腦中所想象應(yīng)用程序界面，完全能夠經(jīng)過鍵盤和鼠標(biāo)完成，而不用編制大量代碼，用戶只需要用鼠標(biāo)或鍵盤把“控件”拖到所需位置并設(shè)置她們大小形狀屬性等，即可得到所需要應(yīng)用程序界面。（2）事件驅(qū)動編程，在VB中把“窗體”及“控件”稱為對象。那些對象必需對鼠標(biāo)鍵盤操作所引發(fā)事件做出響應(yīng)。響應(yīng)是指實施一段應(yīng)用程序，它不沿預(yù)定路線實施而是在響應(yīng)不一樣事件時實施不一樣代碼，所以VB編程關(guān)鍵是在編寫事件驅(qū)動過程代碼。（3）面向?qū)ο蟪绦蛟O(shè)計。VB是面向?qū)ο蟪绦蛟O(shè)計語言，軟件開發(fā)人員關(guān)鍵編寫事件驅(qū)動過程代碼，使對象對用戶操作做出反應(yīng)。（4）易學(xué)易用，開發(fā)周期短。VB簡單易學(xué)，界面友好，輕易使用。VB提供了大量功效強大“控件”，能幫助開發(fā)人員在較短時間內(nèi)用少許語句編寫出應(yīng)用程序，縮短了開發(fā)周期?！?】2.ACCESS介紹ASSESS是一個數(shù)據(jù)庫管理系統(tǒng)，它簡單易學(xué)。ACCESS功效十分強大，利用它能夠方便實現(xiàn)對信息保留、維護、查詢、統(tǒng)計等。本系統(tǒng)就是在以ACCESS作為后臺數(shù)據(jù)庫，以VisualBasic為編程語言為中小型企業(yè)管理設(shè)備而開發(fā)一個數(shù)據(jù)庫管理系統(tǒng)。四、數(shù)據(jù)庫設(shè)計依據(jù)系統(tǒng)功效分析，系統(tǒng)需要建立4張表，分別是設(shè)備表、車間表、制造商表、用戶管理表。（一）數(shù)據(jù)表設(shè)計以下是4個數(shù)據(jù)表具體描述，包含字段名稱、含義、數(shù)據(jù)類型、可否為空和說明。1．設(shè)備表設(shè)備表關(guān)鍵是用來統(tǒng)計設(shè)備基礎(chǔ)信息，包含設(shè)備編號、設(shè)備名，表結(jié)構(gòu)以下所表示。表4-1設(shè)備表結(jié)構(gòu)字段名稱含義數(shù)據(jù)類型可否為空說明設(shè)備編號設(shè)備編號Text(7)主鍵用數(shù)字表示設(shè)備名設(shè)備名稱Text(50)Notnull設(shè)備名稱2．車間表車間表關(guān)鍵是用來統(tǒng)計各個車間設(shè)備，包含車間名、設(shè)備名，表結(jié)構(gòu)以下所表示。表4-2車間表結(jié)構(gòu)字段名稱含義數(shù)據(jù)類型可否為空說明車間名車間名稱Text(7)主鍵車間名稱設(shè)備名設(shè)備名稱Text(50)Notnull設(shè)備名稱3．制造商表制造商表關(guān)鍵用來統(tǒng)計多種設(shè)備是由哪個廠家所提供，包含制造商、設(shè)備名、設(shè)備編號，表結(jié)構(gòu)以下所表示。表4-3制造商表結(jié)構(gòu)字段名稱含義數(shù)據(jù)類型可否為空說明制造商制造商名稱Text(50)Notnull制造商名稱設(shè)備名設(shè)備名稱Text(50)主鍵設(shè)備名稱設(shè)備編號設(shè)備編號Text(7)Notnull設(shè)備編號4．用戶管理表用戶管理表用來統(tǒng)計各個用戶信息，包含用戶名、用戶密碼，表結(jié)構(gòu)以下所表示。表4-4用戶管理表結(jié)構(gòu)字段名稱含義數(shù)據(jù)類型可否為空說明用戶名用戶名稱Text(50)主鍵用戶名稱用戶密碼用戶密碼Text(50)Null用戶密碼五、系統(tǒng)主窗體設(shè)計（一）創(chuàng)建工程項目--設(shè)備管理系統(tǒng)當(dāng)開啟VisualBasic6.0時，能夠見到下圖所表示“新建工程”窗口，窗口中列出了可建立工程類型。選擇“標(biāo)準(zhǔn)EXE“，VisualBasic6.0將自動產(chǎn)生一個Form窗體，屬性全部是缺省設(shè)置。這里我們刪除這個窗體，單擊File->SaveProject菜單，將這個工程項目命名為設(shè)備管理系統(tǒng)。圖5-1VisualBasic6.0中能夠建立工程類型（二）創(chuàng)建系統(tǒng)主窗體VisualBasic創(chuàng)建應(yīng)用程序能夠是SDI（單文檔界面）和MDI（多文檔界面）。在SDI程序中，每個窗體之間是獨立。而MDI程序中，有一個窗體是主窗體，能夠包含其它窗體，她類型是MDIForm。本設(shè)計采取MDI多文檔界面，這么能夠使程序愈加美觀、整齊有序。右鍵單擊工程管理窗口，選擇添加->添加MDI窗體，這么就能夠生成一個MDI窗體。窗體屬性設(shè)置見表5－1。屬性屬性取值NameMDIForm1Caption設(shè)備管理系統(tǒng)表5－1主窗體屬性設(shè)置主窗體界面設(shè)計圖5-2所表示圖5-2系統(tǒng)主窗體主窗體初始程序以下，用于顯示用戶名、目前日期：PrivateSubMDIForm_Load()LabOperator.Caption=UserNameLabDate.Caption=Format(Date,"YYYY年MM月DD日")EndSub（三）創(chuàng)建主窗體菜單熟悉Windows下應(yīng)用程序用戶對菜單一定有比較深印象。所謂菜單，即是指應(yīng)用程序中為用戶提供一組命令，這些命令出現(xiàn)在應(yīng)用程序界面頂部。每項菜單有多項子菜單，含有一定專門功效，用戶輕易經(jīng)過主菜單來訪問其下子菜單。增加菜單能夠增強應(yīng)用程序功效。下面將介紹菜單及菜單編輯和使用。1.菜單介紹菜單欄在窗體欄標(biāo)題欄下面，包含一個或多個菜單標(biāo)題。當(dāng)單擊一個菜單標(biāo)題，包含菜單項目標(biāo)列表就被拉下來。菜單項能夠包含命令、分隔條和子菜單標(biāo)題。用戶看到每個菜單項和在“菜單編輯器”中定義一個菜單控件相對應(yīng)。為了使應(yīng)用程序簡單好用，應(yīng)該將菜單項按功效進行分組。菜單控件使一個對象，和其它對象一樣，它含有定義它外觀和行為屬性。在設(shè)計或運行時能夠設(shè)置Caption屬性、Enabled和Visible屬性、Checked屬性和其它屬性。菜單控件只包含一個事件，即Click事件，當(dāng)用鼠標(biāo)或鍵盤選中該菜單控件時，將調(diào)用該事件。2.VisualBasic菜單編輯器菜單編輯器能夠創(chuàng)建新菜單和菜單欄，也能夠向現(xiàn)存菜單中增加新命令、用新命令替換現(xiàn)存菜單命令、產(chǎn)生新菜單和菜單欄，改變和刪除現(xiàn)存菜單和菜單欄。要打開菜單編輯器，在“工具”菜單中選擇“菜單編輯器”選項?；驌羰髽?biāo)右鍵，選擇彈出式菜單中“菜單編輯器”。彈出菜單編輯器窗口圖5－3所表示。圖5－3菜單編輯器菜單編輯器基礎(chǔ)屬性以下：標(biāo)題—出現(xiàn)在控件上文本。名稱—代碼中用來引用菜單控件名字?？旖萱I—能夠訪問菜單鍵盤按鍵組合。創(chuàng)建菜單標(biāo)題將顯示在窗體上。在設(shè)計時，單擊一個菜單標(biāo)題可下拉其對應(yīng)菜單項。創(chuàng)建分隔符，假如在設(shè)計菜單中創(chuàng)建分隔符條，只需在想要分隔開來菜單項之間插入一個菜單控件。單擊左、右箭頭按鈕使新菜單項縮進到和它要隔開菜單項同級。然后在“標(biāo)題”文本框中鍵入一個連字符（－）。設(shè)置“名稱”屬性?！按_定”,關(guān)閉菜單編輯器。創(chuàng)建賦值訪問鍵和快捷鍵為了提升應(yīng)用程序性能，為用戶提供最方便、快捷操作，能夠定義菜單訪問鍵和快捷鍵，改善鍵盤對菜單命令訪問。訪問鍵，要在菜單編輯器中給菜單控件賦值訪問鍵，先選擇要賦值訪問鍵菜單項，在該菜單項“標(biāo)題”框中，要在作為訪問鍵字符前面鍵入一個（&）字符?？旖萱I，快捷鍵提供了一個鍵盤單步訪問方法，按下時會立即運行一個菜單項?？旖萱I賦值包含功效鍵和控制鍵組合，如CTRL+F1鍵或CTRL+A鍵。她們出現(xiàn)在菜單中對應(yīng)菜單項右邊。另外，大多數(shù)MDI應(yīng)用程序全部結(jié)合了“窗口”菜單。這是一個顯示全部打開子窗體標(biāo)題特殊菜單，圖5－5所表示。“窗口”菜單中顯示每個打開子窗體名稱。在VisualBasic中，假如要在某個菜單上顯示全部打開子窗體標(biāo)題，只需利用菜單編輯器將該菜單“WindowsList”屬性設(shè)置為True，即選中顯示窗口列表檢驗框，就能夠?qū)崿F(xiàn)。圖5－4所表示圖5－4“窗口”菜單屬性設(shè)置圖5－5窗口菜單依據(jù)以上介紹方法創(chuàng)建本設(shè)計菜單結(jié)構(gòu)圖5－6所表示基礎(chǔ)信息(&F)….貨物信息….倉庫信息….供給商信息….往來用戶….庫存情況信息….—編輯查詢單據(jù)管理….新增入庫單….新增出庫單….新增借入單….新增借出單….新增調(diào)撥單….新增報損單….—….入庫單管理….出庫單管理….借入單管理….借出單管理….調(diào)撥單管理….報損單管理….—….進行月盤點查詢統(tǒng)計(&J)….單據(jù)查詢….庫存查詢….—….高級查詢….自定義查詢….－….貨物出入統(tǒng)計….職員操作統(tǒng)計報表中心….打印入庫單….打印出庫單….打印借入單….打印借出單….打印調(diào)撥單….打印報損單….—….打印月盤點….—….頁面設(shè)置(&U)視圖(&V)….工具欄(&T)….狀態(tài)欄(&B)系統(tǒng)管理(&E)….企業(yè)信息….職員信息….—….查看日志….數(shù)據(jù)清除….系統(tǒng)初始化….—….備份數(shù)據(jù)庫….還原數(shù)據(jù)庫….還原到昨天數(shù)據(jù)庫….—….修改密碼(&E)….用戶管理(&M)….換用戶登錄窗口(&W)幫助(&H)….查看幫助….相關(guān)(&A)CTRL+A退出(&X)圖5-6設(shè)備管理系統(tǒng)菜單結(jié)構(gòu)3．“菜單”中各個“子菜單”程序代碼（1）“編輯”菜單Click事件和程序代碼以下。點擊“編輯”會彈出編輯子窗口。PrivateSubmnuEdit_Click()frmEdit.ShowfrmEdit.WindowState=vbMaximizedEndSub（2）“查詢”菜單Click事件和程序代碼以下。點擊“查詢”會彈出查詢子窗口。PrivateSubmnuQuery_Click()frmQuery.ShowfrmQuery.WindowState=vbMaximizedEndSub（3）“視圖”菜單下“工具欄”子菜單Click事件程序代碼以下。點擊“工具欄”主窗體會隱藏工具欄。PrivateSubmnuViewToolbar_Click()mnuViewToolbar.Checked=NotmnuViewToolbar.CheckedToolbar1.Visible=mnuViewToolbar.CheckedEndSub（4）“視圖”菜單下“狀態(tài)欄”子菜單Click事件程序代碼以下。點擊“狀態(tài)欄”主窗體會隱藏狀態(tài)欄。PrivateSubmnuViewStatusBar_Click()mnuViewStatusBar.Checked=NotmnuViewStatusBar.CheckedsbStatusBar.Visible=mnuViewStatusBar.CheckedEndSub（5）“系統(tǒng)管理”菜單下“修改密碼”子菜單Click事件程序代碼以下。點擊“修改密碼”主窗體會彈出修改密碼子窗口。PrivateSubM修改密碼_Click()PasModify.ShowPasModify.WindowState=vbMaximizedEndSub（6）“系統(tǒng)管理”菜單下“用戶管理”子菜單Click事件程序代碼以下。點擊“用戶管理”主窗體會彈出用戶管理子窗口。PrivateSubM用戶管理_Click()用戶管理.Show用戶管理.WindowState=vbMaximizedEndSub（7）“系統(tǒng)管理”菜單下“換用戶登錄”子菜單Click事件程序代碼以下。點擊“換用戶登錄”主窗體會彈出用戶登錄窗口。PrivateSubM換用戶登陸_Click()'開啟登陸對話框DimfLoginAsNew登錄fLogin.ShowvbModalIfNotfLogin.okThen'登錄失敗，退出應(yīng)用程序ExitSubEndIfUnloadfLogin'開啟主窗口UnloadMeMDIForm1.ShowEndSub（8）“幫助”菜單下“相關(guān)”子菜單Click事件程序代碼以下。點擊“相關(guān)”主窗體會彈出相關(guān)窗口。PrivateSubM相關(guān)_Click()frmAbout.ShowEndSub（9）“退出”菜單Click事件程序代碼以下。點擊“退出”結(jié)束系統(tǒng)運行狀態(tài)。PrivateSubmnuFileExit_Click()EndEndSub（四）創(chuàng)建主窗體工具欄工具欄提供了對于應(yīng)用程序中最常見菜單命令快速訪問，它深入增強了應(yīng)用程序菜單界面，已經(jīng)成為很多基于Windows應(yīng)用程序標(biāo)準(zhǔn)功效。工具欄制作有兩種方法：一是手工制作，即利用圖形框和命令按鈕，這種方法比較繁瑣；另一個方法是使用ToolBar控件來創(chuàng)建工具欄，很輕易且很方便。在本系統(tǒng)中，我采取是ToolBar控件來創(chuàng)建工具欄，使用前需先根據(jù)下面步驟將ToolBar控件添加到工具箱。1．把ToolBar控件添加到工具箱ToolBar控件不是常見控件，使用前先選擇菜單“工程”/“部件”項打開“部件”對話框，選擇“控件”選項卡，單擊“MicrosoftWindowsCommonControls”框，然后單擊“確定”按鈕關(guān)閉“部件”對話框，此時會在工具欄上增加一系列控件，其中之一就是ToolBar控件，然后雙擊工具箱中ToolBar控件圖標(biāo)，為窗體添加一個新工具欄，工具欄會顯示在窗體標(biāo)題欄下。2．在ToolBar控件中添加按鈕右鍵單擊工具欄，在出現(xiàn)彈出菜單中選擇“屬性”項打開工具欄“屬性頁”對話框，圖5－7所表示，能夠進行工具欄編輯。單擊“屬性頁”中“按鈕”選項卡，然后單擊“插入按鈕”便把一個新按鈕添加到工具欄中。給新按鈕添加顯示文字，能夠在“標(biāo)題”文本框中輸入對應(yīng)文字。用戶能夠經(jīng)過在“索引”文本框中輸入數(shù)值來設(shè)置某個按鈕“Index”屬性值，這是按鈕在ToolBar控件索引值，用于標(biāo)識該按鈕。用戶在工具欄中添加按鈕時，VisualBasic會自動為新按鈕分配“Index”值。用戶還能夠在“關(guān)鍵字”文本框中輸入文字，設(shè)置按鈕“Key”屬性值，該屬性幫助用戶確定這個按鈕。按鈕樣式（Style）屬性決定按鈕行為。按鈕對象一個關(guān)鍵屬性是樣式（Style）屬性。圖5－7工具欄“屬性頁”對話框“按鈕”選項卡本系統(tǒng)設(shè)計工具欄效果，以下圖5－8所表示圖5－8主窗體工具欄3．為按鈕添加圖標(biāo)工具欄按鈕通常會顯示圖標(biāo)，要使工具欄按鈕能夠顯示這么圖像，必需首先將ImageList控件和ToolBar控件相關(guān)聯(lián)。要在窗體上添加ImageList控件，雙擊工具箱中ImageList控件圖標(biāo)，在窗體上添加ImageList控件；右鍵單擊該控件在彈出菜單中選擇“屬性”項，顯示ImageList控件“屬性頁”對話框，從中選擇“圖像”選項卡，圖5－9所表示。使用“插入圖片”命令，從打開“選定圖片”對話框中選擇合適圖片文件來建立圖片列表，VisualBasic會自動為每一個圖片分配對應(yīng)索引號。建立工具欄按鈕和ImageList控件之間關(guān)聯(lián)。打開工具欄“屬性頁”對話框，選擇“通用”選項卡，圖5－10所表示。在“圖像列表”中選擇已建立ImageList控件；再選擇“按鈕”選項卡。在“圖像”文本框中輸入選擇圖片索引號，單擊“確定”按鈕就完成對圖像選擇。圖5－9ImageList控件頁屬性頁“圖像”選項卡圖5－10工具欄屬性頁“通用”選項卡4．ToolBar控件ButtonClick()事件程序編寫要為工具欄中按鈕添加代碼，能夠為ToolBar控件編寫B(tài)uttonClick()事件程序，并在程序中經(jīng)過判定“Button.Index”(或“Button.Key”)屬性值來判定單擊了哪一個按鈕，經(jīng)過SelectCase結(jié)構(gòu)來運行對應(yīng)程序。本系統(tǒng)程序以下：PrivateSubToolbar1_ButtonClick(ByValButtonAsMSComctlLib.Button)SelectCaseButton.KeyCase"相關(guān)"frmAbout.ShowCase"ReadMe"formReadMe.ShowCase"說明"說明.Show說明.WindowState=vbMaximizedEndSelectEndSub（五）創(chuàng)建主窗體狀態(tài)欄狀態(tài)欄通常在窗體底部，用于向用戶顯示系統(tǒng)部分狀態(tài)，比如系統(tǒng)信息、目前用戶、時間、日期等。狀態(tài)欄添加比較簡單，這里不再具體說明。但本窗體狀態(tài)欄圖5-11所表示。圖5-11主窗體狀態(tài)欄在主窗體中為狀態(tài)欄添加代碼以下：PrivateSubTimer1_Timer()IfLen(sbStatusBar.Panels(1).Text)<sbStatusBar.Panels(1).Width/80ThensbStatusBar.Panels(1).Text=""+sbStatusBar.Panels(1).TextElsesbStatusBar.Panels(1).Text=LTrim(sbStatusBar.Panels(1).Text)EndIfEndSub六、系統(tǒng)各模塊設(shè)計（一）標(biāo)準(zhǔn)模塊設(shè)計標(biāo)準(zhǔn)模塊文件擴展名為.Bas，其中能夠包含使用Public語句定義變量，能夠被工程中任何過程使用，即工程級變量或全局變量。本系統(tǒng)在標(biāo)準(zhǔn)模塊中定義全局變量以下：PublicUserNameAsString'用戶名PublicUserPasAsString'用戶密碼（二）編輯查詢模塊設(shè)計1.編輯子窗體用戶能夠經(jīng)過在編輯窗體中對數(shù)據(jù)庫中“設(shè)備”、“車間”、“制造商”3張表中統(tǒng)計進行瀏覽、添加、修改和刪除操作。編輯窗體frmEditMDIChild屬性設(shè)置為True，實施主窗體中“編輯”命令后，系統(tǒng)界面圖6－1所表示圖6－1編輯窗體frmEdit（a）圖6－1編輯窗體frmEdit(b)圖6－1編輯窗體frmEdit(c)編輯窗體中使用了一個ActiveX控件SSTab（經(jīng)過實施“工程”菜單中“部件”命令，在“部件”對話框中選擇MicrosoftTabbedDialogControl6.0，可將該控件添加到工具箱中）。該SSTab控件名為SSTab1，包含“設(shè)備”、“車間”、“制造商”3個選項卡，分別能夠?qū)Α霸O(shè)備”、“車間”、“制造商”3張表中統(tǒng)計進行相關(guān)操作。編輯窗體中還使用了3個被隱藏Data控件，分別名為datStudent、datCourse、datScore。將3個選項卡內(nèi)文本框DataSource屬性分別設(shè)置為3個Data控件名，并為7個命令按鈕、編輯窗體編寫事件過程，程序以下：'"添加"按鈕單擊事件過程PrivateSubcmdAdd_Click()'依據(jù)目前按鈕標(biāo)題進行不一樣操作SelectCasecmdAdd.CaptionCase"添加"'向目前選項卡所對應(yīng)表中添加統(tǒng)計SelectCaseSSTab1.TabCase0datStudent.Recordset.AddNewCase1datCourse.Recordset.AddNewCase2datScore.Recordset.AddNewEndSelect'在添加操作完成前嚴(yán)禁進行其它操作SSTab1.TabEnabled(0)=FalseSSTab1.TabEnabled(1)=FalseSSTab1.TabEnabled(2)=FalsecmdAdd.Caption="確定"cmdEdit.Enabled=FalsecmdDel.Enabled=FalsecmdFirst.Enabled=FalsecmdPrev.Enabled=FalsecmdNext.Enabled=FalsecmdLast.Enabled=FalseCase"確定"SelectCaseSSTab1.TabCase0datStudent.UpdateRecordCase1datCourse.UpdateRecordCase2datScore.UpdateRecordEndSelectSSTab1.TabEnabled(0)=TrueSSTab1.TabEnabled(1)=TrueSSTab1.TabEnabled(2)=TruecmdAdd.Caption="添加"cmdEdit.Enabled=TruecmdDel.Enabled=TruecmdFirst.Enabled=TruecmdPrev.Enabled=TruecmdNext.Enabled=TruecmdLast.Enabled=TrueEndSelectEndSub'"刪除"按鈕單擊事件過程PrivateSubcmdDel_Click()DimiAsIntegeri=MsgBox("確定要刪除此統(tǒng)計?",vbYesNo+vbExclamation+vbDefaultButton1,"編輯")Ifi=vbYesThen'刪除目前選項卡所對應(yīng)表中統(tǒng)計SelectCaseSSTab1.TabCase0datStudent.Recordset.DeletedatStudent.RefreshCase1datCourse.Recordset.DeletedatCourse.RefreshCase2datScore.Recordset.DeletedatScore.RefreshEndSelectEndIfEndSub'"修改"按鈕單擊事件過程PrivateSubcmdEdit_Click()'依據(jù)目前按鈕標(biāo)題進行不一樣操作SelectCasecmdEdit.CaptionCase"修改"'修改目前選項卡所對應(yīng)表中統(tǒng)計SelectCaseSSTab1.TabCase0datStudent.Recordset.EditCase1datCourse.Recordset.EditCase2datScore.Recordset.EditEndSelect'在修改操作完成前嚴(yán)禁進行其它操作SSTab1.TabEnabled(0)=FalseSSTab1.TabEnabled(1)=FalseSSTab1.TabEnabled(2)=FalsecmdEdit.Caption="確定"cmdAdd.Enabled=FalsecmdDel.Enabled=FalsecmdFirst.Enabled=FalsecmdPrev.Enabled=FalsecmdNext.Enabled=FalsecmdLast.Enabled=FalseCase"確定"SelectCaseSSTab1.TabCase0datStudent.UpdateRecordCase1datCourse.UpdateRecordCase2datScore.UpdateRecordEndSelectSSTab1.TabEnabled(0)=TrueSSTab1.TabEnabled(1)=TrueSSTab1.TabEnabled(2)=TruecmdEdit.Caption="修改"cmdAdd.Enabled=TruecmdDel.Enabled=TruecmdFirst.Enabled=TruecmdPrev.Enabled=TruecmdNext.Enabled=TruecmdLast.Enabled=TrueEndSelectEndSub'"首統(tǒng)計"按鈕單擊事件過程PrivateSubcmdFirst_Click()SelectCaseSSTab1.TabCase0datStudent.Recordset.MoveFirstCase1datCourse.Recordset.MoveFirstCase2datScore.Recordset.MoveFirstEndSelectcmdFirst.Enabled=FalsecmdPrev.Enabled=FalsecmdNext.Enabled=TruecmdLast.Enabled=TrueEndSub'"尾統(tǒng)計"按鈕單擊事件過程PrivateSubcmdLast_Click()SelectCaseSSTab1.TabCase0datStudent.Recordset.MoveLastCase1datCourse.Recordset.MoveLastCase2datScore.Recordset.MoveLastEndSelectcmdFirst.Enabled=TruecmdPrev.Enabled=TruecmdNext.Enabled=FalsecmdLast.Enabled=FalseEndSub'"下一條"按鈕單擊事件過程PrivateSubcmdNext_Click()SelectCaseSSTab1.TabCase0datStudent.Recordset.MoveNextIfdatStudent.Recordset.EOFThendatStudent.Recordset.MoveLastcmdFirst.Enabled=TruecmdPrev.Enabled=TruecmdNext.Enabled=FalsecmdLast.Enabled=FalseElsecmdFirst.Enabled=TruecmdPrev.Enabled=TruecmdNext.Enabled=TruecmdLast.Enabled=TrueEndIfCase1datCourse.Recordset.MoveNextIfdatCourse.Recordset.EOFThendatCourse.Recordset.MoveLastcmdFirst.Enabled=TruecmdPrev.Enabled=TruecmdNext.Enabled=FalsecmdLast.Enabled=FalseElsecmdFirst.Enabled=TruecmdPrev.Enabled=TruecmdNext.Enabled=TruecmdLast.Enabled=TrueEndIfCase2datScore.Recordset.MoveNextIfdatScore.Recordset.EOFThendatScore.Recordset.MoveLastcmdFirst.Enabled=TruecmdPrev.Enabled=TruecmdNext.Enabled=FalsecmdLast.Enabled=FalseElsecmdFirst.Enabled=TruecmdPrev.Enabled=TruecmdNext.Enabled=TruecmdLast.Enabled=TrueEndIfEndSelectEndSub'"上一條"按鈕單擊事件過程PrivateSubcmdPrev_Click()SelectCaseSSTab1.TabCase0datStudent.Recordset.MovePreviousIfdatStudent.Recordset.BOFThendatStudent.Recordset.MoveFirstcmdFirst.Enabled=FalsecmdPrev.Enabled=FalsecmdNext.Enabled=TruecmdLast.Enabled=TrueElsecmdFirst.Enabled=TruecmdPrev.Enabled=TruecmdNext.Enabled=TruecmdLast.Enabled=TrueEndIfCase1datCourse.Recordset.MovePreviousIfdatCourse.Recordset.BOFThendatCourse.Recordset.MoveFirstcmdFirst.Enabled=FalsecmdPrev.Enabled=FalsecmdNext.Enabled=TruecmdLast.Enabled=TrueElsecmdFirst.Enabled=TruecmdPrev.Enabled=TruecmdNext.Enabled=TruecmdLast.Enabled=TrueEndIfCase2datScore.Recordset.MovePreviousIfdatScore.Recordset.BOFThendatScore.Recordset.MoveFirstcmdFirst.Enabled=FalsecmdPrev.Enabled=FalsecmdNext.Enabled=TruecmdLast.Enabled=TrueElsecmdFirst.Enabled=TruecmdPrev.Enabled=TruecmdNext.Enabled=TruecmdLast.Enabled=TrueEndIfEndSelectEndSub'初始化編輯窗體PrivateSubForm_Load()datStudent.Visible=False'連接數(shù)據(jù)庫IfRight(App.Path,1)="\"ThendatStudent.DatabaseName=App.Path+"database.mdb"ElsedatStudent.DatabaseName=App.Path+"\database.mdb"EndIf'設(shè)置統(tǒng)計源datStudent.RecordSource="設(shè)備"datStudent.Refresh'綁定控件txtSID.DataField="設(shè)備編號"txtSName.DataField="設(shè)備名"datCourse.Visible=FalsedatCourse.DatabaseName=datStudent.DatabaseNamedatCourse.RecordSource="車間"datCourse.RefreshtxtCID.DataField="車間名"txtCName.DataField="設(shè)備名"datScore.Visible=FalsedatScore.DatabaseName=datStudent.DatabaseNamedatScore.RecordSource="制造商"datScore.RefreshtxtSSID.DataField="設(shè)備名"txtSCID.DataField="設(shè)備編號"txtScore.DataField="制造商"SSTab1.Tab=0'設(shè)置目前選項卡為"設(shè)備"選項卡EndSub2.查詢子窗體用戶能夠在查詢子窗體中按設(shè)備編號查詢、按車間名查詢兩種方法進行查詢，查詢窗體frmQueryMDIChild屬性設(shè)置為True，實施主窗體中“查詢”命令后，系統(tǒng)界面圖6－2所表示圖6－2查詢窗體frmQuery窗體中使用了一個ActiveX控件DataGrid（經(jīng)過實施“工程”菜單中“部件”命令，在“部件”對話框中選擇MicrosoftDataGridControl6.0,可將該控件添加到工具箱中），該控件名為DataGrid1。另外，窗體中還使用了一個隱藏ADO控件，該控件名為AdodcQuery。圖6－3ADO控件統(tǒng)計源將ADO控件和數(shù)據(jù)庫文件database.mdb連接，并將統(tǒng)計源命令類型設(shè)置為1-adCmdText，圖6－3所表示，在命令文本中輸入以下SQL命令：select設(shè)備.設(shè)備編號,設(shè)備.設(shè)備名,車間.車間名,制造商.制造商from設(shè)備,車間,制造商where設(shè)備.設(shè)備名=車間.設(shè)備名and車間.設(shè)備名=制造商.設(shè)備名代碼以下：'"取消"按鈕單擊事件過程PrivateSubcmdCancel_Click()txtID(0).Text=""txtID(1).Text=""EndSub'"確定"按鈕單擊事件過程PrivateSubcmdOK_Click()DimsqlAsString,fldAsString,conditionAsString'顯示字段列表fld="設(shè)備.設(shè)備編號,設(shè)備.設(shè)備名,車間.車間名,制造商.制造商"'查詢條件condition="設(shè)備.設(shè)備名=車間.設(shè)備名and車間.設(shè)備名=制造商.設(shè)備名"IfoptChoice(0).ValueThencondition=condition+"and設(shè)備.設(shè)備編號='"+txtID(0).Text+"'"Elsecondition=condition+"and車間.車間名='"+txtID(1).Text+"'"EndIfsql="select"+fld+"from設(shè)備,車間,制造商where"+condition'改變統(tǒng)計源AdodcQuery.RecordSource=sqlAdodcQuery.RefreshEndSub'初始化查詢窗體PrivateSubForm_Load()AdodcQuery.Visible=FalseSetDataGrid1.DataSource=AdodcQuery'綁定操作DataGrid1.AllowUpdate=False'嚴(yán)禁更新EndSub'處理單選按鈕焦點切換PrivateSuboptChoice_Click(IndexAsInteger)txtID(Index).SetFocusEndSub'處理文本框焦點切換PrivateSubtxtID_GotFocus(IndexAsInteger)optChoice(Index).Value=TrueEndSub（三）系統(tǒng)管理模塊設(shè)計系統(tǒng)管理模塊包含：修改密碼、用戶管理、換用戶登錄三個子窗體，分別單擊后界面以下圖所表示1.修改密碼子窗口設(shè)計：圖6－4修改密碼子窗體代碼以下：PrivateSubCancel_Click()UnloadMeEndSubPrivateSubModify_Click()IfOldPas.Text<>UserPasThenMsgBox"原密碼錯誤!"ExitSubEndIfIfNewPas1.Text<>NewPas2.TextThenMsgBox"兩次密碼不一致!"ExitSubEndIfOnErrorResumeNextDimfitAsString'查找用戶名fit="用戶名='"fit=fit+UserName+"'"登錄.Data2.Recordset.FindFirstfit'找不到該用戶If登錄.Data2.Recordset.NoMatchThenExitSubElseUserPas=NewPas1.Text'設(shè)置新密碼登錄.Data2.Recordset.Edit登錄.Data2.Recordset.Fields("用戶密碼").Value=UserPas登錄.Data2.Recordset.Update登錄.Data2.RefreshMsgBox"修改成功!"EndIf2.用戶管理子窗體設(shè)計圖6－5用戶管理子窗體該子窗體能夠增加、刪除、修改用戶名及其密碼，窗體中使用一個ActiveX控件DataGrid，另外，窗體中還使用了一個隱藏ADO控件，該控件名為Adodc1，將ADO控件和數(shù)據(jù)庫文件database.mdb連接，并將統(tǒng)計源命令類型設(shè)置為8－adCmdUnknown，在命令文本中輸入以下SQL命令：select用戶名,用戶密碼from用戶管理代碼以下：PrivateSubAdodc1_MoveComplete(ByValadReasonAsADODB.EventReasonEnum,ByValpErrorAsADODB.Error,adStatusAsADODB.EventStatusEnum,ByValpRecordsetAsADODB.Recordset)OnErrorResumeNextAdodc1.Caption=Adodc1.Recordset.Fields("用戶名").ValueEndSubPrivateSubcomAdd_Click()If用戶名.Text=""ThenMsgBox"請?zhí)顚懹脩裘?":ExitSubOnErrorGoToquitAdodc1.Recordset.MoveLastAdodc1.Recordset.AddNewAdodc1.Recordset.Fields("用戶名").Value=用戶名.TextAdodc1.Recordset.Fields("用戶密碼").Value=用戶密碼.TextAdodc1.Recordset.UpdateAdodc1.RefreshUnload用戶管理用戶管理.Show用戶管理.WindowState=vbMaximizedquit:EndSubPrivateSubcomDelete_Click()DimiAsIntegeri=MsgBox("確定要刪除此統(tǒng)計?",vbYesNo+vbExclamation+vbDefaultButton1,"編輯")Ifi=vbYesThen'刪除目前選項卡所對應(yīng)表中統(tǒng)計Adodc1.Recordset.DeleteAdodc1.RefreshUnload用戶管理用戶管理.Show用戶管理.WindowState=vbMaximizedEndIfEndSubPrivateSubcomEdit_Click()Adodc1.Reco