小型超市管理系统

1、 小型超市管理系统 设计说明书系 、 部： 计算机与信息科学系 学生姓名： 周海军 指导教师： 胡 荣 专 业： 信息与计算科学 班 级： 信本0801班 同组成员： 尹 成 目 录第一章 引言11.1编写目的11.2背景11.2.1开发目标11.2.2开发现状11.2.3 运行环境1第二章 需求分析22.1功能需求22.2性能需求32.2.1易用性32.2.2安全性3第三章 数据库设计43.1数据流图43.2数据字典43.3概念设计73.3.1实体集73.3.2关系模型73.3.3 E-R图83.4数据库实现8第四章 总体设计114.1 模块114.1.1 模块划分114.1.2实现功能11

2、4.2系统结构124.3 出错信息处理13第五章 详细设计145.1系统用例图145.2子系统用例图155.3商品销售时序图16第六章 软件测试176.1测试概要176.1.1子功能分解176.1.2测试内容176.2 测试用例186.2.1功能测试186.2.2数据库安全测试18第七章 使用说明197.1系统总结197.2操作说明19参考文献21致 谢22附录1 系统实现部分代码23附录2 部分系统界面2933第一章 引言1.1编写目的本文档作为用户需求说明书，编写的目的是为了定义所要开发的小型超市管理系统开发项目（以下简称项目）的开发目标，包括对功能的规定和性能的要求，指出预期的系统用户、

3、系统的运行环境以及对用户操作的约定，为软件设计和开发提供依据，作为软件功能追溯的基础和软件开发工作量确定的标本。本文档可以作为本项目开发的软件项目管理者、软件设计和开发人员以及本软件使用人员参考之用。1.2背景1.2.1开发目标软件名称：小型超市管理系统为方便超市管理员对进货信息、销售信息、库存信息的管理以及方便快捷的查询相关信息，提高超市管理的效率。方便销售人员对所销售商品信息的记录、商品单价的查询和销售总额计算以及显示顾客购买商品的清单和统计销售总额以及自动显示需要找还顾客的零钱。1.2.2开发现状每种商品都有各自的条形编码和相应的生产序列号，可以通过条形编码的不同来区别各种商品以及显示其

4、售价以便销售人员售货，从而提高超市营业人员的工作效率。1.2.3 运行环境界面制作主要用VB实现，后台数据处理采用SQL实现。第二章 需求分析2.1功能需求通过与超市管理员及销售人员的交谈、团队的分析、市场需求调查等方式，获得了小型超市管理系统的功能需求如下：·允许多个用户使用该系统，但为保证数据库的安全，对每个用户登录前都需通过身份认证（通过输入用户名和密码验证），验证通过后方能进入该系统。当用户输入的用户名和密码累计错误达到三次时，将自动退出登录界面，禁止其进入此系统，访问其数据库。·一个超市有多种商品，且每种商品的价格不一定相同。·每种商品由于进货时进价的不

5、同，以致售价的相应改变，出售商品时以最新的售价为准。·在销售过程中，可以随时改变售价及销售小计，收银时自动显示当前客户所购商品的清单、总计和找零。·在添加进货信息时，自动更新相应的库存信息。·在销售商品时，自动保存销售信息并自动更新利润信息。·可以方便快捷的查询进货信息、库存信息、销售信息、用户信息。·可以方便的修改进货信息、库存信息、销售信息及用户信息。·售货时，当输入相应的商品编号回车后，可自动显示相应的商品名、售价和销售时间；当输入销售数量回车后，自动计算并显示销售总额；当输入有误时，给出相应的错误信息。·当操作成功时

6、有操作成功的提示信息，当操作失败时有操作失败原因的提示信息。·访问利润表时需要通过独立密码验证用户身份。·当商品库存量低于10件时，有相应的进货提示信息。·能实现对销售表销售额的统计和对销售表的清空。·当商品低于一定存储时，系统自动生成进货表单。2.2性能需求2.2.1易用性系统设计应具有良好的易用性、操作简便，符合常规Windows操作环境下的用户使用习惯。同时，尽量减少用户的记忆工作量，如在信息录入时尽可能充分利用数据字典进行选择录入，以提高用户工作效率。在系统查询功能设计时，应提供多种查询条件的复合查询，让用户可以快速、精确地得到相关信息。同时，系

