1、 PAGE21 / NUMPAGES25 實 訓 報 告課程名稱：基于VB的系統設計超市條碼商品銷售管理系統專業： 通信工程 班級：學號： ：指導教師：成績：完成日期：2012-7-15 摘 要論文從小型超市的實際業務和管理流程出發，針對超市現在運營的系統的缺點和不足，利用目前成熟的客戶服務器體系結構，開發出了一個具有實用價值的小型超市管理系統。論文詳細論述了系統開發的過程、結構與軟件開發的基本思想和方法。對超市的信息需求，信息系統的目標，系統的功能結構，系統的圍與邊界，系統的邏輯、物理結構與其具體實現，系統數據庫結構與表單容，系統的操作界面，系統的安全性，系統實施的要點、系統的支撐環境，系統

2、的操作流程等方面進行了詳細的分析和論述。關鍵詞：采購庫存信息系統目錄TOC o 1-3 h u HYPERLINK l _Toc13170 引 言 PAGEREF _Toc13170 1 HYPERLINK l _Toc21304 1 系統分析 PAGEREF _Toc21304 2 HYPERLINK l _Toc5192 1.1 需求分析 PAGEREF _Toc5192 2 HYPERLINK l _Toc15328 1.1.1 系統的研究意義 PAGEREF _Toc15328 2 HYPERLINK l _Toc24814 1.1.2 系統的研究容 PAGEREF _Toc24814

3、 2 HYPERLINK l _Toc18871 1.2 系統功能分析 PAGEREF _Toc18871 3 HYPERLINK l _Toc17713 1.2.1 基本信息的維護 PAGEREF _Toc17713 3 HYPERLINK l _Toc14389 1.2.2 進貨管理 PAGEREF _Toc14389 3 HYPERLINK l _Toc23046 1.2.3 銷售管理 PAGEREF _Toc23046 3 HYPERLINK l _Toc17004 1.2.4 報損管理 PAGEREF _Toc17004 3 HYPERLINK l _Toc9308 1.3 系統的可

4、行性分析 PAGEREF _Toc9308 3 HYPERLINK l _Toc24337 2.1 Visual Basic 6.0 PAGEREF _Toc24337 4 HYPERLINK l _Toc14227 2.1.1 Visual Basic的編程特點 PAGEREF _Toc14227 4 HYPERLINK l _Toc21912 2.1.2 vb支持的數據庫系統 PAGEREF _Toc21912 5 HYPERLINK l _Toc153 2.1.3 數據庫開發中的三大工具 PAGEREF _Toc153 5 HYPERLINK l _Toc15707 2.2 SQL Se

5、rver 2000 簡介 PAGEREF _Toc15707 6 HYPERLINK l _Toc9974 2.2.1 SQL Server 數據庫特點 PAGEREF _Toc9974 7 HYPERLINK l _Toc16110 2.3 ADO 對象概述 PAGEREF _Toc16110 8 HYPERLINK l _Toc7003 2.3.1 利用ADO開發網絡數據庫應用程序 PAGEREF _Toc7003 8 HYPERLINK l _Toc28934 2.3.2 ADO組件的主要對象與其功能 PAGEREF _Toc28934 9 HYPERLINK l _Toc26469 2

6、.3.3 用來操控數據的SQL命令 PAGEREF _Toc26469 9 HYPERLINK l _Toc13722 2.4 VB訪問數據庫過程 PAGEREF _Toc13722 10 HYPERLINK l _Toc12465 4 系統詳細設計與實現 PAGEREF _Toc12465 15 HYPERLINK l _Toc24885 4.1系統輸入口令 PAGEREF _Toc24885 15 HYPERLINK l _Toc12674 4.2 商品入庫模塊 PAGEREF _Toc12674 15引 言超市形式在我國于20世紀90年代初期起步，現已成為我國零售業的一種重要形態。隨著超

