超市管理系統(tǒng)畢業(yè)設(shè)計

1、<p><b>　　摘要</b></p><p>　　本系統(tǒng)是實現(xiàn)一個超市運營管理管理的超市POS管理系統(tǒng)，本系統(tǒng)分為前臺收銀系統(tǒng)和后臺管理系統(tǒng)兩部分，分做兩個項目開發(fā)。</p><p>　　前臺主要實現(xiàn)商品銷售功能，在輸入商品條碼后自動從數(shù)據(jù)庫中獲取商品相關(guān)信息，完成銷售后，自動將商品銷售信息保存到系統(tǒng)數(shù)據(jù)庫中。后臺管理系統(tǒng)主要實現(xiàn)用戶管理、商品管理、庫存

2、管理、銷售統(tǒng)計等功能。本系統(tǒng)采用Visual Basic 6.0中文版和 MS SQL 2000數(shù)據(jù)庫作為平臺進行開發(fā)。</p><p>　　利用本系統(tǒng)，中小型超市可以實現(xiàn)商品的收銀管理，庫存管理，銷售統(tǒng)計等功能，可以提高顧客的滿意度，節(jié)約人力物力，提高工作效率。</p><p>　　關(guān)鍵字：POS管理系統(tǒng)；收銀系統(tǒng)；銷售功能；SQL </p><p><b&

3、gt;　　目 錄</b></p><p><b>　　摘要I</b></p><p><b>　　1.緒論1</b></p><p>　　1.1.課題的目的及意義1</p><p>　　1.2.國內(nèi)外文獻綜述2</p><p><b>　　

4、2系統(tǒng)分析3</b></p><p><b>　　2.1需求分析3</b></p><p>　　2.2開發(fā)環(huán)境4</p><p>　　2.3可行性分析5</p><p><b>　　2.4 結(jié)論6</b></p><p>　　3.系統(tǒng)概要設(shè)計7<

5、;/p><p>　　3.1系統(tǒng)總體設(shè)計8</p><p>　　3.2數(shù)據(jù)庫設(shè)計9</p><p>　　4.系統(tǒng)詳細設(shè)計13</p><p>　　4.1前臺收銀系統(tǒng)13</p><p>　　4.2后臺管理系統(tǒng)設(shè)計17</p><p>　　5.系統(tǒng)實現(xiàn)與測試27</p><

6、;p>　　5.1前臺收銀程序測試27</p><p>　　5.2后臺管理系統(tǒng)測試27</p><p>　　5.3系統(tǒng)整體測試30</p><p><b>　　6.結(jié)束語31</b></p><p><b>　　參考文獻32</b></p><p><b&

7、gt;　　致 謝33</b></p><p><b>　　附 錄34</b></p><p>　　A.主要源程序清單34</p><p>　　B.用戶手冊57</p><p><b>　　1.緒論</b></p><p>　　隨著計算機技術(shù)的高速發(fā)展，

8、人們對計算機的依賴性越來越強，特別是用計算機開發(fā)的數(shù)據(jù)庫以及數(shù)據(jù)管理系統(tǒng)在生活應(yīng)用中表現(xiàn)得更為突出。</p><p>　　使用計算機對商品的銷售進行管理，具有檢索迅速、查找方便、可靠性高、存儲量大、保密性好等優(yōu)點，這些優(yōu)點能夠極大的提高商品銷售的效率，也是企業(yè)科學(xué)化、正規(guī)化管理的重要條件。因此，開發(fā)這樣一套超市POS管理系統(tǒng)，通過使用超市POS管理系統(tǒng)，使超市店的管理工作系統(tǒng)化、規(guī)范化、自動化、簡易化、智能化，從

9、而達到提高超市進銷存管理效率的目的。</p><p><b>　　課題的目的及意義</b></p><p><b>　　課題研究目的</b></p><p>　　隨著現(xiàn)代科學(xué)技術(shù)的迅猛發(fā)展，計算機技術(shù)已經(jīng)滲透到各個領(lǐng)域，成為各行業(yè)必不可少的工具，特別是Internet技術(shù)的推廣和信息高速公路的建立，使IT產(chǎn)業(yè)在市場競爭中越

10、發(fā)顯示出其獨特的優(yōu)勢，步入信息化時代，有巨大的數(shù)據(jù)信息等待加工處理和傳輸，這使得對數(shù)據(jù)庫的進一步開發(fā)和利用顯得尤為迫切。</p><p>　　超市形態(tài)具有很多優(yōu)點，但在目前狀況下，它仍存在零售企業(yè)所固有的落后的一面，如：不能有效地管理每種商品，收款結(jié)算速度慢，容易出現(xiàn)營業(yè)差錯，不宜進行商品調(diào)價，盤點效率低等，而且在超市日常管理中，商品的進、銷、存等決策以經(jīng)驗為主，缺乏實時分析功能，管理人員對及時傳遞資料的要求始終

11、得不到滿足。隨著超市形態(tài)的高速發(fā)展，其經(jīng)營管理也變得愈加復(fù)雜，日常所需要處理的數(shù)據(jù)量也逐漸擴大，商業(yè)運轉(zhuǎn)的中間環(huán)節(jié)也越來越多，原始的人工管理已無法應(yīng)對這復(fù)雜的市場。因此，需要開發(fā)一套能夠使用超市現(xiàn)代化管理的系統(tǒng)。</p><p><b>　　意義</b></p><p>　　本課題目，依靠現(xiàn)代化的計算機信息處理技術(shù)來管理超市，從而節(jié)省了大量的人力、物力，改善了員工的工

12、作條件，減輕了勞動強度，并且能夠快速反映出商品的進、銷、存等狀況和各種反饋信息分析，使管理人員快速對市場的變化做出相應(yīng)的決策，加快超市經(jīng)營管理效率。提高顧客的滿意度顧和企業(yè)形象，為消費者提供更加滿意的服務(wù)。 </p><p><b>　　國內(nèi)外文獻綜述</b></p><p><b>　　國外情況</b></p><p>

13、　　信息管理系統(tǒng)（MIS）是一個由人、計算機及其他外圍設(shè)備等組成的能進行信息的收集、傳遞、存貯、加工、維護和使用的系統(tǒng)是一門新興的科學(xué)，其主要任務(wù)是最大限度的利用現(xiàn)代計算機及網(wǎng)絡(luò)通訊技術(shù)加強企業(yè)的信息管理，通過對企業(yè)擁有的人力、物力、財力、設(shè)備、技術(shù)等資源的調(diào)查了解，建立正確的數(shù)據(jù)，加工處理并編制成各種信息資料及時提供給管理人員，以便進行正確的決策，不斷提高企業(yè)的管理水平和經(jīng)濟效益。國外信息管理系統(tǒng)（MIS）在超市等零售企業(yè)中已經(jīng)有相當(dāng)

