超市進(jìn)銷售管理系統(tǒng)

1、西安財(cái)經(jīng)學(xué)院實(shí)踐教學(xué)活動(dòng)周登記表姓 名： 信彥君 學(xué) 號(hào)： 0905170106 專 業(yè)： 計(jì)算機(jī)科學(xué)與技術(shù) 院 系： 信息學(xué)院 本校指導(dǎo)教師： 實(shí)踐單位指導(dǎo)教師： 西安財(cái)經(jīng)學(xué)院教務(wù)處 制實(shí)踐教學(xué)開展時(shí)間2012年 7 月 9 日 2012 年 7 月 20 日 實(shí)踐形式（在選項(xiàng)后打）集中分散 實(shí)踐單位實(shí)踐地點(diǎn)本校指導(dǎo)教師許文麗職稱講師二級(jí)學(xué)院、系信息學(xué)計(jì)算機(jī)科學(xué)與技術(shù)實(shí)習(xí)單位指導(dǎo)教師職稱職務(wù)所在單位實(shí)踐內(nèi)容及收獲本次實(shí)踐我與同組成員共同設(shè)計(jì)了超市進(jìn)銷存管理系統(tǒng)，本系統(tǒng)采用VB.6.0平臺(tái)和大型數(shù)據(jù)庫Access進(jìn)行開發(fā)，主要是處理商業(yè)企業(yè)商品的采購、庫存和銷售各個(gè)環(huán)節(jié)的活動(dòng)，使用ADO.NE

2、T訪問數(shù)據(jù)庫。我查閱了軟件工程、系統(tǒng)設(shè)計(jì)方面的書籍，了解了系統(tǒng)建設(shè)的基本流程、總體布局設(shè)計(jì)以及系統(tǒng)開發(fā)前所需的一些準(zhǔn)備工作，特別是系統(tǒng)需求分析的重要性。這次設(shè)計(jì)中雖然中間碰到了許多困難，許多功能還不夠完善，但我從中學(xué)到了許多以前書本上所不能學(xué)到的也不曾碰到過的問題，通過不斷的閱讀相關(guān)書籍，開發(fā)水平有了明顯提高，對(duì)系統(tǒng)的設(shè)計(jì)有了新的認(rèn)識(shí)。通過這次設(shè)計(jì)，我已基本上掌握了系統(tǒng)的設(shè)計(jì)流程，同時(shí)也掌握了一些相關(guān)技術(shù)，增強(qiáng)了動(dòng)手能力，并積累了使用軟件工程的思想來開發(fā)軟件的經(jīng)驗(yàn)，這對(duì)于我今后的工作和學(xué)習(xí)是非常有益的。實(shí)踐單位意見單位蓋章：年 月 日成績?cè)u(píng)定（綜合評(píng)語） 成績： 指導(dǎo)教師簽字： 、 年 月 日

3、系意見簽字（蓋章）： 年 月 日二級(jí)學(xué)院意見簽字（蓋章）： 年 月 日本科生實(shí)踐教學(xué)活動(dòng)周實(shí)踐教學(xué)成果成果形式： 實(shí)踐報(bào)告+系統(tǒng) 成果名稱： 進(jìn)銷存管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 學(xué)生姓名： 信彥君 學(xué) 號(hào)： 0905170106 專 業(yè)： 計(jì)算機(jī)科學(xué)與技術(shù) 班 級(jí)： 0901班 指導(dǎo)教師： 許文麗 完成時(shí)間： 2012 年 7 月 22 日計(jì)算機(jī)專業(yè)本科實(shí)踐教學(xué) 進(jìn)銷存管理系統(tǒng)的應(yīng)用與實(shí)現(xiàn)目 錄一、緒論2（一）研究背景2（二）進(jìn)銷存系統(tǒng)的現(xiàn)狀2（三）進(jìn)銷存系統(tǒng)的研究意義2二、進(jìn)銷存管理系統(tǒng)的分析4（一）需求分析4（二）可行性分析4（三）開發(fā)平臺(tái)與工具的選擇41.Visual Basic簡介52. Ac