7、市的高速發展，其經營管理也變的愈加復雜，早期的售貨員站柜臺的形式早已不能滿足現有銷售業的的發展這樣就迫切地需要引入新的思想技術和管理技術進入到超市管理之中。超市形態具有種種優點，但在目前狀況下，它仍存在零售業商業企業所共有的落后的一面，如：不能有效的管理每一種商品，收款結算速度慢，容易出現營業差錯，不宜進行商品調價，盤點效率底等，而且在超市日常管理中，商品進、銷、存決策以經驗為主，缺乏實時分析功能，管理人員對與時傳遞資料的要求始終得不到滿足，隨著超市形態的高速發展，其經營管理也變的愈加復雜，日常所需處理的數據量也逐漸增大，商業運轉的中間環節也越來越多，原始的人工管理已無法應對這復雜的市場。為此

8、，我在本次設計之中選擇了超市信息管理系統設計，依靠現代化的計算機信息處理技術來管理超市，從而節省了大量的人力、物力、改善了員工的工作條件，減輕了勞動強度，并且能夠快速反映出商品的進銷存狀況和各種反饋信息分析，使管理人員快速對市場的變化作出相應決策，加快超市的系統建立的技術基礎：數據庫應用系統是以數據庫為基礎的信息管理系統，它一般包含兩個方面容，一個數據庫設計，二是程序設計。數據庫應用系統的開發是一個軟件工程，應按照軟件工程的開發方法進行分析，設計，編程和調試。再建立數據庫應用系統之前，一般應先進行系統的需求分析，了解擁護對系統的要求，然后進行系統的總體設計，最后編寫程序代碼和調試程序。圖1顯示

9、出了數據庫應用系統的開發過程。從圖中可以看出，需求分析包括了對數據本身的需求分析和對功能的需求分析。兩個分析的結果將分別作為數據庫設計和程序設計的依據。實際上在設計數據庫應用系統時，這兩個需求分析是緊密相關的，不論是數據庫設計，還是程序設計都需要考慮這兩個方面的因素。1 系統分析1.1 需求分析1.1.1 系統的研究意義隨著中小型超市數量的增加，超市的商品越來越多，價格的多樣性以與員工數量增加。開發一個超市管理系統對一件超市的管理顯得非常重要，合理地管理不但反映一個國家的科技水平。在這個經濟時代到來的今天，用計算機控制超市的工作有自動化系統運行而完成。不僅節省了人力，還提高了工作效率和服務質量

10、，而且還加速了商品的流通。 由于各超市的商品數不斷增多和規模不斷擴大，管理這些龐大的體系非常困難，因為商品的情況是隨時改變的，因此必須對商品進行動態的管理，而這對以一個管理人員來說是一件比較復雜的事情，存儲，查詢是不可少的業務。超市管理和管理好一個超市的信息，成為超市管理中的一個大問題。在這種情況下，一個可以規化，自動化的超市管理系統就顯得。非常的必要。為此，本文開發了一個適合超市日常管理的系統。1.1.2 系統的研究容超市的管理系統就是把分散的超市的職工，供應商，商品銷售等信息實行統一，集中規的收集管理，建立分類編號管理，電腦存儲查詢以與防火防潮防蛀防盜等現代化，專業化的超市管理系統。超市管

11、理系統為提供信心咨詢，信息檢索，信息存取等服務。系統是超市管理的一個重要容，隨著時代的進步，超市也逐漸變得龐大起來，超市管理系統的流通部分是對所有商品管理最重要的部分，流通系統將客戶與商品，員工與客戶，管理員與員工相互聯系起來，而且流通系統處理的數據類型多，數量大，精細頻繁，因而需要系統應具備較完善的檢驗放錯功能，從而高效率的管理全部功能。本系統包含五大管理模塊：系統管理：登陸系統。商品信息：對商品的添加，查詢，刪改。用戶管理：供應商管理，員工管理，會員管理庫存管理：對商品庫存的查詢功能，報損等功能銷售管理，具有商品銷售，銷售統計等功能可包含需求分析、功能分析、可行性分析、開發工具簡介、架構簡

