vb超市管理系統(tǒng)論文

1、<p>　　江西師范大學科學技術學院</p><p>　　JIANGXI NORMAL UNIVERSITY </p><p>　　SCIENCE AND TECHNOLOGCOLLEGE</p><p><b>　　本科畢業(yè)生論文</b></p><p><b>　　題目：超市管理系統(tǒng)</b&

2、gt;</p><p>　　Topic:The design of Marketing personnel management system</p><p>　　姓 名：陳焰杰</p><p>　　專業(yè)班級：04電子信息工程</p><p>　　學 號：0408068005</p><p>&l

3、t;b>　　指導老師：歐陽迎春</b></p><p>　　完成日期：2008年4月</p><p><b>　　聲 明</b></p><p><b>　　本人鄭重聲明：</b></p><p>　　所呈交的學位論文，是本人在指導教師指導下，獨立進行研究工作所取得的成果。除

4、文中已經(jīng)注明引用的內(nèi)容外，本論文不含任何其他個人或集體已經(jīng)發(fā)表或撰寫過的作品或成果。對本文的研究做出重要貢獻的個人和集體，均已在文中以明確的方式標明。本聲明的法律結(jié)果由本人承擔。</p><p>　　本畢業(yè)設計（論文）成果是本人在江西師范大學科學技術學院讀書期間在指導教師指導下取得的，成果歸江西師范大學科學技術學院所有。</p><p><b>　　特此聲明。</b>

5、</p><p>　　聲明人（畢業(yè)設計（論文）作者）學號：</p><p>　　聲明人（畢業(yè)設計（論文）作者）簽名：</p><p>　　簽名日期： 年 月 日</p><p><b>　　摘 要</b></p><p>　　超市管理系統(tǒng)是專門為高校設計的非常典型的管理信

6、息系統(tǒng)（MIS），其開發(fā)主要包括前端應用程序的開發(fā)以及后臺數(shù)據(jù)庫的建立和維護。對于前者要求建立起數(shù)據(jù)一致性和完整性強、數(shù)據(jù)安全性好的庫。而對于后者則要求應用程序具有功能完備，易于使用等特點。</p><p>　　本文主要介紹了該系統(tǒng)生成的背景及Visual Basic 6.0和Access的一般原理；闡述了本管理系統(tǒng)的結(jié)構(gòu)及工作原理；設計實現(xiàn)了登錄模塊、銷售統(tǒng)計、分析并解決了現(xiàn)實中的若干技術問題。</p&g

7、t;<p>　　關鍵詞　數(shù)據(jù)庫， Visual Basic6.0 ， 超市管理</p><p><b>　　Abstract</b></p><p>　　A super market management system is a typical application of managing information system (MIS) which

8、 is specially designed for college. It mainly includes building up data-base at back-end and developing the application interface at front-end .The former requires consistency, integrality and security of data. The later

9、 should make the application powerful and be easily used.</p><p>　　.The developing background of the super market system and the basic theory of Visual Basic 6.0 and Access Visual is introduced in this paper

10、. The structure of the super market management system and its design thought are also discussed in this paper.</p><p>　　Keywords:　Database ，Visual Basic6.0 ， The super market management system</p><

11、;p><b>　　目 錄</b></p><p>　　緒論…………………………………………………………………………………1</p><p>　　1.系統(tǒng)開發(fā)工具……………………………………………………………………1</p><p>　　1.1 Visual Basi介紹………………………………………………………… 1 </p&g

12、t;<p>　　1.2 Access 2002……………………………………………………………… 2</p><p>　　2.可行性研究和需求分析…………………………………………………………2</p><p>　　2.1 可行性研究…………………………………………………………………2</p><p>　　2.2 需求分析……………………………………………

13、………………………3</p><p>　　3.系統(tǒng)總統(tǒng)設計方案………………………………………………………………4</p><p>　　3.1 系統(tǒng)功能分析………………………………………………………………4</p><p>　　3.2 數(shù)據(jù)庫設計…………………………………………………………………4</p><p>　　3.3 系統(tǒng)功能模塊設計…

14、………………………………………………………6</p><p>　　3.4 系統(tǒng)功能介紹………………………………………………………………6</p><p>　　4.系統(tǒng)各模塊的設計及實現(xiàn)………………………………………………………9</p><p>　　4.1 用戶控制模塊及界面詳細設計……………………………………………9</p><p>　　4

15、.2 主窗體的設計………………………………………………………………10</p><p>　　4.3 交易管理模塊及設計………………………………………………………11</p><p>　　4.4 進貨統(tǒng)計模塊及界面設計…………………………………………………15</p><p>　　4.5 銷售統(tǒng)計模塊及界面設計…………………………………………………17</p&g

16、t;<p>　　4.6 密碼修改模塊及界面設計…………………………………………………18</p><p>　　結(jié)論………………………………………………………………………………19</p><p>　　致謝………………………………………………………………………………19</p><p>　　參考文獻…………………………………………………………………………

17、20</p><p><b>　　緒論</b></p><p>　　隨著科學技術的不斷提高,計算機科學日漸成熟,其強大的功能已為人們深刻認識,它已進入人類社會的各個領域并發(fā)揮著越來越重要的作用。而當今時代是飛速發(fā)展的信息時代，各行各業(yè)都離不開信息處理。計算機的最大好處在于可以利用它進行信息管理。使用計算機進行信息管理，不僅提高了工作效率，而且大大的提高了其安全性。&l