4、cess簡介53. AOD.NET簡介5三 進(jìn)銷存管理系統(tǒng)的實(shí)現(xiàn)與測試7（一）系統(tǒng)設(shè)計(jì)目標(biāo)7（二）系統(tǒng)功能模塊劃分7（三）系統(tǒng)結(jié)構(gòu)圖8四、詳細(xì)設(shè)計(jì)9（一）開發(fā)及運(yùn)行環(huán)境9（二）文件夾組織結(jié)構(gòu)9（三）數(shù)據(jù)庫設(shè)計(jì)91.創(chuàng)建數(shù)據(jù)庫92.數(shù)據(jù)表設(shè)計(jì)10（四）程序開發(fā)121.程序運(yùn)行結(jié)果122.創(chuàng)建工程123.創(chuàng)建系統(tǒng)主窗體124.創(chuàng)建數(shù)據(jù)訪問模塊135.實(shí)現(xiàn)系統(tǒng)各功能模塊14五、設(shè)計(jì)總結(jié)22參 考 文 獻(xiàn)2324計(jì)算機(jī)專業(yè)本科實(shí)踐教學(xué) 進(jìn)銷存管理系統(tǒng)的應(yīng)用與實(shí)現(xiàn)一、緒論（一）研究背景隨著國家的政治經(jīng)濟(jì)政策的優(yōu)化改革，使得國內(nèi)中小企業(yè)得以蓬勃發(fā)展?？墒请S著企業(yè)的發(fā)展，客戶數(shù)量的的為斷增多，財(cái)務(wù)工作繁雜化

5、，庫存產(chǎn)品零亂等一系列問題也接踵而至，給企業(yè)經(jīng)營者運(yùn)作帶來了很大的困擾。信息技術(shù)的迅猛發(fā)展，科學(xué)經(jīng)營管理觀念的迅速傳播，使中小企業(yè)經(jīng)營者逐漸認(rèn)識(shí)到轉(zhuǎn)變企業(yè)經(jīng)營管理理念，改善企業(yè)經(jīng)營管理模式是企業(yè)適應(yīng)時(shí)代的發(fā)展急需解決的問題?，F(xiàn)代管理，應(yīng)該建立在真實(shí)、有效的數(shù)據(jù)信息基礎(chǔ)之上，應(yīng)該是一種科學(xué)的、理性的管理體制，而這種管理與經(jīng)營的聯(lián)系與互助，又必須依賴于計(jì)算機(jī)的強(qiáng)大的數(shù)據(jù)統(tǒng)計(jì)功能，計(jì)算機(jī)管理系統(tǒng)便是實(shí)際的企業(yè)進(jìn)銷問題與計(jì)算機(jī)強(qiáng)大數(shù)據(jù)統(tǒng)計(jì)功能相結(jié)合的產(chǎn)物。管理系統(tǒng)解決的了商業(yè)企業(yè)商品的進(jìn)、銷、存、退、換、盤、損、殘、調(diào)、借、贈(zèng)等一系列操作流程中的數(shù)據(jù)信息的處理問題，提供一系列的數(shù)據(jù)分析，幫助經(jīng)營者合理

6、的調(diào)整各個(gè)經(jīng)營運(yùn)作環(huán)節(jié)的運(yùn)作節(jié)奏，并對(duì)商品流轉(zhuǎn)過程進(jìn)行了全程跟蹤管理、相應(yīng)款項(xiàng)流通的全程記錄管理和票據(jù)信息統(tǒng)計(jì)的管理。因此進(jìn)銷存管理系統(tǒng)的全面應(yīng)用，規(guī)范業(yè)務(wù)流程、提高了企業(yè)的管理水平，提高資金流動(dòng)的透明度，加快商品資金周轉(zhuǎn)速度，進(jìn)而全面提高了企業(yè)的經(jīng)營水平、進(jìn)而全面提升了企業(yè)的經(jīng)濟(jì)效益。（二） 進(jìn)銷存系統(tǒng)的現(xiàn)狀當(dāng)今，企業(yè)管理在很多方面、很大程度上都必須借助信息化的工具來完成，采用電腦管理進(jìn)貨、庫存和銷售等諸多環(huán)節(jié)也已成為必然趨勢。在現(xiàn)代企業(yè)的物流管理中，一個(gè)良好的進(jìn)銷存管理系統(tǒng)不僅能大大降低企業(yè)由于生產(chǎn)經(jīng)營管理不善而產(chǎn)生的過多的成本，提高企業(yè)的辦事效率，降低企業(yè)在物流管理中不必要的人力物流財(cái)力