12、介1.2 系統功能分析1.2.1 基本信息的維護商品類型的建立與維護，包括商品類型的信件，修改和刪除等。商品基本信息管理：包括商品基本信息的信件，修改和刪除等。供貨商信息管理：包括供貨商信息的信件，修改和刪除等。管理員信息管理：系統管理員的添加，刪除和修改密碼等1.2.2 進貨管理 商品的進貨信息管理包括商品的進貨數量，單價，供貨商等。商品進貨管理功能完成進貨信息登記，修改和刪除等。更新庫存，進貨信息的變動直接關系到庫存的變化。1.2.3 銷售管理商品銷售信息包括商品銷售數量，單價，統計日期等。商品銷售管理功能完成銷售信息登記，修改和刪除等。庫存更新：銷售信息的變動直接關系到庫存的變化。銷售分

13、析：列出當前銷售數量最多的前幾項商品和銷售量最少的前幾項商品。1.2.4 報損管理商品報損信息管理：商品報損信息包括商品報損數量，報損原因等。商品報損管理功能完成報損信息登記，修改和刪除等。分類查看：可根據商品類型來查看報損情況。更新庫存：報損信息的變動直接關系到庫存的變動。1.3 系統的可行性分析本系統是一個典型的數據庫應用程序。現有的數據庫應用程序開發技術已非常成熟，利用現有的技術完全可以實現預定的功能。Visual Basic 語言簡單，功能強大并容易掌握，而Access是一個非常優秀的小型數據庫管理軟件，方便使用，性能穩定。第二章 開發環境、工具介紹該軟件是在Windows XP Pr

14、ofessional + Visual Basic 6.0 + SQL Server 2000的環境下完成的。下面就對這些開發工具進行介紹：2.1 Visual Basic 6.0微軟公司的Visual Basic 6.0是Windows應用程序開發工具，是目前最為廣泛的、易學易用的面向對象的開發工具。Visual Basic提供了大量的控件，這些控件可用于設計界面和實現各種功能，減少了編程人員的工作量，也簡化了界面設計過程，從而有效的提高了應用程序的運行效率和可靠性。利用VISUAL BASIC 程序設計語言，可以很方便地設計出在WINDOWS環境下運行的應用程序。故而，實現本系統VB是一個

15、相對較好的選擇。2.1.1 Visual Basic的編程特點Visual Basic語言的出現為Windows下的編程提出了一個新概念，利用Visual Basic的動態數據交換、對象的和嵌入、動態庫、ActiveX技術可以很方便地設計出功能強大的應用程序。利用Visual Basic語言編程有以下幾個特點：1）、可視化程序設計在Visual Basic中開發的應用程序，不但有豐富的圖形界面，同時由用戶為開發圖形界面添加的代碼真是少而又少，因為在設計圖形界面的過程中只需設置 ActiveX控件的屬性即可。2）、強大的數據庫和網絡功能隨著Visual Basic 語言的向前發展，它在數據庫和網

16、絡方面的功能優勢就愈加明顯，利用Visual Basic 中的ODBC開放式的數據庫訪問技術可以很方便地開發出自己的數據庫應用程序；利用 Visual Basic自帶的可視化數據管理器和報表生成器，完全可以在Visual Basic就完成數據庫的開發工作。3）、其他特性在Visual Basic以前的版本中，由于仍然擺脫不了解釋執行的代碼運行機制，所以在相當的程度上制約了 Visual Basic 的發展。從Visual Basic5.0版本開始，在Visual Basic 中制作的應用程序都改變為編譯執行，使得Visual Basic的代碼效率有了很大的提高，同時執行的速度也加快了解30%(

17、同Visual Basic4.0相比)。當然在 Visual Basic中還有其它特性，例如：面向對象的編程語言；結構化程序設計；事件驅動的程序設計：在傳統的或“過程化”的應用程序中，應用程序自身控制了執行哪一部分代碼和按何種順序執行代碼。從第一行代碼執行程序并按應用程序中預定的路徑執行，必要時才會調用過程。在事件驅動的應用程序中，代碼不是按預定的路徑執行，而是在響不同的事件時執行不同的代碼片段。事件可以由用戶操作觸發、也可以由來自操作系統或其它應用程序的消息觸發、甚至由應用程序本身的消息觸發。這些事件的順序，決定了代碼執行的順序，因此應用程序每次運行時所經過的路徑都是不同的。支持動態庫；應用

