課程設(shè)計(jì)-超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)

課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)PAGEPAGE50計(jì)算機(jī)信息管理數(shù)據(jù)庫(kù)應(yīng)用課程設(shè)計(jì)計(jì)算機(jī)信息管理專業(yè)畢業(yè)設(shè)計(jì)論文《超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)》專業(yè)：計(jì)算機(jī)信息管理專業(yè)年級(jí)：09春計(jì)算機(jī)信息管理姓名：學(xué)號(hào)：指導(dǎo)老師：二〇一一年十月課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第1頁(yè)。課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第1頁(yè)。摘要隨著經(jīng)濟(jì)的發(fā)展，超市進(jìn)銷存管理系統(tǒng)用計(jì)算機(jī)管理超市庫(kù)存進(jìn)出已經(jīng)成為管理的一種計(jì)算機(jī)應(yīng)用技術(shù)的創(chuàng)新,在計(jì)算機(jī)還未普及之前庫(kù)存管理都是由工作人員手工書寫的方式來(lái)操作的.現(xiàn)在一般的超市都采用計(jì)算機(jī)智能化管理,采用計(jì)算機(jī)作為工具的實(shí)用的計(jì)算機(jī)超市庫(kù)存管理程序來(lái)幫助管理員進(jìn)行更有效的超市庫(kù)存管理工作。超市進(jìn)銷存管理系統(tǒng)是典型的信息管理系統(tǒng)(MIS),其開(kāi)發(fā)主要包括后臺(tái)數(shù)據(jù)庫(kù)的建立和維護(hù)以及前端應(yīng)用程序的開(kāi)發(fā)兩個(gè)方面。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫(kù)。而對(duì)于后者則要求應(yīng)用程序功能完備,易使用等特點(diǎn)。

經(jīng)過(guò)分析,我們使用MICROSOFT公司的VISUALBASIC開(kāi)發(fā)工具,利用其提供的各種面向?qū)ο蟮拈_(kāi)發(fā)工具,尤其是數(shù)據(jù)窗口這一能方便而簡(jiǎn)潔操縱數(shù)據(jù)庫(kù)的智能化對(duì)象,首先在短時(shí)間內(nèi)建立系統(tǒng)應(yīng)用原型,然后,對(duì)初始原型系統(tǒng)進(jìn)行需求迭代,不斷修正和改進(jìn),直到形成用戶滿意的可行系統(tǒng)。因?yàn)楸救四芰τ邢?，加上時(shí)間緊迫，所以設(shè)計(jì)出來(lái)的本系統(tǒng)可能功能比較簡(jiǎn)單，另外本系統(tǒng)是單機(jī)版，不能實(shí)現(xiàn)網(wǎng)絡(luò)互聯(lián)操作,這些都有待于我在以后的工作學(xué)習(xí)中進(jìn)一步改進(jìn)。關(guān)鍵字:超市進(jìn)銷存管理MISvisualbasic數(shù)據(jù)庫(kù)課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第2頁(yè)。課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第2頁(yè)。目錄摘要……………2一、概述…………….……………..31、課題來(lái)源……………….……..32、開(kāi)發(fā)背景和開(kāi)發(fā)目的…….……..4二、需求分析……………….……..51、系統(tǒng)目標(biāo)……………….………………52、應(yīng)用現(xiàn)狀調(diào)查……………….…………53、系統(tǒng)總體流程圖如下:…….…………...54、系統(tǒng)功能模塊圖…………….…………65、系統(tǒng)功能的分析…………….…………66、開(kāi)發(fā)工具的選擇…………….…………7三、超市進(jìn)銷存管理系統(tǒng)的設(shè)計(jì).………………91、數(shù)據(jù)庫(kù)設(shè)計(jì)……………….……………92、數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì)……….…………103、用戶登錄表.….….….….….….….….….….….….….….….….….….…104、購(gòu)入商品表….….….….….….….….….….….….….….….….….….115、商品報(bào)損表….….….….….….….….….….….….….….….….….….116、商品信息表.….….….….….….….….….….….….….….….….….….….12四、超市進(jìn)銷存管理系統(tǒng)實(shí)施.………………….131、創(chuàng)建工程項(xiàng)目—超市進(jìn)銷存管理MIS…….132、創(chuàng)建超市進(jìn)銷存管理系統(tǒng)的窗體..…………..143、登錄窗口的設(shè)計(jì)…………144、主界面窗的設(shè)計(jì)………………17課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第3頁(yè)。5、主要的控件及其基本屬性.……………..40課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第3頁(yè)。五、測(cè)試與分析.….….….….….….….….….….….….….….….….….….…42 1、測(cè)試環(huán)境.….….….….….….….….….….….….….….….….….….….…42 2、測(cè)試方法….…….…….…….…….…….…….…….…….…….…….…43 3、測(cè)試項(xiàng)目….…….…….…….…….…….…….…….…….…….…….…44六、設(shè)計(jì)總結(jié)……………….……..46參考文獻(xiàn)……………….…………..48附錄……………….…………….….49課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第4頁(yè)。