7、損失，而且能使企業(yè)的運(yùn)行機(jī)制更加規(guī)范合理，使企業(yè)在節(jié)省自身成本提高競爭優(yōu)勢的同時(shí)，樹立好企業(yè)形象，形成帶頭優(yōu)勢，從而帶動(dòng)整個(gè)行業(yè)的高效發(fā)展及社會(huì)經(jīng)濟(jì)效率的整體素質(zhì)的提高。（三）進(jìn)銷存系統(tǒng)的研究意義企業(yè)經(jīng)營如逆水行舟不進(jìn)則退。每一個(gè)努力發(fā)展的企業(yè)都明白，先進(jìn)管理的重要作用，引進(jìn)先進(jìn)管理系統(tǒng)使企業(yè)經(jīng)營變得規(guī)范、合理。進(jìn)銷存管理系統(tǒng)無論是在功能設(shè)計(jì)還是業(yè)務(wù)流程上都盡可能做到滿足經(jīng)營管理運(yùn)作流程的需求，并且操作方便、功能強(qiáng)大，即使操作者對(duì)計(jì)算機(jī)知識(shí)一竅不通也能一用就會(huì)。它強(qiáng)化庫存管理，規(guī)范業(yè)務(wù)流程，提高資金管理的透明度，加快商品資金周轉(zhuǎn)，是企業(yè)經(jīng)營管理中數(shù)據(jù)分析中必不可少的管理工具。本系統(tǒng)的開發(fā)適用于

8、多個(gè)行業(yè)，可以幫助企業(yè)快速有效管理進(jìn)貨、銷售、庫存等各項(xiàng)業(yè)務(wù)，合理控制進(jìn)銷存各個(gè)環(huán)節(jié)，提高資金利用率，實(shí)現(xiàn)管理高效率和實(shí)時(shí)性。二、進(jìn)銷存管理系統(tǒng)的分析進(jìn)銷存管理是企業(yè)日常經(jīng)營管理中十分重要的一個(gè)組成部分，傳統(tǒng)的手工管理方式呈現(xiàn)出越來越多的弊端。在手工管理模式下，統(tǒng)計(jì)，匯總處理時(shí)的工作量極其繁重，處理效率非常低，領(lǐng)導(dǎo)也無法及時(shí)了解企業(yè)資金占用的實(shí)際狀況。通過報(bào)表管理，企業(yè)可以直觀分析企業(yè)的進(jìn)銷存情況，提高企業(yè)的競爭能力。 （一）需求分析該系統(tǒng)的設(shè)計(jì)應(yīng)具備以下功能：1.系統(tǒng)具有良好的人機(jī)界面，易學(xué)好懂、簡捷實(shí)用。2.規(guī)范、完善的基礎(chǔ)信息設(shè)置，提供快速、準(zhǔn)確的處理進(jìn)、銷、存、盤點(diǎn)等業(yè)務(wù)模式，能夠?qū)崿F(xiàn)

9、商品入庫、入庫、商品銷售、銷售退貨、庫存管理（調(diào)貨、盤點(diǎn)）報(bào)損管理，供貨商管理，銷售分析等操作。3.操作簡單易行，查詢靈活方便，支持多條件查詢，數(shù)據(jù)存儲(chǔ)安全可靠。4.支持多人操作，要求有權(quán)限分配功能。在相應(yīng)的權(quán)限下，刪除數(shù)據(jù)方便簡單、數(shù)據(jù)穩(wěn)定性強(qiáng)。5.系統(tǒng)維護(hù)方便可靠，有較高的安全性，滿足實(shí)用性、先進(jìn)性的要求。（二）可行性分析隨著經(jīng)濟(jì)的全球化以及中國經(jīng)濟(jì)改革的逐漸深化，中小企業(yè)面臨著越來越激烈的競爭，改善企業(yè)內(nèi)部以及整個(gè)供應(yīng)鏈各個(gè)環(huán)節(jié)的管理、調(diào)度及資源配置，迅速適應(yīng)客戶的新需求和市場新機(jī)遇的能力，是企業(yè)贏得競爭勝利的決定性因素，進(jìn)銷存管理系統(tǒng)的開發(fā)是提高企業(yè)競爭力的最有效的方法之一。進(jìn)銷存管理