18、程序之間的資源共享； 事件驅動的程序設計；在傳統的或“過程化”的應用程序中，應用程序自身控制了執行哪一部分代碼和按何種順序執行代碼。從第一行代碼執行程序并按應用程序中預定的路徑執行，必要時才會調用過程。在事件驅動的應用程序中，代碼不是按預定的路徑執行，而是在響不同的事件時執行不同的代碼片段。事件可以由用戶操作觸發、也可以由來自操作系統或其它應用程序的消息觸發、甚至由應用程序本身的消息觸發。這些事件的順序，決定了代碼執行的順序，因此應用程序每次運行時所經過的路徑都是不同的。支持動態庫；應用程序之間的資源共享2.1.2 vb支持的數據庫系統VB支持對多格式的數據庫的訪問和維護，無論是Access還

19、是Foxpro中創建的數據庫，都可以用VB打開，對其進行查詢、修改和刪除等操作。事實上，VB幾乎支持對市面上所有數據庫的訪問。VB可以訪問的數據庫可以簡單的分為三類，即：Microsoft Access格式數據庫，外部數據庫和ODBC數據庫。VB對多種數據庫格式的支持，大大的增強了開發數據庫應用程序的能力。2.1.3 數據庫開發中的三大工具Visual Basic在數據庫應用程序的開發領域中，提供包含數據管理（DataManager），數據控件（Data Control）以與數據編程對象（數據訪問對象（DAO）、遠程數據對象（RDO）和ActiveX數據對象（ADO）等功能強大的工具，協助設計

20、人員輕松的連接數據庫文件，并訪問其中的數據，在功能方面與其他一些專業數據庫軟件（如FoxPro，Micosoft Access等）不相上下。數據管理器（Data Manager）是Visual Basical已有的老成員之一，拓本盛舉有的Jet數據庫引擎（Database Engine）可以幫助VB程序元件立即維護數據庫容，并可通過輸入查詢或查找數據庫信息，而不必再通過其他數據庫軟件另外去設計數據庫。數據控件是VB所提供的基本控件成員之一。它使得設計者省下一堆程序代碼編寫的工作，能夠輕松的設計與維護數據庫容。數據控件可以通過一些屬性的設置去某個數據庫文件，但是它本身并無法顯示數據庫各個記錄的容

21、，必須在搭配其他具有數據感知（Data Aware）功能的控件對應并顯示一個字段容，以方便地進行記錄的瀏覽與編輯工作。VB提供的數據訪問對象（Data Access Object；DAO）讓程序設計者擁有更大的發揮空間。借助程序代碼編寫，直接控制Jet數據庫引擎，配合數據庫控件，能夠開發出更具彈性且高效率的數據應用程序。RDO是處理遠程數據庫的一些專門需要的對象集合。使用RDO可以不用本地的查詢機就能訪問ODBC數據源，這無疑將大大提高應用程序的性能。ADO是VB6.0中新增的對象，它是一個更簡單的對象模型，它更好的集成了其它數據訪問技術，并且對本地和遠程數據庫均有共同的界面，可以取代DAO和

22、RDO。ADO更易于使用。我們在本系統中利用數據管理器創建了數據庫與數據庫表，并采用了ADO數據訪問技術。2.2 SQL Server 2000 簡介SQL Server 2000是微軟公司最新版的大型數據庫服務器，其性能指標在各方面都有趕超Oracle數據庫的趨勢。用它可以方便地管理數據庫和開發應用程序，它使用了最先進的數據庫構架，與Windows NT/2000平臺緊密集成，具有完全的Web功能。通過對高端硬件平臺、網絡和存儲技術的支持，為WEB站和企業的應用最大限度地提供了可擴展性和高可靠性，能在Internet商業領域快速建立并應用。此外，還增強了安全性，保護防火墻外的數據。支持基于角