18、t;/p><p>　　超市管理是超市中不可缺少的重要部分，超市的管理信息量繁多，包含很多信息的數(shù)據(jù)管理?，F(xiàn)今，大多數(shù)大型超市商場都使用計算機進行信息管理，而小型超市商店仍然采用傳統(tǒng)的人工管理方式，這種管理方式存在著許多缺點，如：效率低、工作量大等，而且，隨著購買者與超市數(shù)量的增長，對于超市的銷售、進貨、退貨、交易管理等等，使更新和維護都帶來了不少的困難。本系統(tǒng)就是為了改變傳統(tǒng)的超市商店這種現(xiàn)狀所設計的。</p&

19、gt;<p>　　使用計算機對超市進行管理,有著手工管理所無法比擬的優(yōu)點。例如:查看迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點能夠使超市管理進入科學化、正規(guī)化的軌道。</p><p><b>　　1.系統(tǒng)開發(fā)工具</b></p><p>　　1.1 Visual Basic簡介</p><p>　　1

20、.面向?qū)ο蟮目梢暬?</p><p>　　在Visual Basic6.0中，應用面向?qū)ο蟮某绦蛟O計方法（OOP），把程序和數(shù)據(jù)庫封裝在一起視為一個對象，而且每個對象都是可視的，程序員在設計時只需用現(xiàn)有的工具根據(jù)界面設計的要求，直接在“窗體”上畫出諸如“按扭”、“滾動條”、“文本框”等不同類型的對象，并為它們設置“屬性”編寫“事件”代碼即可，從而大大簡化了設計的復雜度。</p><p>　

21、　2.事件驅(qū)動的編程機制</p><p>　　Visual Basic6.0通過事件驅(qū)動來執(zhí)行對象的操作。在事件驅(qū)動的程序中，代碼不是按照預定的路徑執(zhí)行，而是在響應不同的事件時執(zhí)行不同的代碼模塊。每個對象都有一個事件集，每個事件發(fā)生都要有有相應的程序代碼來響應，即要執(zhí)行一段程序代碼。事件可以由用戶操作觸發(fā)，也可以由操作系統(tǒng)或其他應用程序的消息觸發(fā)，甚至可以由應用程序本身的消息觸發(fā)。這些事件的順序決定了代碼執(zhí)行的順

22、序，因此應用程序每次運行時所經(jīng)過的代碼的路徑是不同的。在程序設計時，不需要建立明顯的開始和結(jié)束的大塊應用程序，也不需要指出先執(zhí)行哪部分代碼和按什么順序執(zhí)行代碼，只需編寫一些針對事件的許多小的模塊子程序（也稱過程）。</p><p>　　3.提供強大的數(shù)據(jù)庫訪問工具</p><p>　　隨著計算機技術的發(fā)展，數(shù)據(jù)庫越來越顯示出其強大的數(shù)據(jù)存儲和數(shù)據(jù)管理能力。為了滿足人們對數(shù)據(jù)庫的需要，Vis

23、ual Basic提供了強大的數(shù)據(jù)庫程序設計能力。它不僅能管理Microsoft Access格式的數(shù)據(jù)庫，還能訪問其他外部數(shù)據(jù)庫，如FoxPro，Paradox等格式的數(shù)據(jù)庫。另外，Visual Basic還提供了開放式數(shù)據(jù)庫連接（ODBC）功能，可以通過直接訪問或建立連接的方式使用并操作后臺大型網(wǎng)絡數(shù)據(jù)庫，如SQL Server，Oracle等。在應用程序中可以使用結(jié)構(gòu)化查詢語言（SQL）直接訪問Server上的數(shù)據(jù)庫，并提供簡單的

24、面向?qū)ο蟮膸觳僮髅睢⒍嘤脩魯?shù)據(jù)庫的加鎖機制和網(wǎng)絡數(shù)據(jù)庫的編程技術，為單機上運行的數(shù)據(jù)庫提供SQL網(wǎng)絡接口，以便于在分布式環(huán)境中快速而有效地實現(xiàn)客戶/服務器方案。</p><p>　　1.2 Access 2002</p><p>　　1.2.1 Access 2002和數(shù)據(jù)庫的關系</p><p>　　Microsoft Access從本質(zhì)上說就是一個數(shù)據(jù)庫管理系

25、統(tǒng)，具體來說是一個關系數(shù)據(jù)庫管理系統(tǒng)（RDBMS）。Access主要用于中小型數(shù)據(jù)庫系統(tǒng)。它相對于其他數(shù)據(jù)庫產(chǎn)品來說開發(fā)時間比較晚，但由于它強大的功能和使用上的方便，使越來越多的用戶轉(zhuǎn)向Access，成為當今最為通用的數(shù)據(jù)庫軟件。</p><p>　　2.可行研究和需求分析性</p><p>　　軟件開發(fā)最初的工作就是問題定義，也就是確定超市中要求解決的問題是什么；做好軟件定義時期的工作是

26、降低軟件成本提高軟件質(zhì)量的關鍵。在軟件開發(fā)的不同階段進行修改需要付出的代價是很不相同的，越在早期改正錯誤，付出的代價就越小，了解了它的重要性之后，我明白前期工作一定要做好才能更好地提高工作效率。我把任務超市又仔細地研究了一遍，充分明白了它的要求后，接下來作可行性研究，只有做好可行性研究才有可能把以后的工作做好。</p><p><b>　　2.1可行性研究</b></p>&l

27、t;p>　　可行性研究的目的就是用最小的代價在盡可能短的時間內(nèi)確定問題是否能夠解決?？尚行匝芯康哪康牟皇墙鉀Q問題，而是確定問題是否值得去解決。不能靠主觀猜想，只能靠客觀分析。</p><p>　　首先應該近一步地分析和澄清問題定義，如果正確則進一步加以肯定，如果有錯則應立刻改正，經(jīng)過仔細審查，然后從三方面分析它的可行性：</p><p>　　技術可行性（即使用現(xiàn)有的技術能實現(xiàn)這個系統(tǒng)