7、统设计应具有良好的健壮性，如对各种用户各种错误输入应能及时识别并给出相应提示。2.2.2安全性系统中所有涉及敏感信息如登录口令、利润查询等均需进行加密处理，服务器端应设置严格安全访问控制策略。同时，系统应具有完整的日志管理功能，对用户的数据敏感操作应能够完全追踪，可以通过日志反查其操作时间、操作内容、操作人员帐号等相关信息，从而保证系统安全性和操作责任的可追溯性。本系统提供两种登录身份，管理员身份和销售员身份。销售员身份登录本系统时，只能进行商品销售和收银操作。使用管理员身份登录时，除可以进行商品的销售外，还可以浏览、查询、修改、新增进货信息、销售信息、库存信息、用户信息以及通过口令浏览利润信

8、息表。 第三章 数据库设计3.1数据流图图3.1 小型超市管理系统数据流图3.2数据字典表3.2.1小型超市管理系统表清单表 名作 用进货表用来记录每次进货的相关信息库存表用来记录每种商品的库存量及当前的售价销售表用来记录每件商品的销售信息利润表用来记录当前销售的商品的盈利信息进货单用用记录库存不足需要进货的商品信息临时表用来记录当前客户购买的商品信息用户表用来记录用户信息，以保证数据库的安全表3.2.2进货信息表进货表是否主键属性名数据类型长度可 空约 束缺省值备 注是商品编号char10商品名char20进货量int4是进货日期char20是进货时间char20进 价float8

9、售 价 float8表3.2.3库存信息表库存表是否主键属性名数据类型长度可 空约 束缺省值备 注是商品编号char10商品名char20库存量int4进 价float8售 价 float8表3.2.4销售信息表销售表是否主键属性名数据类型长度可 空约 束缺省值备 注是商品编号char10商品名char20是销售日期char20是销售时间char20销售量char20单 价float8小 计float8表3.2.5利润信息表利润表是否主键属性名数据类型长度可 空约 束缺省值备 注是商品编号char10商品名char20销售数量int 4是时 间char20利 润float8表3.2.6临时信息

10、表临时表是否主键属性名数据类型长度可 空约 束缺省值备 注是商品编号char10商品名char20销售量int4售 价float8小 计 float8表3.2.7用户信息表用户表是否主键属性名数据类型长度可 空约 束缺省值备 注是用户编名char20用户名char20性 别char 2出生年月char20联系方式char20密 码 char20表3.2.8 进货表单进货单是否主键属性名数据类型长度可 空约 束缺省值备 注是商品编号char10商品名char203.3概念设计3.3.1实体集本数据库E-R图设计中包含5个实体，其中4个实体都是强实体集。实体的具体属性可见下表。表3.9 实体信息表

