毕业设计（论文）-VB6.0超市管理系统的设计与实现.doc

本科毕业论文（设计）题 目: 超市管理系统的设计与实现 院 系： 数 学 系专 业： 信息与计算科学 姓 名： 学 号： 指导教师： 教师职称： 填写日期：2011年 12 月 20 日目录 前言.3摘要.4第一章 调研背景及设计背景- 6 -1.社会背景- 6 -2.设计背景- 6 -第二章 开发工具的介绍- 7 -1. SQL server 2000功能介绍- 7 -2.visual basic 6.0功能简介- 7 -第三章 系统分析- 10 -1.系统需求分析- 10 -2.系统功能简介- 10 -3.数据建模- 12 -4.业务流程分析- 13 -第四章 系统数据库设计- 16 -1.数据库表设计- 16 -第五章 功能模块的设计- 19 -1、登陆模块- 19 -2、主窗体模块- 20 -3、商品信息管理模块- 21 -4. 销售信息管理模块- 24 -5.进货信息管理模块- 26 -6.员工信息管理模块- 29 -第六章 系统测试分析- 32 -1.模块测试- 33 -2.整体测试- 33 -第七章 总结- 34 -前言超市管理系统是一个超市不可缺少的部分，它对于超市的决策者和管理者来说都至关重要。超市需要处理大量的库存信息，还要时刻更新产品的销售信息，不断添加商品信息。面对不同种类的信息，需要合理的数据库结构来保存数据信息，需要有效的程序结构支持各种数据操作的执行。它最主要的特点是能够实时的和准确的控制店内的销售情况。如果可以能够实时掌握销售流程及销售情况，则可以有效地加速商品的周转率并提高服务质量，而且可以减少产品售价不符等所产生的问题。顾客的消费要求的是希望在超市购物中能基本上都能购得所需的商品，并且还要既保证商品质量还要享受优质，方便的服务。摘要随着社会生活的日益现代化，超市的规模也在不断扩大，商品数量急剧增加，有关商品的各种信息量也急剧增长。那么超市就需要时时刻刻刻对这样庞大的数据量和信息量进行处理，从而实时的和精准的控制店内的销售情况，有效的加速商品的周转率并提高服务质量。为此，一个超市管理系统的开发是有必要的。本次论文将对市场所需的超市管理系统进行讨论和研究，超市管理系统包含以下几个模块：基本信息的维护、进货管理、销售管理以及员工信息管理等。本文系统的分析了软件开发的背景以过程；首先介绍了软件的开发环境，其次介绍了本软件的详细设计过程。根据系统所需功能，运用windows xp为开发品台，采用SQL server 2000及visual basic 6.0作为开发工具，对系统数据库及各个模块进行设计和实现。关键字：超市 管理系统系统 windows xp SQL server 2000 visual basic 6.0 AbstractAlong with the social life of the modernization, the scale of the supermarket is expanding continually, the quantity of a commodity increase sharply, 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 stores sales, effective acceleration of goods turnover and improve service quality. For this, a supermarket management system development is necessary. This paper will be required to market the supermarket management 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 loss management, etc. This paper analyzed the background to the software development process; First introduced the software development environment, then introduces the detailed design of the software 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 implementation.Key word: supermarket management systems Windows xp SQL server 2000 Visual basic 6.0第一章 调研背景及设计背景1.社会背景随着现代科学技术的迅猛发展，计算机技术已经渗透到各个领域，成为各行业必不可少的工具，特别是Internet技术的推广和信息高速公路的建立，使IT产业在市场竞争中越发显示出其独特的优势，步入信息化时代，有巨大的数据信息等待加工处理和传输，这使得对书数据库的进一步开发和利用显得尤为迫切。作为国内市场的一些中小型超市，它们在信息化过程中的步伐要落后于大中型超市，而对于这些企业的资源管理，信息的存储和处理也显得迫切需要，要适应市场竞争，就需要有高效的处理方式和管理方法，因此加快超市的信息化进程是必可少的。通过对市场的调查，针对现在各中小型超市对经营业务和人事管理的实际需要，开发了这套超市管理系统。在开发过程中，我们针对当前各超市管理的特点和技术人员的实际水平，采用基于Windows图形用户界面这一易学易用的操作环境，在系统设计过程中，我们尽量采用易懂易读的人机界面，使用户可以在短期内完全掌握。我们又始终发系统的正确性放在首位，力求数据的完整和处理的正确性。在此基础上优化程序代码，加速系统运行和减少对系统资源的占用。2.设计背景随着超市高速的发展，其经营管理也变得愈加复杂，早期的售货员站柜台的形式早已不能满足现有销售业的发展，这样就迫切地需要引入新的管理技术，需要有一个可行和高效的管理系统。使得超市的经营变的更加方便，使得其能够实时的和精准的控制店内的销售情况，有效的加速商品的周转率并提高服务质量，减少产品售价不符等所产生的问题。为此，开发一个能够管理超市所需业务的管理系统是十分有必要的。第二章 开发工具的介绍1. SQL server 2000功能介绍SQL是结构化查询语言（Structured Query Language）的缩写，其功能包括数据查询、数据定义、数据操纵和数据控制四个部分。SQL简洁、方便实用、功能齐全，已成为目前应用最广的关系数据库语言。其主要特点如下：（1）SQL是类似于英语的自然语言，简洁易用。（2）其是一种非过程语言，即用户只要提出“干什么”即可，而不关心具体的操作过程，也不必了解数据的存取路径，只要指明所需的数据即可。（3）其是一种面向集合语言，每个命令的操作对象是一个或多个关系，结果也是一个关系。（4）其是一种自含式语言，又是嵌入式语言；可独立使用，也可以嵌入到宿主语言中。（5）SQL具有数据查询（Query）、数据定义（Definition）、数据操纵（Manipulation）和数据控制（Control）四种功能。 2.visual basic 6.0功能简介（1）、面向对象的可视画编程方法： 用传统程序设计语言设计程序时，大都是通过编写程序的代码来实现用户界面的，在设计过程中看不到界面的实际显示效果，必须编译后运行程序才能观察，这很麻烦，大大影响了软件开发的效率。Visual basic则是应用的面向对象的程序设计方法（OOP），提供了可视化的设计方法，它把程序和数据封装起来作为一个对象，并为每个对象赋予应有的属性，使对象成为实在的东西。开发人员不必再为界面设计而编写大量程序代码，也不再需要通过一遍遍编译来修改不满意之处了。只要按设计要求的屏幕布局，用系统提供的工具，在屏幕上画出各种“部件”，即图形对象，并设置这些图形对象的属性，就可以轻松完成任务了。Visual basic会自动产生界面的设计代码，程序设计员不必再手工编写实现程序功能的那些烦人的代码，从而可以大大提高程序设计的效率。（2）、结构化程序设计语言：Visual basic是在BASIC语言的基础上发展起来的，具有高级程序设计语言的语句结构，接近于自然语言和人类的逻辑思维方式。Visual basic语句简单易懂，其编辑器支持彩色代码，可自动进行语法错误检查，同时具有功能大且使用灵活的调试器和编译器。Visual basic是解释型语言，在输入代码的同时，解释系统将高级语言分解翻译成计算机可以识别的机器指令，并判断每个语句的语法错误。在设计visual basic程序过程中，随机可以运行程序，而在整个程序设计好之后，可以编译生产可执行文件（.EXE），脱离visual basic环境，直接在windows环境下运行。（3）.访问数据库功能：Visual basic具有强大的数据库管理功能，利用数据控件和数据库管理窗口，可以直接建立或处理Microsoft Access格式的数据库，并提供了强大的数据存储和检索功能。同时，visual basic还能直接编辑和访问其它外部数据库，如：DATABASE,FoxPro,Paradox等，这些数据库格式都可以用visual basic编辑处理。Visual basic提供开放式数据库连接，即ODBC功能，可通过直接访问或建立连接的方式使用并操作后台大型网络数据库，如SQL Serever,Oracle等。在应用程序中，可以使用结构化查询语言SQL数据标准，直接访问服务器上的数据库，还提供了简单的面向对象的库操作指令和多用户数据库访问的加锁机制和网络数据库的SQL的编程技术，为单机上运行的数据库提供了SQL网络接口，可以在分布式环境中快速而有效地实现客户/服务器（client/server）方案。（4）.动态数据交换（DDE）功能:利用动态数据交换（Dynamic Data Exchange）技术，可以把一种应用程序中的数据动态地链接到另一种应用程序中，使两种完全不同的应用程序建立起一条动态数据链路。当原始数据变化时，可以自动更新链接的数据。Visual basic提供了动态数据交换的编程技术，可以在应用程序中与其它windows应用程序建立动态数据交换，在不同的应用程序之间进行通信。（5）.对象链接与嵌入式(OLE)功能： 对象的链接与嵌入式（OLE）将每个应用程序都看作是一个对象（object）,将不通的对象链接（link）起来，在嵌入（embed）某个应用程序中，从而可以得到具有声音、影像、图像、动画、文字等各种信息的集合式的文件。利用OLE技术，可以方便地建立复合式文档（compound document）,这种文档由来自多个不同应用程序的对象组成，文档中的每个对象都与原来的应用程序相联系，并可执行与原来应用程序完全相同的操作。Visual basic就采用了OLE技术。第三章 系统分析1.系统需求分析作为系统需求分析的基本任务就是准确地回答“系统必须做什么”这个问题，需求分析的任务并不是确定系统怎样完成它的工作，而是确定系统必须完成哪些工作，也就是对目标系统提出完整、准确、清晰、具体的要求。需求分析阶段本人仔细研究超市管理系统应实现的功能将它们具体化。针对一般小型超市管理系统的需求，通过对超市进销存管理工作过程的内容分析设计出下面数据项和数据结构：（1）、商品信息管理：包括商品号、商品名称、商品类别、商品单价、商品厂商以及商品库存量。（2）、商品进货信息管理：包括商品编号、商品名称、进货价、数量、进货日期。（3）、商品销售信息管理：包括销售单号、职工号、商品编号、销售数量、销售时间。（4）员工信息管理：包括职工号、姓名、性别以及用户类型。2.系统功能简介作为一个超市管理系统，起功能就是要实现超市中商品的进货销售，库存等管理的的系统化、规范化和自动化。本系统主要研究完成以下几个功能：（1）、基本信息的维护 商品类型的建立与维护，包括商品类型的新建、修改和删除等； 商品基本信息管理：包括商品基本信息的新建、修改和删除等。（2）、商品信息管理包括商品信息登记、库存登记等。其中商品信息登记中还包含商品编号、商品名称以及单价等。商品信息和库存信息的主要信息都在此显示。每次交易（包括进货、销货）都需要对商品名称、生产厂商、商品型号、单价、数量、总金额、交易日期、等各项记录。此表方便用户对于商品信息与库存信息的查看、添加、删除等操作。（3）、进货管理对于商品的进货信息的记录，其中包括商品的进货日期，进货的数量，以及其进货的单价等，使用表格的形式将以上信息逐一显示出来，以便于对进货相关信息的查看、添加、删除等操作，方便用户对此信息的管理。（4）、销售管理 此用于商品销售信息的记录，其中包括商品的编号、销售号、销售的数量等相关的信息，使其以表格的形式将记录的信息逐一的显示出来，使得用户能够轻松的对商品的销售信息进行查看、添加、删除等操作，从而使得此信息的管理变的简洁，提高的工作效率。（5）、员工信息管理 此用于超市员工信息的记录，其中包括员工的职工号、姓名、性别以及用户类型等相关信息，使其以表格的形式将记录的信息逐一的显示出来，使用户能够对员工信息进行查看、添加、删除等操作。（6）、查看数据表实现各种数据表的浏览，包括进货表，员工信息表、销售以及商品信息表。 （7）、其他窗体包括主窗体、登陆窗体，主窗就是将各个模块的大意列在菜单中，然后通过每一个菜单将其它的窗体逐个对应的连到主窗体中。登陆窗体为本系统的启动窗体，其动能是让合法的用户使用本系统，以防止其它的非法人员使用该系统。 3.数据建模整个超市管理系统的流程图如图1-1所示超市管理系统主界面员工管理销售管理进货管理基本信息维护员工信息维护员工信息查询销售信息盘点销售信息维护销售信息查询进货信息维护进货信息查询库存信息商品基本信息 图1-14.业务流程分析超市管理系统主要是是以先进的管理理念和科学的计算机技术来取代原始的手工操作。在新系统开发前，我们对这个超市管理系统业务流程进行了系统的调查，得出了下面的业务流程图，如图1-2所示。 图 1-2新系统主要业务分析：(1)进货业务进货管理是企业生产经营活动中及其重要的一环，它关系到产品质量能否得到保证，生产是否能够顺利进行，采购成本能否得到有效控制等问题。企业现代管理理念中对企业的进货管理提出新的要求；企业进货时对供货商的选择更见慎重，双方不再是讨价还价的买卖关系，而是一种相互依存的合作伙伴关系，并且还需要认识到企业产品质量要从采购抓起，这就关系到供方的供货、服务质量。下面是进货业务程序的主要内容：供货商的情况调查：在实施采购之前，超市首先就要对市场上各大商品供货商进行详细的调查，了解公司的具体情况，评定企业的信誉级别和公司的市场口碑，做到准确无误，采购顺利。采购计划的编制：超市根据自身的资金条件和销售状况，综合分析市场规律，拟定采购计划表。实施进货计划：根据供货商档案及评审结果，选定供货商；生成订货单给选定的供货商；双方就价格、数量、质量等方面洽谈磋商，直至签订合同；跟踪合同执行，安排供货进度和货物运输，做好验收入库工作。(2)库存业务：库存管理是指在生产经营中为销售和耗用而存储的各种资产。企业存货不当都会增加不必要的费用：存货过多将导致物资的积压、存储费用增加、流动资金周转不利，并且过量的库存会掩盖管理不善的问题。存货不足则影响企业的正常销售活动。库存管理的目标是需求最佳存货数量，使库存的成本总额最小化。其主要业务如下：产品入库、出库、盘库等日常处理。科学合理地确定某库存物资的库存控制参数。如：最佳订货批量、最大库存量、最佳缺货量、最佳订购周期等，进行严格的库存控制工作。汇总统计各类库存数据，反应和监督储备资金占用及采购资金使用情况。(3)销售业务销售对一个企业的生存和发展是至关重要的，它不再是传统意义上的“卖东西”，它对外关系到企业产品、服务和企业形象等多方面因素，对内涉及到销售、库存、财务等信息。此外信息化的高速发展为企业的销售工作提出了新的挑战，封闭意味着落后，超市要抓住时机，引入现代化的销售管理模式，实施企业的信息化、智能化销售管理，才能使超市在激烈的市场竞争中立于不败之地。第四章 系统数据库设计1.数据库表设计上面提到的各种实现都离不开数据库的支持，因此数据库设计作为本系统的一部分不可缺少。开发系统中使用的数据库系统是SQL sever 2000。表的建立如下： （1）、商品信息表 在“企业管理器”里的“数据库”下，点击展开“超市管理”，鼠标右击“表”点击“新建表”，进行商品信息表的编辑。如下图所示：说明：此表存放商品信息和商品的库存量。商品号：系统分配给商品的唯一表示值；商品名称：用于存放商品名称的信息；商品类别：用与存放商品所属类型的信息；单价：用于存放商品价格的信息； 厂商：用于存放商品厂家的信息；库存量：用于存放商品库存数量的信息。 （2）、商品进货信息表 在“企业管理器”里的“数据库”下，点击展开“超市管理”，鼠标右击“表”点击“新建表”，进行商品进货信息表的编辑。如下图所示：说明：此表存放进货信息。 商品号：系统分配给商品的唯一表示值； 商品名称：用于存放商品名称的信息； 进价：用于存放商品进货价格的信息； 数量：用于存放商品进货数量的信息； 进货日期；用于存放商品进货日期的信息。 （3）、商品销售信息表在“企业管理器”里的“数据库”下，点击展开“超市管理”，鼠标右击“表”点击“新建表”，进行商品销售信息表的编辑。如下图所示：说明：此表存放销售信息。 销售号：用于存放销售商品单号的信息； 职工号：用于存放负责销售商品员工编号的信息； 销售数量：用于存放商品销售数量的信息； 销售时间：用于存放商品销售时间的信息。（4）、员工信息表在“企业管理器”里的“数据库”下，点击展开“超市管理”，鼠标右击“表”点击“新建表”，进行员工信息表的编辑。如图所示：说明：此表超市员工信息。 职工号：用于存放超市员工工号的信息； 姓名：用于存放职工姓名的信息； 性别：用于存放职工性别的信息； 用户类型：用于存放职工类型的信息。第五章 功能模块的设计1、登陆模块用户登录模块在本系统的首页。用户输入用户名和密码后，系统进行验证，验证通过进入程序的主界面。界面如图1-3所示。图1-3主要实现的代码如下：Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetPrivate Sub Command1_Click()strsql = select * from 登录表 where 用户名= & Text1.Text & & and 密码= & Text2.Text & rs.Open strsql, cn, 1, 3If rs.EOF ThenMsgBox 用户名或密码错了, 32, 警告ElseForm5.ShowUnload MeEnd IfEnd SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub 注册_Click()If Text1.Text = Or Text2.Text = ThenMsgBox 用户名和密码不能为空, 16 + 4, 警告ElseDim rs As New ADODB.Recordsetstr1 = select * from 登录表 where 用户名= & Text1.Text & rs.Open str1, cn, 1, 3rs.AddNewrs(用户名) = Text1.Textrs(密码) = Text2.Textrs.UpdateMsgBox 注册成功, 64, 信息提示End IfEnd SubPrivate Sub Form_Load()cn.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=超市管理cn.OpenEnd Sub2、主窗体模块用户成功登录后显示该模块，该模块就是将各个模块的大意列在菜单中，然后通过每一个菜单将其它的窗体逐个对应的连到主窗体中，通过点击不同的按钮进入不同的窗体模块。界面如图1-4所示：图1-43、商品信息管理模块此模块进行对商品信息的查看、添加、删除等操作，能够对商品信息以及库存信息进行管理。界面如图1-5所示。图1-5主要实现的代码如下：Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetPrivate Sub Command1_Click()str1 = select * from 商品表 where 商品号= & Text1.Text & If rs.State = 1 Thenrs.CloseEnd Ifrs.Open str1, cn, 1, 3If rs.EOF Then MsgBox 该商品不存在 Adodc1.CommandType = adCmdText Adodc1.RecordSource = str1 Adodc1.Refresh Else Text1.Text = rs(商品号)Text2.Text = rs(商品名称)Text3.Text = rs(库存量)Text4.Text = rs(商品类型)Text5.Text = rs(厂商)Text6.Text = rs(单价) End IfEnd SubPrivate Sub Command2_Click()str1 = select * from 商品表 where 商品号= & Text1.Text & If rs.State = 1 Thenrs.CloseEnd Ifrs.Open str1, cn, 1, 3If rs.EOF Then rs.AddNew rs(商品号) = Text1.Text rs(商品名称) = Text2.Text rs(库存量) = Text3.Text rs(商品类型) = Text4.Text rs(厂商) = Text5.Text rs(单价) = Text6.Text rs.Update MsgBox 数据添加成功, 64, 信息提示 Adodc1.CommandType = adCmdText Adodc1.RecordSource = select * from 商品表 Adodc1.Refresh Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Else MsgBox 该商品已经存在了, 16, 警告 End If End SubPrivate Sub Command3_Click()Form5.ShowUnload MeEnd SubPrivate Sub Command4_Click()Dim rs As New ADODB.RecordsetDim rs1 As New ADODB.RecordsetIf rs.State = 1 Thenrs.CloseEnd If If rs1.State = 1 Thenrs1.CloseEnd Ifrs1.Open select * from 商品表 where 商品号= & Text1.Text & and 商品名称= & Text2.Text & , cn, 1, 3If rs1.EOF ThenMsgBox 没有此种商品不能删除！Elsers.Open delete 商品表 where 商品号= & Text1.Text & and 商品名称= & Text2.Text & , cn, 1, 3MsgBox 确定删除吗, 32 + 4, 警告 Adodc1.CommandType = adCmdText Adodc1.RecordSource = select * from 商品表 Adodc1.Refresh End If Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = End SubPrivate Sub DataGrid1_Click()If Adodc1.Recordset.RecordCount = 0 ThenMsgBox 当前表是空表, 16, 信息提示ElseText1.Text = Adodc1.Recordset.Fields(0)Text2.Text = Adodc1.Recordset.Fields(1)End IfEnd SubPrivate Sub Form_Load()cn.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=超市管理cn.OpenEnd Sub4. 销售信息管理模块此模块进行对商品销售信息的查看、添加、删除等操作，能够对商品销售信息进行管理。界面如图1-6所示。图1-6主要实现的代码如下：Private Sub Command1_Click()str1 = select * from 销售表 where 销售号= & Text1.Text & If rs.State = 1 Thenrs.CloseEnd Ifrs.Open str1, cn, 1, 3If rs.EOF Then MsgBox 该销售商品不存在 Adodc1.CommandType = adCmdText Adodc1.RecordSource = str1 Adodc1.Refresh Else Text1.Text = rs(销售号)Text2.Text = rs(职工号)Text3.Text = rs(商品号)Text4.Text = rs(销售数量)Text6.Text = rs(销售时间) End IfEnd SubPrivate Sub Command2_Click()str1 = select * from 销售表 where 销售号= & Text1.Text & If rs.State = 1 Thenrs.CloseEnd Ifrs.Open str1, cn, 1, 3If rs.EOF Then rs.AddNew rs(销售号) = Text1.Text rs(职工号) = Text2.Text rs(商品号) = Text3.Text rs(销售数量) = Text4.Text rs(销售时间) = Text6.Text rs.Update MsgBox 数据添加成功, 64, 信息提示 Adodc1.CommandType = adCmdText Adodc1.RecordSource = select * from 销售表 Adodc1.Refresh Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text6.Text = Else MsgBox 该种销售商品已经存在了, 16, 警告 End If End SubPrivate Sub Command3_Click()If Adodc1.Recordset.EOF = False Then c = MsgBox(您确认要删除该记录吗?, 32 + 4, 特别提示) X = Adodc1.Recordset.Fields(0) If c = vbYes Then str1 = select * from 销售表 where 销售号=x & If rs.State = 1 Then rs.Close End If rs.Open str1, cn, 1, 3 Adodc1.Recordset.Delete Adodc1.CommandType = adCmdText Adodc1.RecordSource = select * from 销售表 Adodc1.Refresh MsgBox 销售商品的所有信息成功删除, 64, 信息提示 Adodc1.Refresh Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text6.Text = End If Else MsgBox 当前数据库中已经没有可删除的记录, 64, 警告 End IfEnd SubPrivate Sub Command4_Click() Form5.ShowUnload MeEnd SubPrivate Sub DataGrid1_Click() If Adodc1.Recordset.RecordCount = 0 Then MsgBox 当前表是空表, 16, 信息提示ElseText1.Text = Adodc1.Recordset.Fields(0)Text2.Text = Adodc1.Recordset.Fields(1)End IfEnd SubPrivate Sub Form_Load()cn.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=超市管理cn.OpenEnd Sub5.进货信息管理模块此模块进行对商品进货信息的查看、添加、删除等操作，能够对商品进货信息进行管理。界面如图1-7所示。 主要实现的代码如下：Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetPrivate Sub Command1_Click()str1 = select * from 进货表 where 商品号= & Text1.Text & If rs.State = 1 Thenrs.CloseEnd Ifrs.Open str1, cn, 1, 3If rs.EOF Then MsgBox 该商品不存在 Adodc1.CommandType = adCmdText Adodc1.RecordSource = str1 Adodc1.Refresh Else Text1.Text = rs(商品号)Text2.Text = rs(商品名称)Text3.Text = rs(数量)Text4.Text = rs(进货日期)Text5.Text = rs(进价)End IfEnd SubPrivate Sub Command2_Click()str1 = select * from 进货表 where 商品号= & Text1.Text & If rs.State = 1 Thenrs.CloseEnd Ifrs.Open str1, cn, 1, 3If rs.EOF Then rs.AddNew rs(商品号) = Text1.Text rs(商品名称) = Text2.Text rs(数量) = Text3.Text rs(进货日期) = Text4.Text rs(进价) = Text5.Text rs.Update MsgBox 数据添加成功, 64, 信息提示 Adodc1.CommandType = adCmdText Adodc1.RecordSource = select * from 进货表 Adodc1.Refresh Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Else MsgBox 该商品已经存在了, 16, 警告 End IfEnd SubPrivate Sub Command3_Click()Form5.ShowUnload MeEnd SubPrivate Sub Command4_Click()Dim rs As New ADODB.RecordsetDim rs1 As New ADODB.RecordsetIf rs.State = 1 Thenrs.CloseEnd If If rs1.State = 1 Thenrs1.CloseEnd Ifrs1.Open select * from 进货表 where 商品号= & Text1.Text & and 商品名称= & Text2.Text & , cn, 1, 3If rs1.EOF ThenMsgBox 没有此种商品不能删除！Elsers.Open delete 进货表 where 商品号= & Text1.Text & and 商品名称= & Text2.Text & , cn, 1, 3MsgBox 确定删除吗, 32 + 4, 警告 Adodc1.CommandType = adCmdText Adodc1.RecordSource = select * from 进货表 Adodc1.Refresh End If Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = End SubPrivate Sub DataGrid1_Click()If Adodc1.Recordset.RecordCount = 0 ThenMsgBox 当前表是空表, 16, 信息提示ElseText1.Text = Adodc1.Recordset.Fields(0)Text2.Text = Adodc1.Recordset.Fields(1)End IfEnd SubPrivate Sub Form_Load()cn.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=超市管理cn.OpenEnd Sub6.员工信息管理模块此模块进行对员工信息的查看、添加、删除等操作，能够对员工信息进行管理。界面如图1-8所示。图1-8主要实现的代码如下：Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetPrivate Sub Command1_Click()str1 = select * from 销售人员表 where 职工号= & Text1.Text & If rs.State = 1 Thenrs.CloseEnd Ifrs.Open str1, cn, 1, 3If rs.EOF Then rs.AddNew rs(职工号) = Text1.Text rs(姓名) = Text2.Text rs(性别) = Text3.Text rs(用户类型) = Text4.Text rs.Update MsgBox 用户添加成功, 64, 信息提示 Adodc1.CommandType = adCmdText Adodc1.RecordSource = select * from