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

1、西安財(cái)經(jīng)學(xué)院實(shí)踐教學(xué)活動周登記表姓 名： 信彥君 學(xué) 號： 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)教師許文麗職稱講師二級學(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平臺和大型數(shù)據(jù)庫Access進(jìn)行開發(fā)，主要是處理商業(yè)企業(yè)商品的采購、庫存和銷售各個(gè)環(huán)節(jié)的活動，使用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ā)水平有了明顯提高，對系統(tǒng)的設(shè)計(jì)有了新的認(rèn)識。通過這次設(shè)計(jì)，我已基本上掌握了系統(tǒng)的設(shè)計(jì)流程，同時(shí)也掌握了一些相關(guān)技術(shù)，增強(qiáng)了動手能力，并積累了使用軟件工程的思想來開發(fā)軟件的經(jīng)驗(yàn)，這對于我今后的工作和學(xué)習(xí)是非常有益的。實(shí)踐單位意見單位蓋章：年 月 日成績評定（綜合評語） 成績： 指導(dǎo)教師簽字： 、 年 月 日

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

4、管理系統(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)23一、緒論（一）研究背景隨著國家的政治經(jīng)濟(jì)政策的優(yōu)化改革，使得國內(nèi)中小企業(yè)得以蓬勃發(fā)展?？墒请S著企業(yè)的發(fā)展，客戶數(shù)量的的為斷增多，財(cái)務(wù)工作繁雜化，庫存產(chǎn)品零亂等一系列問題也接踵而至，給企業(yè)經(jīng)營者運(yùn)作帶來了很大的困擾。信息技術(shù)的迅猛發(fā)展，科學(xué)經(jīng)營管理

5、觀念的迅速傳播，使中小企業(yè)經(jīng)營者逐漸認(rèn)識到轉(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)、借、贈等一系列操作流程中的數(shù)據(jù)信息的處理問題，提供一系列的數(shù)據(jù)分析，幫助經(jīng)營者合理的調(diào)整各個(gè)經(jīng)營運(yùn)作環(huán)節(jié)的運(yùn)作節(jié)奏，并對商品流轉(zhuǎn)過程進(jìn)行了全程跟蹤管理、相應(yīng)款項(xiàng)流通的全程記錄管理和票據(jù)信

6、息統(tǒng)計(jì)的管理。因此進(jìn)銷存管理系統(tǒng)的全面應(yīng)用，規(guī)范業(yè)務(wù)流程、提高了企業(yè)的管理水平，提高資金流動的透明度，加快商品資金周轉(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)力損失，而且能使企業(yè)的運(yùn)行機(jī)制更加規(guī)范合理，使企業(yè)在節(jié)省自身成本提高競爭優(yōu)勢的同時(shí)，樹立好企業(yè)形象，形成帶

7、頭優(yōu)勢，從而帶動整個(gè)行業(yè)的高效發(fā)展及社會經(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)大，即使操作者對計(jì)算機(jī)知識一竅不通也能一用就會。它強(qiáng)化庫存管理，規(guī)范業(yè)務(wù)流程，提高資金管理的透明度，加快商品資金周轉(zhuǎn)，是企業(yè)經(jīng)營管理中數(shù)據(jù)分析中必不可少的管理工具。本系統(tǒng)的開發(fā)適用于多個(gè)行業(yè)，可以幫助企業(yè)快速有效管理進(jìn)貨、銷售、庫存等各項(xiàng)業(yè)務(wù)，合理控制進(jìn)銷存各個(gè)環(huán)節(jié)，提高資金利用率，實(shí)

8、現(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)商品入庫、入庫、商品銷售、銷售退貨、庫存管理（調(diào)貨、盤點(diǎn)）報(bào)損管理，供貨商管理，銷售分析等操作。3.操作

9、簡單易行，查詢靈活方便，支持多條件查詢，數(shù)據(jù)存儲安全可靠。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)銷存管理系統(tǒng)的開發(fā)實(shí)現(xiàn)了從進(jìn)貨、庫存、到銷售的一體化管理。提高了管理水平和工作效率，最大限度減少了手工操作帶來的

10、錯(cuò)誤。（三）開發(fā)平臺與工具的選擇本系統(tǒng)后臺數(shù)據(jù)庫采用Microsoft Office Access，該數(shù)據(jù)庫系統(tǒng)在安全性、準(zhǔn)確性、運(yùn)行速度方面有絕對的優(yōu)勢，并且處理數(shù)據(jù)量大、效率高；以VB作為開發(fā)語言，采用Visual Basic 6.0中文版作為開發(fā)工具，采用ADO.NET對數(shù)據(jù)庫進(jìn)行訪問，同時(shí)建立ODBC數(shù)據(jù)庫接口,可與Access數(shù)據(jù)庫無縫連接。1.Visual Basic簡介微軟公司的Visual Basic是一套完整Windows系統(tǒng)軟件開發(fā)工具，用于開發(fā)Windows環(huán)境下的各類應(yīng)用程序，是一種可視化、真正面向?qū)ο?、采用事件?qū)動方式的結(jié)構(gòu)化高級程序設(shè)計(jì)語言和工具的完美集成。它編程簡