28、嗎）：</p><p>　　答案是肯定的，VB功能強大，能用簡單的方法完成復雜的問題。 </p><p>　　操作可行性（系統(tǒng)的操作方式在這個用戶組織能行的通嗎）：</p><p>　　答案是肯定的，本系統(tǒng)操作簡單，系統(tǒng)的運行不需要特定的環(huán)境。</p><p>　　經(jīng)濟可行性（系統(tǒng)的經(jīng)濟效益是否能超過它的開發(fā)成本）：</p>&

29、lt;p>　　答案是肯定的，產(chǎn)生的經(jīng)濟效益遠超過它的開發(fā)成本。</p><p><b>　　2.2需求分析</b></p><p>　　需求分析是軟件定義時期的最后一個階段,它的基本任務是準確地回答“系統(tǒng)必須做什么”這個問題，需求分析的任務還不是確定系統(tǒng)怎樣完成它的工作，而僅僅是確定系統(tǒng)必須完成哪些工作，也就是對目標系統(tǒng)提出完整、準確、清晰、具體的要求。<

30、/p><p>　　可行性研究階段產(chǎn)生的文檔是需求分析的出發(fā)點。需求分析階段系統(tǒng)本人仔細研究超市管理系統(tǒng)應實現(xiàn)的功能并將它們具體化。</p><p>　　數(shù)據(jù)字典是關于數(shù)據(jù)信息的集合，任何字典最主要的用途都是供人查閱對不了解的條目的解釋，數(shù)據(jù)字典的作用也正是在軟件分析和設計的過程中給人提供關于數(shù)據(jù)的描述信息。</p><p>　　針對一般超市管理系統(tǒng)的需求，通過對超市管理

31、工作過程的內(nèi)容分析與本人所要承擔的任務，設計出下面的數(shù)據(jù)項和數(shù)據(jù)結(jié)構(gòu)：</p><p>　　(1) 交易管理：包括進貨登記、銷貨登記、退貨登記等。其中進貨登記中還包含進貨商登記，如過是新的進貨廠商，可以直接在此登記入庫。進貨和進銷存的主要交易都是在此進行。每次交易（包括進貨、銷貨和退貨）都需要對商品名稱、生產(chǎn)廠商、商品型號、單價、數(shù)量、總金額、交易日期、經(jīng)手業(yè)務員編號等各項記錄。在交易過程中，程序的編寫盡可能的方

32、便員工進行交易，比如：進貨登記時，如果商品編號相同，則自動添加該商品的其它屬性；銷貨登記時，用戶只要輸入商品編號，該商品的其它屬性即可自動出現(xiàn)。退貨登記時，只要輸入正確的銷貨編號，其進銷存信息也將自動列出，盡量的方便了用戶的操作，同時對于登陸的員工編號程序也自動的將其列在進貨登記、銷貨登記中，以己防止員工進行非正常的交易。</p><p>　　(2) 進貨統(tǒng)計：包括今日進貨統(tǒng)計、本月進貨統(tǒng)計、本季度進貨統(tǒng)計、本季

33、度進貨統(tǒng)計、本年度進貨統(tǒng)計等。其中每次進貨統(tǒng)計都是按進貨廠商和進貨總金額統(tǒng)計顯示的。使用一個表格顯示所選時間段的全部進貨數(shù)據(jù)，包括進貨編號、商品名稱等。再使用另一個表格顯示分別從各個廠商進貨的金額，還有一個文本框用于顯示次時間段的進貨總金額。</p><p>　　(3) 系統(tǒng)管理:包括更換用戶、修改密碼、退出系統(tǒng)、與關與。用戶在進入后可以根據(jù)自己的需要進行更改密碼，調(diào)換用戶重新登錄，退出本系統(tǒng)和一些相關的相關本版

34、的信息提示。</p><p>　　(4) 銷售統(tǒng)計，包含的數(shù)據(jù)項有：銷售編號、商品編號、商品名稱、生產(chǎn)產(chǎn)商、生產(chǎn)社、銷售年、銷售月、銷售日、業(yè)務員編號等等。</p><p>　　查看數(shù)據(jù)表，包含的數(shù)據(jù)項有：進貨表、現(xiàn)存商品表、退貨表、銷售表、管理員工表等等。</p><p>　　(6) 系統(tǒng)用戶信息，包含的數(shù)據(jù)項有：用戶名、口令、級別。</p>&

35、lt;p>　　3.系統(tǒng)總體設計方案</p><p>　　3.1 系統(tǒng)功能分析</p><p>　　系統(tǒng)開發(fā)的總體任務是實現(xiàn)各種信息的系統(tǒng)化、規(guī)范化和自動化。</p><p>　　系統(tǒng)功能分析是在系統(tǒng)開發(fā)的總體任務的基礎上完成。本人根據(jù)系統(tǒng)需要與任務的分配要完成的主要任務與功能有:</p><p>　　對本系統(tǒng)的登錄模塊的實現(xiàn)：根據(jù)不同的

36、用戶權限來登錄到主窗體。</p><p>　　對本統(tǒng)主要界機的設計實現(xiàn)：在主界面中要實現(xiàn)五個彈出菜單；有交易管理菜單，進貨統(tǒng)計菜單，銷售統(tǒng)計菜單，查看數(shù)據(jù)表菜單，系統(tǒng)管理菜單。</p><p><b>　　3.2數(shù)據(jù)庫設計</b></p><p>　　上面提到的各種功能的實現(xiàn)都離不開數(shù)據(jù)庫的支持，因此數(shù)據(jù)庫設計作為本系統(tǒng)設計的一部分不可缺少。開

