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

1、<p>　　本科畢業(yè)論文（設(shè)計）</p><p>　　題 目: 超市管理系統(tǒng)的設(shè)計與實現(xiàn)</p><p>　　院 系： 數(shù) 學(xué) 系</p><p>　　專 業(yè)： 信息與計算科學(xué) </p><p>　　姓 名： <

2、;/p><p>　　學(xué) 號： </p><p>　　指導(dǎo)教師： </p><p>　　教師職稱： </p><p>　　填寫日期：2011年 12 月 20 日</p><p&g

3、t;　　目錄 前言…………………………………………………………………………………..3</p><p>　　摘要…………………………………………………………………………………..4</p><p>　　第一章 調(diào)研背景及設(shè)計背景- 6 -</p><p>　　1.社會背景- 6 -</p>

4、;<p>　　2.設(shè)計背景- 6 -</p><p>　　第二章 開發(fā)工具的介紹- 7 -</p><p>　　1. SQL server 2000功能介紹- 7 -</p><p>　　2.visual basic 6.0功能簡介- 7 -</p><p>　　第三章 系統(tǒng)分析- 10 -</p>&l

5、t;p>　　1.系統(tǒng)需求分析- 10 -</p><p>　　2.系統(tǒng)功能簡介- 10 -</p><p>　　3.數(shù)據(jù)建模- 12 -</p><p>　　4.業(yè)務(wù)流程分析- 13 -</p><p>　　第四章 系統(tǒng)數(shù)據(jù)庫設(shè)計- 16 -</p><p>　　1.數(shù)據(jù)庫表設(shè)計- 16 -</

6、p><p>　　第五章 功能模塊的設(shè)計- 19 -</p><p>　　1、登陸模塊- 19 -</p><p>　　2、主窗體模塊- 20 -</p><p>　　3、商品信息管理模塊- 21 -</p><p>　　4. 銷售信息管理模塊- 24 -</p><p>　　5.進貨信息管

7、理模塊- 26 -</p><p>　　6.員工信息管理模塊- 29 -</p><p>　　第六章 系統(tǒng)測試分析- 32 -</p><p>　　1.模塊測試- 33 -</p><p>　　2.整體測試- 33 -</p><p>　　第七章 總結(jié)- 34 -</p><p>&

8、lt;b>　　前言</b></p><p>　　超市管理系統(tǒng)是一個超市不可缺少的部分，它對于超市的決策者和管理者來說都至關(guān)重要。超市需要處理大量的庫存信息，還要時刻更新產(chǎn)品的銷售信息，不斷添加商品信息。面對不同種類的信息，需要合理的數(shù)據(jù)庫結(jié)構(gòu)來保存數(shù)據(jù)信息，需要有效的程序結(jié)構(gòu)支持各種數(shù)據(jù)操作的執(zhí)行。它最主要的特點是能夠?qū)崟r的和準(zhǔn)確的控制店內(nèi)的銷售情況。如果可以能夠?qū)崟r掌握銷售流程及銷售情況，則可

9、以有效地加速商品的周轉(zhuǎn)率并提高服務(wù)質(zhì)量，而且可以減少產(chǎn)品售價不符等所產(chǎn)生的問題。顧客的消費要求的是希望在超市購物中能基本上都能購得所需的商品，并且還要既保證商品質(zhì)量還要享受優(yōu)質(zhì)，方便的服務(wù)。</p><p><b>　　摘要</b></p><p>　　隨著社會生活的日益現(xiàn)代化，超市的規(guī)模也在不斷擴大，商品數(shù)量急劇增加，有關(guān)商品的各種信息量也急劇增長。那么超市就需要時

10、時刻刻刻對這樣龐大的數(shù)據(jù)量和信息量進行處理，從而實時的和精準(zhǔn)的控制店內(nèi)的銷售情況，有效的加速商品的周轉(zhuǎn)率并提高服務(wù)質(zhì)量。為此，一個超市管理系統(tǒng)的開發(fā)是有必要的。</p><p>　　本次論文將對市場所需的超市管理系統(tǒng)進行討論和研究，超市管理系統(tǒng)包含以下幾個模塊：基本信息的維護、進貨管理、銷售管理以及員工信息管理等。</p><p>　　本文系統(tǒng)的分析了軟件開發(fā)的背景以過程；首先介紹了軟件的

11、開發(fā)環(huán)境，其次介紹了本軟件的詳細設(shè)計過程。根據(jù)系統(tǒng)所需功能，運用windows xp為開發(fā)品臺，采用SQL server 2000及visual basic 6.0作為開發(fā)工具，對系統(tǒng)數(shù)據(jù)庫及各個模塊進行設(shè)計和實現(xiàn)。</p><p>　　關(guān)鍵字：超市 管理系統(tǒng)系統(tǒng) windows xp SQL server 2000</p><p>　　visual basic 6.0 &

12、lt;/p><p><b>　　Abstract</b></p><p>　　Along with the social life of the modernization, the scale of the supermarket is expanding continually, the quantity of a commodity increase sharply

13、, the relevant goods all kinds of information also sharp growth. So the supermarket when every moment of need such a huge amount of data and information processing, thus real-time and accurate control store's sales,

14、effective acceleration of goods turnover and improve service quality. For this, a supermarket management system development is necessary</p><p>　　This paper will be required to market the supermarket managem

15、ent system to carry on the discussion and the research, the supermarket management system includes the following several modules: of the basic information of the maintenance, purchase management, sales management and los