14、長的歷史。</p><p><b>　　國內(nèi)情況</b></p><p>　　隨著超市高速的發(fā)展，其經(jīng)營管理也變得愈加復(fù)雜，早期的售貨員站柜臺的形式早已不能滿足現(xiàn)有銷售也的發(fā)展。在我國超市形成在20世紀90年代初期，現(xiàn)在已經(jīng)成為我國零售業(yè)的一種重要形態(tài)，為國民經(jīng)濟的發(fā)展起發(fā)揮了極大的作用。</p><p>　　開發(fā)應(yīng)用現(xiàn)代化的超市銷售管理系統(tǒng)在

15、我國有相當(dāng)廣闊的市場前景。</p><p><b>　　2系統(tǒng)分析</b></p><p><b>　　2.1需求分析</b></p><p>　　通過與超市負責(zé)人，銷售經(jīng)理，各連鎖店負責(zé)人以及超市收銀員等進行溝通，詳細了解了本系統(tǒng)的需求。</p><p><b>　　2.1.1概述<

16、;/b></p><p>　　本系統(tǒng)主要為超市等零售型企業(yè)解決一下主要問題：超市收銀員通過掃描或手工輸入商品條形碼，系統(tǒng)自動從數(shù)據(jù)庫中調(diào)出該商品的信息，并對顧客購買的所有商品進行匯總，完成收銀。超市管理人員通過對后臺數(shù)據(jù)更新，來完成新商品的上架。通過對庫存功能的使用，了解商品的庫存狀況。通過銷售功能使用，來了解商品銷售。</p><p>　　2.1.2前臺需求分析</p>

17、<p>　　1.使用密碼來控制收銀員登錄；</p><p>　　2.操作盡量簡單，可在無鼠標(biāo)狀態(tài)下完成操作；</p><p>　　3.支持條碼的手工輸入與掃描器掃描；</p><p>　　4.商品單價等信息自動從數(shù)據(jù)中獲??；</p><p>　　5.能查詢當(dāng)班當(dāng)天銷售金額用于對賬；</p><p>　　

18、2.1.3后臺需求分析</p><p>　　1.方便快捷的管理銷售商品信息；</p><p>　　2.管理進貨計劃、商品進貨入庫；</p><p>　　3.可以設(shè)置促銷價格時間、允許禁止商品銷售；</p><p>　　4.可以對銷售狀況進行統(tǒng)計；</p><p>　　5.界面簡潔、框架清晰、美觀大方；</p>

19、;<p>　　2.1.4性能需求分析</p><p>　　1.程序能夠在復(fù)雜環(huán)境下穩(wěn)定運行</p><p>　　2.數(shù)據(jù)計算要準確有效</p><p>　　3.數(shù)據(jù)存儲要安全有效，防止非法用戶獲得數(shù)據(jù)</p><p><b>　　開發(fā)環(huán)境</b></p><p>　　本設(shè)計軟件開發(fā)共

20、分為兩大部分：前臺收銀系統(tǒng)和后臺管理系統(tǒng)。運行環(huán)境為windows xp/2003操作系統(tǒng)。</p><p>　　本系統(tǒng)采用Visual Basic 6.0中文企業(yè)版和MS SQL 2000 企業(yè)版數(shù)據(jù)庫系統(tǒng)進行開發(fā)。Visual Basic 6.0 + MS SQL 2000開發(fā)環(huán)境，是非常成熟的開發(fā)平臺，能夠保證程序開發(fā)環(huán)境的穩(wěn)定有效。</p><p><b>　　2.3可行

21、性分析</b></p><p>　　2.3.1經(jīng)濟可行性分析</p><p>　　因為通過網(wǎng)絡(luò)傳遞銷售信息可以不受距離的限制，因此可以節(jié)約許多的人力和物力，減少了以往入出存流程繁瑣，雜亂，周期長的弊端，可以減少入庫管理、出庫管理及庫存管理中的漏洞，可以節(jié)約不少管理開支，增加企業(yè)的收入，方便了管理，由此可以減少不必要的開支，同時該系統(tǒng)可以提高超市的銷售效率，即提高了超市的經(jīng)濟效益

22、，所以從經(jīng)濟上完全是可行的。開發(fā)新系統(tǒng)的工作是一項艱巨復(fù)雜的工作，它的投資主要是人力和物力的投資。對于本系統(tǒng)的開發(fā)者來說，其主要的投資還是在人力和物力兩個方面。如果是企業(yè)自己安排人手開發(fā)系統(tǒng)的話，其主要的投資還是在人力資源上，從系統(tǒng)的業(yè)務(wù)需求調(diào)查到系統(tǒng)的分析編碼制作都是需要巨大的人力投入的。軟件企業(yè)作為一個先進的高科技產(chǎn)業(yè)，其員工要求都比一般企業(yè)的要求要高，而且對系統(tǒng)開發(fā)及軟件產(chǎn)業(yè)了解比較多，所以在自我開發(fā)管理系統(tǒng)的過程中，企業(yè)自己比較

23、容易安排人手，這樣就可以為企業(yè)節(jié)約大部分的額外開支。同時軟件就其它產(chǎn)品來說，屬于高端行業(yè)，無論是產(chǎn)品的價格還是質(zhì)量都比較高，而經(jīng)營產(chǎn)品的經(jīng)銷商或者是商家都要求有雄厚的資金支持。所以，在系統(tǒng)的開發(fā)過程中，企業(yè)完全有能力承擔(dān)開發(fā)費用。</p><p>　　2.3.2技術(shù)可行性分析</p><p>　　本系統(tǒng)使用Visual Basic 6.0 + MS SQL 2000 作為開發(fā)環(huán)境，這是非常

24、成熟的開發(fā)平臺，在業(yè)界已經(jīng)有相當(dāng)多的成功開發(fā)案例可供參考，開發(fā)者具有類似開發(fā)經(jīng)驗，可以在規(guī)定時間內(nèi)完成系統(tǒng)開發(fā)設(shè)計。</p><p>　　本系統(tǒng)操作界面簡單，一般超市員工都具有一定的計算機基礎(chǔ)知識，只要對員工進行少量的培訓(xùn)，在掌握了系統(tǒng)的功能和使用方法時，就基本上能夠使系統(tǒng)順利的運行，為超市提供服務(wù)。因此，在現(xiàn)有的技術(shù)條件下是可以實現(xiàn)本設(shè)計的。</p><p>　　2.3.3社會因素分析&

25、lt;/p><p>　　本系統(tǒng)完全獨立開發(fā)設(shè)計，是按照完全獨立的開發(fā)體系結(jié)構(gòu)進行的，在法律方面沒有任何侵權(quán)行為，符合相關(guān)法律法規(guī)規(guī)定。</p><p><b>　　2.4 結(jié)論</b></p><p>　　根據(jù)以上分析，本項目在技術(shù)上沒有問題，開發(fā)時間充裕。經(jīng)濟和社會因素上完全可行。因此認為該項目可以開發(fā)。</p><p>