23、色的安全并擁有安全審計工具。在經歷了SQL Server 6.5和7.0兩個版本的嘗試后，微軟公司終于開始了大規模的業務。記得在以前各種關于SQL Server的文章，都會將其定位成中小型應用方面，這種感覺被大家自然的延續到了2000版之中。其實這是一種誤解。在過去的很長一段時間中，微軟公司聘請了世界上最優秀的數據庫專家以與專門搭建了信息量可謂空前的地理信息系統，勵精圖治，就是為了摘掉扣在自己頭上的這頂帽子。有了強大的性能和功能支持，再配合其一向為人稱道的易用性，SQL Server可以說成為了開發者手中的一柄利器！ 另外，目前國的一些關于微軟平臺的數據庫編程教程，喜歡使用Access作為數據

24、庫平臺的案例，并展開相關的容。這其實對于開發真正的數據庫應用并沒有直接的幫助作用，只能使大家停留在應用的初級階段。SQL Server 2000提供的非常傻瓜的缺省安裝和使用模式，其上手難度并不比Access大。另外，SQL Server 2000可以兼顧小、中、大規模的應用，有著遠遠比Access強大的伸縮性。2.2.1 SQL Server 數據庫特點概括起來，SQL Server 2000數據庫管理系統具有以下主要特點。1）、豐富的圖形管理工具，使系統管理、操作更為直觀方便。SQL Server企業管理器是一個基于圖形用戶界面（GUI）的集成管理工具，利用它可以配置管理SQL Serve

25、r服務器、管理數據庫和數據庫對象、備份和恢復數據、調度任務和管理警報、實現數據復制和轉換操作等。此外，SQL Server 2000還提供了SQL事件探查器、SQL查詢分析器、SQL Server服務管理器和多種操作向導等圖形界面管理工具，大大簡化了用戶操作，從而增強了系統的易用性。2）、動態自動管理和優化功能。即使SQL Server數據庫管理員不做任何設置，SQL Server也能夠在運行過程中根據環境配置和用戶訪問情況動態自動配置，以達到最優性能，從而減輕管理員工作。3）、充分的Internet技術支持。Internet網絡發展到今天已經成為一條重要的信息發布渠道，SQL Server增

26、強了對Internet技術支持，它除保留了前期版本中的數據庫Web出版工具“Web助手”外，還增強了對XML和 技術的支持，這使得電子商務系統能夠通過XML等訪問SQL Server數據庫系統，也擴展了SQL Server在數據挖掘和分析服務領域的應用。4）、豐富的編程接口工具，使用戶開發SQL Server數據庫應用程序更加靈活。SQL Server提供了Transact-SQL、DB-Library for C、嵌入式SQL（ESQL）等開發工具，Transact-SQL與工業標準SQL語言兼容，并在其基礎上加以擴充，使它更適合事務處理方面的需要。此外，SQL Server 2000還支持

27、ODBC、OLE DB、ADO規，可以使用ODBC、OLE DB、ADO接口訪問SQL Server數據庫。5）、具有很好的伸縮性和可靠性。SQL Server 2000既能運行在Windows桌面操作系統下，又可運行在服務器操作系統（包括Windows NT和Windows 2000）下；既能運行在單CPU計算機上，又能運行在對稱多處理系統下。所以，它具有很好的伸縮性，能夠滿足從桌面應用到大型企業分布式應用到不同層次用戶的要求。6）、簡單的管理方式。SQL Server 2000與Microsoft Windows 2000有機集成，所以可以使用Windows 2000的活動目錄（Activ