16、s management, etc. </p><p>　　This paper analyzed the background to the software development process; First introduced the software development environment, then introduces the detailed design of the software

17、 process. According to the system required function, using Windows xp machine for developing products, using SQL server 2000 and visual basic 6.0 as a development tool, the system database and each module design and impl

18、ementation.</p><p>　　Key word: supermarket management systems Windows xp SQL server 2000 Visual basic 6.0</p><p>　　第一章 調(diào)研背景及設(shè)計背景</p><p&g

19、t;<b>　　1.社會背景</b></p><p>　　隨著現(xiàn)代科學(xué)技術(shù)的迅猛發(fā)展，計算機技術(shù)已經(jīng)滲透到各個領(lǐng)域，成為各行業(yè)必不可少的工具，特別是Internet技術(shù)的推廣和信息高速公路的建立，使IT產(chǎn)業(yè)在市場競爭中越發(fā)顯示出其獨特的優(yōu)勢，步入信息化時代，有巨大的數(shù)據(jù)信息等待加工處理和傳輸，這使得對書數(shù)據(jù)庫的進一步開發(fā)和利用顯得尤為迫切。</p><p>　　作為國

20、內(nèi)市場的一些中小型超市，它們在信息化過程中的步伐要落后于大中型超市，而對于這些企業(yè)的資源管理，信息的存儲和處理也顯得迫切需要，要適應(yīng)市場競爭，就需要有高效的處理方式和管理方法，因此加快超市的信息化進程是必可少的。</p><p>　　通過對市場的調(diào)查，針對現(xiàn)在各中小型超市對經(jīng)營業(yè)務(wù)和人事管理的實際需要，開發(fā)了這套超市管理系統(tǒng)。在開發(fā)過程中，我們針對當(dāng)前各超市管理的特點和技術(shù)人員的實際水平，采用基于Windows圖

21、形用戶界面這一易學(xué)易用的操作環(huán)境，在系統(tǒng)設(shè)計過程中，我們盡量采用易懂易讀的人機界面，使用戶可以在短期內(nèi)完全掌握。我們又始終發(fā)系統(tǒng)的正確性放在首位，力求數(shù)據(jù)的完整和處理的正確性。在此基礎(chǔ)上優(yōu)化程序代碼，加速系統(tǒng)運行和減少對系統(tǒng)資源的占用。</p><p><b>　　2.設(shè)計背景</b></p><p>　　隨著超市高速的發(fā)展，其經(jīng)營管理也變得愈加復(fù)雜，早期的售貨員站柜

22、臺的形式早已不能滿足現(xiàn)有銷售業(yè)的發(fā)展，這樣就迫切地需要引入新的管理技術(shù)，需要有一個可行和高效的管理系統(tǒng)。使得超市的經(jīng)營變的更加方便，使得其能夠?qū)崟r的和精準(zhǔn)的控制店內(nèi)的銷售情況，有效的加速商品的周轉(zhuǎn)率并提高服務(wù)質(zhì)量，減少產(chǎn)品售價不符等所產(chǎn)生的問題。為此，開發(fā)一個能夠管理超市所需業(yè)務(wù)的管理系統(tǒng)是十分有必要的。</p><p>　　第二章 開發(fā)工具的介紹</p><p>　　1. SQL ser

23、ver 2000功能介紹</p><p>　　SQL是結(jié)構(gòu)化查詢語言（Structured Query Language）的縮寫，其功能包括數(shù)據(jù)查詢、數(shù)據(jù)定義、數(shù)據(jù)操縱和數(shù)據(jù)控制四個部分。SQL簡潔、方便實用、功能齊全，已成為目前應(yīng)用最廣的關(guān)系數(shù)據(jù)庫語言。其主要特點如下：</p><p>　　（1）SQL是類似于英語的自然語言，簡潔易用。</p><p>　?。?）

24、其是一種非過程語言，即用戶只要提出“干什么”即可，而不關(guān)心具體的操作過程，也不必了解數(shù)據(jù)的存取路徑，只要指明所需的數(shù)據(jù)即可。</p><p>　?。?）其是一種面向集合語言，每個命令的操作對象是一個或多個關(guān)系，結(jié)果也是一個關(guān)系。</p><p>　?。?）其是一種自含式語言，又是嵌入式語言；可獨立使用，也可以嵌入到宿主語言中。</p><p>　?。?）SQL具有數(shù)

25、據(jù)查詢（Query）、數(shù)據(jù)定義（Definition）、數(shù)據(jù)操縱（Manipulation）和數(shù)據(jù)控制（Control）四種功能。</p><p>　　2.visual basic 6.0功能簡介</p><p>　?。?）、面向?qū)ο蟮目梢暜嬀幊谭椒ǎ?lt;/p><p>　　用傳統(tǒng)程序設(shè)計語言設(shè)計程序時，大都是通過編寫程序的代碼來實現(xiàn)用戶界面的，在設(shè)計過程中看不到界面

26、的實際顯示效果，必須編譯后運行程序才能觀察，這很麻煩，大大影響了軟件開發(fā)的效率。Visual basic則是應(yīng)用的面向?qū)ο蟮某绦蛟O(shè)計方法（OOP），提供了可視化的設(shè)計方法，它把程序和數(shù)據(jù)封裝起來作為一個對象，并為每個對象賦予應(yīng)有的屬性，使對象成為實在的東西。開發(fā)人員不必再為界面設(shè)計而編寫大量程序代碼，也不再需要通過一遍遍編譯來修改不滿意之處了。只要按設(shè)計要求的屏幕布局，用系統(tǒng)提供的工具，在屏幕上畫出各種“部件”，即圖形對象，并設(shè)置這些圖