一、概述課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第4頁(yè)。1、課題來(lái)源2、開(kāi)發(fā)背景和開(kāi)發(fā)目的課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第5頁(yè)。超市進(jìn)銷存管理系統(tǒng)用計(jì)算機(jī)管理超市庫(kù)存進(jìn)出管理的一種計(jì)算機(jī)應(yīng)用技術(shù)的創(chuàng)新,在計(jì)算機(jī)還未普及之前庫(kù)存管理都是由工作人員手工書寫的方式來(lái)操作的.現(xiàn)在一般的超市都采用計(jì)算機(jī)智能化管理,采用計(jì)算機(jī)作為工具的實(shí)用的計(jì)算機(jī)超市庫(kù)存管理程序來(lái)幫助管理員進(jìn)行更有效的超市庫(kù)存管理工作。超市進(jìn)銷存管理系統(tǒng)是典型的信息管理系統(tǒng)(MIS),其開(kāi)發(fā)主要包括后臺(tái)數(shù)據(jù)庫(kù)的建立和維護(hù)以及前端應(yīng)用程序的開(kāi)發(fā)兩個(gè)方面。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫(kù)。而對(duì)于后者則要求應(yīng)用程序功能完備,易使用等特點(diǎn)。課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第5頁(yè)。開(kāi)發(fā)本系統(tǒng)就是為了解決超市在進(jìn)銷存管理中的一些不規(guī)范，使超市的進(jìn)銷存管理向著規(guī)范化、簡(jiǎn)單化、有效化的方向發(fā)展。課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第6頁(yè)。

二、需求分析課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第6頁(yè)。1、系統(tǒng)目標(biāo)采用超市現(xiàn)有的軟硬件軟件及科學(xué)的管理系統(tǒng)開(kāi)發(fā)方案，建立超市進(jìn)銷存管理系統(tǒng)，實(shí)現(xiàn)超市進(jìn)銷存管理的計(jì)算機(jī)自動(dòng)化。系統(tǒng)應(yīng)符合超市原有的流程管理制度，并達(dá)到操作直觀、方便、實(shí)用、安全等要求。2、應(yīng)用現(xiàn)狀調(diào)查當(dāng)前，很多農(nóng)村超市的進(jìn)銷存管理都是以紙張為介質(zhì)作記錄，人力管理的比例比較大,往往是個(gè)體老板以書面的形式管理自己小超市的賬目,效率低下。數(shù)據(jù)打印,匯總,虧損預(yù)算不及時(shí)，容易丟失,損壞數(shù)據(jù)給自己帶來(lái)?yè)p失,不易保存且數(shù)據(jù)保密碼性較差。3、系統(tǒng)總體流程圖如下:開(kāi)始界面開(kāi)始界面用戶登陸是否合法系統(tǒng)主窗口退出系統(tǒng)否則是非功過(guò)課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第7頁(yè)。課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第7頁(yè)。4、系統(tǒng)功能模塊圖程序登陸程序登陸主界面商品類型管理商品管理報(bào)損管理進(jìn)貨管理銷售管理供貨商管理銷售分析幫助退出5、系統(tǒng)功能的分析課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第8頁(yè)。本系統(tǒng)采用visualbasic與Access作為數(shù)據(jù)庫(kù)的方式編寫,主要服務(wù)于超市庫(kù)存管理人員的日常工作.課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第8頁(yè)。主要由以下幾大功能模塊構(gòu)成:商品類型管理:添加商品類型,修改商品類型,刪除商品類型商品管理:添加商品信息,修改商品信息,刪除商品信息進(jìn)貨管理:添加進(jìn)貨管理,修改進(jìn)貨管理,刪除進(jìn)貨管理銷售管理:添加銷售管理,修改銷售管理,刪除銷售管理報(bào)損管理:添加報(bào)損管理,修改報(bào)損管理,刪除報(bào)損管理6、開(kāi)發(fā)工具的選擇VisualBasic6.0是Micrsoft公司出品的開(kāi)發(fā)工具，VisualBasic是一種可視化的，面向?qū)ο蟮腤indows開(kāi)發(fā)語(yǔ)言，它具有易用，通用和開(kāi)發(fā)效率高的特點(diǎn)。隨著微軟對(duì)它不斷地改進(jìn)以及計(jì)算機(jī)本身性能的提高，使得VisualBasic越來(lái)越適合一般的應(yīng)用程序開(kāi)發(fā)。正如BillGate所說(shuō)，世界上絕大多數(shù)的Windows應(yīng)用程序是用VisualBasic編寫的。在眾多的開(kāi)發(fā)工具中，我們?yōu)槭裁匆x擇VisualBasic6.0呢？因?yàn)閂B具有眾多其它開(kāi)發(fā)工具所沒(méi)有的優(yōu)點(diǎn)！具體介紹如下：開(kāi)發(fā)的高效語(yǔ)言的高效編譯的高效執(zhí)行的高效課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第9頁(yè)。維護(hù)的高效課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第9頁(yè)。經(jīng)過(guò)以上認(rèn)真分析其優(yōu)缺點(diǎn)，結(jié)合數(shù)據(jù)庫(kù)管理系統(tǒng)的需要和目前的硬件環(huán)境，我們選用微軟WINDOWS平臺(tái)下的VisualBasic6.0（簡(jiǎn)寫為VB6.0）作為軟件開(kāi)發(fā)工具。課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第10頁(yè)。