37、發(fā)本系統(tǒng)中使用的數(shù)據(jù)庫系統(tǒng)是Windows Access 2000 。從上面的功能分析不難看出本系統(tǒng)需要建立以下幾個數(shù)據(jù)表：buy表(進貨表)、goods表(現(xiàn)存商品表)、sell表(進銷存表)、retreat表(退貨表)、employee表(員工表)、manufacturer表(進貨商表)。由于數(shù)據(jù)量比較小，所以這些數(shù)據(jù)表都存在一個數(shù)據(jù)庫下：sellsystem.mdb </p><p>　　下面對

38、各個數(shù)據(jù)表的結(jié)構(gòu)做一下簡單介紹：</p><p>　　在系統(tǒng)的數(shù)據(jù)庫設計中，進貨表、銷貨表、商品庫存表和退貨表涉及了交易管理三個子菜單的絕大部分數(shù)據(jù)，是本系統(tǒng)數(shù)據(jù)庫的核心，所以將對其部分表的設置列表顯示。</p><p>　　Manufacturer表（進貨商表）中包括有廠商編號、廠商名稱、聯(lián)系人姓名、電話、廠商地址等字段，表略。</p><p>　　employe

39、e（員工表）中包括有員工編號、員工姓名、員工密碼、員工電話、員工地址等字段，表略。</p><p>　　buy表（進貨表）中包括有進貨編號、商品編號、商品名稱、生產(chǎn)廠商、型號、數(shù)量、進貨價、進貨年、進貨月、進貨日、總金額、業(yè)務員編號等。設計該數(shù)據(jù)表的主要目的是方便管理員的查看，使系統(tǒng)的數(shù)據(jù)管理能夠更加層次化。具體設置如表3-1所示。</p><p><b>　　表3-1 buy表

40、</b></p><p>　　goods表（現(xiàn)存商品表）中包括有商品編號、生產(chǎn)廠商、商品名稱、型號、進貨價、銷貨價、數(shù)量、進貨年、進貨月、進貨日、業(yè)務員編號、總金額等字段。具體設置如表3-2所示。</p><p>　　表3-2 goods表</p><p>　　retreat表（退貨表）中包括有退貨編號、銷貨編號、生產(chǎn)廠商、商品名稱、型號、單價、數(shù)量、總

41、金額、退貨年、退貨月、退貨日、業(yè)務員編號等。具體設置如表3-3所示。</p><p>　　表3-3 retreat表</p><p>　　本節(jié)總結(jié)：對于本超市管理系統(tǒng)功能的實現(xiàn)，重點和難點有如下幾處：</p><p>　?。?）交易管理模塊：用于管理商品的進貨，進銷存，退貨登記的操作； </p><p>　?。?）進貨統(tǒng)計管理：主要用于對商品

42、每日,每月，第季度，每年的進貨情況進行統(tǒng)計管理，此功能只有以管理員的身份進入時才為可用狀態(tài)；</p><p>　?。?）銷售統(tǒng)計管理：主要用于對商品每日,每月，第季度，每年的進銷存情況進行統(tǒng)計管理，此功能只有以管理員的身份進入時才為可用狀態(tài)；</p><p>　?。?）查看數(shù)據(jù)表：主要能查看進貨表，商品信息表，進銷存表，退貨表等進行查看，以實現(xiàn)對商品信息的及時了解。</p>

43、<p>　　3.3 系統(tǒng)功能模塊設計</p><p><b>　　交易管理模塊</b></p><p>　　在本模塊中，對于商品的進貨、銷貨和退貨操作時，都要注意其操作過程中商品數(shù)量及其它屬性的變化，本人在制作此模塊時，采用了指導教師提供給我的思想：進貨登記時，將進貨信息添加到進貨表中。然后對商品庫存表的編號進行判斷，如果進貨信息的商品編號存在，則將商品庫存

44、表中對應記錄的商品數(shù)量做相應的調(diào)整；如果商品編號不存在，則直接將進貨信息添加到商品庫存表中。貨登記時，先將商品的銷貨信息添加到銷貨表中，然后將商品庫存表中響應的商品的數(shù)量做相應的調(diào)整，保證商品數(shù)量的一致性。退貨登記時將退貨信息添加到退貨表中，然后將退貨數(shù)量從進銷存表中減掉，最后將退貨數(shù)量加到商品庫存。</p><p>　　對上述各項功能進行集中、分塊，按照結(jié)構(gòu)化程序設計的要求，得到如圖3.1的系統(tǒng)功能模塊圖。&l

45、t;/p><p><b>　　3.4系統(tǒng)功能介紹</b></p><p>　?。?）登陸窗體: 該登陸窗體對用戶登陸做了一個簡單的判斷，如果是管理員登陸，則進入系統(tǒng)初始化窗體，如果是普通用戶登陸，則進入主界面。</p><p>　?。?） 初始化窗體: 該初始化窗體為本系統(tǒng)的使用者提供了試運行服務，如果使用者試運行后決定正式使用，可以通過管理員登陸

46、本窗體對系統(tǒng)進行初始化，即清空試運行階段的所有進銷存數(shù)據(jù)。</p><p>　?。?）進貨登記窗體: 本窗體用來實現(xiàn)商品進貨功能，將進貨信息添加到buy表，再將該信息選擇性的加入goods表。如果是新的進貨廠商，可以在此入庫登記。</p><p>　?。?） 銷貨登記窗體: 本窗體主要功能是對商品進行進銷存，首先對員工輸入的銷貨信息進行完整條件的判斷，條件符合后進行進銷存。然后將進銷存信息

47、存入sell表，并對goods表的數(shù)量做相應修改。 </p><p>　?。?）退貨窗體: 本窗體的功能是實現(xiàn)商品退貨功能，當人為判斷某商品可以退貨時即可將該商品退貨。</p><p>　　（6）進貨統(tǒng)計菜單: 進貨統(tǒng)計菜單下有4個子菜單，分別是今日進貨統(tǒng)計、本月進貨統(tǒng)計、本季度進貨統(tǒng)計、今年進貨統(tǒng)計。</p><p>　?。?）銷貨統(tǒng)計窗體: 進銷存統(tǒng)計菜單下有4