27、形對象的屬性，就可以輕松完成任務(wù)了。Visual basic會自動產(chǎn)生界面的設(shè)計代碼，程序設(shè)計員不必再手工編寫實現(xiàn)程序功能的那些煩人的代碼，從而可以大大提高程序設(shè)計的效率。</p><p>　　（2）、結(jié)構(gòu)化程序設(shè)計語言：</p><p>　　Visual basic是在BASIC語言的基礎(chǔ)上發(fā)展起來的，具有高級程序設(shè)計語言的語句結(jié)構(gòu)，接近于自然語言和人類的邏輯思維方式。Visual ba

28、sic語句簡單易懂，其編輯器支持彩色代碼，可自動進行語法錯誤檢查，同時具有功能大且使用靈活的調(diào)試器和編譯器。</p><p>　　Visual basic是解釋型語言，在輸入代碼的同時，解釋系統(tǒng)將高級語言分解翻譯成計算機可以識別的機器指令，并判斷每個語句的語法錯誤。在設(shè)計visual basic程序過程中，隨機可以運行程序，而在整個程序設(shè)計好之后，可以編譯生產(chǎn)可執(zhí)行文件（.EXE），脫離visual basic環(huán)

29、境，直接在windows環(huán)境下運行。</p><p>　?。?）.訪問數(shù)據(jù)庫功能：</p><p>　　Visual basic具有強大的數(shù)據(jù)庫管理功能，利用數(shù)據(jù)控件和數(shù)據(jù)庫管理窗口，可以直接建立或處理Microsoft Access格式的數(shù)據(jù)庫，并提供了強大的數(shù)據(jù)存儲和檢索功能。同時，visual basic還能直接編輯和訪問其它外部數(shù)據(jù)庫，如：DATABASE,FoxPro,Parad

30、ox等，這些數(shù)據(jù)庫格式都可以用visual basic編輯處理。</p><p>　　Visual basic提供開放式數(shù)據(jù)庫連接，即ODBC功能，可通過直接訪問或建立連接的方式使用并操作后臺大型網(wǎng)絡(luò)數(shù)據(jù)庫，如SQL Serever,Oracle等。在應(yīng)用程序中，可以使用結(jié)構(gòu)化查詢語言SQL數(shù)據(jù)標(biāo)準(zhǔn)，直接訪問服務(wù)器上的數(shù)據(jù)庫，還提供了簡單的面向?qū)ο蟮膸觳僮髦噶詈投嘤脩魯?shù)據(jù)庫訪問的加鎖機制和網(wǎng)絡(luò)數(shù)據(jù)庫的SQL的編

31、程技術(shù)，為單機上運行的數(shù)據(jù)庫提供了SQL網(wǎng)絡(luò)接口，可以在分布式環(huán)境中快速而有效地實現(xiàn)客戶/服務(wù)器（client/server）方案。</p><p>　?。?）.動態(tài)數(shù)據(jù)交換（DDE）功能:</p><p>　　利用動態(tài)數(shù)據(jù)交換（Dynamic Data Exchange）技術(shù)，可以把一種應(yīng)用程序中的數(shù)據(jù)動態(tài)地鏈接到另一種應(yīng)用程序中，使兩種完全不同的應(yīng)用程序建立起一條動態(tài)數(shù)據(jù)鏈路。當(dāng)原始數(shù)

32、據(jù)變化時，可以自動更新鏈接的數(shù)據(jù)。Visual basic提供了動態(tài)數(shù)據(jù)交換的編程技術(shù)，可以在應(yīng)用程序中與其它windows應(yīng)用程序建立動態(tài)數(shù)據(jù)交換，在不同的應(yīng)用程序之間進行通信。</p><p>　　（5）.對象鏈接與嵌入式(OLE)功能：</p><p>　　對象的鏈接與嵌入式（OLE）將每個應(yīng)用程序都看作是一個對象（object）,將不通的對象鏈接（link）起來，在嵌入（embed

33、）某個應(yīng)用程序中，從而可以得到具有聲音、影像、圖像、動畫、文字等各種信息的集合式的文件。利用OLE技術(shù)，可以方便地建立復(fù)合式文檔（compound document）,這種文檔由來自多個不同應(yīng)用程序的對象組成，文檔中的每個對象都與原來的應(yīng)用程序相聯(lián)系，并可執(zhí)行與原來應(yīng)用程序完全相同的操作。Visual basic就采用了OLE技術(shù)。</p><p><b>　　第三章 系統(tǒng)分析</b><

34、;/p><p><b>　　1.系統(tǒng)需求分析</b></p><p>　　作為系統(tǒng)需求分析的基本任務(wù)就是準(zhǔn)確地回答“系統(tǒng)必須做什么”這個問題，需求分析的任務(wù)并不是確定系統(tǒng)怎樣完成它的工作，而是確定系統(tǒng)必須完成哪些工作，也就是對目標(biāo)系統(tǒng)提出完整、準(zhǔn)確、清晰、具體的要求。需求分析階段本人仔細研究超市管理系統(tǒng)應(yīng)實現(xiàn)的功能將它們具體化。</p><p>　