11、实体集属性进货表商品编号、商品名、进货量、进货时间、进价、售价库存表商品编号、商品名、库存量、进价、售价销售表商品编号、商品名、销售量、销售时间、单价、合计进货单商品编号、商品名临时表商品编号、商品名、销售量、售价、小计利润表商品编号、商品名、销售量、时间、利润用户表用户编号、用户名、性别、出生年月、联系方式、密码3.3.2关系模型根据关系模式转换规则，关系模式如下所示(有实下划线的为主码)：·商品信息=(商品编号,商品名,进货日期，进货时间,进价，售价)·库存信息=(商品编号,商品名，库存量,进价，售价)·用户信息=(用户编号，用户名，性别，出生年月，联系方式，

12、密码)·销售信息=(商品编号，商品名，销售日期，销售时间，销售量，售价，小计)·利润信息=(商品编号，商品名，销售日期，销售时间，销售量，利润)·临时信息=(商品编号，商品名，销售量，售价，小计)·进货单信息=(商品编号，商品名)3.3.3 E-R图图3.2 小型超市管理系统数据库E-R图3.4数据库实现1.进货信息表CREATE TABLE 进货表 (商品编号 CHAR(10)，商品名 CHAR(20)，进货量 INT(4) NOT NULL,进货日期 CHAR(20)，进货时间 CHAR(20)， 进价FLOAT(8) NOT NULL,售价FLOA

13、T(8) NOT NULL，PRIMARY KEY（商品编号，进货日期，进货时间）；2.销售信息表CREATE TABLE 销售表(商品编号 CHAR(10)，商品名 CHAR(20)，销售量 INT(4) NOT NULL，售价 FLOAT(8) NOT NULL，销售日期 CHAR(20) ,销售时间 CHAR(20) ,PRIMARY KEY（商品编号，销售日期，销售时间）)；3.用户信息表CREATE TABLE 用户表(用户编号CHAR(10) PRIMARY KEY ,用户名 CHAR(20)，性 别 CHAR(2)，出生年月 CHAR(20)，联系方式CHAR(20)，密 码 C

14、HAR(20)；4.库存信息表CREATE TABLE 库存表(商品编号CHAR(10) PRIMARY KEY ,商品名 CHAR(20)，库存量 FLOAT(8)，进价 FLOAT(8)，售价 FLOAT(8) )；5.临时信息表CREATE TABLE 临时表(商品编号CHAR(10) PRIMARY KEY ,商品名 CHAR(20)，销售量 CHAR(2)，售价 CHAR(20)，小计CHAR(20)；6.进货单信息表CREATE TABLE 进货单(商品编号CHAR(10) PRIMARY KEY ,商品名 CHAR(20)；7.利润信息表CREATE TABLE 利润表(商品编号

15、CHAR(10)，商品名 CHAR(20)，销售日期 FLOAT(8)，销售时间 FLOAT(8)，销售量 FLOAT(8)，利润 FLOAT(8)，PRIMARY KEY（商品编号，销售日期，销售时间） )；第四章 总体设计4.1 模块4.1.1 模块划分本系统划分为5个功能模块，分别为销售模块、查询信息模块、修改信息模块、新增信息模块和返回与退出模块。销售模块：用于实现超市商店的销售，通过验证的超市销售人员和管理人员有此权限。查询模块：通过验证的管理人员可通过该模块查询进货信息、销售信息、库存信息、用户信息和利润信息。修改模块：通过验证的管理人员可通过该模块修改进货信息、销售信息、库存信息

16、和用户信息。新增信息模块：通过验证的管理人员可通过该模块新增进货信息、销售信息、用户信息。返回和退出模块：用来实现返回上级界面或退出本系统。4.1.2实现功能销售功能：当销售人员输入所销售商品的编号后，系统将自动显示对应的商品名、零售价和销售日期，并且光标自动弹至销售数量信息输入栏。信息输入完成后回车，自动显示销售总额，并且光标自动弹至收款信息输入处。信息录入完毕后回车，自动清空界面信息，方便下次信息的录入，并自动完成相应库存信息的更改，即销售商品库存量的相应减少和销售信息的更新，即自动将销售信息添加到销售表中。当销售数量栏为空时，系统会自动给出“请输入销售数量”的提示信息，方便用户操作。收银

17、功能：当前所销售的商品信息全部输入完成后，点击界面上的结账按钮，系统自动显示当前出售的全部商品的信息，并自动计算所售商品的总额。当收银员输入收款金额后，自动显示需找还给客户的零钱。信息查询功能：实现了查询指定日期的销售信息和进货信息以及进货信息。实现了查询指定用户编号的用户信息和查询指定商品编号的库存信息。信息修改功能：实现了快速的批量修改进货信息、销售信息、库存信息和用户信息。新增信息功能：实现了方便快捷的增加进货信息和用户信息。新增进货信息时，系统会自动更新所添加商品的库存信息，如：所进商品的库存量将自动增加相应的进货量以及对所引入的新商品信息自动添加到库存信息表中，以便于销售。统计功能：

18、实现了对销售表中销售金额的统计和对销售表信息的清空。返回和退出功能：实现了返回上级页面或退出系统时，自动保存或清除有关的界面信息，以保证数据库信息的安全。4.2系统结构系统总体结构小型超市零售管理系统前台POS销售系统后台管理系统销售商品录入收银业务进货管理销售管理库存管理人员管理图4.1 小型超市管理系统总体结构4.3 出错信息处理表4.1 错误信息提示及处理系统输出信息的形式含义处理方法没有您要查找的信息所查询的进货信息表或销售信息表或用户信息表或库存信息表中没有您要查询的信息。核对输入信息是否正确，或进入SQL Server后台，查看相应的表信息。数据库连接不上SQL Server服务器

19、没有启动，或者是安装是没有更改服务器名。启动SQL Server服务器，更改数据库连接时的服务器名。商品编号重复（插入信息失败）主键不能重复，可能所插入的商品信息，数据库表中已经存在，只能对其修改。更换商品编号或是选择添加进货信息。用户编号重复新增用户信息时，可能所增加的用户编号用户表中已经存在。进入用户表，直接更改相应用户的信息或是为用户重新编号。用户名或密码错误输入的用户名或密码在用户表中找不到记录。认清登录身份，核对用户名或密码您无权登录本系统系统安全验证没有通过找回密码后重新登录其他错误信息不符合定义的输入或操作确定输入的信息是否符合定义的数据类型，是否溢出。第五章 详细设计5.1系统

20、用例图图5.1 系统用例图5.2子系统用例图图 5.2 前台用例图图 5.3 后台用例图5.3商品销售时序图图5.4 商品销售时序图第六章 软件测试6.1测试概要6.1.1子功能分解管理员权限： 表6.1 子功能分解表信息浏览信息查询信息修改信息新增统计进货表进货信息进货信息新品信息销售总额库存表库存信息库存信息进货信息销售表销售信息销售信息用户信息用户表用户信息用户信息利润表进货单进货单进货单销售员权限： 售货、收银。 6.1.2测试内容功能测试：按照功能表对系统的信息修改、查询、浏览、新增功能进行一步一步地测试，测试的主要目的是发现实现和预期出现不符合的部分。在发现不符的情况下，按照序号记

21、录发生的问题，问题的概要，发生的条件和推断导致问题的原因。最后，将子系统统和在一起进行测设，同样记录问题。在整合完毕后将所得的信息生成报告书，存留备份。时间测试：测试每步操作及实现其功能所需要的时间。需要重复进行，确保由于时间延误导致的失败尽可能少。假如时间延误达到一定阀值，将其作为一个错误记录下来。数据库安全测试：测试对数据库删除，写入，修改的操作，并根据客户对数据库权限的要求，测试操作人员的权限度，进一步测试系统安全性与稳定性。确保系统的安全机制不出现问题。错误测试：由于错误输入发生的不可避免性质，需要特别强化错误信息的输入。在此，可以将两个子系统作为互相独立的部分来进行，具体测试举例在下

22、文将会有所提及。在此还要思考的问题是如果错误输入导致的破坏是不可避免的，应该如何去改进或者怎么去尽量提醒用户不要出现错误的输入。6.2 测试用例6.2.1功能测试浏览功能测试：选择浏览库存信息（在表中信息所有商品库存信息）。查询功能测试：输入正确的商品号1001（信息对应的商品信息）。 输入错误的商品编号：10100（对不起！没有您要查找的商品编号）。修改功能测试：在库存表中修改商品编号为1001的售价为12（下次销售此商品时，显示的售价为12）。新增功能测试：添加商品编号为10028的商品信息（库存表中能查到改商品的信息）。 添加商品编号为1001的商品信息（对不起！该商品信息已经存在，无需

23、再添加！）。6.2.2数据库安全测试管理员身份： 输入正确的用户名和密码，如：用户名123，密码123（进入系统主菜单界面）。 输入错误的用户名或密码，如：用户名1001，密码：123456（用户名或密码输入错误）。 连续三次错误输入（对不起！您无权登录本系统！自动退出）。 输入正确的销售员的用户名和密码，如：用户名1001，密码123123（用户名或密码错误）。销售员身份：验证同上。第七章 使用说明7.1系统总结和传统管理模式相比较，使用本系统，毫无疑问会大大提高超市的运作效率，辅助提高超市的决策水平、管理水平，为降低经营成本，提高效益，减少差错，节省人力，减少顾客购物时间，增加客流量，提高

24、顾客满意度，增强超市扩张能力， 提供有效的技术保障。由于开发者能力有限，本系统难免会出现一些不足之处，例如：本系统只适合小型超市使用，不能适合中大型超市使用；本系统不能生产统计报表，不支持条形编码扫描器，不能打印凭条。不能自动生产进货报表。对错误信息的检索不过全面。7.2操作说明本系统操作简单，使用方便。除选择操作外，均可按回车键来完成。系统管理员登录系统的初始编号为123，密码为123。销售员初始化编号为1001，密码为123123。初次使用本系统时，首先用鼠标选择登录身份（默认为管理员身份），输入编号后回车光标自动跳至密码输入框，密码输入完成后可直接回车进入系统，也可用鼠标点击“登录”按钮

25、进入本系统。可在登录界面直接点击“修改密码”，进入用户密码修改界面修改用户密码。如果以管理员身份登录，则可进入本系统的主菜单界面，实现对销售信息、商品库存信息、用户信息、进货信息以及进货单的浏览、修改、查询以及对销售信息表的销售金额的统计及对表的清空，还可实现对新品信息的录入和进货信息的录入，以及售货和收银，用鼠标选择相应的操作点击进入即可。如：选择销售，则可实现对商品的销售过程，输入正在销售的商品编号回车，系统自动显示当前商品的商品名、售价、销售日期，光标自动跳至销售数量输入框，输入销售的数量后回车，系统自动显示销售总额，回车后系统自动清空，可继续输入下一件商品的信息。销售商品信息全部输入完

26、毕后，点击“结账”按钮，系统自动合计销售商品的总额并显示所售商品的清单。输入收款回车，系统自动计算并显示应找给客户的零钱。修改信息可实现批量修改，在表中直接修改需要修改的信息后，点击“更新”即可实现对所有修改的信息的更新，选择需要进行删除的信息后，点击“删除”按钮，可实现对表中信息的删除。点击“返回”则返回到主菜单，点击“退出”按钮，则可实现直接退出本系统。查询信息实现了对销售信息、进货信息按日期的查询和库存信息按商品编号的查询。在“请输入您要查询的日期”后输入您要查找的信息的日期，如：2011-5-10或在“请输入您要查询的商品编号” 后输入您要查找的商品编号，如：1001，回车或点击确认后

27、，相应信息即可自动的在下面表中显示“点击“返回”则返回到主菜单，点击“退出”按钮，则可实现直接退出本系统。新增信息实现了对新品信息的录入和对进货商品信息的录入以及新增用户信息的录入。选择新增新品信息，进入新品信息录入界面后，根据文本框前面相应的信息提示，正确的输入相关信息后回车或点击“确认”即可完成对新品信息的录入，库存表中会自动添加输入的新商品的商品编号、商品名、库存量、售价等信息。在选择新增进货信息，按提示完成输入回车，即可实现对进货信息的增加，库存表中相应商品的库存量也会自动增加该商品此次的进货量。如果登录身份选择的是销售员，则只能实现对商品的销售管理以及收银操作，无法实现对各类信息的查

28、询、浏览、修改和新增。销售管理及收银操作同管理员身份登录实现一样，只是此时返回（主菜单）操作不可用。点击统计进入对销售表中销售金额的统计界面。点击界面上的“统计”按钮，这可快速实现对销售表中销售金额的统计，并在文本框中输入统计数。点击“清空”按钮，则可快速实现对销售表中信息的清空操作。当输入的信息不合定义或溢出，没有相应的错误信息处理，而是系统崩溃是，只需关闭系统，重新启动即可。当输入编号或密码错误累计达到三次，系统自动退出后，如果用户找回了自己的密码或编号，只需重新启动改系统，输入正确的编号和密码则可进入该系统，访问其数据库信息。 参考文献1. 易 钢,刘少华,邓艳松.新编Visual Ba

29、sic程序设计教程.长沙:国防科技大学出版社，2009年8月第一版.2. 王 珊,萨师煊.数据库系统概念.北京:高等教育出版社,2009年5月第四版.3. 陶宏才编.数据库原理及设计.北京:清华大学出版社4. 范立南编.SQL Server 2000 实用教程.北京:清华大学出版社5. 李香敏编.SQL Server 2000 编程员指南.北京:希望电子出版社6. Watts S.Humphrey编.软件工程规范.北京:清华大学出版社7. Swapna Kishore编.软件需求分析.机械工业出版社致 谢经过这段时间的学习、实践，我获得了许多课堂外的知识，并深刻的体会到实践是检验真理的唯一标准

30、，只有理论与实践相结合，才能更好的掌握书本知识，学到更多更深的课外知识。感谢胡荣老师、赵巾帼老师、陈利平老师和伍友龙对我热心的指导和帮助，是她们教会了我如何去寻找解决问题的方案，是她们教导我设计时要有思维严密，是她们传个了我一枚开启设计系统的钥匙。同时还要感谢同学们给予的帮助和启示，是你们给了我灵感，是你们给你我希望。衷心的祝福你们，感谢你们的帮助，谢谢！附录1 系统实现部分代码登录实现代码：Private Sub Command1_Click() If Combo1.Text = "" Then MsgBox "请选择登录身份！", vbExclama

31、tion Combo1.SetFocus Exit Sub End If If Combo1.Text = "销售员" Then Adodc1.Recordset.MoveFirst Adodc1.Recordset.Find "用户编号='" & Text1.Text & " '" SQL = "SELECT 用户编号 FROM 用户表 WHERE 用户编号 LIKE Text1.Text" Adodc1.RecordSource = SQL Static i As Integer

32、 If Adodc1.Recordset.EOF And i < 3 Then MsgBox "用户编号错误，请重新输入！", 32, "提示信息" i = i + 1 Text1.Text = "" Text1.SetFocus Exit Sub End If Adodc1.Recordset.MoveFirst Adodc1.Recordset.Find "密码='" & Text2.Text & " '" SQL = "SELECT 密码 F

33、ROM 用户表 WHERE 用户编号 LIKE Text1.Text" Adodc1.RecordSource = SQL If Adodc1.Recordset.EOF And i < 3 Then MsgBox "密码错误，请重新输入！", 32, "提示信息" i = i + 1 Text2.Text = "" Text2.SetFocus Exit Sub End If If i = 3 Then MsgBox "请不起，您无权登录本系统！", 16, "提示信息" En

34、d Exit Sub End If Mycon.ConnectionString = "Driver=SQL Server;Server=20100701-1006;Database=小型超市管理系统" Mycon.Open Form7.Show Form7.Text1.SetFocus Form7.Command1.Enabled = False Form1.Hide Text1.Text = "" Text2.Text = "" Exit Sub End If If Combo1.Text = "管理员" Th

35、en If Text1.Text = "123" And Text2.Text = "123" Then Mycon.ConnectionString = "Driver=SQL Server;Server=20100701-1006;Database=小型超市管理系统" Mycon.Open Form2.Show Form1.Hide Text1.Text = "" Text2.Text = "" Exit Sub End If Else MsgBox "用户编号或密码错误，请重新输

36、入！", 32, "提示信息" i = i + 1 Text1.Text = "" Text2.Text = "" Text1.SetFocus If i = 3 Then MsgBox "请不起，您无权登录本系统！", 16, "提示信息" If KeyCode = 13 Then End End If End If End IfEnd Sub新增信息实现代码：Private Sub Command2_Click() If Text1.Text = "" Then

37、 MsgBox "请输入商品编号！", vbExclamation Text1.SetFocus Exit Sub End If If Text5.Text = "" Then MsgBox "请输入进价！", vbExclamation Text5.SetFocus Exit Sub End If If Text6.Text = "" Then MsgBox "请输入售价！", vbExclamation Text6.SetFocus Exit Sub End If Adodc1.Record

38、set.MoveFirst Adodc1.Recordset.Find "商品编号='" & Text1.Text & " '" SQL = "SELECT 商品编号 FROM 库存表 WHERE 商品编号 LIKE Text1.Text" Adodc1.RecordSource = SQL If Adodc1.Recordset.EOF Then Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(0) = Trim$(Text1.Text) Adodc1.

39、Recordset.Fields(1) = Trim$(Text2.Text) Adodc1.Recordset.Fields(2) = Trim$(Text3.Text) Adodc1.Recordset.Fields(3) = Trim$(Text5.Text) Adodc1.Recordset.Fields(4) = Trim$(Text6.Text) Adodc1.Recordset.Update Exit Sub End If Dim str As String str = "INSERT INTO 进货表 VALUES('" & Text1.Te

40、xt & "','" & Text2.Text & "','" & Text3.Text & "','" & Text4.Text & "','" & Text7.Text & "','" & Text5.Text & "','" & Text6.Text & "

41、9; )" On Error GoTo errhandle Mycon.BeginTrans Mycon.Execute (str) Mycon.CommitTrans MsgBox "进货信息添加成功！", vbInformation Exit Suberrhandle: MsgBox "进货信息添加失败！", vbInformation Mycon.RollbackTransEnd Sub商品销售实现代码：Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) If Key

42、Code = 13 Then Adodc2.Recordset.MoveFirst Adodc2.Recordset.Find "商品编号='" & Text1.Text & " '" SQL2 = "SELECT 商品编号 FROM 库存表 WHERE 商品编号 LIKE Text1.Text" If Adodc2.Recordset.EOF Then MsgBox "请不起，暂时还没有您要查找的信息！", 32, "提示信息" Exit Sub End If

43、Text2.Text = Adodc2.Recordset("商品名") Text7.Text = Adodc2.Recordset("进价") Text5.Text = Adodc2.Recordset("售价") Text4.Text = DateTime.Date Text11.Text = DateTime.Time Text3.SetFocus End IfEnd SubPrivate Sub Text3_KeyUp(KeyCode As Integer, Shift As Integer) If KeyCode = 13

44、Then If Text3.Text = "" Then MsgBox "请输入销售数量！", vbExclamation Text3.SetFocus Exit Sub End If Text6.Text = Text3.Text * Text5.Text Text6.SetFocus End IfEnd SubPrivate Sub Text6_KeyUp(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then If Text1.Text = "" Then MsgBo

45、x "请输入商品编名！", vbExclamation Text1.SetFocus Exit Sub End If Text8.Text = Trim$(Text6.Text - (Text7.Text * Text3.Text) Adodc1.Recordset.MoveFirst Adodc1.Recordset.Find "商品编号='" & Text1.Text & " '" SQL = "SELECT 商品编号 FROM 库存表 WHERE 商品编号 LIKE Text1.Text" Adodc1.RecordSource = SQL Text9.Text = Adodc1.Recordset("库存量") If (Text9.Text - Text3.Text < 10) Then MsgBox "您好！本商品库存不足，请及时进货！", 32, "提示信息" End If Adodc1.Recordset("库存量") = Trim$(Text9.Text - Text3.Text) Text13.Text = Val(Text13.Text) + Val(Text6