28、e Directory）功能對SQL Server進行集中管理，大大簡化大型企業中的系統管理工作。此外，與Windows 2000的集成還使SQL Server能夠充分利用操作系統所提供的服務和功能（如安全管理、事件日志、性能監視器、存管理和異步I/O等），從而增強了SQL Server數據庫系統的功能，并且只需要占用很少的系統資源。2.3 ADO 對象概述ADO對象能夠存取到數據庫的容，首先要求數據庫的驅動程序( ODBC驅動程序與OLE DB驅動程序)必須安裝上，否則，ADO對象是無法存取數據庫中容，其原理示意圖如下圖所示：客戶端客戶端客戶端ADO對象各種數據庫所對應的驅動程序各種數據庫(

29、如Access、SQL Server以與Oracle等)請注意：上圖中的“各種數據庫所對應的驅動程序”即ODBC驅動程序與OLE DB驅動程序。2.3.1 利用ADO開發網絡數據庫應用程序ADO（Active Date Objects,即ActiveX數據對象）是一個ASP置的ActiveX服務器組件（ActiveX Server Component）。可把它與ASP結合起來，建立提供數據庫信息的網頁容，對數據庫進行查詢、插入、更新、刪除等操作，并可以把在用戶端實現“網上實時更新顯示”的最新Web數據庫技術。要執行ADO，服務器端必須安裝Windows NT Server 和Internet

30、Information Server(IIS)，而客戶端只要有IE或NETSCAPE較新版本的瀏覽器即可。利用ADO開發網絡數據庫應用程序有以下幾個優點：1）、支持客戶機/服務器結構（Client/Server）與Web系統開發技術。2）、部有多個互相獨立的對象模型。3）、支持分批修改數據庫容。4）、支持多種不同的數據控制指標形式。5）、先進的Recordset數據高速緩存管理功能。6）、允許在程序中使用多個Recordset對象或者多個分批修改區塊傳送。7）、ADO屬于Free_threaded對象，利用它可以開發出更有效的Web應用程序。2.3.2 ADO組件的主要對象與其功能ADO組件又

31、稱為數據庫訪問組件，它提供了以下七種對象：1）、Connection對象：提供對數據庫的連接服務。2）、Command對象：定義對數據庫源操作的命令。3）、Recordset對象：由數據庫服務器所返回的記錄集。Recordset對象的LockType屬性的設置值如下表所示：常量值說明adLockReadOnly1默認值，只讀。無法更改數據adLockPressimistic2保守式記錄鎖定（逐條）。提供者執行必要的操作確保成功編輯記錄，通常采用立即鎖定數據源的記錄的方式。adLockOptimistic3開放式記錄鎖定（逐條）。提供者使用開放式鎖定，只在調用Updata方法時鎖定記錄。adLo

32、ckBatchOptimistic4開放式批更新。用于與立即更新模式相反的批更新模式。4）、Fields對象：由數據庫服務器所返回的單一數據字段5）、Parametes對象：表示Command對象的參數。6）、Property對象：單獨的一個Property對象，提供屬性功能。7）、Error對象：提供處理錯誤的功能。使用ADO對象可以建立和管理數據庫的連接，按數據庫服務器的要求獲得數據，執行更新、刪除、添加數據等操作，獲取ODBC的錯誤信息等。2.3.3 用來操控數據的SQL命令SQL命令是發送給數據庫并要求數據庫操作的指令，它是專門為數據庫設計的語言，比一般的計算機程序語言簡單的多。SQL

33、命令主要分成兩部分：DDL(Data Definition Language)和DML(Data Manipulation Language),其中DDL是建立數據表與數據列的指令群，而DML則是操作數據庫記錄的指令群，如數據庫記錄的添加、更新、刪除、和查詢等。SQL命令，包括Select、Delete、Update、Insert Into、Select Into等。1）、篩選與排序記錄的Select指令基本句型一：Select 字段串列 From 數據表基本句型二：Select From Where 篩選條件基本句型三：Select From Order By字段串列Select Top：限