35、　針對一般小型超市管理系統(tǒng)的需求，通過對超市進銷存管理工作過程的內(nèi)容分析設(shè)計出下面數(shù)據(jù)項和數(shù)據(jù)結(jié)構(gòu)：</p><p>　　（1）、商品信息管理：包括商品號、商品名稱、商品類別、商品單價、商品廠商以及商品庫存量。</p><p>　?。?）、商品進貨信息管理：包括商品編號、商品名稱、進貨價、數(shù)量、進貨日期。</p><p>　　（3）、商品銷售信息管理：包括銷售單號、

36、職工號、商品編號、銷售數(shù)量、銷售時間。</p><p>　?。?）員工信息管理：包括職工號、姓名、性別以及用戶類型。</p><p><b>　　2.系統(tǒng)功能簡介</b></p><p>　　作為一個超市管理系統(tǒng)，起功能就是要實現(xiàn)超市中商品的進貨銷售，庫存等管理的的系統(tǒng)化、規(guī)范化和自動化。本系統(tǒng)主要研究完成以下幾個功能：</p>

37、<p>　?。?）、基本信息的維護</p><p>　　商品類型的建立與維護，包括商品類型的新建、修改和刪除等；</p><p>　　商品基本信息管理：包括商品基本信息的新建、修改和刪除等。</p><p>　?。?）、商品信息管理</p><p>　　包括商品信息登記、庫存登記等。其中商品信息登記中還包含商品編號、商品名稱以及單價

38、等。商品信息和庫存信息的主要信息都在此顯示。每次交易（包括進貨、銷貨）都需要對商品名稱、生產(chǎn)廠商、商品型號、單價、數(shù)量、總金額、交易日期、等各項記錄。此表方便用戶對于商品信息與庫存信息的查看、添加、刪除等操作。</p><p><b>　?。?）、進貨管理</b></p><p>　　對于商品的進貨信息的記錄，其中包括商品的進貨日期，進貨的數(shù)量，以及其進貨的單價等，使

39、用表格的形式將以上信息逐一顯示出來，以便于對進貨相關(guān)信息的查看、添加、刪除等操作，方便用戶對此信息的管理。</p><p><b>　?。?）、銷售管理</b></p><p>　　此用于商品銷售信息的記錄，其中包括商品的編號、銷售號、銷售的數(shù)量等相關(guān)的信息，使其以表格的形式將記錄的信息逐一的顯示出來，使得用戶能夠輕松的對商品的銷售信息進行查看、添加、刪除等操作，從而

40、使得此信息的管理變的簡潔，提高的工作效率。</p><p>　?。?）、員工信息管理</p><p>　　此用于超市員工信息的記錄，其中包括員工的職工號、姓名、性別以及用戶類型等相關(guān)信息，使其以表格的形式將記錄的信息逐一的顯示出來，使用戶能夠?qū)T工信息進行查看、添加、刪除等操作。</p><p><b>　　（6）、查看數(shù)據(jù)表</b></

41、p><p>　　實現(xiàn)各種數(shù)據(jù)表的瀏覽，包括進貨表，員工信息表、銷售以及商品信息表。</p><p><b>　?。?）、其他窗體</b></p><p>　　包括主窗體、登陸窗體，主窗就是將各個模塊的大意列在菜單中，然后通過每一個菜單將其它的窗體逐個對應(yīng)的連到主窗體中。登陸窗體為本系統(tǒng)的啟動窗體，其動能是讓合法的用戶使用本系統(tǒng)，以防止其它的非法人員

42、使用該系統(tǒng)。</p><p><b>　　3.數(shù)據(jù)建模</b></p><p>　　整個超市管理系統(tǒng)的流程圖如圖1-1所示</p><p><b>　　圖1-1</b></p><p><b>　　4.業(yè)務(wù)流程分析</b></p><p>　　超市管理系

43、統(tǒng)主要是是以先進的管理理念和科學(xué)的計算機技術(shù)來取代原始的手工操作。在新系統(tǒng)開發(fā)前，我們對這個超市管理系統(tǒng)業(yè)務(wù)流程進行了系統(tǒng)的調(diào)查，得出了下面的業(yè)務(wù)流程圖，如圖1-2所示。</p><p><b>　　圖 1-2</b></p><p>　　新系統(tǒng)主要業(yè)務(wù)分析：</p><p><b>　　(1)進貨業(yè)務(wù)</b></p

44、><p>　　進貨管理是企業(yè)生產(chǎn)經(jīng)營活動中及其重要的一環(huán)，它關(guān)系到產(chǎn)品質(zhì)量能否得到保證，生產(chǎn)是否能夠順利進行，采購成本能否得到有效控制等問題。企業(yè)現(xiàn)代管理理念中對企業(yè)的進貨管理提出新的要求；企業(yè)進貨時對供貨商的選擇更見慎重，雙方不再是討價還價的買賣關(guān)系，而是一種相互依存的合作伙伴關(guān)系，并且還需要認識到企業(yè)產(chǎn)品質(zhì)量要從采購抓起，這就關(guān)系到供方的供貨、服務(wù)質(zhì)量。下面是進貨業(yè)務(wù)程序的主要內(nèi)容：</p><