10、系統(tǒng)的開發(fā)實(shí)現(xiàn)了從進(jìn)貨、庫存、到銷售的一體化管理。提高了管理水平和工作效率，最大限度減少了手工操作帶來的錯(cuò)誤。（三）開發(fā)平臺(tái)與工具的選擇本系統(tǒng)后臺(tái)數(shù)據(jù)庫采用Microsoft Office Access，該數(shù)據(jù)庫系統(tǒng)在安全性、準(zhǔn)確性、運(yùn)行速度方面有絕對(duì)的優(yōu)勢，并且處理數(shù)據(jù)量大、效率高；以VB作為開發(fā)語言，采用Visual Basic 6.0中文版作為開發(fā)工具，采用ADO.NET對(duì)數(shù)據(jù)庫進(jìn)行訪問，同時(shí)建立ODBC數(shù)據(jù)庫接口,可與Access數(shù)據(jù)庫無縫連接。1.Visual Basic簡介微軟公司的Visual Basic是一套完整Windows系統(tǒng)軟件開發(fā)工具，用于開發(fā)Windows環(huán)境下的各類

11、應(yīng)用程序，是一種可視化、真正面向?qū)ο?、采用事件?qū)動(dòng)方式的結(jié)構(gòu)化高級(jí)程序設(shè)計(jì)語言和工具的完美集成。它編程簡單、方便、功能強(qiáng)大，具有與其它語言的良好接口。Visual Basic在數(shù)據(jù)庫開發(fā)方面比其他語言也有優(yōu)勢，特別是6.0版本較以前的有相當(dāng)大的變化，從數(shù)據(jù)源維護(hù)、數(shù)據(jù)訪問等都有良好的表現(xiàn)，配合后臺(tái)服務(wù)器更能顯示界面的獨(dú)到之處。2. Access簡介Microsoft Access是一種關(guān)系式數(shù)據(jù)庫，關(guān)系式數(shù)據(jù)庫由一系列表組成，表又由一系列行和列組成，每一行是一個(gè)記錄，每一列是一個(gè)字段，每個(gè)字段有一個(gè)字段名，字段名在一個(gè)表中不能重復(fù)。Access數(shù)據(jù)庫以文件形式保存，文件的擴(kuò)展名是MDB。Acc

12、ess 數(shù)據(jù)庫由七種對(duì)象組成，它們是表、查詢、窗體、報(bào)表、宏、頁和模塊。表(Table) 表是數(shù)據(jù)庫的基本對(duì)象，是創(chuàng)建其他5種對(duì)象的基礎(chǔ)。表由記錄組成，記錄由字段組成，表用來存貯數(shù)據(jù)庫的數(shù)據(jù)，故又稱數(shù)據(jù)表。查詢(Query)查詢可以按索引快速查找到需要的記錄，按要求篩選記錄并能連接若干個(gè)表的字段組成新表。窗體(Form)窗體提供了一種方便的瀏覽、輸入及更改數(shù)據(jù)的窗口。還可以創(chuàng)建子窗體顯示相關(guān)聯(lián)的表的內(nèi)容。窗體也稱表單。報(bào)表(Report)報(bào)表的功能是將數(shù)據(jù)庫中的數(shù)據(jù)分類匯總，然后打印出來，以便分析。宏(Macro)宏相當(dāng)于DOS中的批處理，用來自動(dòng)執(zhí)行一系列操作。Access列出了一些常用的操

13、作供用戶選擇，使用起來十分方便。模塊(Module)模塊的功能與宏類似，但它定義的操作比宏更精細(xì)和復(fù)雜，用戶可以根據(jù)自己的需要編寫程序。模塊使用Visual Basic編程。頁是一種特殊的直接連接到數(shù)據(jù)庫中數(shù)據(jù)的一種WEB頁。通過數(shù)據(jù)訪問頁將數(shù)據(jù)發(fā)布到Internet 或Intranet上，并可以適用瀏覽器進(jìn)行數(shù)據(jù)的維護(hù)和操作。3. AOD.NET簡介ADO.NET是.NET Framework的重要組成部分，ADO.NET中包含用于連接至數(shù)據(jù)源、提交查詢以及處理結(jié)果的類，利用ADO.NET中最主要的非連接對(duì)象DataSet(數(shù)據(jù)集)能以脫機(jī)方式處理數(shù)據(jù)，可以對(duì)數(shù)據(jù)進(jìn)行排序、搜索、篩選等操作。