三、超市進(jìn)銷存管理系統(tǒng)的設(shè)計(jì)課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第10頁(yè)。1、數(shù)據(jù)庫(kù)設(shè)計(jì)數(shù)據(jù)庫(kù)在一個(gè)信息管理系統(tǒng)中占有非常重要的地位，數(shù)據(jù)庫(kù)結(jié)構(gòu)設(shè)計(jì)的好壞將直接對(duì)應(yīng)用系統(tǒng)的效率以及實(shí)現(xiàn)的效果產(chǎn)生影響。合理的數(shù)據(jù)庫(kù)結(jié)構(gòu)設(shè)計(jì)可以提高數(shù)據(jù)存儲(chǔ)的效率，保證數(shù)據(jù)的完整和一致。同時(shí)，合理的數(shù)據(jù)庫(kù)結(jié)構(gòu)也將有利于程序的實(shí)現(xiàn)。設(shè)計(jì)數(shù)據(jù)庫(kù)系統(tǒng)時(shí)應(yīng)該首先充分了解用戶各個(gè)方面的需求，包括現(xiàn)有的以及將來(lái)可能增加的需求。2、邏輯結(jié)構(gòu)設(shè)計(jì)現(xiàn)在將數(shù)據(jù)庫(kù)概念結(jié)構(gòu)轉(zhuǎn)化為Assecc2000數(shù)據(jù)庫(kù)系統(tǒng)所支持的實(shí)際數(shù)據(jù)模型，也就是數(shù)據(jù)庫(kù)的邏輯結(jié)構(gòu)。在實(shí)體以及實(shí)體之間關(guān)系的基礎(chǔ)上，形成數(shù)據(jù)庫(kù)中的表以及各個(gè)表之間的關(guān)系。超市進(jìn)銷存管理系統(tǒng)數(shù)據(jù)庫(kù)中各個(gè)表格的設(shè)計(jì)結(jié)果如下所示：用戶登錄表表1用戶登錄表課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第11頁(yè)。課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第11頁(yè)。購(gòu)入商品表：表2購(gòu)入商品表商品報(bào)損表：表3商品報(bào)損表課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第12頁(yè)。課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第12頁(yè)。商品信息表表4商品信息表供應(yīng)商表表5供應(yīng)商表課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第13頁(yè)。課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第13頁(yè)。銷售表表6銷售表四、超市進(jìn)銷存管理系統(tǒng)實(shí)施1、創(chuàng)建工程項(xiàng)目——超市進(jìn)銷存管理系統(tǒng)為了用VisualBasic創(chuàng)建應(yīng)用程序，應(yīng)當(dāng)使用工程。一個(gè)工程是用來(lái)建造應(yīng)用程序的文件的集合，它包括：·跟蹤所有部件的工程文件（.vbp）·每個(gè)窗體的文件（.frm）·每個(gè)窗體的二進(jìn)制數(shù)據(jù)文件（.frx）,它含有窗體上控件的屬性數(shù)據(jù)。對(duì)含有二進(jìn)制屬性的任何.frm文件都是不可編輯的，這些文件都是自動(dòng)產(chǎn)生的。·每個(gè)類模塊的一個(gè)文件(.cls)，該文件是可選項(xiàng)。課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第14頁(yè)。·每個(gè)標(biāo)準(zhǔn)模塊的一個(gè)文件（.bas）,該文件是可選項(xiàng)。課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第14頁(yè)?！ひ粋€(gè)或多個(gè)包含ActiveX控件的文件(.ocx),該文件是可選項(xiàng)?！蝹€(gè)資源文件(.res),該文件是可選項(xiàng)。啟動(dòng)VisualBasic后，單擊File/NewProject菜單，在工程模板中選擇StandardEXE,VisualBasic將自動(dòng)產(chǎn)生一個(gè)Form窗體，屬性都為缺省設(shè)置。刪除窗體，單擊File/SaveProject菜單，將工程項(xiàng)目命名為Student_MIS。2、創(chuàng)建超市進(jìn)銷存管理系統(tǒng)的窗體VisualBasic創(chuàng)建的應(yīng)用程序可以是SDI（單文檔界面）和MDI（多文檔界面）。在SDI的程序中，每個(gè)窗體之間是獨(dú)立的。而MDI的程序中，有一個(gè)窗體是主窗體，可以包含其他窗體，它的類型是MDIForm。本系統(tǒng)采用多文檔界面，這樣可以使程序更加美觀、整齊有序。1、登錄窗口的設(shè)計(jì)圖片7登錄窗口代碼分析:OptionExplicit課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第15頁(yè)。PrivateDeclareFunctionGetUserNameLib"advapi32.dll"Alias"GetUserNameA"(ByVallpbufferAsString,nSizeAsLong)AsLong課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第15頁(yè)。PublicOKAsBooleanDimm_AdminAsNewclsAdminDimm_nErrCountAsIntegerPrivateSubForm_Load()m_nErrCount=0EndSubPrivateSubcmdCancel_Click()OK=FalseMe.HideEndSubPrivateSubcmdOK_Click()'ToDo:創(chuàng)建測(cè)試密碼是否正確'檢查正確密碼DimAccountAsStringDimPwdAsStringAccount=RealString(txtUserName.Text)Pwd=RealString(txtPassword.Text)'判斷密碼是否正確IfNotm_Admin.CheckPwd(Account,Pwd)Then課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第16頁(yè)。m_nErrCount=m_nErrCount+1課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第16頁(yè)。Ifm_nErrCount>=3ThenMsgBox"輸入密碼錯(cuò)誤次數(shù)太多，請(qǐng)稍后重試",vbExclamationEndEndIfMsgBox"密碼錯(cuò)誤，再試一次！還有"&3-m_nErrCount&"次機(jī)會(huì)，注意密碼區(qū)分大小寫",vbCritical,"登錄"txtPassword.SetFocustxtPassword.SelStart=0txtPassword.SelLength=Len(txtPassword.Text)ElseOK=Trueg_Account=AccountMe.HideEndIfEndSub課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第17頁(yè)。課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第17頁(yè)。5、主界面窗口圖片10主界面窗口代碼分析:OptionExplicitConstNAME_COLUMN=0ConstTYPE_COLUMN=1ConstSIZE_COLUMN=2ConstDATE_COLUMN=3DimmbMovingAsBooleanConstsglSplitLimit=500課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第18頁(yè)。課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第18頁(yè)。PrivateSubForm_Load()LoadResStringsMeMe.Left=GetSetting(App.Title,"Settings","MainLeft",1000)Me.Top=GetSetting(App.Title,"Settings","MainTop",1000)Me.Width=GetSetting(App.Title,"Settings","MainWidth",6500)Me.Height=GetSetting(App.Title,"Settings","MainHeight",6500)lvMerch.View=Val(GetSetting(App.Title,"Settings","ViewMode","0"))'初始化數(shù)據(jù)CallInitMainEndSubPrivateSubForm_Unload(CancelAsInteger)DimiAsInteger課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第19頁(yè)。'closeallsubforms課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第19頁(yè)。Fori=Forms.Count-1To1Step-1UnloadForms(i)NextIfMe.WindowState<>vbMinimizedThenSaveSettingApp.Title,"Settings","MainLeft",Me.LeftSaveSettingApp.Title,"Settings","MainTop",Me.TopSaveSettingApp.Title,"Settings","MainWidth",Me.WidthSaveSettingApp.Title,"Settings","MainHeight",Me.HeightEndIfSaveSettingApp.Title,"Settings","ViewMode",lvMerch.ViewEndSubPrivateSubForm_Resize()OnErrorResumeNextIfMe.Width<3000ThenMe.Width=3000SizeControlsimgSplitter.LeftEndSub課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第20頁(yè)。課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第20頁(yè)。PrivateSubimgSplitter_MouseDown(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)WithimgSplitterpicSplitter.Move.Left,.Top,.Width\2,.Height-20EndWithpicSplitter.Visible=TruembMoving=TrueEndSubPrivateSubimgSplitter_MouseMove(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)DimsglPosAsSingleIfmbMovingThensglPos=x+imgSplitter.LeftIfsglPos<sglSplitLimitThenpicSplitter.Left=sglSplitLimitElseIfsglPos>Me.Width-sglSplitLimitThenpicSplitter.Left=Me.Width-sglSplitLimitElsepicSplitter.Left=sglPos課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第21頁(yè)。課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第21頁(yè)。EndIfEndSubPrivateSubimgSplitter_MouseUp(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)SizeControlspicSplitter.LeftpicSplitter.Visible=FalsembMoving=FalseEndSubPrivateSubTreeView1_DragDrop(SourceAsControl,xAsSingle,yAsSingle)IfSource=imgSplitterThenSizeControlsxEndIfEndSubSubSizeControls(xAsSingle)OnErrorResumeNext'設(shè)置Width屬性課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第22頁(yè)。Ifx<1500Thenx=1500課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第22頁(yè)。Ifx>(Me.Width-1500)Thenx=Me.Width-1500tvTreeView.Width=ximgSplitter.Left=xsstabView.Left=x+40sstabView.Width=Me.Width-(tvTreeView.Width+140)lblTitle(0).Width=tvTreeView.Width'lblTitle(1).Left=lvMerch.Left+20'lblTitle(1).Width=lvMerch.Width-40'設(shè)置Top屬性IftbToolBar.VisibleThentvTreeView.Top=tbToolBar.Height+picTitles.HeightElsetvTreeView.Top=picTitles.HeightEndIfsstabView.Top=tvTreeView.Top-picTitles.Height'設(shè)置height屬性IfsbStatusBar.VisibleThen課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第23頁(yè)。tvTreeView.Height=Me.ScaleHeight-(picTitles.Top+picTitles.Height+sbStatusBar.Height)課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第23頁(yè)。ElsetvTreeView.Height=Me.ScaleHeight-(picTitles.Top+picTitles.Height)EndIfsstabView.Height=tvTreeView.Height+picTitles.HeightimgSplitter.Top=picTitles.TopimgSplitter.Height=tvTreeView.Height'修改ListView控件尺寸DimctlAsControlForEachctlInControlsIfTypeOfctlIsListViewThenctl.Left=0ctl.Top=sstabView.TabHeightctl.Width=sstabView.Width-40ctl.Height=sstabView.Height-sstabView.TabHeightctl.Visible=FalseEndIfNextsstabView_Click0課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第24頁(yè)。EndSub課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第24頁(yè)。PrivateSublvBuy_DblClick()mnuBuyModify_ClickEndSubPrivateSublvDispose_DblClick()mnuDisposeModify_ClickEndSubPrivateSublvMerch_DblClick()mnuMerchModify_ClickEndSubPrivateSublvProvider_DblClick()mnuProviderModify_ClickEndSubPrivateSublvSell_DblClick()mnuSellModify_ClickEndSub課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第25頁(yè)。PrivateSubmnuAnaBuy_Click()課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第25頁(yè)。frmAnalysis.ShowvbModalEndSubPrivateSubmnuAnalysis_Click()frmAnalysis.ShowvbModalEndSub'屬性頁(yè)控件切換響應(yīng)函數(shù)'PrivateSubsstabView_Click(PreviousTabAsInteger)SelectCasePreviousTabCase0lvMerch.Visible=FalseCase1lvBuy.Visible=FalseCase2lvSell.Visible=FalseCase3lvDispose.Visible=FalseCase4課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第26頁(yè)。lvProvider.Visible=False課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第26頁(yè)。EndSelectSelectCasesstabView.TabCase0lvMerch.Visible=TruelvMerch.SetFocusCase1lvBuy.Visible=TruelvBuy.SetFocusCase2lvSell.Visible=TruelvSell.SetFocusCase3lvDispose.Visible=TruelvDispose.SetFocusCase4lvProvider.Visible=TruelvProvider.SetFocusEndSelectEndSub課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第27頁(yè)。PrivateSubtbToolBar_ButtonClick(ByValButtonAsMSComctlLib.Button)課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第27頁(yè)。OnErrorResumeNextSelectCaseButton.KeyCase"返回"'應(yīng)做:添加'返回'按鈕代碼。MsgBox"添加'返回'按鈕代碼。"Case"向前"'應(yīng)做:添加'向前'按鈕代碼。MsgBox"添加'向前'按鈕代碼。"Case"剪切"'應(yīng)做:添加'剪切'按鈕代碼。MsgBox"添加'剪切'按鈕代碼。"Case"復(fù)制"'應(yīng)做:添加'復(fù)制'按鈕代碼。MsgBox"添加'復(fù)制'按鈕代碼。"Case"粘貼"'應(yīng)做:添加'粘貼'按鈕代碼。MsgBox"添加'粘貼'按鈕代碼。"Case"刪除"'應(yīng)做:添加'刪除'按鈕代碼。MsgBox"添加'刪除'按鈕代碼。"Case"屬性"課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第28頁(yè)。'應(yīng)做:添加'屬性'按鈕代碼。課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第28頁(yè)。MsgBox"添加'屬性'按鈕代碼。"Case"大圖標(biāo)"lvMerch.View=lvwIconCase"小圖標(biāo)"lvMerch.View=lvwSmallIconCase"列表"lvMerch.View=lvwListCase"詳細(xì)資料"lvMerch.View=lvwReportEndSelectEndSubPrivateSubmnuHelpAbout_Click()frmAbout.ShowvbModal,MeEndSubPrivateSubmnuViewRefresh_Click()'應(yīng)做:添加'mnuViewRefresh_Click'代碼。MsgBox"添加'mnuViewRefresh_Click'代碼。"EndSub課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第29頁(yè)。課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第29頁(yè)。PrivateSubmnuVAIByDate_Click()'ToDo:添加'mnuVAIByDate_Click'代碼'lvMerch.SortKey=DATE_COLUMNEndSubPrivateSubmnuVAIByName_Click()'ToDo:添加'mnuVAIByName_Click'代碼'lvMerch.SortKey=NAME_COLUMNEndSubPrivateSubmnuVAIBySize_Click()'ToDo:添加'mnuVAIBySize_Click'代碼'lvMerch.SortKey=SIZE_COLUMNEndSubPrivateSubmnuVAIByType_Click()'ToDo:添加'mnuVAIByType_Click'代碼'lvMerch.SortKey=TYPE_COLUMNEndSubPrivateSubmnuViewStatusBar_Click()課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第30頁(yè)。mnuViewStatusBar.Checked=NotmnuViewStatusBar.Checked課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第30頁(yè)。sbStatusBar.Visible=mnuViewStatusBar.CheckedSizeControlsimgSplitter.LeftEndSubPrivateSubmnuViewToolbar_Click()mnuViewToolbar.Checked=NotmnuViewToolbar.CheckedtbToolBar.Visible=mnuViewToolbar.CheckedSizeControlsimgSplitter.LeftEndSub'初始化所有數(shù)據(jù)函數(shù)PrivateSubInitMain()'InitMerchListviewlvMerch'初始化列表'ListAllMerchslvMerchTypeToTreeviewtvTreeView'將客戶類型顯示到樹(shù)型圖中opProvider.FillListViewlvProvider課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第31頁(yè)。課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第31頁(yè)。opMerch.FillListViewlvMerchopBuy.FillListViewlvBuyopSell.FillListViewlvSellopDispose.FillListViewlvDisposeEndSub'菜單響應(yīng)函數(shù)''==============================================='商品類型操作'===============================================PrivateSubmnuMType_Click()'設(shè)置樹(shù)型控件焦點(diǎn)tvTreeView.SetFocusEndSub'添加課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第32頁(yè)。PrivateSubmnuMTypeAdd_Click()課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第32頁(yè)。opMType.AddtvTreeViewEndSub'刪除PrivateSubmnuMTypeDel_Click()opMType.DeletetvTreeViewEndSub'修改PrivateSubmnuMTypeModify_Click()opMType.ModifytvTreeViewEndSub'==============================================='人員管理操作'===============================================PrivateSubmnuSystemUser_Click()frmUserList.ShowvbModalEndSub'==============================================='商品操作'===============================================課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第33頁(yè)。PrivateSub課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第33頁(yè)。'切換選項(xiàng)卡sstabView.Tab=0EndSubPrivateSubmnuMerchAdd_Click()sstabView.Tab=0opMerch.AddlvMerch,GetID(tvTreeView.SelectedItem.Key)EndSubPrivateSubmnuMerchDel_Click()sstabView.Tab=0opMerch.DeletelvMerchEndSubPrivateSubmnuMerchModify_Click()sstabView.Tab=0opMerch.ModifylvMerchEndSub'==============================================='進(jìn)貨管理'===============================================PrivateSubmnuBuy_Click()課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第34頁(yè)。'切換選項(xiàng)卡課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第34頁(yè)。sstabView.Tab=1EndSubPrivateSubmnuBuyAdd_Click()opBuy.AddlvBuy,g_Account'由于同時(shí)更新了庫(kù)存，需要重新加載商品列表opMerch.FillListViewlvMerch,GetID(tvTreeView.SelectedItem.Key)MsgBox"操作成功，同時(shí)庫(kù)存量自動(dòng)更新，請(qǐng)切換到【商品管理】查看核實(shí)庫(kù)存變化。",vbInformationEndSubPrivateSubmnuBuyDel_Click()opBuy.DeletelvBuy'由于同時(shí)更新了庫(kù)存，需要重新加載商品列表opMerch.FillListViewlvMerch,GetID(tvTreeView.SelectedItem.Key)MsgBox"操作成功，同時(shí)庫(kù)存量自動(dòng)更新，請(qǐng)切換到【商品管理】查看核實(shí)庫(kù)存變化。",vbInformationEndSub課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第35頁(yè)。PrivateSubmnuBuyModify_Click()課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第35頁(yè)。opBuy.ModifylvBuy,g_Account'由于同時(shí)更新了庫(kù)存，需要重新加載商品列表opMerch.FillListViewlvMerch,GetID(tvTreeView.SelectedItem.Key)MsgBox"操作成功，同時(shí)庫(kù)存量自動(dòng)更新，請(qǐng)切換到【商品管理】查看核實(shí)庫(kù)存變化。",vbInformationEndSub'==============================================='銷售管理'===============================================PrivateSubmnuSell_Click()'切換選項(xiàng)卡sstabView.Tab=2EndSubPrivateSubmnuSellAdd_Click()opSell.AddlvSell,g_Account'由于同時(shí)更新了庫(kù)存，需要重新加載商品列表opMerch.FillListViewlvMerch,GetID(tvTreeView.SelectedItem.Key)課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第36頁(yè)。MsgBox"操作成功，同時(shí)庫(kù)存量自動(dòng)更新，請(qǐng)切換到【商品管理】查看核實(shí)庫(kù)存變化。",vbInformation課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第36頁(yè)。EndSubPrivateSubmnuSellDel_Click()opSell.DeletelvSell'由于同時(shí)更新了庫(kù)存，需要重新加載商品列表opMerch.FillListViewlvMerch,GetID(tvTreeView.SelectedItem.Key)MsgBox"操作成功，同時(shí)庫(kù)存量自動(dòng)更新，請(qǐng)切換到【商品管理】查看核實(shí)庫(kù)存變化。",vbInformationEndSubPrivateSubmnuSellModify_Click()opSell.ModifylvSell,g_Account'由于同時(shí)更新了庫(kù)存，需要重新加載商品列表opMerch.FillListViewlvMerch,GetID(tvTreeView.SelectedItem.Key)MsgBox"操作成功，同時(shí)庫(kù)存量自動(dòng)更新，請(qǐng)切換到【商品管理】查看核實(shí)庫(kù)存變化。",vbInformationEndSub課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第37頁(yè)。'===============================================課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第37頁(yè)。'報(bào)損管理'===============================================PrivateSubmnuDispose_Click()'切換選項(xiàng)卡sstabView.Tab=3EndSubPrivateSubmnuDisposeAdd_Click()opDispose.AddlvDispose,g_Account'由于同時(shí)更新了庫(kù)存，需要重新加載商品列表opMerch.FillListViewlvMerch,GetID(tvTreeView.SelectedItem.Key)MsgBox"操作成功，同時(shí)庫(kù)存量自動(dòng)更新，請(qǐng)切換到【商品管理】查看核實(shí)庫(kù)存變化。",vbInformationEndSubPrivateSubmnuDisposeDel_Click()opDispose.DeletelvDispose'由于同時(shí)更新了庫(kù)存，需要重新加載商品列表opMerch.FillListViewlvMerch,GetID(tvTreeView.SelectedItem.Key)課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第38頁(yè)。MsgBox"操作成功，同時(shí)庫(kù)存量自動(dòng)更新，請(qǐng)切換到【商品管理】查看核實(shí)庫(kù)存變化。",vbInformation課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第38頁(yè)。EndSubPrivateSubmnuDisposeModify_Click()opDispose.ModifylvDispose,g_Account'由于同時(shí)更新了庫(kù)存，需要重新加載商品列表opMerch.FillListViewlvMerch,GetID(tvTreeView.SelectedItem.Key)MsgBox"操作成功，同時(shí)庫(kù)存量自動(dòng)更新，請(qǐng)切換到【商品管理】查看核實(shí)庫(kù)存變化。",vbInformationEndSub'==============================================='供應(yīng)商操作'===============================================PrivateSubmnuProvider_Click()'切換選項(xiàng)卡sstabView.Tab=4EndSubPrivateSubmnuProviderAdd_Click()opProvider.AddlvProviderEndSub課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第39頁(yè)。PrivateSubmnuProviderDel_Click()課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第39頁(yè)。opProvider.DeletelvProviderEndSubPrivateSubmnuProviderModify_Click()opProvider.ModifylvProviderEndSubPrivateSubtbToolBar_ButtonMenuClick(ByValButtonMenuAsMSComctlLib.ButtonMenu)SelectCaseButtonMenu.KeyCase"tbnAddClientType"'mnuAddClientType_ClickCase"tbnModifyClientType"'mnuModifyClientType_ClickCase"tbnDelClientType"'mnuDelClientType_ClickCase"大圖標(biāo)"lvMerch.View=lvwIconCase"小圖標(biāo)"lvMerch.View=lvwSmallIconCase"列表"lvMerch.View=lvwList課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第40頁(yè)。Case"詳細(xì)資料"課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第40頁(yè)。lvMerch.View=lvwReportEndSelectEndSubPrivateSubtvTreeView_NodeClick(ByValNodeAsMSComctlLib.Node)opMerch.FillListViewlvMerch,GetID(Node.Key)opBuy.FillListViewlvBuy,GetID(Node.Key)opSell.FillListViewlvSell,GetID(Node.Key)opDispose.FillListViewlvDispose,GetID(Node.Key)EndSub3、主要的控件及其基本屬性命令按鈕類的控件：Caption屬性：用來(lái)顯示在控件上的標(biāo)題。Enable屬性：控制控件的激活狀態(tài)灰色或可用。Appearance屬性：值為1時(shí),則以3D效果顯示該控件,0則不然。Backcolor屬性：用來(lái)改變?cè)诎粹o上顯示圖像的背景色。Cancel屬性：該屬性決定按鈕是否為一個(gè)”取消”按鈕。課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第41頁(yè)。Default屬性:決定哪一個(gè)命令按鈕控件是窗體的缺省命令按鈕.課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第41頁(yè)。Font屬性:控制各種文字字體類型.Left,top,height,width屬性:設(shè)定控件的位置與大小.Style,picture屬性:決定按鈕的顯示方式是否為圖像形式出現(xiàn).Visible屬性:確定控件運(yùn)行時(shí)是否為可見(jiàn).Index屬性:當(dāng)控件為一控件數(shù)組時(shí),此屬性值為該控件在數(shù)組的下標(biāo)值.DownPicture屬性：設(shè)置/返回一個(gè)對(duì)圖片的引用，該圖片在按鈕被單擊處于壓下?tīng)顟B(tài)時(shí)顯示。DisabledPicture屬性：設(shè)置/返回一個(gè)對(duì)圖片的引用，該圖片在控件無(wú)效時(shí)顯示在控件中。MaskColor屬性：設(shè)置/返回一個(gè)在按鈕的圖片中作為“掩碼“的的顏色Picture屬性：設(shè)置返回commandButton控件中要顯示的圖片。命令按鈕類的事件：?jiǎn)螕羰录D―Click事件（1）觸發(fā)與適用此事件是在一個(gè)命令按鈕對(duì)象上按下然后釋放一個(gè)鼠標(biāo)按鈕時(shí)發(fā)生。命令按鈕的Click事件僅對(duì)當(dāng)單擊鼠標(biāo)時(shí)發(fā)生。（2）事件處理過(guò)程課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第42頁(yè)。按鈕單擊事件的處理過(guò)程為：課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第42頁(yè)。PrivateSubobject-Click（IndexAsInteger）其中Object為引發(fā)該事件的對(duì)象名稱。如果是命令按鈕的控件是數(shù)組，則需要使用Index參數(shù)標(biāo)識(shí)該控件。五、測(cè)試與分析1、測(cè)試環(huán)境 本次測(cè)試是在個(gè)人電腦中完成的。測(cè)試所在硬件環(huán)境：中央處理器奔騰Duanl-core處理器內(nèi)存：4GB硬盤：320G光驅(qū)：DVD-ROM52X顯示器：彩色真彩32分辨率1024×768標(biāo)準(zhǔn)鍵盤、標(biāo)準(zhǔn)光電鼠標(biāo)打印機(jī)：HPLaserJet5100PCL6測(cè)試所在軟件環(huán)境：WindowsXPProfessionalSP3Microsoftoffice20032、測(cè)試方法課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第43頁(yè)。測(cè)試是一個(gè)為了尋找錯(cuò)誤而運(yùn)行程序的過(guò)程，一個(gè)好的測(cè)試用例是只可能找到迄今為止尚未發(fā)現(xiàn)錯(cuò)誤的用例，一個(gè)成功的測(cè)試是揭示了迄今為止尚未發(fā)現(xiàn)的錯(cuò)誤的測(cè)試。課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第43頁(yè)。軟件測(cè)試基本可分為白盒測(cè)試和黑盒測(cè)試。兩種測(cè)試方法從不同的角度出發(fā)，反映了軟件的不同側(cè)面，也適用于不同的開(kāi)發(fā)環(huán)境。白盒測(cè)試又稱結(jié)構(gòu)測(cè)試、邏輯驅(qū)動(dòng)測(cè)試或基于程序本身的測(cè)試，也可稱為測(cè)試員測(cè)試，主要應(yīng)用于結(jié)構(gòu)化開(kāi)發(fā)環(huán)境。黑盒測(cè)試又稱功能測(cè)試、數(shù)據(jù)驅(qū)動(dòng)測(cè)試或基于規(guī)格的測(cè)試，也可被稱為用戶測(cè)試，主要用于快速應(yīng)用開(kāi)發(fā)（RAD）環(huán)境。本例所用的是黑盒測(cè)試。在測(cè)試時(shí)，把程序看作一個(gè)不能打開(kāi)的黑盆子，在完全不考慮程序內(nèi)部結(jié)構(gòu)和內(nèi)部特性的情況下，測(cè)試者在程序接口進(jìn)行測(cè)試，它只檢查程序功能是否按照需求規(guī)格說(shuō)明書的規(guī)定正常使用，程序是否能適當(dāng)?shù)亟邮蛰斎霐?shù)鋸而產(chǎn)生正確的輸出信息，并且保持外部信息（如數(shù)據(jù)庫(kù)或文件）的完整性。黑盒測(cè)試方法主要有等價(jià)類劃分、邊值分析、因—果圖、錯(cuò)誤推測(cè)等，主要用于軟件確認(rèn)測(cè)試?！昂诤小狈ㄖ塾诔绦蛲獠拷Y(jié)構(gòu)、不考慮內(nèi)部邏輯結(jié)構(gòu)、針對(duì)軟件界面和軟件功能進(jìn)行測(cè)試?！昂诤小狈ㄊ歉F舉輸入測(cè)試，只有把所有可能的輸入都作為測(cè)試情況使用，才能以這種方法查出程序中所有的錯(cuò)誤。實(shí)際上測(cè)試情況有無(wú)窮多個(gè)，人們不僅要測(cè)試所有合法的輸入，而且還要對(duì)那些不合法但是可能的輸入進(jìn)行測(cè)試。課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第44頁(yè)。課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第44頁(yè)。課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第45頁(yè)。3、課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第45頁(yè)。序號(hào)測(cè)試項(xiàng)目?jī)?nèi)容和目的測(cè)試結(jié)果1用戶登錄輸入正確帳號(hào)密碼可以登錄輸入錯(cuò)誤帳號(hào)密碼用戶名不正確時(shí)顯示“查無(wú)此人”；2用戶管理添加、刪除、修改用戶，并用新添加的用戶登錄。操作順利，新添加用戶可以登錄。3配置管理添加修改、刪除部門名稱及崗位名稱操作順利，結(jié)果可以正常保存置數(shù)據(jù)庫(kù)。4數(shù)據(jù)備份備份現(xiàn)有數(shù)據(jù)庫(kù)數(shù)據(jù)庫(kù)可以按照制定路徑備份并保存。5數(shù)據(jù)恢復(fù)恢復(fù)已備份數(shù)據(jù)庫(kù)恢復(fù)結(jié)果與原數(shù)據(jù)庫(kù)相符。6系統(tǒng)初始化進(jìn)行初始化操作初始化后數(shù)據(jù)為原是數(shù)據(jù)，且初始化后系統(tǒng)可正常運(yùn)行。7增加商品按照提示輸入正確字段增加新商品增加成功。增加時(shí)輸入錯(cuò)誤字段系統(tǒng)提示輸入錯(cuò)誤，并重新輸入。8修改產(chǎn)品信息對(duì)所選產(chǎn)品信息進(jìn)行修改可以修改并能提交保存9刪除產(chǎn)品信息刪除指定信息產(chǎn)出成功并能提交保存10查詢產(chǎn)品信息單條件查詢，觀察查詢結(jié)果結(jié)果正確，并可以打印到處組合條件查詢，觀察查詢結(jié)果結(jié)果正確，并可以打印到處11檔案打印查看打印結(jié)果正常12產(chǎn)品銷售隨意選擇一種商品進(jìn)行出售操作出售結(jié)果與實(shí)際相符13查詢價(jià)格信息單條件查詢，觀察查詢結(jié)果結(jié)果正確，并可以打印到處組合條件查詢，觀察查詢結(jié)果結(jié)果正確，并可以打印到處14小票信息打印查看打印結(jié)果正常15增加產(chǎn)品信息按照提示輸入正確字段增加產(chǎn)品訓(xùn)信息增加成功。增加時(shí)輸入錯(cuò)誤字段系統(tǒng)提示輸入錯(cuò)誤，并重新輸入。課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第46頁(yè)。16課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第46頁(yè)。修改產(chǎn)品信息對(duì)所選產(chǎn)品信息進(jìn)行修改可以修改并能提交保存17刪除產(chǎn)品信息刪除指定信息產(chǎn)出成功并能提交保存18查詢產(chǎn)品信息單條件查詢，觀察查詢結(jié)果結(jié)果正確，并可以打印到處組合條件查詢，觀察查詢結(jié)果結(jié)果正確，并可以打印到處19銷售歷史打印查看打印結(jié)果正常20退出系統(tǒng)進(jìn)行推出系統(tǒng)操作正常退出六、設(shè)計(jì)總結(jié)我首先感謝我的指導(dǎo)老師劉默玲老師，在他嚴(yán)格的要求下我懂得了開(kāi)發(fā)軟件要有一種極其認(rèn)真負(fù)責(zé)的態(tài)度。無(wú)論做什么事都要大膽的去想去做，這樣會(huì)有好的創(chuàng)意，才能更有作為。在這里我還要感謝我的其他同學(xué)。他們和我共同生活了三年，在生活和學(xué)習(xí)上給了我很大的幫助。課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第47頁(yè)。本軟件的設(shè)計(jì)目的是為超市管理人員提高效率提供方便和幫助。通過(guò)這幾個(gè)月的畢業(yè)設(shè)計(jì)，我學(xué)到很多以前沒(méi)有學(xué)到的visualbasic開(kāi)發(fā)技術(shù)，在軟件工程學(xué)上更是取得了很大的進(jìn)步。經(jīng)過(guò)大量的測(cè)試和試用，作者深信本軟件達(dá)到了方便和實(shí)用的設(shè)計(jì)目的，并在軟件界面和易用實(shí)用等方面有著獨(dú)到之處。課程設(shè)計(jì)超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)全文共51頁(yè)，當(dāng)前為第47頁(yè)。雖然軟件基本達(dá)到設(shè)計(jì)要