48、個子菜單，分別是今日銷貨、月銷貨、本季度銷貨、今年銷貨。 </p><p>　?。?）查看進貨表: 本窗體的主要設計目的是設置一個查詢商品庫存表的條件 。</p><p>　?。?）管理員工表: 本窗體的制作目的在于方便對管理員用戶的管理， 本節(jié)前面曾經(jīng)提過系統(tǒng)初始化的功能，但其初始化并不能對員工表進行操作，當管理員登陸本系統(tǒng)時，可以訪問此窗體，對用戶表進行維護。但不能對管理員進行刪除操作

49、，此操作已被本人屏蔽。</p><p>　?。?0）更換用戶功能: 在一個商品進銷存公司可能會存在員工交接班的現(xiàn)象，為了方便用戶交接班的操作順利進行，在系統(tǒng)管理模塊中做了一個更換用戶子菜單，該子菜單便順利的實現(xiàn)了此功能，而且它也方便了管理員的登陸管理。</p><p>　?。?1）修改密碼: 為了方便用戶使用，在本模塊中還設置了一個修改密碼窗體。該窗體主要包括一個用戶名輸入、一個原密碼輸入

50、和兩個新密碼輸入。</p><p><b>　　否</b></p><p>　　是 </p><p>　　圖3.1系統(tǒng)功能模塊</p><p>　　4. 系統(tǒng)各模塊的設計及實現(xiàn)</p><p>　　經(jīng)過了前面的可行性研究和需求分析，現(xiàn)在對我要完成的功能模塊的實現(xiàn)做

51、詳細的設計。</p><p>　　4.1用戶控制模塊及界面詳細設計</p><p>　　登錄窗體如圖4.1所示</p><p><b>　　圖4.1 登錄窗體</b></p><p>　　退出Splash窗體后就進入了登錄窗體。輸入相應的用戶名和密碼。如果用戶的密碼輸錯錯誤，則不能登錄到系統(tǒng)主窗體；如果用戶密碼正確，則進

52、入系統(tǒng)的MDI主窗體。</p><p><b>　　代碼設計：</b></p><p>　　Private Sub Label3_Click()</p><p>　　If Combo1.Text = "" Then</p><p>　　MsgBox "請輸入用戶名！", vbOKO

53、nly + vbInformation, "注意"</p><p>　　Combo1.SetFocus</p><p><b>　　Exit Sub</b></p><p>　　ElseIf Text1.Text = "" Then</p><p>　　MsgBox "請

54、輸入密碼！", vbOKOnly + vbInformation, "注意"</p><p>　　Text1.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　4.2 主窗體</b></p><p><b>

55、　　如圖4.2所示。</b></p><p>　　圖4.2 主窗體 </p><p>　　在MDI主窗體中，設計了5項菜單，分別為“交易管理”、“進貨統(tǒng)計”</p><p>　　“銷售統(tǒng)計”、“查看數(shù)據(jù)表”、“系統(tǒng)管理”、管理員權限、進貨統(tǒng)計、銷貨統(tǒng)計、查看數(shù)據(jù)表、系統(tǒng)管理。</p><p><b>　　部分

56、設計代碼如下：</b></p><p>　　Private Sub mnBuyMonth_Click()</p><p>　　frmBuyall.Text2.Enabled = False</p><p>　　frmBuyall.SSTab1.Tab = 1</p><p>　　frmBuyall.SSTab1.TabEnable

57、d(0) = False</p><p>　　frmBuyall.SSTab1.TabEnabled(1) = True</p><p>　　frmBuyall.SSTab1.TabEnabled(2) = False</p><p>　　frmBuyall.SSTab1.TabEnabled(3) = False</p><p>　　frm

58、Buyall.Show</p><p>　　strbuy = "select * from buy where 進貨年=" & inty & " and 進貨月=" & intm & " "</p><p>　　rs_buy.Open strbuy, cnn, adOpenKeyset, adLoc

59、kPessimistic</p><p>　　frmBuyall.Adodc2.RecordSource = strbuy</p><p>　　frmBuyall.Adodc2.Refresh</p><p>　　frmBuyall.DataGrid2.ReBind</p><p>　　If rs_buy.EOF = True Then<

60、;/p><p>　　frmBuyall.Adodc6.RecordSource = strbuy</p><p>　　frmBuyall.Adodc6.Refresh</p><p>　　frmBuyall.DataGrid6.ReBind</p><p>　　MsgBox "您本月沒有進貨記錄！", vbOKOnly + v

61、bInformation, "注意"</p><p>　　rs_buy.Close</p><p>　　strfctotal = "select 生產(chǎn)廠商,sum(總金額) as 各廠商進貨總金額 from buy where 進貨年=" & inty & " and 進貨月=" & intm &

62、" group by 生產(chǎn)廠商"</p><p>　　rs_fctotal.Open strfctotal, cnn, adOpenKeyset, adLockPessimistic</p><p>　　frmBuyall.Adodc6.RecordSource = strfctotal</p><p>　　frmBuyall.Adodc6.Re

63、fresh</p><p>　　frmBuyall.DataGrid6.ReBind</p><p>　　rs_fctotal.Close</p><p>　　strtotal = "select sum(總金額) as 進貨總金額 from buy where 進貨年=" & inty & " and 進貨月=&quo

64、t; & intm & " "</p><p>　　rs_total.Open strtotal, cnn, adOpenKeysetm, adLockPessimistic</p><p>　　frmBuyall.Text2.Text = rs_total.Fields("進貨總金額")</p><p>　　