14、使用ADO.NET可以對(duì)多種數(shù)據(jù)源中的數(shù)據(jù)進(jìn)行有效處理，從而輕松地在.NET Framework中創(chuàng)建出分布式、數(shù)據(jù)共享的應(yīng)用程序。下面簡單介紹下.NET Framework數(shù)據(jù)訪問對(duì)象.NET的數(shù)據(jù)訪問對(duì)象主要包括四個(gè)對(duì)象：Connection、Command、DataReader和DataAdapter。針對(duì)不同的數(shù)據(jù)源提供了不同的對(duì)象與之對(duì)應(yīng)。Connection對(duì)象提供與數(shù)據(jù)源的連接；Command對(duì)象用于執(zhí)行SQL命令，主要包括檢索數(shù)據(jù)、修改數(shù)據(jù)以及運(yùn)行存儲(chǔ)過程等命令語句；DataReader對(duì)象從數(shù)據(jù)源中提供一個(gè)只讀的、前向的高性能數(shù)據(jù)流；DataAdapter對(duì)象在DataSet

15、對(duì)象和數(shù)據(jù)源之間，起到了橋梁的作用，可以用來填充數(shù)據(jù)集，并可將修改結(jié)果更新回?cái)?shù)據(jù)庫。三 進(jìn)銷存管理系統(tǒng)的實(shí)現(xiàn)與測試（一）系統(tǒng)設(shè)計(jì)目標(biāo)該系統(tǒng)的制作目標(biāo)如下：1.具有完善、美觀的網(wǎng)站界面，以便用戶可以高效的使用。2.操作簡單方便，系統(tǒng)信息齊全并分類清晰明確。3.數(shù)據(jù)信息完善，存儲(chǔ)安全、可靠。4.提供靈活、方便的權(quán)限設(shè)置功能，使整個(gè)系統(tǒng)的管理分工明確。5.強(qiáng)大的查詢功能，為管理員保證數(shù)據(jù)查詢的靈活性。6.網(wǎng)站維護(hù)有較強(qiáng)的可靠性與安全性，并滿足實(shí)用性、先進(jìn)性的要求。（二）系統(tǒng)功能模塊劃分該進(jìn)銷存管理系統(tǒng)主要由商品類型管理、商品管理、銷售管理、庫存管理、報(bào)損管理、供貨商管理、系統(tǒng)管理等模塊以及樹形列表組

16、成，具體劃分如下：商品類型管理模塊：用來添加超市所增加的商品類型，以便于更好的管理，其由添加，修改，刪除三個(gè)選項(xiàng)構(gòu)成，每一選項(xiàng)中有類型名和說明構(gòu)成。修改商品類型的時(shí)候需在樹形列表中選擇所需修改的商品類型，刪除時(shí)則會(huì)彈出對(duì)話框。商品管理模塊：用來記錄商品的具體信息，在這一模塊中同樣有增刪改三個(gè)選項(xiàng)，在增刪改操作時(shí)，都需要在樹形列表中選擇商品類型，在添加單中有商品名，商品類型，庫存量，商品介紹以及備注各選項(xiàng)銷售管理模塊：用于記錄超市的銷售情況，以便于更好的使超市運(yùn)轉(zhuǎn)。這一模塊中同樣有增刪改三個(gè)選項(xiàng)來及時(shí)的更新數(shù)據(jù)存儲(chǔ)。庫存管理模塊：用于管理超市的庫存信息?！皫齑娌樵儭庇糜诓樵兂猩唐返膸齑媲闆r。報(bào)

17、損管理模塊：該模塊就是用于及時(shí)的更新記錄超市的商品存儲(chǔ)情況對(duì)商品的影響。同樣具有增刪改三個(gè)選項(xiàng)。系統(tǒng)管理模塊：該模塊最重要的就是操作員的權(quán)限管理，即用戶管理，在用戶管理中可以增刪改操作員的權(quán)限信息。樹形列表：該列表可以使商品的基本情況一目了然，在列表中列出了超市所有的商品類型，而其所在類型下的商品則會(huì)顯示在右邊的視圖中，便于統(tǒng)計(jì)商品。（三）系統(tǒng)結(jié)構(gòu)圖登陸界面主界面商 品 類 型 管 理商 品 管 理進(jìn) 貨 管 理銷 售 管 理報(bào) 損 管 理供 貨 商 管 理銷 售 分 析幫 助系 統(tǒng) 圖2-1系統(tǒng)功能結(jié)構(gòu)圖四、詳細(xì)設(shè)計(jì)（一）開發(fā)及運(yùn)行環(huán)境系統(tǒng)開發(fā)平臺(tái)：Microsoft Visual Basi