45、;p>　　供貨商的情況調(diào)查：在實施采購之前，超市首先就要對市場上各大商品供貨商進行詳細的調(diào)查，了解公司的具體情況，評定企業(yè)的信譽級別和公司的市場口碑，做到準(zhǔn)確無誤，采購順利。</p><p>　　采購計劃的編制：超市根據(jù)自身的資金條件和銷售狀況，綜合分析市場規(guī)律，擬定采購計劃表。</p><p>　　實施進貨計劃：根據(jù)供貨商檔案及評審結(jié)果，選定供貨商；生成訂貨單給選定的供貨商；雙方就

46、價格、數(shù)量、質(zhì)量等方面洽談磋商，直至簽訂合同；跟蹤合同執(zhí)行，安排供貨進度和貨物運輸，做好驗收入庫工作。</p><p><b>　　(2)庫存業(yè)務(wù)：</b></p><p>　　庫存管理是指在生產(chǎn)經(jīng)營中為銷售和耗用而存儲的各種資產(chǎn)。企業(yè)存貨不當(dāng)都會增加不必要的費用：存貨過多將導(dǎo)致物資的積壓、存儲費用增加、流動資金周轉(zhuǎn)不利，并且過量的庫存會掩蓋管理不善的問題。存貨不足則

47、影響企業(yè)的正常銷售活動。庫存管理的目標(biāo)是需求最佳存貨數(shù)量，使庫存的成本總額最小化。其主要業(yè)務(wù)如下：</p><p>　　產(chǎn)品入庫、出庫、盤庫等日常處理。</p><p>　　科學(xué)合理地確定某庫存物資的庫存控制參數(shù)。如：最佳訂貨批量、最大庫存量、最佳缺貨量、最佳訂購周期等，進行嚴格的庫存控制工作。</p><p>　　匯總統(tǒng)計各類庫存數(shù)據(jù)，反應(yīng)和監(jiān)督儲備資金占用及采購

48、資金使用情況。</p><p><b>　　(3)銷售業(yè)務(wù)</b></p><p>　　銷售對一個企業(yè)的生存和發(fā)展是至關(guān)重要的，它不再是傳統(tǒng)意義上的“賣東西”，它對外關(guān)系到企業(yè)產(chǎn)品、服務(wù)和企業(yè)形象等多方面因素，對內(nèi)涉及到銷售、庫存、財務(wù)等信息。此外信息化的高速發(fā)展為企業(yè)的銷售工作提出了新的挑戰(zhàn)，封閉意味著落后，超市要抓住時機，引入現(xiàn)代化的銷售管理模式，實施企業(yè)的信息化

49、、智能化銷售管理，才能使超市在激烈的市場競爭中立于不敗之地。</p><p>　　第四章 系統(tǒng)數(shù)據(jù)庫設(shè)計</p><p><b>　　1.數(shù)據(jù)庫表設(shè)計</b></p><p>　　上面提到的各種實現(xiàn)都離不開數(shù)據(jù)庫的支持，因此數(shù)據(jù)庫設(shè)計作為本系統(tǒng)的一部分不可缺少。開發(fā)系統(tǒng)中使用的數(shù)據(jù)庫系統(tǒng)是SQL sever 2000。表的建立如下：</p

50、><p><b>　?。?）、商品信息表</b></p><p>　　在“企業(yè)管理器”里的“數(shù)據(jù)庫”下，點擊展開“超市管理”，鼠標(biāo)右擊“表”點擊“新建表”，進行商品信息表的編輯。如下圖所示：</p><p>　　說明：此表存放商品信息和商品的庫存量。</p><p>　　商品號：系統(tǒng)分配給商品的唯一表示值；</p>

51、;<p>　　商品名稱：用于存放商品名稱的信息；</p><p>　　商品類別：用與存放商品所屬類型的信息；</p><p>　　單價：用于存放商品價格的信息；</p><p>　　廠商：用于存放商品廠家的信息；</p><p>　　庫存量：用于存放商品庫存數(shù)量的信息。</p><p>　　（2）、商品進

52、貨信息表</p><p>　　在“企業(yè)管理器”里的“數(shù)據(jù)庫”下，點擊展開“超市管理”，鼠標(biāo)右擊“表”點擊“新建表”，進行商品進貨信息表的編輯。如下圖所示：</p><p>　　說明：此表存放進貨信息。</p><p>　　商品號：系統(tǒng)分配給商品的唯一表示值；</p><p>　　商品名稱：用于存放商品名稱的信息；</p><

53、;p>　　進價：用于存放商品進貨價格的信息；</p><p>　　數(shù)量：用于存放商品進貨數(shù)量的信息；</p><p>　　進貨日期；用于存放商品進貨日期的信息。</p><p>　?。?）、商品銷售信息表</p><p>　　在“企業(yè)管理器”里的“數(shù)據(jù)庫”下，點擊展開“超市管理”，鼠標(biāo)右擊“表”點擊“新建表”，進行商品銷售信息表的編輯。

54、如下圖所示：</p><p>　　說明：此表存放銷售信息。</p><p>　　銷售號：用于存放銷售商品單號的信息；</p><p>　　職工號：用于存放負責(zé)銷售商品員工編號的信息；</p><p>　　銷售數(shù)量：用于存放商品銷售數(shù)量的信息；</p><p>　　銷售時間：用于存放商品銷售時間的信息。</p>

55、;<p><b>　?。?）、員工信息表</b></p><p>　　在“企業(yè)管理器”里的“數(shù)據(jù)庫”下，點擊展開“超市管理”，鼠標(biāo)右擊“表”點擊“新建表”，進行員工信息表的編輯。如圖所示：</p><p>　　說明：此表超市員工信息。</p><p>　　職工號：用于存放超市員工工號的信息；</p><p>