11、單、方便、功能強(qiáng)大，具有與其它語言的良好接口。Visual Basic在數(shù)據(jù)庫開發(fā)方面比其他語言也有優(yōu)勢，特別是6.0版本較以前的有相當(dāng)大的變化，從數(shù)據(jù)源維護(hù)、數(shù)據(jù)訪問等都有良好的表現(xiàn)，配合后臺服務(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。Access 數(shù)據(jù)庫由七種對象組成，它們是表、查詢、窗體、報(bào)表、宏、頁和模塊。表(Table) 表是數(shù)據(jù)庫的基

12、本對象，是創(chuàng)建其他5種對象的基礎(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中的批處理，用來自動執(zhí)行一系列操作。Access列出了一些常用的操作供用戶選擇，使用起來十分方便。模塊(Module)模塊的功能與宏類似，但它定義的操作比宏更精細(xì)和復(fù)雜，

13、用戶可以根據(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中最主要的非連接對象DataSet(數(shù)據(jù)集)能以脫機(jī)方式處理數(shù)據(jù)，可以對數(shù)據(jù)進(jìn)行排序、搜索、篩選等操作。使用ADO.NET可以對多種數(shù)據(jù)源中的數(shù)據(jù)進(jìn)行有效處理，從而輕松地在.NET Framework中創(chuàng)建出

14、分布式、數(shù)據(jù)共享的應(yīng)用程序。下面簡單介紹下.NET Framework數(shù)據(jù)訪問對象.NET的數(shù)據(jù)訪問對象主要包括四個(gè)對象：Connection、Command、DataReader和DataAdapter。針對不同的數(shù)據(jù)源提供了不同的對象與之對應(yīng)。Connection對象提供與數(shù)據(jù)源的連接；Command對象用于執(zhí)行SQL命令，主要包括檢索數(shù)據(jù)、修改數(shù)據(jù)以及運(yùn)行存儲過程等命令語句；DataReader對象從數(shù)據(jù)源中提供一個(gè)只讀的、前向的高性能數(shù)據(jù)流；DataAdapter對象在DataSet對象和數(shù)據(jù)源之間，起到了橋梁的作用，可以用來填充數(shù)據(jù)集，并可將修改結(jié)果更新回?cái)?shù)據(jù)庫。三 進(jìn)銷存管理系統(tǒng)的

15、實(shí)現(xiàn)與測試（一）系統(tǒng)設(shè)計(jì)目標(biāo)該系統(tǒng)的制作目標(biāo)如下：1.具有完善、美觀的網(wǎng)站界面，以便用戶可以高效的使用。2.操作簡單方便，系統(tǒng)信息齊全并分類清晰明確。3.數(shù)據(jù)信息完善，存儲安全、可靠。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í)則會彈出對話框。商品管理模塊：用來記錄商品的具體信息，在這一模塊中同樣有增刪改三個(gè)選項(xiàng)，在增刪改操作時(shí)，都需要在樹形列表中選擇商品類型，在添加單中有商品名，商品類型，庫存量，商品介紹以及備注各選項(xiàng)銷售管理模塊：用于記錄超市的銷售情況，以便于更好的使超市運(yùn)轉(zhuǎn)。這一模塊中同樣有增刪改三個(gè)選項(xiàng)來及時(shí)的更新數(shù)據(jù)存儲。庫存管理模塊：用于管理超市的庫存信息?！皫齑娌樵儭庇糜诓樵兂猩唐返膸齑媲闆r。報(bào)損管理模塊：該模塊就是用于及時(shí)的更新記錄超市的商品存儲情況對商品的影響。同樣具有增刪改三個(gè)選項(xiàng)。系統(tǒng)管理

17、模塊：該模塊最重要的就是操作員的權(quán)限管理，即用戶管理，在用戶管理中可以增刪改操作員的權(quán)限信息。樹形列表：該列表可以使商品的基本情況一目了然，在列表中列出了超市所有的商品類型，而其所在類型下的商品則會顯示在右邊的視圖中，便于統(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ā)平臺：Microsoft Visual Basic 6.0系統(tǒng)開發(fā)語言：VB數(shù)據(jù)庫管理系統(tǒng)軟件：Microsoft Office Access 2003

18、（二）文件夾組織結(jié)構(gòu)在進(jìn)行系統(tǒng)開發(fā)之前，需要規(guī)劃文件夾組織結(jié)構(gòu)，也就是說，建立多個(gè)文件夾，對各個(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)所存儲的所有商品類型商品表保存超市經(jīng)營商品的資料信息供貨商表保存超市供貨商的資料信息進(jìn)貨表保存超市所購入商品的資料信息

