超市管理信息系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)-畢業(yè)論文

目錄摘要 2Abstract 21、引言 31.1系統(tǒng)開發(fā)的背景和目的 31.2MIS與手工管理的對(duì)比 32、需求分析 32.1系統(tǒng)功能分析 32.2系統(tǒng)結(jié)構(gòu)及各模塊點(diǎn)功能 43、概念結(jié)構(gòu)設(shè)計(jì) 54、邏輯結(jié)構(gòu)設(shè)計(jì) 55、功能設(shè)計(jì) 66、小結(jié) 9致謝 9參考文獻(xiàn) 10附錄 11超市管理信息系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)摘要：盡管許多大型超市實(shí)現(xiàn)了用計(jì)算機(jī)來(lái)管理信息系統(tǒng)，但對(duì)于數(shù)以萬(wàn)計(jì)的仍以手工管理的小型超市而言，用計(jì)算機(jī)網(wǎng)絡(luò)系統(tǒng)和數(shù)據(jù)庫(kù)技術(shù)開發(fā)一套超市管理信息系統(tǒng)仍具有誘人的市場(chǎng)前景。本系統(tǒng)以VisualBasic為開發(fā)平臺(tái)設(shè)計(jì)系統(tǒng)所有界面，以SQLServer為數(shù)據(jù)源，通過(guò)VisualBasic與SQLServer的聯(lián)合編程，使VisualBasic與SQLServer進(jìn)行連接，從而實(shí)現(xiàn)了在界面上對(duì)超市的資料管理、采購(gòu)管理、庫(kù)存管理以及銷售管理等進(jìn)行操作，可大大提高超市管理的效率。關(guān)鍵詞：超市管理信息系統(tǒng)；；VisualBasic；SQLServerDesignandImplementationofaSupermarketManagementInformationSystemAbstract:Althoughmanylarge-scalesupermarkethaverealizaduseingcomputermanageinformationsystem,buttensofthousandsofsmallsupermarketsstillusinghandtomanage,sousecomputernetworksystemsanddatabasetechnologytodevelopamanagementinformationsystemsupermarketstillhasanattractivemarketprospects.TheVisualBasicdevelopmentplatformisbasedalltheinterfaceofthissystemdesign,andSQLServerwasusedasadatasource.MakeVisualBasicandSQLServerconnectionbyuseingVisualBasicjoinSQLServerprogramming,andrealizathemanagementofsupermarketinformationmanagement,purchasingmanagement,inventorymanagementandsalesmanagementontheinterface,andtheefficiencyofthesupermarketcangreatlyimproved.Keywords:supermarketmanagementinformationsystem;VisualBasic;SQLServerPAGEPAGE241、引言1.1系統(tǒng)開發(fā)的背景和目的21世紀(jì)，超市的競(jìng)爭(zhēng)也進(jìn)入到了一個(gè)全新的領(lǐng)域，競(jìng)爭(zhēng)已不僅僅是規(guī)模的競(jìng)爭(zhēng)，同時(shí)也是技術(shù)的競(jìng)爭(zhēng)、管理的競(jìng)爭(zhēng)、人才的競(jìng)爭(zhēng)。完善進(jìn)、銷、存、人、財(cái)、物等管理，是現(xiàn)代商場(chǎng)提高效率和競(jìng)爭(zhēng)力，實(shí)現(xiàn)利潤(rùn)最大化的關(guān)鍵。盡管許多大型超市實(shí)現(xiàn)了用計(jì)算機(jī)來(lái)管理信息系統(tǒng)，但對(duì)于數(shù)以萬(wàn)計(jì)的仍以手工管理的小型超市而言，用計(jì)算機(jī)網(wǎng)絡(luò)系統(tǒng)和數(shù)據(jù)庫(kù)技術(shù)開發(fā)一套超市管理信息系統(tǒng)仍具有誘人的市場(chǎng)前景。本系統(tǒng)擬以民大超市管理為對(duì)象，用計(jì)算機(jī)網(wǎng)絡(luò)系統(tǒng)和數(shù)據(jù)庫(kù)技術(shù)，以VisualBasic與SQLServer為平臺(tái)開發(fā)一套通用的超市MIS軟件，提升超市的管理水平，為降低經(jīng)營(yíng)成本，提高效益，增強(qiáng)超市擴(kuò)張力，提供有效的技術(shù)保障。1.2MIS與手工管理的對(duì)比 所謂MIS（管理信息系統(tǒng)--ManagementInformationSystem）系統(tǒng)，主要指的是進(jìn)行日常事物操作的系統(tǒng)。這種系統(tǒng)主要用于管理需要的記錄，并對(duì)記錄數(shù)據(jù)進(jìn)行相關(guān)處理。MIS系統(tǒng)通常用于系統(tǒng)決策，例如，可以利用MIS系統(tǒng)找出目前迫切需要解決的問題，并將信息及時(shí)反饋給上層管理人員，使他們了解當(dāng)前工作發(fā)展的進(jìn)展或不足。換句話說(shuō)，MIS系統(tǒng)的最終目的是使管理人員及時(shí)了解公司現(xiàn)狀，把握將來(lái)的發(fā)展路徑。在現(xiàn)代化管理中，計(jì)算機(jī)管理信息系統(tǒng)已經(jīng)成為企業(yè)管理不可缺少的幫手，它的廣泛應(yīng)用已經(jīng)成為管理現(xiàn)代化的重要標(biāo)志。隨著科學(xué)技術(shù)的發(fā)展，尤其是信息技術(shù)和通訊技術(shù)的發(fā)展，使計(jì)算機(jī)和網(wǎng)絡(luò)逐漸應(yīng)用于現(xiàn)代管理之中。面對(duì)越來(lái)越多的信息資源和越來(lái)越復(fù)雜的企業(yè)內(nèi)外部環(huán)境，企業(yè)有必要建立高效、實(shí)用的管理信息系統(tǒng)，為企業(yè)管理決策和控制提供保障，這是實(shí)現(xiàn)管理現(xiàn)代化的必然趨勢(shì)[1]。過(guò)去傳統(tǒng)的管理方式是以人為主體的人工操作，雖然管理人員投入了大量的時(shí)間、精力，然而個(gè)人的能力是有限的，所以管理工作難免會(huì)出現(xiàn)局限性，或帶有個(gè)人的主觀性和片面性。而管理信息系統(tǒng)使用系統(tǒng)思想建立起來(lái)的，以計(jì)算機(jī)為信息處理手段，以現(xiàn)代化通信設(shè)備為基本傳輸工具，能為管理決策者提供信息服務(wù)的人機(jī)系統(tǒng)，這無(wú)疑是將管理與現(xiàn)代化接軌，以科技提高管理質(zhì)量的重大舉措[2]。2、需求分析2.1系統(tǒng)功能分析根據(jù)實(shí)際需要，本系統(tǒng)應(yīng)該具有以下功能：（1）供應(yīng)商資料管理：根據(jù)超市業(yè)務(wù)需要，通過(guò)供應(yīng)商唯一的編號(hào)來(lái)實(shí)現(xiàn)供應(yīng)商資料的查找、添加和修改。（2）商品資料管理：根據(jù)超市業(yè)務(wù)特點(diǎn)，可以通過(guò)商品唯一的編號(hào)，實(shí)現(xiàn)商品資料的查找、添加和修改。（3）用戶管理：不同的用戶擁有不同的權(quán)限，對(duì)系統(tǒng)進(jìn)行的操作不同。其中員工的權(quán)限是：通過(guò)商品編號(hào)獲得商品信息，打印銷售單；管理人員的權(quán)限是：操作軟件對(duì)供應(yīng)商、商品、人員等資料進(jìn)行錄入和修改；根據(jù)庫(kù)存狀態(tài)，制定進(jìn)貨單，對(duì)進(jìn)貨入庫(kù)進(jìn)行審核；對(duì)銷售進(jìn)行分析統(tǒng)計(jì)。（4）采購(gòu)管理：根據(jù)實(shí)際情況制定進(jìn)貨計(jì)劃，按照計(jì)劃單進(jìn)行商品的入庫(kù)操作。（5）銷售管理：根據(jù)銷售情況打印銷售單，通過(guò)銷售單唯一的編號(hào)，實(shí)現(xiàn)銷售查詢、統(tǒng)計(jì)。（6）庫(kù)存管理：包括庫(kù)存盤點(diǎn)和庫(kù)存維護(hù)，通過(guò)商品編號(hào)來(lái)查找商品的庫(kù)存狀態(tài)，并根據(jù)實(shí)際需要設(shè)置商品的最低儲(chǔ)備、正常儲(chǔ)備和最高儲(chǔ)備。2.2系統(tǒng)結(jié)構(gòu)及各模塊點(diǎn)功能超市管理信息系統(tǒng)供應(yīng)商資料管理商品資料管理超市管理信息系統(tǒng)供應(yīng)商資料管理商品資料管理采購(gòu)管理銷售管理庫(kù)存管理系統(tǒng)管理數(shù)據(jù)統(tǒng)計(jì)供應(yīng)商資料管理模塊：對(duì)供應(yīng)商信息進(jìn)行查找、添加、修改和刪除；商品資料管理模塊：對(duì)商品進(jìn)行查找，并對(duì)商品名稱，計(jì)量單位，供應(yīng)商等基本信息進(jìn)行操作；采購(gòu)管理：制定進(jìn)貨單，實(shí)現(xiàn)進(jìn)貨入庫(kù)；銷售管理：打印銷售單，查詢銷售詳情；庫(kù)存管理：盤點(diǎn)商品庫(kù)存，對(duì)商品庫(kù)存進(jìn)行維護(hù)；數(shù)據(jù)統(tǒng)計(jì)：對(duì)進(jìn)貨與銷售進(jìn)行分析，獲得銷售利潤(rùn)；系統(tǒng)管理：對(duì)超市所有用戶的資料，包括用戶的基本資料，用戶的權(quán)限等進(jìn)行統(tǒng)一管理。3、概念結(jié)構(gòu)設(shè)計(jì) 系統(tǒng)的ER圖如圖一所示：供貨商編號(hào)提供商品供貨商名稱供貨商編號(hào)提供商品供貨商名稱n銷售日期供貨商電話供貨商地址供貨商銷售銷售單號(hào)商品編號(hào)商品名稱供應(yīng)商編號(hào)供貨商品銷售員計(jì)量單位供應(yīng)商地址mn員工用戶ID用戶密碼用戶類別用戶名稱電話權(quán)限住址銷售員圖一系統(tǒng)的總體ER圖4、邏輯結(jié)構(gòu)設(shè)計(jì)系統(tǒng)的關(guān)系模型如下[3-6]：（1）供應(yīng)商資料表：（供應(yīng)商編號(hào)、供應(yīng)商名稱、地址、電話、郵編、提供商品）（2）商品資料表：（商品編號(hào)、商品名稱、計(jì)量單位、供應(yīng)商編號(hào)、供應(yīng)商地址）（3）商品庫(kù)存表：（商品編號(hào)、商品狀態(tài)、成本價(jià)、銷售價(jià)、庫(kù)存數(shù)量、最低儲(chǔ)備、正常儲(chǔ)備、最高儲(chǔ)備、最近操作日期、操作人員）（4）盤點(diǎn)明細(xì)表：（編號(hào)ID、商品編號(hào)、調(diào)整數(shù)量、成本價(jià)、調(diào)整總金額、操作日期、操作人員、標(biāo)志）（5）采購(gòu)單明細(xì)表：（采購(gòu)編號(hào)ID、采購(gòu)單號(hào)、商品編號(hào)、采購(gòu)數(shù)量、采購(gòu)單價(jià)、總共金額）（6）采購(gòu)單表：（采購(gòu)單號(hào)、供應(yīng)商編號(hào)、采購(gòu)日期、采購(gòu)員、是否審核、操作人員、總共金額）（7）銷售單明細(xì)表：（銷售編號(hào)ID、銷售單號(hào)、商品編號(hào)、銷售數(shù)量、成本單價(jià)、銷售單價(jià)、總金額）（8）銷售單表：（銷售單號(hào)、銷售日期、銷售員、是否審核、操作人員、總共金額）（9）用戶信息表：（用戶ID、用戶名稱、用戶密碼、用戶類別、地址、電話、權(quán)限）其中畫有黑粗下畫線的屬性為主碼，細(xì)下畫線的為外碼。5、功能設(shè)計(jì)：系統(tǒng)的登陸界面如圖5.1所示[7-11]：圖5.1系統(tǒng)的登陸界面這部分主要的作用是：將輸入的信息與數(shù)據(jù)庫(kù)中用戶的信息進(jìn)行核對(duì)，只有核對(duì)正確的才能進(jìn)入到系統(tǒng)中。系統(tǒng)的主界面如圖5.2所示：圖5.2超市管理系統(tǒng)主界面這部分的主要功能是：通過(guò)登陸時(shí)的用戶信息，獲得用戶的權(quán)限，使其對(duì)系統(tǒng)有不同的操作權(quán)限。如管理員擁有所有的權(quán)限，而員工只擁有資料管理和銷售管理的權(quán)限。供應(yīng)商資料管理界面如圖5.3所示（商品資料管理界面類似）：這部分主要的作用是：通過(guò)供應(yīng)商唯一的編號(hào)，對(duì)供應(yīng)商的資料進(jìn)行相關(guān)查詢，并可對(duì)供應(yīng)商資料進(jìn)行相關(guān)的添加、修改、刪除和保存等操作。圖5.3供應(yīng)商資料管理界面商品銷售單分析界面及銷售統(tǒng)計(jì)界面分別如圖5.4、5.5所示：圖5.4商品銷售單分析界面圖5.5商品銷售統(tǒng)計(jì)界面這部分的主要功能是：對(duì)一段時(shí)間內(nèi)的商品銷售情況進(jìn)行統(tǒng)計(jì)分析，得到銷售的總利潤(rùn)。庫(kù)存維護(hù)和庫(kù)存盤點(diǎn)界面分別如圖5.6、5.7所示：圖5.6庫(kù)存維護(hù)界面圖5.7庫(kù)存盤點(diǎn)界面這部分的主要功能是：對(duì)商品的庫(kù)存信息進(jìn)行盤點(diǎn)分析，并可對(duì)商品的庫(kù)存進(jìn)行查詢和修改。用戶資料管理界面如圖5.8所示：圖5.8用戶管理界面這部分的主要作用是：可對(duì)用戶進(jìn)行查詢，獲得其基本資料及權(quán)限，并可對(duì)用戶的資料及權(quán)限進(jìn)行相關(guān)的添加、修改、刪除和保存等操作。詳細(xì)的代碼見附錄。6、小結(jié)本文簡(jiǎn)要介紹了超市管理系統(tǒng)的設(shè)計(jì)流程，重點(diǎn)闡述了系統(tǒng)設(shè)計(jì)過(guò)程中的結(jié)構(gòu)設(shè)計(jì)部分和功能設(shè)計(jì)部分。和傳統(tǒng)管理模式相比較，使用本系統(tǒng)，大大提高超市的運(yùn)作效率，為降低經(jīng)營(yíng)成本，提高效益，增強(qiáng)超市擴(kuò)張能力，提供了有效的技術(shù)保障。由于能力有限，加上時(shí)間倉(cāng)促，本系統(tǒng)仍有一些功能有待完善，例如：本系統(tǒng)只適用于小型超市的管理，由于大型超市管理系統(tǒng)還包括會(huì)員管理及商品的折扣管理等諸多方面，因此本系統(tǒng)不適用于大型超市的管理。對(duì)于上述不足之處，希望老師能給與批評(píng)指正。致謝本系統(tǒng)的設(shè)計(jì)過(guò)程中得到了XXX老師的大量指導(dǎo)以及同學(xué)的大量幫助，在這里，對(duì)他們表示誠(chéng)摯的感謝！在系統(tǒng)設(shè)計(jì)過(guò)程中，我深深的感覺到在知識(shí)方面還很欠缺，在技術(shù)方面也有很多的問題需要在以后的學(xué)習(xí)中慢慢改進(jìn)，逐步完善。在XXX老師的耐心指導(dǎo)下，本系統(tǒng)得以順利完成，我不僅從中學(xué)到了許多知識(shí)，更重要的是我學(xué)到了要用正確的態(tài)度去面對(duì)人生中的問題和困難，在此，再次感謝XXX老師！參考文獻(xiàn)/question/49678835.html?si=1管理信息系統(tǒng)的作用./question/49678835.html?si=4管理信息系統(tǒng)在社會(huì)中的作用.何玉潔.數(shù)據(jù)庫(kù)原理與應(yīng)用教程（第二版）[M].北京:機(jī)械工業(yè)出版社,2007.牛勇等.新電腦課堂SQLServer編程篇[M].北京:電子工業(yè)出版社,2005.趙杰,李濤,朱慧.SQLServer數(shù)據(jù)庫(kù)管理、設(shè)計(jì)與實(shí)現(xiàn)教程[M].北京:清華大學(xué)出版社,2003.高金蘭,章鋒.數(shù)據(jù)庫(kù)原理與SQLServer應(yīng)用[M].武漢:武漢大學(xué)出版社,2008.曹萌萌,李響.VB.NET訪問SQLSERVER2000數(shù)據(jù)庫(kù)的方法[J].農(nóng)業(yè)圖書情報(bào)學(xué)刊,2007,19(1):110-112.王軍弟,趙愷.基于VB.NET的數(shù)據(jù)庫(kù)訪問技術(shù)[J].福建電腦,2006,12(11):81-82.蔣鐵海、劉朝暉.利用VB.NET開發(fā)Web數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)[J].微機(jī)發(fā)展,2003,13(6):113-115.葛小東,鄧秋媛.VB.NET編程實(shí)例與技巧集萃[M].北京:中國(guó)科技技術(shù)出版社,2003.陶雪麗,郭鳳英等.新世紀(jì)VisualBasic.NET 中文版程序設(shè)計(jì)培訓(xùn)教程[M].北京:電子工業(yè)出版社,2002.附錄系統(tǒng)設(shè)計(jì)的主要代碼如下：數(shù)據(jù)庫(kù)連接的代碼如下：ConnectionString="Provider=SQLOLEDB.1;PersistSecurityInfo=True;"ConnectionString=ConnectionString&"UserID="&Trim(txtUserId.Text)&";Password="&Trim(txtPwd.Text)&";"ConnectionString=ConnectionString&"InitialCatalog="&Trim(txtDatabase.Text)&";DataSource="&Trim(txtServer.Text)a登錄.ShowUnloadMe 登陸窗口的代碼如下：OptionExplicitDimSQLAsStringDimmsgAsStringPrivateSubForm_Load()DimrstAsADODB.RecordsetDimstrItemAsString '初始化ComboBoxSQL="select用戶ID,用戶名稱from用戶信息表orderby用戶ID"Setrst=SelectSQL(SQL,msg)Ifrst.RecordCount>0ThenDoWhileNotrst.EOF'添加到ComboBox列表strItem=rst.Fields(0)&""&rst.Fields(1)CboName.AddItem(strItem)rst.MoveNext'指向下一條記錄Looprst.CloseCboName.ListIndex=0'默認(rèn)ComboBoxElseMsgBox("請(qǐng)先創(chuàng)建用戶信息！")CmdOk.Enabled=FalseExitSubEndIfEndSubPrivateSubCmdOK_Click()DimrstAsADODB.RecordsetDimpasswordAsString'判斷用戶是否存在UserID=Left(Trim(CboName.Text),4)'取出用戶的IDSQL="select用戶ID,密碼from用戶信息表where用戶ID='"&UserID&"'"Setrst=SelectSQL(SQL,msg)Ifrst.RecordCount>0Thenpassword=Trim(rst.Fields(1))'取出該用戶的密碼rst.CloseElseMsgBox("數(shù)據(jù)庫(kù)操作錯(cuò)誤！")ExitSubEndIf'判斷密碼是否正確Ifpassword=Trim(txtPassword.Text)ThenLoginSucceeded=True超市管理系統(tǒng)主界面.ShowUnloadMeElseMsgBox("密碼錯(cuò)誤！")LoginSucceeded=FalseEndIfEndSubPrivateSubcmdCancel_Click()'設(shè)置全局變量為false'不提示失敗的登錄LoginSucceeded=FalseUnloadMeEndSubPrivateSubForm_Unload(CancelAsInteger)LoginSucceeded=FalseUnloadMeEndSub系統(tǒng)的主要代碼如下：PrivateSubForm_Load()DimrstAsADODB.RecordsetDimSQLAsStringDimmsgAsStringDimrightsAsString'保存記錄中的權(quán)限值'查找權(quán)限SQL="select權(quán)限from用戶信息表where用戶ID='"&UserID&"'"Setrst=SelectSQL(SQL,msg)Ifrst.RecordCount>0Thenrights=Trim(rst.Fields(0))rst.CloseElseMsgBox("沒有用戶信息！")ExitSubEndIf'設(shè)置權(quán)限IfInStr(rights,"資料管理")Then資料管理.Enabled=TrueMe.Toolbar1.Buttons(1).Enabled=TrueMe.Toolbar1.Buttons(2).Enabled=TrueElse資料管理.Enabled=FalseMe.Toolbar1.Buttons(1).Enabled=FalseMe.Toolbar1.Buttons(2).Enabled=FalseEndIfIfInStr(rights,"采購(gòu)管理")Then采購(gòu)管理.Enabled=TrueMe.Toolbar1.Buttons(3).Enabled=TrueMe.Toolbar1.Buttons(4).Enabled=TrueElse采購(gòu)管理.Enabled=FalseMe.Toolbar1.Buttons(3).Enabled=FalseMe.Toolbar1.Buttons(4).Enabled=FalseEndIfIfInStr(rights,"銷售管理")Then銷售管理.Enabled=TrueMe.Toolbar1.Buttons(5).Enabled=TrueElse銷售管理.Enabled=FalseMe.Toolbar1.Buttons(5).Enabled=FalseEndIf庫(kù)存管理.Enabled=InStr(rights,"庫(kù)存管理")統(tǒng)計(jì)分析.Enabled=InStr(rights,"統(tǒng)計(jì)分析")用戶管理.Enabled=InStr(rights,"用戶管理")EndSubPrivateSubToolbar1_ButtonClick(ByValButtonAsMSComctlLib.Button)SelectCaseButton.IndexCase1:Call供應(yīng)商資料_Click'調(diào)入供應(yīng)商資料Case2:Call商品資料_Click'調(diào)入商品資料Case3:Call采購(gòu)單_Click'調(diào)入采購(gòu)單Case4:Call采購(gòu)入庫(kù)_Click'調(diào)入采購(gòu)入庫(kù)Case5:Call銷售清單_Click'調(diào)入銷售單Case6:Call銷售利潤(rùn)_Click'調(diào)入銷售利潤(rùn)C(jī)ase7:Call密碼維護(hù)_Click'調(diào)入密碼維護(hù)EndSelectEndSubPrivateSub采購(gòu)單_Click()a采購(gòu)單.Show超市管理系統(tǒng)主界面.Enabled=FalseEndSubPrivateSub采購(gòu)單分析_Click()a采購(gòu)單分析.Show超市管理系統(tǒng)主界面.Enabled=FalseEndSubPrivateSub采購(gòu)入庫(kù)_Click()a采購(gòu)入庫(kù).Show超市管理系統(tǒng)主界面.Enabled=FalseEndSubPrivateSub供應(yīng)商資料_Click()a供應(yīng)商資料.Show超市管理系統(tǒng)主界面.Enabled=FalseEndSubPrivateSub庫(kù)存盤點(diǎn)_Click()a庫(kù)存盤點(diǎn).Show超市管理系統(tǒng)主界面.Enabled=FalseEndSubPrivateSub庫(kù)存維護(hù)_Click()a庫(kù)存維護(hù).Show超市管理系統(tǒng)主界面.Enabled=FalseEndSubPrivateSub密碼維護(hù)_Click()a密碼維護(hù).Show超市管理系統(tǒng)主界面.Enabled=FalseEndSubPrivateSub商品資料_Click()a商品資料.Show超市管理系統(tǒng)主界面.Enabled=FalseEndSubPrivateSub銷售單分析_Click()a銷售單分析.Show超市管理系統(tǒng)主界面.Enabled=FalseEndSubPrivateSub銷售利潤(rùn)_Click()a銷售利潤(rùn).Show超市管理系統(tǒng)主界面.Enabled=FalseEndSubPrivateSub銷售清單_Click()a銷售單.Show超市管理系統(tǒng)主界面.Enabled=FalseEndSubPrivateSub用戶管理_Click()a用戶管理.Show超市管理系統(tǒng)主界面.Enabled=FalseEndSub供應(yīng)商資料管理模塊：[7]-[9]OptionExplicitDimrsAsADODB.RecordsetDimSQLAsStringDimmsgAsStringDimIndexAsIntegerDimflagAsString'判斷是新增記錄還是修改記錄PrivateSubForm_Load()'初始化查詢條件ComboBoxCboQuery.AddItem("供應(yīng)商編號(hào)")CboQuery.AddItem("供應(yīng)商名稱")CboQuery.ListIndex=0'默認(rèn)查詢條件為供應(yīng)商編號(hào)CallLoadData'裝載數(shù)據(jù)CallShowData'顯示數(shù)據(jù)EndSubPrivateSubLoadData()DimcolNameAsString'保存所選擇的查詢條件DimcolValueAsString'保存所要查詢具體的值DimstrWhereAsString '得到查詢條件colName=CboQuery.Text'取出條件的值colValue=txtQuery.Text'取出所要查詢的值 '構(gòu)建條件strWhere="where"&colName&"like'%"&colValue&"%'"Setrs=Nothing '查詢供應(yīng)商資料SQL="SELECT*FROM供應(yīng)商資料表"&strWhere&"ORDERBY供應(yīng)商編號(hào)"Setrs=SelectSQL(SQL,msg)SetMe.DataGrid1.DataSource=rsDataGrid1.RefreshIfrs.RecordCount=0Then'如果不存在記錄'編輯控件可用性CmdAdd.Enabled=True:CmdModify.Enabled=False:CmdDelete.Enabled=FalseCmdCancel.Enabled=False:CmdSave.Enabled=False'移動(dòng)控件不可用ForIndex=0To3CmdMove(Index).Enabled=FalseNextIndexElse'編輯控件可用性CmdAdd.Enabled=True:CmdModify.Enabled=True:CmdDelete.Enabled=TrueCmdCancel.Enabled=False:CmdSave.Enabled=False'移動(dòng)控件可用ForIndex=0To3CmdMove(Index).Enabled=TrueNextIndexEndIf'設(shè)置控件Enable值CallControlEnable(False)EndSubPrivateSubControlEnable(flagAsBoolean)'設(shè)置控件的Enable值ForIndex=0To5Me.txt(Index).Enabled=flagNextIndexEndSubPrivateSubShowData()'在控件中顯示數(shù)據(jù)Ifrs.RecordCount<>0Then'如果存在記錄'為控件賦值ForIndex=0To4Me.txt(Index)=rs.Fields(Index)NextIndexMe.txt(5).Text=rs.Fields("提供商品")EndIfEndSubPrivateSubCmdMove_Click(IndexAsInteger)'移動(dòng)記錄操作SelectCaseIndexCaseIs=0'移到第一條記錄IfNotrs.BOFThenrs.MoveFirstCaseIs=1'移到上一條記錄Ifrs.RecordCount<>0ThenIfrs.BOF=FalseThenrs.MovePreviousIfrs.BOF=TrueThenrs.MoveFirstEndIfCaseIs=2'移到下一條記錄Ifrs.RecordCount<>0ThenIfrs.EOF=FalseThenrs.MoveNextIfrs.EOF=TrueThenrs.MoveLastEndIfCaseIs=3'移到最后一條記錄Ifrs.RecordCount<>0ThenIfNotrs.EOF=TrueThenrs.MoveLastEndIfEndSelectCallShowDataEndSubPrivateSubCmdAdd_Click()'所有控件重置CallControlClear'設(shè)置控件Enable值為可用CallControlEnable(True)'設(shè)置標(biāo)志flag，表示所進(jìn)行的操作為添加flag="Add"'所有移動(dòng)按鈕不可用ForIndex=0To3CmdMove(Index).Enabled=FalseNextIndex'添加、修改、刪除按鈕不可用，取消、保存按鈕可用CmdAdd.Enabled=False:CmdModify.Enabled=False:CmdDelete.Enabled=FalseCmdCancel.Enabled=True:CmdSave.Enabled=TrueEndSubPrivateSubControlClear()'重置控件ForIndex=0To5Me.txt(Index).Text=""NextIndexEndSubPrivateSubCmdModify_Click()Ifrs.RecordCount>0Then'如果存在記錄'供應(yīng)商編號(hào)不可以修改,其他控件可用txt(0).Enabled=False'設(shè)置控件Enable值CallControlEnable(True)'設(shè)置標(biāo)志flag，表示所進(jìn)行的操作為修改flag="Modify"'移動(dòng)控件不可用ForIndex=0To3CmdMove(Index).Enabled=FalseNextIndex'添加、修改、刪除按鈕不可用，取消、保存按鈕可用CmdAdd.Enabled=False:CmdModify.Enabled=False:CmdDelete.Enabled=FalseCmdCancel.Enabled=True:CmdSave.Enabled=TrueElseMsgBox("沒有可以修改的數(shù)據(jù)!")EndIfEndSubPrivateSubCmdDelete_Click()OnErrorGoToErrMsg'錯(cuò)誤處理Ifrs.RecordCount>0Thenmsg=MsgBox("刪除該條記錄嗎?",vbYesNo)Ifmsg=vbYesThenrs.Delete'刪除數(shù)據(jù)CallLoadData'重新裝載數(shù)據(jù)'清空控件CallControlClear'設(shè)置控件Enable值為不可用CallControlEnable(False)Ifrs.RecordCount=0Then'所有移動(dòng)控件不可用ForIndex=0To3CmdMove(Index).Enabled=FalseNextIndexEndIf'添加、刪除按鈕可用，修改、取消、保存按鈕不可用CmdAdd.Enabled=True:CmdModify.Enabled=False；CmdDelete.Enabled=True；CmdSave.Enabled=False:CmdCancel.Enabled=FalseMsgBox("成功刪除的數(shù)據(jù)!")EndIfElseMsgBox("沒有可刪除的數(shù)據(jù)!")EndIfExitSubErrMsg:'報(bào)告出錯(cuò)信息MsgBoxErr.Description,vbExclamation,"出錯(cuò)"EndSubPrivateSubCmdSave_Click()OnErrorGoToErrMsgIfNotCheckDataThenExitSub '如果數(shù)據(jù)不合法就退出Ifflag="Modify"Then'如果是修改數(shù)據(jù)msg=MsgBox("您確實(shí)要修改這條數(shù)據(jù)嗎?",vbYesNo)Ifmsg=vbYesThenCallsetData'設(shè)置數(shù)據(jù)ElseExitSubEndIfElseIfflag="Add"Then'如果是添加新數(shù)據(jù)rs.AddNewCallsetData'設(shè)置數(shù)據(jù)EndIfrs.Update'更新數(shù)據(jù)'移動(dòng)控件可用ForIndex=0To3CmdMove(Index).Enabled=TrueNextIndexCmdModify.Enabled=True:CmdDelete.Enabled=True:CmdAdd.Enabled=TrueCmdSave.Enabled=False:CmdCancel.Enabled=FalseIfflag="Add"ThenMsgBox("成功添加數(shù)據(jù)!")ElseMsgBox("成功更新數(shù)據(jù)!")EndIfCallLoadData'重新裝載數(shù)據(jù)'定位到添加或修改記錄Ifrs.RecordCount>0Thenrs.MoveFirstrs.Find("供應(yīng)商編號(hào)='"&Trim(Me.txt(0).Text)&"'")IfNotrs.EOFThenCallShowData'重新顯示數(shù)據(jù)EndIfExitSubErrMsg:MsgBoxErr.Description,vbExclamation,"出錯(cuò)"EndSubPrivateFunctionCheckData()AsBoolean'檢查數(shù)據(jù)的合法性DimrstAsADODB.RecordsetDimmsgtAsStringmsgt=""'檢查數(shù)據(jù)IfTrim(txt(0).Text)=""Then'檢查供應(yīng)商編號(hào)是否為空msgt="供應(yīng)商編號(hào)為空；"'光標(biāo)定位txt(0).SetFocustxt(0).SelStart=0txt(0).SelLength=Len(txt(0).Text)ElseIfNotLen(Trim(txt(0).Text))=4Then'檢查供應(yīng)商編號(hào)是否為4位msgt=msgt&"供應(yīng)商編號(hào)不是4位；"'光標(biāo)定位txt(0).SetFocustxt(0).SelStart=0txt(0).SelLength=Len(txt(0).Text)ElseIfTrim(txt(1).Text)=""Then'檢查供應(yīng)商名稱是否為空msgt="供應(yīng)商名稱為空；"'光標(biāo)定位txt(1).SetFocustxt(1).SelStart=0txt(1).SelLength=Len(txt(1).Text)EndIfIfNotmsgt=""Then'如果不為空，給出錯(cuò)誤提示MsgBox(msgt)CheckData=False'返回FalseExitFunctionEndIf'檢查唯一性SQL="select*from供應(yīng)商資料表where供應(yīng)商編號(hào)='"&Trim(txt(0).Text)&"'"Setrst=SelectSQL(SQL,msg)'如果是進(jìn)行添加操作且已經(jīng)存在該記錄，提示重復(fù)添加Ifflag="Add"Andrst.RecordCount>0ThenMsgBox("該信息已經(jīng)存在，重復(fù)添加!")'光標(biāo)定位txt(0).SetFocustxt(0).SelStart=0txt(0).SelLength=Len(txt(0).Text)rst.CloseCheckData=False'返回FalseExitFunctionEndIfCheckData=True'合法返回TrueEndFunctionPrivateSubsetData()'為字段設(shè)置數(shù)據(jù)rs.Fields("供應(yīng)商編號(hào)")=Me.txt(0).Textrs.Fields("供應(yīng)商名稱")=Me.txt(1).TextForIndex=2To4rs.Fields(Index)=Me.txt(Index).TextNextIndex rs.Fields("提供商品")=Me.txt(5).TextEndSubPrivateSubcmdCancel_Click()CallShowData'重新在控件中顯示信息Ifrs.RecordCount>0Then'所有移動(dòng)控件可用ForIndex=0To3CmdMove(Index).Enabled=TrueNextIndexEndIf'設(shè)置控件Enable值為不可用CallControlEnable(False)'修改、刪除、添加按鈕可用,保存和取消按鈕不可用CmdAdd.Enabled=True:CmdModify.Enabled=True:CmdDelete.Enabled=True；CmdSave.Enabled=False:CmdCancel.Enabled=FalseEndSubPrivateSubCmdQuery_Click()'查詢操作CallLoadData'裝載數(shù)據(jù)CallShowData'顯示數(shù)據(jù)EndSubPrivateSubCmdExit_Click()'退出操作超市管理系統(tǒng)主界面.Enabled=TrueUnloadMeEndSubPrivateSubForm_Unload(CancelAsInteger)'退出操作超市管理系統(tǒng)主界面.Enabled=Truers.CloseUnloadMeEndSub系統(tǒng)其它各模塊代碼與供應(yīng)商資料模塊代碼類似。基于C8051F單片機(jī)直流電動(dòng)機(jī)反饋控制系統(tǒng)的設(shè)計(jì)與研究基于單片機(jī)的嵌入式Web服務(wù)器的研究MOTOROLA單片機(jī)MC68HC（8）05PV8/A內(nèi)嵌EEPROM的工藝和制程方法及對(duì)良率的影響研究基于模糊控制的電阻釬焊單片機(jī)溫度控制系統(tǒng)的研制基于MCS-51系列單片機(jī)的通用控制模塊的研究基于單片機(jī)實(shí)現(xiàn)的供暖系統(tǒng)最佳啟停自校正（STR）調(diào)節(jié)器單片機(jī)控制的二級(jí)倒立擺系統(tǒng)的研究基于增強(qiáng)型51系列單片機(jī)的TCP/IP協(xié)議棧的實(shí)現(xiàn)基于單片機(jī)的蓄電池自動(dòng)監(jiān)測(cè)系統(tǒng)基于32位嵌入式單片機(jī)系統(tǒng)的圖像采集與處理技術(shù)的研究基于單片機(jī)的作物營(yíng)養(yǎng)診斷專家系統(tǒng)的研究基于單片機(jī)的交流伺服電機(jī)運(yùn)動(dòng)控制系統(tǒng)研究與開發(fā)基于單片機(jī)的泵管內(nèi)壁硬度測(cè)試儀的研制基于單片機(jī)的自動(dòng)找平控制系統(tǒng)研究基于C8051F040單片機(jī)的嵌入式系統(tǒng)開發(fā)基于單片機(jī)的液壓動(dòng)力系統(tǒng)狀態(tài)監(jiān)測(cè)儀開發(fā)模糊Smith智能控制方法的研究及其單片機(jī)實(shí)現(xiàn)一種基于單片機(jī)的軸快流CO〈,2〉激光器的手持控制面板的研制基于雙單片機(jī)沖床數(shù)控系統(tǒng)的研究基于CYGNAL單片機(jī)的在線間歇式濁度儀的研制基于單片機(jī)的噴油泵試驗(yàn)臺(tái)控制器的研制基于單片機(jī)的軟起動(dòng)器的研究和設(shè)計(jì)基于單片機(jī)控制的高速快走絲電火花線切割機(jī)床短循環(huán)走絲方式研究基于單片機(jī)的機(jī)電產(chǎn)品控制系統(tǒng)開發(fā)基于PIC單片機(jī)的智能手機(jī)充電器基于單片機(jī)的實(shí)時(shí)內(nèi)核設(shè)計(jì)及其應(yīng)用研究基于單片機(jī)的遠(yuǎn)程抄表系統(tǒng)的設(shè)計(jì)與研究基于單片機(jī)的煙氣二氧化硫濃度檢測(cè)儀的研制基于微型光譜儀的單片機(jī)系統(tǒng)單片機(jī)系統(tǒng)軟件構(gòu)件開發(fā)的技術(shù)研究基于單片機(jī)的液體點(diǎn)滴速度自動(dòng)檢測(cè)儀的研制基于單片機(jī)系統(tǒng)的多功能溫度測(cè)量?jī)x的研制基于PIC單片機(jī)的電能采集終端的設(shè)計(jì)和應(yīng)用基于單片機(jī)的光纖光柵解調(diào)儀的研制氣壓式線性摩擦焊機(jī)單片機(jī)控制系統(tǒng)的研制基于單片機(jī)的數(shù)字磁通門傳感器基于單片機(jī)的旋轉(zhuǎn)變壓器-數(shù)字轉(zhuǎn)換器的研究基于單片機(jī)的光纖Bragg光柵解調(diào)系統(tǒng)的研究單片機(jī)控制的便攜式多功能乳腺治療儀的研制基于C8051F020單片機(jī)的多生理信號(hào)檢測(cè)儀基于單片機(jī)的電機(jī)運(yùn)動(dòng)控制系統(tǒng)設(shè)計(jì)Pico專用單片機(jī)核的可測(cè)性設(shè)計(jì)研究基于MCS-51單片機(jī)的熱量計(jì)基于雙單片機(jī)的智能遙測(cè)微型氣象站MCS-51單片機(jī)構(gòu)建機(jī)器人的實(shí)踐研究基于單片機(jī)的輪軌力檢測(cè)基于單片機(jī)的GPS定位儀的研究與實(shí)現(xiàn)基于單片機(jī)的電液伺服控制系統(tǒng)用于單片機(jī)系統(tǒng)的MMC卡文件系統(tǒng)研制基于單片機(jī)的時(shí)控和計(jì)數(shù)系統(tǒng)性能優(yōu)化的研究基于單片機(jī)和CPLD的粗光柵位移測(cè)量系統(tǒng)研究單片機(jī)控制的后備式方波UPS提升高職學(xué)生單片機(jī)應(yīng)用能力的探究基于單片機(jī)控制的自動(dòng)低頻減載裝置研究基于單片機(jī)控制的水下焊接電源的研究基于單片機(jī)的多通道數(shù)據(jù)采集系統(tǒng)基于uPSD3234單片機(jī)的氚表面污染測(cè)量?jī)x的研制基于單片機(jī)的紅外測(cè)油儀的研究96系列單片機(jī)仿真器研究與設(shè)計(jì)基于單片機(jī)的單晶金剛石刀具刃磨設(shè)備的數(shù)控改造基于單片機(jī)的溫度智能控制系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)基于MSP430單片機(jī)的電梯門機(jī)控制器的研制基于單片機(jī)的氣體測(cè)漏儀的研究基于三菱M16C/6N系列單片機(jī)的CAN/USB協(xié)議轉(zhuǎn)換器基于單片機(jī)和DSP的變壓器油色譜在線監(jiān)測(cè)技術(shù)研究基于單片機(jī)的膛壁溫度報(bào)警系統(tǒng)設(shè)計(jì)基于AVR單片機(jī)的低壓無(wú)功補(bǔ)償控制器的設(shè)計(jì)基于單片機(jī)船舶電力推進(jìn)電機(jī)監(jiān)測(cè)系統(tǒng)基于單片機(jī)網(wǎng)絡(luò)的振動(dòng)信號(hào)的采集系統(tǒng)基于單片機(jī)的大容量數(shù)據(jù)存儲(chǔ)技術(shù)的應(yīng)用研究基于單片機(jī)的疊圖機(jī)研究與教學(xué)方法實(shí)踐基于單片機(jī)嵌入式Web服務(wù)器技術(shù)的研究及實(shí)現(xiàn)基于AT89S52單片機(jī)的通用數(shù)據(jù)采集系統(tǒng)基于單片機(jī)的多道脈沖幅度分析儀研究機(jī)器人旋轉(zhuǎn)電弧傳感角焊縫跟蹤單片機(jī)控制系統(tǒng)基于單片機(jī)的控制系統(tǒng)在PLC虛擬教學(xué)實(shí)驗(yàn)中的應(yīng)用研究基于單片機(jī)系統(tǒng)的網(wǎng)絡(luò)通信研究與應(yīng)用HYPERLINK"/detail.htm?35