18、c 6.0系統(tǒng)開發(fā)語言：VB數(shù)據(jù)庫管理系統(tǒng)軟件：Microsoft Office Access 2003（二）文件夾組織結(jié)構(gòu)在進(jìn)行系統(tǒng)開發(fā)之前，需要規(guī)劃文件夾組織結(jié)構(gòu)，也就是說，建立多個(gè)文件夾，對(duì)各個(gè)功能模塊進(jìn)行劃分，實(shí)現(xiàn)統(tǒng)一管理。這樣做的好處在于：易于開發(fā)、管理和維護(hù)。本系統(tǒng)的文件夾組織結(jié)構(gòu)如圖4-1所示。圖4-1文件夾組織結(jié)構(gòu)圖（三）數(shù)據(jù)庫設(shè)計(jì)1.創(chuàng)建數(shù)據(jù)庫創(chuàng)建數(shù)據(jù)庫打開Access企業(yè)管理器，新建一個(gè)數(shù)據(jù)庫，將其命名為超市進(jìn)銷存系統(tǒng)。然后點(diǎn)擊使用設(shè)計(jì)器創(chuàng)建表來建自己所需的數(shù)據(jù)表。如表4-1。表4-1數(shù)據(jù)表用途表數(shù)據(jù)表名稱數(shù)據(jù)表用途用戶表保存系統(tǒng)使用者的信息商品類型表保存系統(tǒng)所存儲(chǔ)的所有商

19、品類型商品表保存超市經(jīng)營商品的資料信息供貨商表保存超市供貨商的資料信息進(jìn)貨表保存超市所購入商品的資料信息銷售表保存超市銷售商品的資料信息報(bào)損表保存超市商品報(bào)損的資料信息2.數(shù)據(jù)表設(shè)計(jì) 用戶表： 圖4-2數(shù)據(jù)庫用戶表設(shè)計(jì)商品表： 圖4-3數(shù)據(jù)庫商品表設(shè)計(jì)商品類型表： 圖4-4數(shù)據(jù)庫商品類型表設(shè)計(jì)報(bào)損表： 圖4-5數(shù)據(jù)庫報(bào)損表設(shè)計(jì)銷售表： 圖4-6數(shù)據(jù)庫銷售表設(shè)計(jì)進(jìn)貨表：圖4-7數(shù)據(jù)庫進(jìn)貨表設(shè)計(jì)供貨商表： 圖4-8數(shù)據(jù)庫供貨商表設(shè)計(jì)（四）程序開發(fā)采用多文檔窗體程序，每一功能對(duì)應(yīng)一個(gè)子窗體。1.程序運(yùn)行結(jié)果如圖：圖4-9程序運(yùn)行結(jié)果截圖選擇主菜單中的各菜單項(xiàng)即可進(jìn)入相應(yīng)的功能，例如可以選擇【進(jìn)貨管理

20、】|【登記進(jìn)貨信息】菜單命令，在其中輸入進(jìn)貨的商品、數(shù)量、價(jià)格等信息，保存后單擊【確定】按鈕，商品庫存就會(huì)增加。2.創(chuàng)建工程啟動(dòng)Microsoft Visual Basic 6.0,在主菜單中選擇【文件】|【新建工程】命令，選擇【標(biāo)準(zhǔn)EXE】建立新的工程，后在屬性的【名稱】中更名為超市進(jìn)銷存管理系統(tǒng)。3.創(chuàng)建系統(tǒng)主窗體(1)用系統(tǒng)默認(rèn)生成的主窗體作為主窗體，并將其對(duì)應(yīng)的文件更名為frmMain.frm,布局如圖：圖4-10程序主窗體截圖(2)在VB6.0的【工具】下拉菜單中，選擇【菜單編輯器】，開始編輯表結(jié)構(gòu)的菜單。4.創(chuàng)建數(shù)據(jù)訪問模塊各個(gè)窗體均需要對(duì)數(shù)據(jù)庫進(jìn)行訪問，故而建立了一個(gè)DB模塊，這