65、rs_total.Close</p><p><b>　　End Sub</b></p><p>　　4.3交易管理模塊及界面設計</p><p><b>　　1．進貨登記：</b></p><p>　　在進貨登記界面（圖4.3）的操作中可以進行對所進的商品的信息及生產(chǎn)廠商的相關信息的添加，清空等操

66、作。</p><p>　　其實現(xiàn)的部分代碼如下：</p><p>　　下面是對進貨表進行添加記錄操作！</p><p>　　str_buy = "select * from buy where 進貨編號='" & Text1.Text & "'"</p><p>　　rs

67、_buy.Open str_buy, cnn, adOpenStatic, adLockOptimistic ' 打開進貨表</p><p>　　圖4.3 進貨登記窗體</p><p>　　If rs_buy.EOF = True Then</p><p>　　rs_buy.AddNew</p><p>　　rs_bu

68、y.Fields("進貨編號") = Text1.Text</p><p>　　rs_buy.Fields("商品名稱") = Text3.Text</p><p>　　rs_buy.Fields("生產(chǎn)廠商") = Text4.Text</p><p>　　rs_buy.Fields("型號&q

69、uot;) = Text5.Text</p><p>　　rs_buy.Fields("數(shù)量") = Val(Text6.Text)</p><p>　　rs_buy.Fields("進貨價") = Val(Text7.Text)</p><p>　　rs_buy.Fields("進貨年") = Text9

70、.Text</p><p>　　rs_buy.Fields("進貨月") = Text10.Text</p><p>　　rs_buy.Fields("進貨日") = Text11.Text</p><p>　　rs_buy.Fields("業(yè)務員編號") = Text12.Text</p>

71、<p>　　rs_buy.Fields("總金額") = Val(Text13.Text)</p><p>　　rs_buy.Update</p><p>　　rs_buy.Close 關閉進貨表</p><p><b>　　Else</b></p><p>　　MsgBox "此

72、進貨編號已存在，請重添！", vbOKOnly + vbInformation, "注意"</p><p>　　Text1.Text = ""</p><p>　　Text1.SetFocus</p><p>　　rs_buy.Close</p><p>　　Exit Sub

73、 ' 關閉進貨表</p><p><b>　　End If</b></p><p>　　'下面是對商品庫存表進行入庫操作！</p><p>　　Dim sql As String</p><p>　　sql = &

74、quot;select * from goods where 商品編號 = '" & Text2.Text & "'"</p><p>　　rs_goods.Open sql, cnn, adOpenStatic, adLockOptimistic</p><p>　　If rs_goods.EOF = True Then<

75、;/p><p>　　rs_goods.Close</p><p>　　str_goods = "select * from goods"</p><p>　　rs_goods.Open str_goods, cnn, adOpenStatic, adLockOptimistic ' 打開庫存表</p><p>　　rs

76、_goods.AddNew</p><p>　　rs_goods.Fields("商品編號") = Text2.Text</p><p>　　rs_goods.Fields("商品名稱") = Text3.Text</p><p>　　rs_goods.Fields("生產(chǎn)廠商") = Text4.Text

77、</p><p>　　rs_goods.Fields("型號") = Text5.Text</p><p>　　rs_goods.Fields("數(shù)量") = Val(Text6.Text)</p><p>　　rs_goods.Fields("進貨價") = Val(Text7.Text)</p&g

78、t;<p>　　rs_goods.Fields("銷貨價") = Val(Text8.Text)</p><p>　　rs_goods.Update</p><p>　　MsgBox "商品入庫成功", vbOKOnly + vbExclamation, ""</p><p>　　rs_goo

79、ds.Close ' 關閉庫存表</p><p><b>　　Else</b></p><p>　　numgoods = rs_goods.Fields("數(shù)量")</p><p>　　rs_goods.Fields(&qu

80、ot;數(shù)量") = Val(Text6.Text) + numgoods</p><p>　　rs_goods.Update</p><p>　　MsgBox "商品入庫成功", vbOKOnly + vbExclamation, ""關閉庫存表</p><p>　　rs_goods.Close

81、 ' End If</p><p><b>　　End Sub</b></p><p><b>　　銷售登記：</b></p><p>　　對銷售的商品進行相關信息的登記（界面如圖4.4），并進行行銷售金額的計算。其部分設計代碼如下：<

82、;/p><p>　　圖4.4 銷售登記窗體.</p><p>　　Private Sub Command1_Click()</p><p>　　If Text1.Text = "" Then</p><p>　　MsgBox "請?zhí)顚戜N貨編號！", vbOKOnly + vbInformation, &qu

83、ot;注意"</p><p>　　Text1.SetFocus</p><p><b>　　Exit Sub</b></p><p>　　ElseIf Text2.Text = "" Then</p><p>　　MsgBox "請?zhí)顚懮唐肪幪枺?quot;, vbOKOnly +

84、 vbInformation, "注意"</p><p>　　Text2.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　str_goods = "select * from

85、goods where 商品編號='" & Text2.Text & "'"</p><p>　　rs_goods.Open str_goods, cnn, adOpenStatic, adLockOptimistic</p><p>　　If rs_goods.EOF = True Then</p><p&

86、gt;　　MsgBox "對不起，此商品型號已無貨！請選擇其他型！", vbOKOnly + vbInformation, "注意"</p><p>　　rs_goods.Close</p><p><b>　　Exit Sub</b></p><p><b>　　3． 退貨登記：</b&

87、gt;</p><p>　　對退貨的相關信息進行記,操作界面如圖4.5所示。如商品名，編號，價格，退貨員，數(shù)量，金額</p><p><b>　　時間等等進行登記。</b></p><p><b>　　其部分實代碼如下：</b></p><p>　　圖4.5 退貨信息窗體</p>&l