56、;　　姓名：用于存放職工姓名的信息；</p><p>　　性別：用于存放職工性別的信息；</p><p>　　用戶類型：用于存放職工類型的信息。</p><p>　　第五章 功能模塊的設(shè)計</p><p><b>　　1、登陸模塊</b></p><p>　　用戶登錄模塊在本系統(tǒng)的首頁。用戶輸入用

57、戶名和密碼后，系統(tǒng)進行驗證，驗證通過進入程序的主界面。界面如圖1-3所示。</p><p><b>　　圖1-3</b></p><p>　　主要實現(xiàn)的代碼如下：</p><p>　　Dim cn As New ADODB.Connection</p><p>　　Dim rs As New ADODB.Recordse

58、t</p><p>　　Private Sub Command1_Click()</p><p>　　strsql = "select * from 登錄表 where 用戶名='" & Text1.Text & "'" & "and 密碼='" & Text2.Text &

59、amp; "'"</p><p>　　rs.Open strsql, cn, 1, 3</p><p>　　If rs.EOF Then</p><p>　　MsgBox "用戶名或密碼錯了", 32, "警告"</p><p><b>　　Else</b&g

60、t;</p><p>　　Form5.Show</p><p><b>　　Unload Me</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Co

61、mmand2_Click()</p><p><b>　　End</b></p><p><b>　　End Sub</b></p><p>　　Private Sub 注冊_Click()</p><p>　　If Text1.Text = "" Or Text2.Text =

62、 "" Then</p><p>　　MsgBox "用戶名和密碼不能為空", 16 + 4, "警告"</p><p><b>　　Else</b></p><p>　　Dim rs As New ADODB.Recordset</p><p>　　str1

63、= "select * from 登錄表 where 用戶名='" & Text1.Text & "'"</p><p>　　rs.Open str1, cn, 1, 3</p><p><b>　　rs.AddNew</b></p><p>　　rs("用戶名&

64、quot;) = Text1.Text</p><p>　　rs("密碼") = Text2.Text</p><p><b>　　rs.Update</b></p><p>　　MsgBox "注冊成功", 64, "信息提示"</p><p><b&g

65、t;　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist S

66、ecurity Info=False;Initial Catalog=超市管理"</p><p><b>　　cn.Open</b></p><p><b>　　End Sub</b></p><p><b>　　2、主窗體模塊</b></p><p>　　用戶成功登

67、錄后顯示該模塊，該模塊就是將各個模塊的大意列在菜單中，然后通過每一個菜單將其它的窗體逐個對應(yīng)的連到主窗體中，通過點擊不同的按鈕進入不同的窗體模塊。界面如圖1-4所示：</p><p><b>　　圖1-4</b></p><p>　　3、商品信息管理模塊</p><p>　　此模塊進行對商品信息的查看、添加、刪除等操作，能夠?qū)ι唐沸畔⒁约皫齑嫘?/p>

68、息進行管理。界面如圖1-5所示。</p><p><b>　　圖1-5</b></p><p>　　主要實現(xiàn)的代碼如下：</p><p>　　Dim cn As New ADODB.Connection</p><p>　　Dim rs As New ADODB.Recordset</p><p>

69、;　　Private Sub Command1_Click()</p><p>　　str1 = "select * from 商品表 where 商品號='" & Text1.Text & "'"</p><p>　　If rs.State = 1 Then</p><p><b>

70、　　rs.Close</b></p><p><b>　　End If</b></p><p>　　rs.Open str1, cn, 1, 3</p><p>　　If rs.EOF Then</p><p>　　MsgBox "該商品不存在"</p><p>　

71、　Adodc1.CommandType = adCmdText</p><p>　　Adodc1.RecordSource = str1</p><p>　　Adodc1.Refresh</p><p><b>　　Else</b></p><p>　　Text1.Text = rs("商品號")&l

72、t;/p><p>　　Text2.Text = rs("商品名稱")</p><p>　　Text3.Text = rs("庫存量")</p><p>　　Text4.Text = rs("商品類型")</p><p>　　Text5.Text = rs("廠商")&

73、lt;/p><p>　　Text6.Text = rs("單價")</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p&g

74、t;　　str1 = "select * from 商品表 where 商品號='" & Text1.Text & "'"</p><p>　　If rs.State = 1 Then</p><p><b>　　rs.Close</b></p><p><b>

75、　　End If</b></p><p>　　rs.Open str1, cn, 1, 3</p><p>　　If rs.EOF Then</p><p><b>　　rs.AddNew</b></p><p>　　rs("商品號") = Text1.Text</p>&l

76、t;p>　　rs("商品名稱") = Text2.Text</p><p>　　rs("庫存量") = Text3.Text</p><p>　　rs("商品類型") = Text4.Text</p><p>　　rs("廠商") = Text5.Text</p>&

77、lt;p>　　rs("單價") = Text6.Text</p><p><b>　　rs.Update</b></p><p>　　MsgBox "數(shù)據(jù)添加成功", 64, "信息提示"</p><p>　　Adodc1.CommandType = adCmdText</

78、p><p>　　Adodc1.RecordSource = "select * from 商品表"</p><p>　　Adodc1.Refresh</p><p>　　Text1.Text = ""</p><p>　　Text2.Text = ""</p><p&

79、gt;　　Text3.Text = ""</p><p>　　Text4.Text = ""</p><p>　　Text5.Text = ""</p><p>　　Text6.Text = ""</p><p><b>　　Else</b>