26、<b>　　3.系統(tǒng)概要設(shè)計</b></p><p>　　本系統(tǒng)主要由兩部分構(gòu)成，為前臺收銀系統(tǒng)和后臺管理系統(tǒng)。數(shù)據(jù)存采用MS SQL Server 2000 數(shù)據(jù)庫存儲。</p><p>　　前臺收銀系統(tǒng)應(yīng)用于超市收銀結(jié)算，主要使用人員為超市收銀員。前臺收銀系統(tǒng)的主要功能有用戶登錄、錄入商品、掛單取單、賬務(wù)查詢等。超市前臺收銀管理系統(tǒng)結(jié)構(gòu)圖如 圖 3.1所示。<

27、;/p><p>　　圖 3.1前臺收銀系統(tǒng)結(jié)構(gòu)圖</p><p>　　后臺管理系統(tǒng)主要使用對象為超市管理人員，主要功能有用戶管理、商品管理、進貨管理、銷售管理、廠商/供貨商管理等功能。超市后臺管理系統(tǒng)結(jié)構(gòu)圖如圖3.2所示。</p><p>　　圖 3.2超市后臺管理系統(tǒng)</p><p><b>　　3.1系統(tǒng)總體設(shè)計</b>

28、</p><p>　　3.1.1設(shè)計的指導(dǎo)思想</p><p>　　(1)系統(tǒng)分成幾個相對獨立的模塊，但這些模塊都進行集中式管理。</p><p>　　(2)分層的模塊化程序設(shè)計思想，整個系統(tǒng)采用模塊化結(jié)構(gòu)設(shè)計。作為應(yīng)用程序有較強的可操作性和擴展性。</p><p>　　(3)合理的數(shù)據(jù)流設(shè)計，在應(yīng)用系統(tǒng)設(shè)計中，相對獨立的模塊間以數(shù)據(jù)流相互連

29、接，使各模塊間的耦合性較低，方便系統(tǒng)運行，提高系統(tǒng)安全性。</p><p>　　3.1.2功能模塊劃分</p><p><b>　　設(shè)計分為兩個部分：</b></p><p>　　前臺POS收銀系統(tǒng)：通過輸入商品編碼完成收銀等工作。</p><p>　　后臺管理系統(tǒng)：完成商品管理、銷售管理、庫存管理等功能。</p&

30、gt;<p><b>　　3.2數(shù)據(jù)庫設(shè)計</b></p><p>　　在本系統(tǒng)中，需要保存大量的數(shù)據(jù)（包括商品信息、供應(yīng)商信息、廠商信息、銷售信息、庫存信息等），通過使用數(shù)據(jù)庫技術(shù)，將這些數(shù)據(jù)保存到數(shù)據(jù)庫中，可以方便對這些數(shù)據(jù)的管理。本系統(tǒng)的前臺收銀系統(tǒng)與后臺管理系統(tǒng)共用一個數(shù)據(jù)庫，下面介紹數(shù)據(jù)庫的主要內(nèi)容。</p><p><b>　　3.

31、2.1數(shù)據(jù)分析</b></p><p>　　本系統(tǒng)采用VB6+MS SQL Server 2000數(shù)據(jù)庫構(gòu)成，本項目選擇使用MS SQL Server 2000 數(shù)據(jù)庫的主要原因有：</p><p>　　（1）MS SQL Server 2000 作為一個大型數(shù)據(jù)庫系統(tǒng)，具備現(xiàn)代數(shù)據(jù)庫管理系統(tǒng)所要求的各種強大功能。</p><p>　?。?）本項目需要保

32、存海量數(shù)據(jù)，使用MS SQL Server 2000可以完成對海量數(shù)據(jù)進行安全、快速保存、查詢操作。</p><p>　　（3）MS SQL Server 2000 支持客戶機/服務(wù)器的結(jié)構(gòu)，可以方便的將數(shù)據(jù)庫部署到企業(yè)機房中，各收銀機只運行前臺收銀系統(tǒng)即可。</p><p>　　3.2.2數(shù)據(jù)項及數(shù)據(jù)結(jié)構(gòu)</p><p>　　本設(shè)計中部分主要表如下：</p&

33、gt;<p>　　1．user表（操作員表）</p><p>　　該表用于存儲用戶的登錄用戶名、密碼、權(quán)限的相關(guān)信息。</p><p>　　2．googs表（商品表）</p><p>　　該表用戶保存超市銷售商品的編號、單價、數(shù)量、條形碼等信息。</p><p>　　sale表（銷售表）</p><p>

34、　　該表主要用來保存商品的銷售時間、商品編號、銷售日期、數(shù)量、單價、銷售單號、收銀員等信息。</p><p>　　4．stock表（進貨信息表）</p><p>　　該表主要用于保存進貨計劃和進貨數(shù)據(jù)的商品編號、數(shù)量、單價、金額、狀態(tài)等信息。</p><p>　　3.2.3數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計</p><p>　　在本系統(tǒng)中，共使用了10張表：

35、分別是user（操作員）表、goods（商品）表、sale（銷售）表、saletemp（臨時銷售）表、pso_base（超市信息）表、factory（廠商）表、provide（供應(yīng)商）表、stock（進貨信息）表、stcoktemp（進貨信息表）。下面列出主要表的字段作用。</p><p>　　1． user （操作員）：用戶保存允許使用本系統(tǒng)的操作員（收銀員）信息。該表包括4個字段，分別用來保存一個操作員的名稱

36、、密碼、用戶類型等相關(guān)信息，各字段的參數(shù)如表3.1 所示。</p><p>　　表 3.1 user （操作員）表</p><p>　　2． goods （商品）表：用于保存超市銷售商品信息。該表包括15個字段，分別用來保存商品的編號、名稱、單價、數(shù)量、條形碼等信息，各字段的參數(shù)如表3.2 所示。</p><p>　　表3-2 goods（商品）表</p>

37、;<p>　　3．Sale（銷售）表：用戶保存商品的每筆銷售數(shù)據(jù)。該表包含7個字段，分別用來保存商品序號、商品編碼、銷售日期、數(shù)量、單價、銷售單號、收銀員。</p><p>　　表3-3 Sale（銷售）表</p><p>　　4．stock（進貨信息）表：用于保存進貨計劃和進貨的數(shù)據(jù)。該表包括8個字段，分別用于保存商品編號、數(shù)量、單價、金額、日期、等信息，各字段的參數(shù)如表3