88、t;p>　　Private Sub Command1_Click()</p><p>　　If Text1.Text = "" Then</p><p>　　MsgBox "請?zhí)顚懲素浘幪枺?quot;, vbOKOnly + vbInformation, "注意"</p><p>　　Text1.SetFoc

89、us</p><p><b>　　Exit Sub</b></p><p>　　ElseIf Text2.Text = "" Then</p><p>　　MsgBox "請?zhí)顚戜N貨編號！", vbOKOnly + vbInformation, "注意"</p><

90、p>　　Text2.SetFocus</p><p><b>　　Exit Sub</b></p><p>　　ElseIf Text11.Text = "" Then</p><p>　　MsgBox "請?zhí)顚懮唐窋?shù)量！", vbOKOnly + vbInformation, "注意&q

91、uot;</p><p>　　Text11.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　'下面是對銷售表進行操作!</p><p>　　str_sell = "

92、select * from sell where 銷貨編號='" & Text2.Text & "'"</p><p>　　rs_sell.Open str_sell, cnn, adOpenStatic, adLockOptimistic</p><p>　　If rs_sell.EOF = True Then</p&g

93、t;<p>　　MsgBox "對不起，沒有銷售此商品型號！無法退貨！", vbOKOnly + vbInformation, "注意"</p><p>　　rs_sell.Close</p><p><b>　　Exit Sub</b></p><p>　　ElseIf rs_sell.F

94、ields("數(shù)量") < Val(Text11.Text) Then</p><p>　　MsgBox "對不起，退貨數(shù)量過大，無法退貨！", vbOKOnly + vbInformation, "注意"</p><p>　　rs_sell.Close</p><p><b>　　Exit

95、 Sub</b></p><p>　　4．4 進貨統(tǒng)計模塊及界面設計</p><p>　　圖4.6 進貨統(tǒng)計窗體</p><p>　　操作界面如圖4.6,主要用于對商品每日,每月，第季度，每年的進貨情況進行統(tǒng)計管理，此功能只有以管理員的身份進入時才為可用狀態(tài)。</p><p>　　其部分設計代碼如下：</p><

96、;p>　　Private Sub Form_Load()</p><p>　　inty = Year(Date)</p><p>　　intm = Month(Date)</p><p>　　intd = Day(Date)</p><p>　　Dim str As String</p><p>　　str =

97、"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\sellsystem.mdb;"</p><p>　　'Adodc1的相對路徑連接</p><p>　　Adodc1.ConnectionString = str</p><p>

98、;　　Adodc1.CommandType = adCmdText</p><p>　　Adodc1.RecordSource = "select * from buy where 進貨年=" & inty & " and 進貨月=" & intm & " and 進貨日=" & intd & "

99、 "</p><p>　　Adodc1.Refresh</p><p>　　Set DataGrid1.DataSource = Adodc1</p><p>　　DataGrid1.Refresh</p><p>　　'Adodc2的相對路徑連接</p><p>　　Adodc2.Connectio

100、nString = str</p><p>　　Adodc2.CommandType = adCmdText</p><p>　　Adodc2.RecordSource = "select * from buy where 進貨年=" & inty & " and 進貨月=" & intm & ""

101、</p><p>　　Adodc2.Refresh</p><p>　　Set DataGrid2.DataSource = Adodc2</p><p>　　DataGrid2.Refresh</p><p>　　4．5銷售統(tǒng)計模塊及界面設計</p><p>　　圖4.7 進貨統(tǒng)計窗體</p><

102、p>　　進貨統(tǒng)計窗體如圖4.7所示，主要用于對商品每日,每月，第季度，每年的進銷存情況進行統(tǒng)計管理，此功能只有以管理員的身份進入時才為可用狀態(tài)。</p><p>　　其部分設計代碼如下：</p><p>　　Private Sub Form_Load()</p><p>　　inty = Year(Date)</p><p>　　int

103、m = Month(Date)</p><p>　　intd = Day(Date)</p><p>　　Text1.Enabled = False</p><p>　　Text2.Enabled = False</p><p>　　Text3.Enabled = False</p><p>　　Text4.Enabl

104、ed = False</p><p>　　Dim str As String</p><p>　　str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\sellsystem.mdb;"</p><p>　　Adodc1.Conn

105、ectionString = str</p><p>　　Adodc1.CommandType = adCmdText</p><p>　　Adodc1.RecordSource = "select * from sell where 銷售年=" & inty & " and 銷售月=" & intm & "

106、 and 銷售日=" & intd & " "</p><p>　　Adodc1.Refresh</p><p>　　Set DataGrid1.DataSource = Adodc1</p><p>　　DataGrid1.Refresh</p><p>　　Adodc2.ConnectionS

107、tring = str</p><p>　　Adodc2.CommandType = adCmdText</p><p>　　Adodc2.RecordSource = "select * from sell where 銷售年=" & inty & " and 銷售月=" & intm & ""&

108、lt;/p><p>　　Adodc2.Refresh</p><p>　　Set DataGrid2.DataSource = Adodc2</p><p>　　DataGrid2.Refresh</p><p>　　4．6修改密碼模塊及界面設計</p><p>　　圖4.8 修改密碼窗體</p><p

109、>　　修改密碼窗體如圖4.8所示。在這個模塊中，用戶可以進行自己密碼的修改，確保用戶信息和安全性。其部分設計代碼如下：</p><p>　　Private Sub Command1_Click()</p><p>　　If Text1.Text = "" Then</p><p>　　MsgBox "請?zhí)顚懹脩裘?quot;,