19、銷售表保存超市銷售商品的資料信息報(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ā)采用多文檔窗體程序，每一功能對應(yīng)一個(gè)子窗體。1.程序運(yùn)行結(jié)果如圖：圖4-9程序運(yùn)行結(jié)果截圖選擇主菜單中的各菜單項(xiàng)即可進(jìn)入相應(yīng)的功能，例如可以選擇【進(jìn)貨管理】|【登記進(jìn)貨信息】菜單命令，在其中輸入進(jìn)貨的商品、數(shù)量、價(jià)格等信息，保存后單擊【確定】按鈕，商品庫存就

20、會增加。2.創(chuà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)生成的主窗體作為主窗體，并將其對應(yīng)的文件更名為frmMain.frm,布局如圖：圖4-10程序主窗體截圖(2)在VB6.0的【工具】下拉菜單中，選擇【菜單編輯器】，開始編輯表結(jié)構(gòu)的菜單。4.創(chuàng)建數(shù)據(jù)訪問模塊各個(gè)窗體均需要對數(shù)據(jù)庫進(jìn)行訪問，故而建立了一個(gè)DB模塊，這樣可以使對數(shù)據(jù)庫的訪問更加快捷簡單，主要代碼如下Option ExplicitPublic g_Conn

21、 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, ByVal strId As String) As Lo

22、ng 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ù)庫的連接及對數(shù)據(jù)庫進(jìn)行操作以實(shí)現(xiàn)商品商品信息登記功能。（1）新建窗體，將其【名稱】改為“frmMerch”并在窗體上分別添

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

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

25、指添加還是修改Private m_TypeId As Long '商品類型'根據(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.Capti

26、on = "保存" End SelectEnd Sub'打開對話框，并傳出用戶輸入數(shù)據(jù)Public Function ShowDlg(ByRef obj As Object, _ ByVal eViewType As gxcViewType, _ Optional nTypeId As Long = -1) As Boolean '保存數(shù)據(jù) Set m_obj = obj '用戶輸入數(shù)據(jù)存放于此對象中 m_ViewType = eViewType '對話框狀態(tài) If nTypeId = -1 And (Not m_obj Is Nothing

27、) Then m_TypeId = m_obj.TypeId Else m_TypeId = nTypeId End If '根據(jù)新增、編輯或查看設(shè)置顯示內(nèi)容SetStatus '顯示對話框 OK = False Me.Show vbModal If OK = False Then ShowDlg = False Exit Function End If '保存數(shù)據(jù) Set obj = m_obj '返回并釋放對話框 ShowDlg = True Unload MeEnd Function'設(shè)置控件默認(rèn)值Private Sub SetDefaultVal

28、ue() Dim ctl As Control Dim i As Integer '如果是新增，則清空所有文本框 '此處判斷 m_obj為空與判斷m_ViewType = vtAdd等效，但更安全 If m_obj Is Nothing Then For Each ctl In Controls If TypeOf ctl Is TextBox Then ctl.Text = "" End If Next Else '用傳入對象的值更新數(shù)據(jù) With m_obj txtName.Text = .MerchName txtStorage.Text =

29、.Storage cboUnit.ListIndex = 0 txtIntro.Text = .Introduce txtRemark.Text = .Remark For i = 0 To cboType.ListCount - 1 If cboType.ItemData(i) = m_TypeId Then cboType.ListIndex = i '商品類型Id Exit For End If Next i End With End If End Sub'檢查輸入有效性Private Function CheckValid() As Boolean If txtName

30、.Text = "" _ Or txtIntro.Text = "" Then MsgBox "請?zhí)顚懲戤呉陨细黜?xiàng)內(nèi)容" CheckValid = False Exit Function End If If cboType.Text = "" Then MsgBox "請?zhí)顚懲戤呉陨细黜?xiàng)內(nèi)容" CheckValid = False Exit Function End If If Not IsNumeric(txtStorage.Text) Then MsgBox "庫存量請輸入數(shù)字&q

31、uot; Exit Function End If CheckValid = True End Function'保存數(shù)據(jù)Private Sub SaveValue() '給“成員變量”對象賦值 With m_obj '注意以下利用RealString函數(shù)替換去除輸入中的單引號 .MerchName = RealString(txtName.Text) .Remark = RealString(txtRemark.Text) .Storage = RealString(txtStorage.Text) .Introduce = RealString(txtIntro.T

32、ext) .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 fraMerch_DragDrop(Source As Control, X As

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

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

35、abelLabel4Caption售出單價(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è)計(jì)好數(shù)據(jù)項(xiàng)就開始建立了數(shù)據(jù)關(guān)系，到后