38、-4所示。</p><p>　　表3-4 stcok（進貨信息）表</p><p><b>　　4.系統(tǒng)詳細設(shè)計</b></p><p>　　本設(shè)計主要分為兩部分，其中一部分為前臺收銀管理系統(tǒng)，另一部分為后臺管理系統(tǒng)。</p><p><b>　　4.1前臺收銀系統(tǒng)</b></p>&

39、lt;p>　　前臺收銀系統(tǒng)運行于收銀POS機種，該系統(tǒng)可以實現(xiàn)超市商品銷售中的收銀計算功能。</p><p>　　4.1.1登錄界面設(shè)計</p><p>　　登錄窗體用來驗證用戶身份，為了方便收銀員快速登錄，該窗體將所有合法用戶的名稱添加到“用戶名”組合框中，供用戶選擇，以減少用戶的輸入量。</p><p>　　登錄窗體frmLogin 如圖 4.1所示，該窗

40、體各控件的屬性如表4.1所示。</p><p><b>　　圖 4.1登錄窗體</b></p><p>　　表4.1“登錄”窗體屬性表</p><p>　　用戶選擇下拉框中的用戶名后，鍵入密碼，單擊登錄按鈕，系統(tǒng)自動驗證用戶輸入的密碼是否與數(shù)據(jù)庫中保持的密碼一致。如果密碼正確，則登錄成功，進入收銀主界面。若密碼錯誤，提示用戶密碼不正確，重新進行

41、密碼輸入。</p><p>　　4.1.2收銀主窗體設(shè)計</p><p>　　收銀主窗體是前臺系統(tǒng)最主要的界面，系統(tǒng)中的大部分操作都在此窗體中完成。下面介紹主窗體的設(shè)計過程。</p><p>　　收銀主窗體如圖4.2所示，左上角的大部分是一個表格，用來顯示已經(jīng)輸入的商品信息。右側(cè)的“合計”顯示出左側(cè)表格中各種商品的金額，“條碼”輸入部分用來掃描或輸入商品條碼，然后由

42、系統(tǒng)自動查詢該商品的單價，自動添加到左側(cè)表格中，等待用戶輸入下一商品的條碼。</p><p>　　圖 4.2收銀主窗體</p><p>　　在窗體的下方有一個“上單收款”框架，顯示上一單的收款情況，因為打印收銀小票返回后，系統(tǒng)將自動進入新的一單收款狀態(tài)，通過“上單收款”框架可以了解上一單的情況，以便方便和顧客對賬。</p><p>　　而窗體下面的一排按鈕，分別用來

43、完成不同的工作，因為一般POS機都不用鼠標(biāo)，因此為每個按鈕都設(shè)置了一個功能鍵作為快捷鍵，在按鈕的標(biāo)題文字中有提示。下面先介紹一下各按鈕的作用。</p><p>　　1)完成[SPACE]：當(dāng)完成顧客所有商品輸入后，按空格鍵即可彈出“打印”窗體，收錢找零，打印收銀小票，完成一單收銀過程。</p><p>　　2)條碼[F2]：當(dāng)進行了其他操作鼠標(biāo)焦點沒有回到“條碼/簡碼”按鈕文本框中時，按快

44、捷鍵“F2”可以將輸入焦點定位到“條碼/簡碼”文本框，等待輸入下一商品條碼。</p><p>　　3)作廢[F3]：作廢當(dāng)前輸入的所有商品，重新開始輸入新的內(nèi)容。</p><p>　　掛單[F4]：當(dāng)一個顧客購買完的商品還未錄入完成，又需要錄入另一個顧客的商品時，按快捷鍵“F4”可對為輸入完的銷售單進行掛單處理。</p><p>　　4)取單[F5]：當(dāng)需要對已掛單

45、的銷售單進行收銀時，按快捷鍵“F5”可以打開“取單”窗體，從中選擇要取出的單，即可繼續(xù)對掛單進行收銀。</p><p>　　5)財務(wù)[F6]：按快捷鍵“F6”可以查看收銀員當(dāng)日收銀金額。</p><p>　　4.1.3結(jié)賬打印窗體 </p><p>　　在收銀主窗體中輸入完一個顧客購買的商品后，按空格鍵可以顯示“結(jié)賬打印”窗體，該窗體如圖4.3所示，在該窗體中將顯示

46、應(yīng)收金額，收銀員在“收款”文本框中輸入顧客預(yù)付金額后，下方的“找零”文本框自動計算找零金額。如果文本框中輸入的金額小于應(yīng)收款時，系統(tǒng)彈出提示“實收金額小于商品金額”。單擊“打印[ENTER]”按鈕或按回車鍵將打印收銀小票。</p><p>　　圖4.3 結(jié)賬打印窗體</p><p>　　4.1.4取單窗體設(shè)計</p><p>　　“取單”窗體用來從掛單的數(shù)據(jù)表中取出

47、需要繼續(xù)收銀的銷售單，該窗體如圖4.4所示，在該窗體中還將顯示所有掛單的商品數(shù)據(jù)，收銀員在表中用鍵盤的上下光標(biāo)鍵移動選擇，下方的文本框中將顯示選中商品的單號。一個銷售單中可能會有多個商品顯示在表格中，只要選中其中一個商品后，單擊“提取[ENTER]”按鈕或按回車鍵即可提取該商品所在的銷售單的所有數(shù)據(jù)，并顯示到收銀主窗體中。</p><p><b>　　圖4.4 取單窗體</b></p&

48、gt;<p>　　4.2后臺管理系統(tǒng)設(shè)計</p><p>　　后臺管理系統(tǒng)可以實現(xiàn)系統(tǒng)用戶管理、商品管理、進貨管理、銷售管廠商管理和供貨商管理等功能。</p><p>　　4.2.1設(shè)計主窗體</p><p>　　超市POS后臺管理系統(tǒng)有菜單驅(qū)動，將菜單設(shè)計到主窗體中，用戶通過菜單調(diào)用各子模塊完成相應(yīng)的功能。</p><p>　

49、　主窗體主要用來集成本系統(tǒng)的菜單，并在下方顯示一個狀態(tài)欄，添加了菜單后的主窗體如圖4.5所示,各控件屬性如表4.2所示。</p><p><b>　　圖4.5 主窗體</b></p><p>　　選擇菜單“工具/菜單編輯器”命令，打開“菜單編輯器”對話框，逐個創(chuàng)建系統(tǒng)的菜單，如圖4.6所示。</p><p>　　圖4.6 菜單編輯器</p

50、><p>　　表4.2 應(yīng)用程序菜單表</p><p>　　4.2.2商品管理模塊設(shè)計</p><p>　　“商品管理”模塊用來管理超市銷售的所有商品的數(shù)據(jù)。通過該模塊可以添加、修改、刪除商品資料，可設(shè)置禁止或允許某件商品的銷售，可設(shè)置商品的促銷、打折。該模塊用三個窗體來完成相應(yīng)的功能。</p><p><b>　　1）商品管理<

