基于VB的系统设计超市条码商品销售管理系统方案

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