21、樣可以使對(duì)數(shù)據(jù)庫的訪問更加快捷簡單，主要代碼如下Option ExplicitPublic g_Conn As Connection Public g_DBPath As StringPublic Sub DBMain() g_DBPath = App.Path & DB超市進(jìn)銷存管理系統(tǒng).mdb If ConnectToDatabase(DBAccess) = False Then Err.Raise vbObjectError + 1, , 連接數(shù)據(jù)庫出錯(cuò)！ End IfEnd SubPublic Function NextID(ByVal strTable As String, ByVa

22、l strId As String) As Long Dim rs As Recordset Set rs = g_Conn.Execute(SELECT MAX( & strId & ) FROM & strTable) If IsNull(rs(0) Then NextID = 1 Else NextID = rs(0).Value + 1 End IfEnd Function5.實(shí)現(xiàn)系統(tǒng)各功能模塊實(shí)現(xiàn)商品信息登記模塊：利用可視化的方法建立數(shù)據(jù)庫的連接及對(duì)數(shù)據(jù)庫進(jìn)行操作以實(shí)現(xiàn)商品商品信息登記功能。（1）新建窗體，將其【名稱】改為“frmMerch”并在窗體上分別添加一個(gè)Frame控件，五個(gè)

23、Label控件，四個(gè)TextBox控件，兩個(gè)Button控件，兩個(gè)ComboBox控件。布局如圖所示：圖4-13商品信息模塊窗體截圖（2）各控件的屬性設(shè)置如表所示：表4-4各控件屬性表控件類型對(duì)象名屬性取值（說明）FramefraMerchCaption商品信息LabelLabel1Caption商品名LabelLabel2Caption商品介紹LabelLabel3Caption備注LabelLabel4Caption商品類型LabelLabel5Caption庫存量CommandButtonOKButtonCaption確定CommandButtonCancelButtonCaption取

24、消TextBoxtxtNameTextTextBoxtxtStorageTextTextBoxtxtIntroTextTextBoxtxtRemarkTextComboBoxcboTypeTextComboBoxcboUnitText （3）frmMerch窗體主要代碼如下：Option ExplicitPrivate OK As Boolean 確定用戶按了OK還是CANCEL按鈕Private m_obj As clsMerch 數(shù)據(jù)對(duì)象，用來存儲(chǔ)用戶輸入數(shù)據(jù)Public m_ViewType As gxcViewType 顯示狀態(tài)，指添加還是修改Private m_TypeId As L

25、ong 商品類型根據(jù)是“新增”還是修改，確定顯示內(nèi)容Private Sub SetStatus() 設(shè)置控件默認(rèn)值 Call SetDefaultValue 設(shè)置狀態(tài) Select Case m_ViewType Case vtadd 添加 CancelButton.Visible = True OKButton.Caption = 確定 Case vtModify 修改 CancelButton.Visible = True OKButton.Caption = 保存 End SelectEnd Sub打開對(duì)話框，并傳出用戶輸入數(shù)據(jù)Public Function ShowDlg(ByRef

26、obj As Object, _ ByVal eViewType As gxcViewType, _ Optional nTypeId As Long = -1) As Boolean 保存數(shù)據(jù) Set m_obj = obj 用戶輸入數(shù)據(jù)存放于此對(duì)象中 m_ViewType = eViewType 對(duì)話框狀態(tài) If nTypeId = -1 And (Not m_obj Is Nothing) Then m_TypeId = m_obj.TypeId Else m_TypeId = nTypeId End If 根據(jù)新增、編輯或查看設(shè)置顯示內(nèi)容SetStatus 顯示對(duì)話框 OK = Fal

27、se Me.Show vbModal If OK = False Then ShowDlg = False Exit Function End If 保存數(shù)據(jù) Set obj = m_obj 返回并釋放對(duì)話框 ShowDlg = True Unload MeEnd Function設(shè)置控件默認(rèn)值Private Sub SetDefaultValue() Dim ctl As Control Dim i As Integer 如果是新增，則清空所有文本框 此處判斷 m_obj為空與判斷m_ViewType = vtAdd等效，但更安全 If m_obj Is Nothing Then For E

28、ach ctl In Controls If TypeOf ctl Is TextBox Then ctl.Text = End If Next Else 用傳入對(duì)象的值更新數(shù)據(jù) With m_obj txtName.Text = .MerchName txtStorage.Text = .Storage cboUnit.ListIndex = 0 txtIntro.Text = .Introduce txtRemark.Text = .Remark For i = 0 To cboType.ListCount - 1 If cboType.ItemData(i) = m_TypeId The

29、n cboType.ListIndex = i 商品類型Id Exit For End If Next i End With End If End Sub檢查輸入有效性Private Function CheckValid() As Boolean If txtName.Text = _ Or txtIntro.Text = Then MsgBox 請(qǐng)?zhí)顚懲戤呉陨细黜?xiàng)內(nèi)容 CheckValid = False Exit Function End If If cboType.Text = Then MsgBox 請(qǐng)?zhí)顚懲戤呉陨细黜?xiàng)內(nèi)容 CheckValid = False Exit Functi