51、/b></p><p>　　“商品管理”窗體如圖4.7所示，該窗體分頁顯示系統(tǒng)中已有的資料商品，可以通過上方的三個按鈕添加、修改、刪除商品資料，也可通過右側(cè)各框架查詢、過濾，使左側(cè)列表中只顯示部分商品資料，通過右下角大的三個按鈕可以允許/禁止商品銷售、可提交選中商品的進貨計劃。</p><p><b>　　圖4.7商品管理</b></p><

52、p>　　當(dāng)系統(tǒng)中的商品數(shù)量較多時，可以使用右側(cè)“商品查找”框架中的控件查詢指定商品的信息。在“商品查詢”的三個文本框中輸入查詢（可同時輸入一個或多個條件），然后單擊“查找”按鈕，即可在左側(cè)表格中顯示指定條件的商品信息。</p><p>　　在“商品過濾”框架中有3個組合框，通過這3個組合框可設(shè)置不同的過濾條件（如顯示指定廠商的商品、顯示指定供應(yīng)商的商品、顯示指定狀態(tài)的商品）。在窗體右上角有4個導(dǎo)航按鈕，可在

53、分頁顯示的記錄集中進行導(dǎo)航。</p><p><b>　　2）添加商品 </b></p><p>　　在“商品管理”窗體中單擊“添加按鈕”，將打開如圖4.8所示的“添加商品”窗體，另外，在“商品管理”窗體中選中商品后單擊“修改”按鈕也將打開窗體，對商品的數(shù)據(jù)進行修改。</p><p>　　在“添加商品”窗體中輸入商品的各種信息，并可以在窗體右側(cè)

54、設(shè)置商品的銷售狀態(tài)、促銷情況等數(shù)據(jù)。</p><p><b>　　圖4.8 添加商品</b></p><p><b>　　3）計劃進貨</b></p><p>　　在“商品管理”窗體中選中一個或多個準備進貨的商品后，單擊右側(cè)的“提交進貨”按鈕，將打開如圖4.9所示的“計劃進貨”窗體。在該窗體的ListView控件中將顯示計

55、劃進貨大的商品信息，選中某個商品后，可以在下方的文本框中修改計劃進貨的數(shù)量和日期，單擊“確定”按鈕將保存計劃進貨的情況。</p><p>　　“計劃進貨”窗體frmPlanStock各控件的屬性如表 4.3所示</p><p><b>　　圖4.9 計劃進貨</b></p><p>　　表4.3 計劃進貨窗體控件屬性表</p>&

56、lt;p>　　4.2.3進貨管理模塊設(shè)計</p><p>　　“進貨管理”模塊用來管理超市的進貨情況。該模塊由兩個窗體組成，主窗體為“進貨管理”，可以顯示計劃進貨的列表，單擊其中的”入庫”按鈕將顯示“入庫”窗體。</p><p><b>　　進貨管理</b></p><p>　　“進貨管理”窗體運行效果如圖4.10所示，表格中顯示的是計劃

57、進貨的商品，可以通過上方的按鈕添加、修改、刪除計劃進貨商品。選中某個商品后，單擊“入庫”按鈕將打開“入庫”對話框，可以完成商品的入庫操作。單擊“報表”按鈕可以輸出計劃進貨報表。單擊“需要進貨”按鈕將打開“計劃進貨”窗體，顯示需要進貨的商品信息。</p><p>　　圖4.10 進貨管理運行界面</p><p>　　“進貨管理”窗體frmstock在設(shè)計界面如圖4.11所示，其中用于顯示計劃

58、的ListView控件和用于顯示入庫記錄的MSHFlexGrid控件重疊在一起。在該窗體中，由于要在“計劃進貨”和“入庫記錄”之間切換顯示數(shù)據(jù)，因此，要顯示這兩項數(shù)據(jù)的ListView和MSHFlexGrid控件將重疊放置。</p><p>　　圖4.11 進貨管理設(shè)計界面</p><p><b>　　2）入庫界面設(shè)計</b></p><p>

59、　　在“進貨管理”窗體中單擊“入庫”按鈕，將打開如圖4.12所示“入庫”窗體。該窗體中的數(shù)據(jù)由其調(diào)用窗體“進貨管理”中的代碼填充，可以輸入入庫數(shù)量、價格、日期等參數(shù)，然后單擊“確定”按鈕，即可完成入庫操作。</p><p>　　圖4.12 入庫窗體</p><p><b>　　4.2.4其他模塊</b></p><p><b>　　1

60、）銷售管理模塊</b></p><p>　　“銷售管理”模塊用來查詢統(tǒng)計商品銷售狀況，生成報表。銷售管理模塊運行時如圖4.12所示。單擊不同按鈕可以執(zhí)行相應(yīng)的功能。</p><p>　　圖4.12 銷售管理窗體</p><p>　　2）廠商/供貨商模塊</p><p>　　“廠商/供貨商”模塊用來管理商品的廠商/供貨商資料。廠商/

61、供貨商窗體如圖4.13所示。在該窗體中可分別添加、修改、刪除廠商/供貨商的名稱、電話、地址等資料。</p><p>　　圖4.13廠商/供貨商窗體</p><p><b>　　幫助窗體</b></p><p>　　幫助窗體簡單介紹程序版本作者等信息，調(diào)用系統(tǒng)信息查看器查看系統(tǒng)信息。運行結(jié)果如圖4.14所示。</p><p&g

62、t;　　圖4.14關(guān)于超市管理系統(tǒng)窗體</p><p><b>　　5.系統(tǒng)實現(xiàn)與測試</b></p><p>　　整個系統(tǒng)的采用Visual Basic 6.0 + MS SQL 2000開發(fā)。經(jīng)過前文的分析和設(shè)計，在本章中將對整個系統(tǒng)功能進行測試。成對流程的編碼后，最重要的事情就是對系統(tǒng)的測試工作了，對照系統(tǒng)需求分析說明書，進行模塊測試。測試在系統(tǒng)設(shè)計階段有兩個時

63、期：通常在編寫每個模塊后都進行單元模塊測試；另一個時期是對系統(tǒng)進行整體綜合測試。</p><p>　　5.1前臺收銀程序測試</p><p>　　在前文中已經(jīng)詳細介紹了前臺收銀程序的開發(fā)過程，現(xiàn)在對前臺程序在windows xp 環(huán)境下進行測試。</p><p>　　為了保證系統(tǒng)能在復(fù)雜苛刻環(huán)境下運行，采用在極端環(huán)境下對前臺程序進行測試，一次性在條碼框中輸入100個