34、定選取數據的條數2）、刪除數據記錄的Delete指令基本語法：Delete From 數據表 Where 條件式3）、更新數據記錄的Update指令基本語法：Update 數據表Set 表達式4）、增加數據記錄的Insert Into 指令基本句型一：Insert Into 數據表 (字段串列) Values (字段串列)基本句型二：Insert Into 數據表 (字段1,字段2,字段n) Select 5）、建立新數據表的Select Into 指令該指令與“Insert Into Select ”指令的區別是，這個指令將建立另一個新的數據表，而Insert Into是增加數據記錄到“現存

35、的”數據表中。2.4 VB訪問數據庫過程1）、定義數據庫組件Dim conn As New ADODB.Connection其中conn為連接對象Dim reco As New ADODB.Recordset 其中reco為結果集對象2）、打開數據庫對于SQL數據庫，其連接語句為conn.Opendriver=sql server;server=localhost;uid=sa;pwd=;database=student。而對于Access數據庫，連接語句為conn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path +

36、student.mdb3）、設定SQL語句，使用“Execute”命令，即可開始執行訪問數據庫的動作4）、關閉結果集對象，斷開與數據庫的連接reco.Closeconn.Close 3、 模塊設計3.1總系統模塊3.2后臺庫存管理模塊3.2.1模塊用例圖：3.2.2模塊用例活動圖：3.2.3模塊用例時序圖：3.2.3.1庫存管理查詢時序圖：3.2.3.2庫存管理添加時序圖：3.2.3.3庫存管理修改時序圖：3.2.3.4庫存管理刪除時序圖：4 系統詳細設計與實現4.1系統輸入口令進入系統前要進行口令輸入來排除非部人員的進入。界面如圖3.1.1所示 圖3.1.1 輸入框圖4.2 商品入庫模塊通過

37、對商品條碼，商品名，單價，數量等信息的輸入將商品信息存入庫存。界面如圖3.2.1所示。 圖 4.2.1商品入庫界面實現過程：代碼Private Sub Command1_Click()If Text1.Text = Or Text2.Text = Or Text3.Text = Or Text4.Text = Or Text5 = Or Combo1.Text = ThenMsgBox vbOKOnly + vbExclamation, 提示Else Adodc1.Recordset.AddNew Adodc1.Recordset(商品條形碼) = Text1.Text Adodc1.Reco

38、rdset(商品名) = Text2.Text Adodc1.Recordset(產地) = Text5.Text Adodc1.Recordset(單價) = Text3.Text Adodc1.Recordset(庫存) = Text4.Text Adodc1.Recordset(類別) = Combo1.Text Adodc1.Recordset.Update Text1 = : Text2 = : Text3 = : Text4 = : Text5 = : Combo1.Text = Text1.SetFocusEnd IfEnd SubPrivate Sub Command2_Cli

39、ck() Me.Hide Form1.Show 1End SubPrivate Sub Form_Unload(Cancel As Integer) Me.Hide Form1.Show 1End SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = 9 Then Text2.SetFocusEnd SubPrivate Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = 9 Then Text3.SetFo

40、cusEnd SubPrivate Sub Text1_Change() Adodc1.Recordset.MoveFirst Adodc1.Recordset.Find 商品條形碼 = & Text1 & If Adodc1.Recordset.EOF = False Then MsgBox 已經有相關商品，不用錄入！, 48, 注意: Text1 = : Text1.SetFocusEnd SubPrivate Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = 9 Then Text4.SetFocusE

41、nd SubPrivate Sub Text4_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = 9 Then Text5.SetFocusEnd SubPrivate Sub Text5_Keydown(KeyCode As Integer, Shift As Integer)If KeyCode = 9 Then Text6.SetFocusEnd SubPrivate Sub Text6_Keydown(KeyCode As Integer, Shift As Integer) If KeyCode = 9 Then Command1.SetFocusIf KeyCode = 13 ThenIf Text1.Text = Or Text2.Text = Or Text3.Text = Or Text4.Text = Or Text5