30、on End If If Not IsNumeric(txtStorage.Text) Then MsgBox 庫存量請(qǐng)輸入數(shù)字 Exit Function End If CheckValid = True End Function保存數(shù)據(jù)Private Sub SaveValue() 給“成員變量”對(duì)象賦值 With m_obj 注意以下利用RealString函數(shù)替換去除輸入中的單引號(hào) .MerchName = RealString(txtName.Text) .Remark = RealString(txtRemark.Text) .Storage = RealString(txtSto

31、rage.Text) .Introduce = RealString(txtIntro.Text) .TypeId = cboType.ItemData(cboType.ListIndex) 商品類型Id .TypeName = cboType.Text End WithEnd Sub取消按鈕Private Sub CancelButton_Click() Unload MeEnd SubPrivate Sub Form_Load() Dim opMType As New clsOpMType opMType.FillCombo cboTypeEnd SubPrivate Sub fraMer

32、ch_DragDrop(Source As Control, X As Single, Y As Single)End Sub確定按鈕Private Sub OKButton_Click() OK = True 檢測輸入有效性 If Not CheckValid Then Exit Sub 如果是新增狀態(tài)，則初始化一個(gè)數(shù)據(jù)對(duì)象 If m_ViewType = vtadd Then Set m_obj = New clsMerch 保存用戶輸入 SaveValue Me.HideEnd Sub到此完成了商品信息登記的功能模塊，運(yùn)行程序，可以看到結(jié)果如圖所示：圖4-14商品信息登記模塊操作效果圖實(shí)

33、現(xiàn)銷售信息登記功能 ：(1)新建一個(gè)窗體，Name屬性為“frmSell”并在窗體上分別添加一個(gè)Frame控件、一個(gè)DTPicker控件、六個(gè)Label控件、三個(gè)TextBox控件、兩個(gè)Button控件、兩個(gè)ComboBox控件。如圖所示：圖4-16添加控件后的窗體截圖(2)各控件的屬性設(shè)置如下表：表4-6各控件屬性設(shè)置控件類型對(duì)象名屬性取值（說明）FramefraSellCaption銷售信息ComboBoxcboMerchNameTextComboBoxcboUnitTextLabelLabel1Caption售出商品LabelLabel2Caption統(tǒng)計(jì)時(shí)間LabelLabel3Cap

34、tion售出數(shù)量Label LabelLabel4Caption售出單價(jià)TextBoxtxtCountTextTextBoxtxtPriceTextTextBoxtxtRemarkTextCommandButtonOKButtonCaption確定CommandButtonCancelButtonCaption取消DTPickerdtpRegDate自此銷售信息登記模塊已基本完成，運(yùn)行程序，結(jié)果如下圖所示：圖4-17運(yùn)行操作后的窗體截圖以上所展示的是整個(gè)程序的部分過程。五、設(shè)計(jì)總結(jié)在此次系統(tǒng)設(shè)計(jì)過程中，我首先了解了系統(tǒng)建設(shè)的基本流程、總體布局設(shè)計(jì)以及系統(tǒng)開發(fā)前所需的一些準(zhǔn)備工作，特別是系統(tǒng)需求分析的重要性，這樣做到了心中有數(shù)，先把網(wǎng)上管理系統(tǒng)需要的功能劃分成幾個(gè)大模塊，然后再思考進(jìn)行細(xì)分。腦子里逐步形成了系統(tǒng)的框架，開始進(jìn)行布局設(shè)計(jì)，經(jīng)過反復(fù)的修改才讓自己滿意，以為自己的這次設(shè)計(jì)開始順利起來時(shí)，在數(shù)據(jù)庫建表過程中又出現(xiàn)了問題，因?yàn)檫@方面的知識(shí)不夠成熟，沒有事先完整的設(shè)計(jì)好數(shù)據(jù)項(xiàng)就開始建立了數(shù)據(jù)關(guān)系，到后來發(fā)現(xiàn)要改時(shí)只得又重新來過，浪費(fèi)了很多時(shí)間，只好先停下來對(duì)數(shù)據(jù)項(xiàng)進(jìn)行了系統(tǒng)的分析，才使得后面的過程得以