64、商品進行測試，測試結(jié)果前臺收銀程序運行結(jié)果正確無誤，沒有出現(xiàn)卡死等現(xiàn)象，數(shù)據(jù)庫讀取寫入正確。運行稍有延時，為系統(tǒng)計算讀取大量數(shù)據(jù)正常延遲時間。但是在賬務(wù)功能中，核對賬務(wù)時發(fā)現(xiàn)，賬務(wù)計算結(jié)果不正確。經(jīng)仔細檢查程序源代碼后發(fā)現(xiàn)，在銷售完成后對數(shù)據(jù)進行數(shù)據(jù)庫寫入時，在sale表中商品銷售時間誤寫成now應(yīng)為day。</p><p>　　經(jīng)過修改代碼后，賬務(wù)功能正確運行。測試結(jié)果前臺程序員順利完成所有功能。</p&

65、gt;<p>　　5.2后臺管理系統(tǒng)測試</p><p>　　后臺管理系統(tǒng)功能模塊較多，結(jié)構(gòu)復(fù)雜。為順利完成測試，采用模塊測試方法進行測試。</p><p>　　1）用戶管理模塊測試</p><p>　　用管理員賬戶登錄系統(tǒng)對用戶的添加刪除修改等功能進行測試，運行結(jié)果正確無誤。如圖5.1所示。</p><p>　　圖5.1 用戶

66、管理功能測試</p><p>　　2）進貨管理模塊測試</p><p>　　對商品管理、進貨管理、銷售管理等功能進行測試。分別對商品進行加添加、修改、刪除等共能進行測試，測試所有功能均可運行。對進貨管理功能進行測試，對計劃進貨功能進行添加、修改、刪除等功能進行測試，測試所有功能都可以運行。對商品進行入庫，入庫功能可以運行，運行結(jié)果無誤。運行結(jié)果如圖5.2所示。</p><

67、;p>　　圖5.2進貨功能測試</p><p>　　3）銷售管理功能測試</p><p>　　銷售管理功能對銷售狀況進行測試，對銷售管理功能中的按月查詢報表、按季度查詢報表、按年進行查詢報表。測試功能可以順利運行，結(jié)果正確。運行結(jié)果如圖5.3所示。</p><p>　　圖 5.3 銷售管理功能測試</p><p><b>　　

68、5.3系統(tǒng)整體測試</b></p><p>　　在完成了系統(tǒng)所有部分的開發(fā)及測試工作之后將進行系統(tǒng)的整體運行測試?？傮w測試是組裝軟件的系統(tǒng)技術(shù)，本系統(tǒng)測試采用漸增集成測試，即測試單一模塊，將測試完的模塊加入系統(tǒng)中，進行一次系統(tǒng)測試，依次類推將所有模塊加入系統(tǒng)中，在具體測試時，采用自頂向下的結(jié)合方式。</p><p><b>　　6.結(jié)束語</b></

69、p><p>　　本論文主要論述的是超市管理系統(tǒng)的設(shè)計和實現(xiàn)。該系統(tǒng)主要應(yīng)用于超市等零售企業(yè)銷售管理。本課題研究過程中，首先對超市銷售管理業(yè)務(wù)進行了解，然后進行系統(tǒng)需求分析與可行性論證。之后對系統(tǒng)進行總體設(shè)計，指定系統(tǒng)基本目標(biāo)與大體框架結(jié)構(gòu)。之后進行系統(tǒng)詳細功能設(shè)計與實現(xiàn)，最后對系統(tǒng)進行測試，完善系統(tǒng)。</p><p>　　經(jīng)過測試證明，該系統(tǒng)基本完成了超市等零售企業(yè)正常業(yè)務(wù)的處理工作，前臺收銀

70、系統(tǒng)運行流暢，操作簡便。后臺管理系統(tǒng)界面簡潔，操作簡單。但系統(tǒng)中也存在一定的不足之處，如對銷售數(shù)據(jù)的分析功能不夠強大等。</p><p>　　該系統(tǒng)采用分為前臺和后臺兩個獨立系統(tǒng)開發(fā)，在收銀機上只需運行前臺收銀程序，后臺管理程序由超市管理人員運行?？梢杂行П苊馐浙y人員對系統(tǒng)數(shù)據(jù)進行誤操作或惡意修改破壞。增強了系統(tǒng)的安全性。該系統(tǒng)采用SQL Server 2000數(shù)據(jù)庫進行開發(fā)，SQL Server 2000 非凡

71、的數(shù)據(jù)處理能力保證了系統(tǒng)穩(wěn)定高速運行，可以存儲大型超市數(shù)以千萬計的商品信息。</p><p>　　經(jīng)過測試證明，該系統(tǒng)基本完成了超市等零售企業(yè)正常業(yè)務(wù)的處理工作，前臺收銀系統(tǒng)運行流暢，操作簡便。后臺管理系統(tǒng)界面簡潔，操作簡單。但系統(tǒng)中也存在一定的不足之處，如對銷售數(shù)據(jù)的分析功能不夠強大等。</p><p><b>　　參考文獻</b></p><p

72、>　　陶宏才．?dāng)?shù)據(jù)庫原理及設(shè)計[M] ．北京：清華大學(xué)出版社,2005.4</p><p>　　楊晶 VB6.0程序設(shè)計[M] ．北京：機械工業(yè)出版社，2007.5</p><p>　　劉玉山．VB數(shù)據(jù)庫模塊化教程[M]．北京：機械工業(yè)出版社，2009.8</p><p>　　李春葆．VB數(shù)據(jù)庫開發(fā)教程[M]．北京：電子工業(yè)出版社，2006.8</p&g

73、t;<p>　　劉志嫵．VB和SQL的數(shù)據(jù)庫編程技術(shù)[M]．北京：清華大學(xué)工業(yè)出版社，2007.7</p><p>　　吳昌平．Visual Basic程序設(shè)計[M]．北京：人民郵電出版社，2008.10</p><p>　　曾慧．SQL Server 2000應(yīng)用系統(tǒng)開發(fā)教程[M]．北京：清華大學(xué)出版社，2008.5</p><p>　　趙增敏．SQ

74、L Server 2000實用教程[M]．北京：電子工業(yè)出版社，2008.9</p><p>　　.Alex Kriegel & Boris M.Trukhnov.《SQL Bible》[M]．北京：電子工業(yè)出版社，2008.9</p><p>　　Roger S. Pressman .《軟件工程——實踐者的研究方法》[M]．北京：機械工業(yè)出版社，2007.6</p>

75、<p>　　Karl E. Wingers .《軟件需求》[M]．北京：機械工業(yè)出版社，2008.6</p><p><b>　　致 謝</b></p><p>　　經(jīng)過一個多月的畢業(yè)設(shè)計，在指導(dǎo)老師和同學(xué)的幫助下，最終順利完成了畢業(yè)設(shè)計。此次畢業(yè)設(shè)計是對我對大學(xué)所學(xué)知識的系統(tǒng)綜合，在此次設(shè)計中，自身能力有了相當(dāng)程度的提高。并且對所學(xué)知識有了新的認識。&l