110、vbOKOnly + vbInformation, "注意"</p><p>　　Text1.SetFocus</p><p><b>　　Exit Sub</b></p><p>　　ElseIf Text2.Text = "" Then</p><p>　　MsgBox &qu

111、ot;請?zhí)顚懺艽a！", vbOKOnly + vbInformation, "注意"</p><p>　　Text2.SetFocus</p><p><b>　　Exit Sub</b></p><p>　　ElseIf Text3.Text = "" Then</p><

112、;p>　　MsgBox "請?zhí)顚懶旅艽a！", vbOKOnly + vbInformation, "注意"</p><p>　　Text3.SetFocus</p><p><b>　　Exit Sub</b></p><p>　　ElseIf Text4.Text = "" T

113、hen</p><p>　　MsgBox "請?zhí)顚懶旅艽a！", vbOKOnly + vbInformation, "注意"</p><p>　　Text4.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　結(jié) 論&l

114、t;/b></p><p>　　剛開始設計超市管理系統(tǒng)的時候，我對VB幾乎沒有什么接觸，在老師和一些專業(yè)超市書籍的幫助下，讓我入了門，開始了對超市管理系統(tǒng)的設計。</p><p>　　在不斷的學習與改進中我體會到：</p><p>　　1.做畢業(yè)設計本身也是一個學習新鮮事物的過程，從設計初的不懂到最后順利完成設計，我體會到在實踐中學習的重要性，我想這對于我以后

115、的工作受益匪淺。</p><p>　　2.設計的過程是漫長而困難重重的，設計過程中需要理論與實際的結(jié)合，這就要求有扎實的理論知識，靈活的頭腦，我本身所做的設計并不算十分復雜，但由于以前沒有獨立做過系統(tǒng)所以剛開始時有點亂，好在有老師的幫助，我很快理清了思路，找到了自己的出發(fā)點。</p><p>　　3.由于前期工作的不徹底，對系統(tǒng)的需求分析的要求認識不夠清楚，使得后續(xù)的工作不得不經(jīng)常返回去修

116、改數(shù)據(jù)表和個別代碼。使我體會到在設計中的每一步的重要性，如果上一個步驟不能很好的完成，在后續(xù)的設計將會付出幾倍的代價。</p><p>　　總之，經(jīng)過這么長時間的設計，我與我的同學鐘佳洧、周志強、鄒春燕完成了這個一個功能比較完善的超市管理系統(tǒng)。我深刻體會到要做好一個完整的事情，需要有系統(tǒng)的思維方式和方法，還要有一個團隊合作的精神。對待一個新的問題，要耐心、要細心，也要有很好的團結(jié)，共同努力的團隊協(xié)作精神。<

117、/p><p><b>　　致 謝</b></p><p>　　在完成畢業(yè)設計的過程中，我得到了許多老師和同學的幫助，尤其是我的指導老師歐陽迎春老師，在程序設計和論文寫作上對我悉心指導，在我有疑問的時候，歐陽迎春老師都會耐心解答，使我們的設計有條不紊的進行，令我受益匪淺。在此向老師和同學表示最衷心的感謝。還有我的合作伙伴周志強等同學，在設計過程中給于我很多的幫助，在此也表

118、示感謝。</p><p><b>　　參考文獻</b></p><p>　　[1]馬正元. Visual Basic程序設計教程[M]. 濟南：山東大學出版社.2002.</p><p>　　[2]郭勝. Visual Basic數(shù)據(jù)庫開發(fā)入門與范例解析[M].北京：機械工業(yè)出版社.2004.</p><p>　　[3]

119、毛文毅等. 中文Access 2002應用基礎教程[M]. 北京：冶金工業(yè)出版社.2002.</p><p>　　[4]薩師煊. 數(shù)據(jù)庫系統(tǒng)概論 北京：高等教育出版社[M].2000.</p><p>　　[5]張海藩. 軟件工程導論 北京：清華大學出版社[M].1998.</p><p>　　[6] 孫淮寧 王峻.基于VB高校通用遠程事務管理系統(tǒng)的設計與實現(xiàn)[J]

120、.淮南師范學院學報，2004,22(3),23-25.</p><p>　　[7]Robort H Theory of the Back-propagation Neutal network[M]. Proc VCNN.Washington D C,1989(1).</p><p>　　[8] 冒紅,王連春, 徐玉梅.高校學籍檔案信息管理系統(tǒng)的開發(fā)[J].洛陽工業(yè)高等?？茖W校學報，[J]

121、2004,23 (3),35-38 .</p><p>　　[9] 薛貴軍.冶金企業(yè)對標信息管理系統(tǒng).[J]工業(yè)計量，2004,24(2),22-25 .</p><p>　　[10] 盧文喜, 李娟.基于GIS的城市綠地信息系統(tǒng)設計和研制——以長春市城區(qū)為例[J].東北師大學報(自然科學版)，2004,28(4),44-47.</p><p>　　[11]魯榮江等

122、. Visual Basic項目案例導航 [M].北京：科學出版社.2002.</p><p>　　[12] [美] Jeffrey D.Ullman. Basic study of Database[M]. 北京： 機械工業(yè)出版社.1998.</p><p>　　[13] 計算機世界網(wǎng). http://www2.ccw.com.cn.</p><p>　?。ㄓⅲ㊣

123、an Sommerville.軟件工程（原書第6版）[M].北京:機械工業(yè)出版社,2003.</p><p>　　[14]（美）西爾伯莎茨.數(shù)據(jù)庫系統(tǒng)概念 第4版[M].北京:高等教育出版社,2003.</p><p>　　[15] 任平, 高敏, 姚樹海, 胡鋼 .基于C/S結(jié)構(gòu)的綜合信息管理系統(tǒng)的開發(fā)與應用.[J]河海大學常州分校學報，2004,29(3),42-45.</p&g