80、</p><p>　　MsgBox "該商品已經(jīng)存在了", 16, "警告"</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command3_Click()&l

81、t;/p><p>　　Form5.Show</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command4_Click()</p><p>　　Dim rs As New A

82、DODB.Recordset</p><p>　　Dim rs1 As New ADODB.Recordset</p><p>　　If rs.State = 1 Then</p><p><b>　　rs.Close</b></p><p><b>　　End If</b></p>

83、<p>　　If rs1.State = 1 Then</p><p><b>　　rs1.Close</b></p><p><b>　　End If</b></p><p>　　rs1.Open "select * from 商品表 where 商品號='" & Text1

84、.Text & "'and 商品名稱='" & Text2.Text & "'", cn, 1, 3</p><p>　　If rs1.EOF Then</p><p>　　MsgBox "沒有此種商品不能刪除！"</p><p><b>　　El

85、se</b></p><p>　　rs.Open "delete 商品表 where 商品號='" & Text1.Text & "' and 商品名稱='" & Text2.Text & "'", cn, 1, 3</p><p>　　MsgBox

86、"確定刪除嗎", 32 + 4, "警告"</p><p>　　Adodc1.CommandType = adCmdText</p><p>　　Adodc1.RecordSource = "select * from 商品表"</p><p>　　Adodc1.Refresh</p><

87、;p><b>　　End If</b></p><p>　　Text1.Text = ""</p><p>　　Text2.Text = ""</p><p>　　Text3.Text = ""</p><p>　　Text4.Text = "&

88、quot;</p><p>　　Text5.Text = ""</p><p>　　Text6.Text = ""</p><p><b>　　End Sub</b></p><p>　　Private Sub DataGrid1_Click()</p><p&

89、gt;　　If Adodc1.Recordset.RecordCount <= 0 Then</p><p>　　MsgBox "當(dāng)前表是空表", 16, "信息提示"</p><p><b>　　Else</b></p><p>　　Text1.Text = Adodc1.Recordset.Fi

90、elds(0)</p><p>　　Text2.Text = Adodc1.Recordset.Fields(1)</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p&g

91、t;<p>　　cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=超市管理"</p><p><b>　　cn.Open</b></p><p><b>

92、;　　End Sub</b></p><p>　　4. 銷售信息管理模塊</p><p>　　此模塊進行對商品銷售信息的查看、添加、刪除等操作，能夠?qū)ι唐蜂N售信息進行管理。界面如圖1-6所示。</p><p><b>　　圖1-6</b></p><p>　　主要實現(xiàn)的代碼如下：</p><

93、;p>　　Private Sub Command1_Click()</p><p>　　str1 = "select * from 銷售表 where 銷售號='" & Text1.Text & "'"</p><p>　　If rs.State = 1 Then</p><p><

94、b>　　rs.Close</b></p><p><b>　　End If</b></p><p>　　rs.Open str1, cn, 1, 3</p><p>　　If rs.EOF Then</p><p>　　MsgBox "該銷售商品不存在"</p><