76、t;/p><p>　　在此我非常感謝**老師在我大學(xué)的最后學(xué)習(xí)階段——畢業(yè)設(shè)計階段給自己的指導(dǎo)，從最初的定題，到資料收集，到寫作、修改，到論稿，她們給了我耐心的指導(dǎo)和無私的幫助，*老師廣博的學(xué)識和嚴謹?shù)闹螌W(xué)態(tài)度將使我受益終生。</p><p>　　還要感謝和我同一設(shè)計小組的幾位同學(xué)，是你們在我平時設(shè)計中和我一起探討問題，并指出我設(shè)計上的誤區(qū)，使我能及時的發(fā)現(xiàn)問題把設(shè)計順利的進行下去，沒有你們的

77、幫助我不可能這樣順利地結(jié)稿，在此表示深深的謝意。</p><p>　　通過指導(dǎo)老師和同學(xué)們的共同幫助，我的畢業(yè)設(shè)計最終得以順利完成，這也意味著我的大學(xué)生活即將結(jié)束。大學(xué)階期間，我在學(xué)習(xí)上和思想上都受益非淺，這除了自身的努力外，與各位老師、同學(xué)和朋友的關(guān)心、支持和鼓勵是分不開的。在此，祝愿各位老師身體健康，工作順利。祝愿同學(xué)們事業(yè)有成。</p><p>　　感謝各位老師和同學(xué)們的指導(dǎo)，謝謝大

78、家！</p><p><b>　　附 錄</b></p><p><b>　　主要源程序清單</b></p><p>　　A.1前臺收銀端主要代碼</p><p><b>　　登錄窗體代碼</b></p><p>　　Private Sub cmdOK_

79、Click() '“登錄”按鈕</p><p>　　Dim strSQL As String, rs As ADODB.Recordset</p><p>　　strSQL = "SELECT * FROM [User] WHERE username='" & Trim(cmbName.Text) & "'"

80、;</p><p>　　Set rs = QueryExt(strSQL) '查詢選擇用戶的資料</p><p>　　UserName = Trim(cmbName.Text) '保存用戶名</p><p>　　If Not rs.EOF Then '記錄集不為空</p><p>　　If rs("

81、UserPW") = Trim(txtPWD.Text) Then '密碼正確</p><p>　　Unload Me '卸載當(dāng)前窗體</p><p>　　frmMain.Show '顯示主窗體</p><p><b>　　Else</b></p><p>　　MsgBox

82、 "密碼錯誤！", vbCritical + vbOKOnly, "警告"</p><p>　　txtPWD.Text = "" '清空密碼框</p><p>　　txtPWD.SetFocus '設(shè)置輸入焦點</p><p><b>　　End If</b>&l

83、t;/p><p>　　Else '若記錄集不為空，表示系統(tǒng)中無此用戶</p><p>　　MsgBox "系統(tǒng)中無此用戶！", vbCritical + vbOKOnly, "警告"</p><p>　　cmbName.SetFocus '設(shè)置輸入焦點，重新選擇用戶</p><p&g

84、t;<b>　　End If</b></p><p><b>　　End Sub</b></p><p><b>　　前臺主窗體代碼</b></p><p>　　Private Sub cmdESC_Click() '退出</p><p><b>　　Unl

85、oad Me</b></p><p><b>　　End Sub</b></p><p>　　Private Sub cmdF2_Click() '輸入條碼/簡稱</p><p>　　With txtComm(0)</p><p>　　.Text = "" '輸入

86、欄設(shè)置初始值</p><p>　　txtComm(1).Text = 100</p><p>　　txtComm(2).Text = 0</p><p>　　txtComm(3).Text = 1</p><p>　　.SelStart = 0</p><p>　　.SelLength = Len(.Text)<

87、/p><p><b>　　.SetFocus</b></p><p><b>　　End With</b></p><p>　　iRow = Grid1.Rows</p><p><b>　　End Sub</b></p><p>　　Private Sub

88、 cmdF3_Click()</p><p>　　If Grid1.Rows = 1 Then Exit Sub '若表格只有標(biāo)題行，則退出</p><p>　　If MsgBox("確定要刪除整個單據(jù)嗎（Y/N）？ ", vbQuestion + vbYesNo, "刪除") = vbYes Then</p><p>

89、;　　Grid1.Rows = 1 '設(shè)置表格總行數(shù)為1</p><p>　　iRow = 1 '保存新增數(shù)據(jù)到第1行</p><p>　　txtSum.Text = Format(0, "0.00") '清空“合計”文本框</p><p><b>　　End If</b></p>

90、<p><b>　　End Sub</b></p><p>　　Private Sub cmdF4_Click()</p><p>　　Dim strTemp As String, i As Integer</p><p>　　Dim rs As ADODB.Recordset, strSQL As String</p>

91、;<p>　　If Grid1.Rows = 1 Then Exit Sub '若表格只有標(biāo)題行，則退出</p><p>　　strTemp = Date '保存當(dāng)前日期</p><p>　　For i = 1 To Grid1.Rows - 1 '循環(huán)將當(dāng)前表格中的數(shù)據(jù)保存到臨時表中</p><p>　　strSQL = &