95、;p>　　Adodc1.CommandType = adCmdText</p><p>　　Adodc1.RecordSource = str1</p><p>　　Adodc1.Refresh</p><p><b>　　Else</b></p><p>　　Text1.Text = rs("銷售號&q

96、uot;)</p><p>　　Text2.Text = rs("職工號")</p><p>　　Text3.Text = rs("商品號")</p><p>　　Text4.Text = rs("銷售數(shù)量")</p><p>　　Text6.Text = rs("銷售時間

97、")</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p>　　str1 = "select * from 銷售表 where 銷售號=&

98、#39;" & Text1.Text & "'"</p><p>　　If rs.State = 1 Then</p><p><b>　　rs.Close</b></p><p><b>　　End If</b></p><p>　　rs.Op

99、en str1, cn, 1, 3</p><p>　　If rs.EOF Then</p><p><b>　　rs.AddNew</b></p><p>　　rs("銷售號") = Text1.Text</p><p>　　rs("職工號") = Text2.Text</

100、p><p>　　rs("商品號") = Text3.Text</p><p>　　rs("銷售數(shù)量") = Text4.Text</p><p>　　rs("銷售時間") = Text6.Text</p><p><b>　　rs.Update</b></p&

101、gt;<p>　　MsgBox "數(shù)據(jù)添加成功", 64, "信息提示"</p><p>　　Adodc1.CommandType = adCmdText</p><p>　　Adodc1.RecordSource = "select * from 銷售表"</p><p>　　Adodc1.

102、Refresh</p><p>　　Text1.Text = ""</p><p>　　Text2.Text = ""</p><p>　　Text3.Text = ""</p><p>　　Text4.Text = ""</p><p>

103、　　Text6.Text = ""</p><p><b>　　Else</b></p><p>　　MsgBox "該種銷售商品已經(jīng)存在了", 16, "警告"</p><p><b>　　End If</b></p><p><b

104、>　　End Sub</b></p><p>　　Private Sub Command3_Click()</p><p>　　If Adodc1.Recordset.EOF = False Then</p><p>　　c = MsgBox("您確認要刪除該記錄嗎?", 32 + 4, "特別提示")<

105、;/p><p>　　X = Adodc1.Recordset.Fields(0)</p><p>　　If c = vbYes Then</p><p>　　str1 = "select * from 銷售表 where 銷售號='x" & "'"</p><p>　　If rs.

106、State = 1 Then</p><p><b>　　rs.Close</b></p><p><b>　　End If</b></p><p>　　rs.Open str1, cn, 1, 3</p><p>　　'Adodc1.Recordset.Delete</p>

107、<p>　　Adodc1.CommandType = adCmdText</p><p>　　Adodc1.RecordSource = "select * from 銷售表"</p><p>　　Adodc1.Refresh</p><p>　　MsgBox "銷售商品的所有信息成功刪除", 64, "信

108、息提示"</p><p>　　Adodc1.Refresh</p><p>　　Text1.Text = ""</p><p>　　Text2.Text = ""</p><p>　　Text3.Text = ""</p><p>　　Text4.T

109、ext = ""</p><p>　　Text6.Text = ""</p><p><b>　　End If</b></p><p>　　Else MsgBox "當(dāng)前數(shù)據(jù)庫中已經(jīng)沒有可刪除的記錄", 64, "警告"</p><p>&

110、lt;b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command4_Click()</p><p>　　Form5.Show</p><p><b>　　Unload Me</b></p>

111、<p><b>　　End Sub</b></p><p>　　Private Sub DataGrid1_Click()</p><p>　　If Adodc1.Recordset.RecordCount <= 0 Then</p><p>　　MsgBox "當(dāng)前表是空表", 16, "信息

112、提示"</p><p><b>　　Else</b></p><p>　　Text1.Text = Adodc1.Recordset.Fields(0)</p><p>　　Text2.Text = Adodc1.Recordset.Fields(1)</p><p><b>　　End If<

113、/b></p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=F

114、alse;Initial Catalog=超市管理"</p><p><b>　　cn.Open</b></p><p><b>　　End Sub</b></p><p>　　5.進貨信息管理模塊</p><p>　　此模塊進行對商品進貨信息的查看、添加、刪除等操作，能夠?qū)ι唐愤M貨信息進

115、行管理。界面如圖1-7所示。</p><p>　　主要實現(xiàn)的代碼如下：</p><p>　　Dim cn As New ADODB.Connection</p><p>　　Dim rs As New ADODB.Recordset</p><p>　　Private Sub Command1_Click()</p><p

116、>　　str1 = "select * from 進貨表 where 商品號='" & Text1.Text & "'"</p><p>　　If rs.State = 1 Then</p><p><b>　　rs.Close</b></p><p><b&g

117、t;　　End If</b></p><p>　　rs.Open str1, cn, 1, 3</p><p>　　If rs.EOF Then</p><p>　　MsgBox "該商品不存在"</p><p>　　Adodc1.CommandType = adCmdText</p><p

118、>　　Adodc1.RecordSource = str1</p><p>　　Adodc1.Refresh</p><p><b>　　Else</b></p><p>　　Text1.Text = rs("商品號")</p><p>　　Text2.Text = rs("商品名稱&

119、quot;)</p><p>　　Text3.Text = rs("數(shù)量")</p><p>　　Text4.Text = rs("進貨日期")</p><p>　　Text5.Text = rs("進價")</p><p><b>　　End If</b>&l

120、t;/p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p>　　str1 = "select * from 進貨表 where 商品號='" & Text1.Text & "'"</p

121、><p>　　If rs.State = 1 Then</p><p><b>　　rs.Close</b></p><p><b>　　End If</b></p><p>　　rs.Open str1, cn, 1, 3</p><p>　　If rs.EOF Then<

122、;/p><p><b>　　rs.AddNew</b></p><p>　　rs("商品號") = Text1.Text</p><p>　　rs("商品名稱") = Text2.Text</p><p>　　rs("數(shù)量") = Text3.Text</p&

123、gt;<p>　　rs("進貨日期") = Text4.Text</p><p>　　rs("進價") = Text5.Text</p><p><b>　　rs.Update</b></p><p>　　MsgBox "數(shù)據(jù)添加成功", 64, "信息提示&q

124、uot;</p><p>　　Adodc1.CommandType = adCmdText</p><p>　　Adodc1.RecordSource = "select * from 進貨表"</p><p>　　Adodc1.Refresh</p><p>　　Text1.Text = ""<

125、/p><p>　　Text2.Text = ""</p><p>　　Text3.Text = ""</p><p>　　Text4.Text = ""</p><p>　　Text5.Text = ""</p><p><b>　　

126、Else</b></p><p>　　MsgBox "該商品已經(jīng)存在了", 16, "警告"</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Comm

127、and3_Click()</p><p>　　Form5.Show</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command4_Click()</p><p>　　D

128、im rs As New ADODB.Recordset</p><p>　　Dim rs1 As New ADODB.Recordset</p><p>　　If rs.State = 1 Then</p><p><b>　　rs.Close</b></p><p><b>　　End If</b&g

129、t;</p><p>　　If rs1.State = 1 Then</p><p><b>　　rs1.Close</b></p><p><b>　　End If</b></p><p>　　rs1.Open "select * from 進貨表 where 商品號='&quo

130、t; & Text1.Text & "'and 商品名稱='" & Text2.Text & "'", cn, 1, 3</p><p>　　If rs1.EOF Then</p><p>　　MsgBox "沒有此種商品不能刪除！"</p><p>

131、;<b>　　Else</b></p><p>　　rs.Open "delete 進貨表 where 商品號='" & Text1.Text & "' and 商品名稱='" & Text2.Text & "'", cn, 1, 3</p><