92、quot;INSERT INTO saletemp(saleno,GoodsID,saledate,salenumt,SaleMoneyT) VALUES (" & _</p><p>　　txtSaleID.Text & "," & Grid1.TextMatrix(i, 6) & ",'" & strTemp &

93、amp; "'," & _</p><p>　　Trim(Grid1.TextMatrix(i, 3)) & "," & Trim(Grid1.TextMatrix(i, 2)) & ")"</p><p>　　SQLExt strSQL '執(zhí)行SQL語句</p>

94、<p><b>　　Next</b></p><p>　　Grid1.Rows = 1 '設(shè)置表格總行數(shù)為1</p><p>　　txtSum.Text = Format(0, "0.00") '清空“合計”文本框</p><p>　　txtSaleID.Text = txtSaleID.Text

95、 + 1 '生成新的銷售單號</p><p>　　Call cmdF2_Click '設(shè)置輸入焦點到“條碼”框</p><p><b>　　End Sub</b></p><p>　　Private Sub cmdF5_Click()</p><p>　　frmF5.Show 1 '顯

96、示“取單”窗體</p><p><b>　　End Sub</b></p><p>　　Private Sub cmdF6_Click()</p><p>　　Dim strTemp As String, dCur As Double</p><p>　　Dim strSQL As String, rs As ADODB

97、.Recordset</p><p>　　strTemp = Date '當(dāng)前日期</p><p>　　strSQL = "SELECT SUM(salenum*saleprice) FROM sale WHERE saledate='" & strTemp & _</p><p>　　"'

98、AND cashier='" & lblCashier.Caption & "'" '查詢當(dāng)天指定收銀員收款情況</p><p>　　Set rs = QueryExt(strSQL) '執(zhí)行SQL語句</p><p>　　dCur = 0 '銷售金額清0</p><p>

99、;　　If Not IsNull(rs.Fields(0)) Then dCur = rs.Fields(0) '獲取銷售金額</p><p>　　MsgBox "當(dāng)前銷售員在本班次銷售額為：" & Format(dCur, "0.00") & "元。", vbInformation + vbOKOnly, "提示

100、"</p><p>　　Call cmdF2_Click '調(diào)用過程設(shè)置輸入焦點到“條碼”框</p><p><b>　　End Sub</b></p><p>　　Private Sub cmdModify_Click()</p><p>　　Dim i As Integer</p>

101、<p>　　For i = 1 To 3 '判斷三個文本框中的內(nèi)容是否為數(shù)字</p><p>　　If Not IsNumeric(txtComm(i).Text) Then</p><p>　　MsgBox "折扣、單價、數(shù)量都必須輸入數(shù)字！", vbCritical + vbOKOnly, "警告"</p>

102、<p>　　With txtComm(i)</p><p>　　.SetFocus '設(shè)置輸入焦點</p><p>　　.SelStart = 0</p><p>　　.SelLength = Len(.Text) '選中文本框中的內(nèi)容</p><p><b>　　End With</b>&

103、lt;/p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p><b>　　Next</b></p><p>　　cursum = CCur(txtComm(2)) * CDbl(txtComm(3).Text) * (C

104、Dbl(txtComm(1).Text) / 100) '計算商品金額</p><p>　　If iRow <= 0 Then Exit Sub</p><p>　　With Grid1</p><p>　　.TextMatrix(iRow, 2) = txtComm(2).Text '更新表格中的單價</p><p&

105、gt;　　.TextMatrix(iRow, 3) = txtComm(3).Text '更新表格中的數(shù)據(jù)</p><p>　　.TextMatrix(iRow, 5) = cursum '更新表格中的金額</p><p><b>　　End With</b></p><p>　　bChange = False '

106、取消修改模式</p><p>　　Call Summary '調(diào)用過程匯總合計金額</p><p>　　Call cmdF2_Click '調(diào)過用過程將輸入焦點設(shè)置到“條碼”框</p><p><b>　　End Sub</b></p><p>　　Private Sub cmdOK_Clic

107、k() '“完成”按鈕</p><p>　　If Grid1.Rows < 2 Then</p><p>　　MsgBox "對不起，沒有銷售信息！"</p><p><b>　　Else</b></p><p>　　Call SaveData '調(diào)用過程，保存銷售數(shù)據(jù)&

108、lt;/p><p>　　frmAcc.Show 1 '顯示收款對話框</p><p><b>　　End If</b></p><p>　　Call cmdF2_Click</p><p><b>　　End Sub</b></p><p>　　Private Su

109、b Form_Activate()</p><p>　　Call cmdF2_Click</p><p><b>　　End Sub</b></p><p>　　Private Sub Grid1_SelChange()</p><p>　　With Grid1</p><p>　　If .Row

110、s < 1 Then Exit Sub '若表格無數(shù)據(jù)，則退出過程</p><p>　　iRow = .Row '保存當(dāng)前選中行</p><p>　　If iRow < 1 Then Exit Sub '選中的不是數(shù)據(jù)，則退出過程</p><p>　　txtComm(0).Text = .TextMatrix(iRow, 0

111、) '將條碼填到右側(cè)文本框</p><p>　　txtComm(1).Text = .TextMatrix(iRow, 4) '折扣</p><p>　　txtComm(2).Text = .TextMatrix(iRow, 2) '單價</p><p>　　txtComm(3).Text = .TextMatrix(iRow, 3)

112、 '數(shù)量</p><p>　　strName = .TextMatrix(iRow, 1) '商品名稱保存到模塊變量</p><p>　　strID = .TextMatrix(iRow, 6) '商品ID保存到模塊變量</p><p><b>　　End With</b></p><p><

113、;b>　　End Sub</b></p><p>　　Private Sub txtComm_KeyPress(Index As Integer, KeyAscii As Integer)</p><p>　　If KeyAscii = 13 Then '如果按了回車鍵</p><p>　　If Index < 3 Then

114、'前2個文本框</p><p>　　txtComm(Index + 1).SetFocus '設(shè)置輸入焦點到下一個文本框</p><p>　　Else '若是第3個文本框</p><p>　　cmdModify.SetFocus '設(shè)置輸入焦點到“修改”按鈕</p><p><b>　　End

115、 If</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub txtComm_LostFocus(Index As Integer)</p><p>　　Dim rs As New Rec

116、ordset, strSQL As String, str1 As String</p><p>　　If bChange Then Exit Sub '修改模式，退出</p><p>　　If Index = 0 Then '條碼/簡碼</p><p>　　On Error GoTo err '錯誤處理</p>&l

117、t;p>　　Beep '鳴笛，提示錄入一個商品條碼</p><p>　　If Trim(txtComm(0).Text) = "" Then Exit Sub '若條碼為空，則退出</p><p>　　strSQL = "SELECT * FROM goods WHERE barcode='" & txtC

118、omm(0).Text & "'"</p><p>　　Set rs = QueryExt(strSQL) '從商品庫中查詢該條碼的商品</p><p>　　If rs.EOF Then '若無此條碼的商品</p><p>　　MsgBox "該商品還未上賬，請聯(lián)系商場管理人員！", vb

119、Critical + vbOKOnly, "警告"</p><p>　　Call cmdF2_Click '設(shè)置輸入焦點到“條碼”框</p><p>　　Exit Sub '退出過程</p><p><b>　　End If</b></p><p>　　strName =

120、rs!GoodsName '商品名稱</p><p>　　strID = rs!GoodsID '商品編號</p><p>　　txtComm(2).Text = rs!GoodsPrice '單價</p><p>　　txtComm(3).Text = 1 '數(shù)量</p><p>　　cur

121、sum = CCur(txtComm(2)) * CDbl(txtComm(3).Text) * (CDbl(txtComm(1).Text) / 100) '單價*數(shù)量*折扣</p><p>　　rs.Close '關(guān)閉記錄集</p><p>　　str1 = txtComm(0).Text & vbTab '條碼</p><

122、p>　　str1 = str1 & strName & vbTab '商品名稱</p><p>　　str1 = str1 & txtComm(2).Text & vbTab '單價</p><p>　　str1 = str1 & txtComm(3).Text & vbTab '數(shù)量</p>

123、<p>　　str1 = str1 & txtComm(1).Text & vbTab '折扣</p><p>　　str1 = str1 & cursum & vbTab & strID '商品編號</p><p>　　Grid1.AddItem str1 '添加顯示的內(nèi)容</p><p&g