超市收费管理系统【VB+ACCESS】【毕业设计】【论文】

超市收费管理系统【VB+ACCESS】【毕业设计】【论文】 毕 业 论 文 论文题目:超市收费管理系统 姓 名: 专 业:计算机应用与维护 指导老师: 完成日期: 二零零四年四月 摘 要 超市收费管理系统(CHARGE MANAGEMENT SYSTEM of SUPERMARKET),开发主要包括后台 数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性 强、数据安全性好的库。对于后者要求应用程序功能完备,易使用等特点。 经过分析,我们使用 MICROSOFT公司的 VISUAL BASIC 6.0开发工具,利用其提供的各种面向对 象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象,首先在短时间内建立系 统应用原型,然后对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的可行系统。 商品进销存管理是商品流通领域一个重要的基础性工作。在管理中引入计算机和进销存管理信 息系统已经得到各商业企业业主的认识，并将逐渐成为一种管理手段。改善管理手段，提高管理效 率，是提高企业效率的主要任务。它使各级管理人员在面对日益繁多、日益复杂的问题和业务时， 能够充分认识问题，及时准确地把握、分析问题，进行有效地组织和管理，以达到最高的经济效益。 因此，开发这样一套管理软件成为很有必要的事情, 我们小组将以开发一套超市收费管理系统 为例,谈谈其开发过程和所涉及到的问题及解决方法。 The supermarket charges the administrative system( CHARGE MANAGEMENT SYSTEM of SUPERMARKET), Develop and include backstage supporter the foundation and maintain and front the twos respects of development of application programs of data base mainly. As to the former require set up data consistency and integrality strong, data security kind storehouse. Require to the latter that the function of application program is complete, easy to use the characteristic of waiting for. Through analyzing , we use BASIC 6 of VISUAL of MICROSOFT company. 0 developing instruments, utilize its various kinds of developing instruments which face the target offered, Especially window can have been convenient data succinct to handle the intelligent targeted of the data base , Set up and use the prototype systematically within short time at first, then carry on the demand to changes and takes the place of to the initial prototype system, Revising and improve constantly, until forming user's satisfied feasible system. 2 目录 第一章 设计超市收费管理系统的意义(((((((((((((((((((((((((((((((((((((((((((((((3 第二章 超市收费管理系统的设计分析(((((((((((((((((((((((((((((((((((((((((((((((4 第三章 怎样开发一个超市收费管理系统(((((((((((((((((((((((((((((((((((((((((((((4 3(1 编程环境的选择((((((((((((((((((((((((((((((((((((((((((((((((((((((4 3(2 关系型数据库的实现((((((((((((((((((((((((((((((((((((((((((((((((((4 3(3 二者的结合(DBA)(((((((((((((((((((((((((((((((((((((((((((((((((((4 第四章 Windows下的Visual Basic 编程环境简介((((((((((((((((((((((((((((((((((((((5 4(1 面对对象的编程(((((((((((((((((((((((((((((((((((((((((((((((((((((((5 4(2 实现菜单选项(((((((((((((((((((((((((((((((((((((((((((((((((((((((((5 4(3 实现工具栏(((((((((((((((((((((((((((((((((((((((((((((((((((((((((((6 4(4 帮助(((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((6 4(5 关于系统(((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((7 第五章 使用Access2000 实现关系型数据库(((((((((((((((((((((((((((((((((((((((((((7 5(1 数据库的概念(((((((((((((((((((((((((((((((((((((((((((((((((((((((((7 5(2 新建一个数据库(((((((((((((((((((((((((((((((((((((((((((((((((((((((7 5(3 修改已建的数据库(((((((((((((((((((((((((((((((((((((((((((((((((((((7 5(4 实现数据库之间的联系(((((((((((((((((((((((((((((((((((((((((((((((((7 第六章 系统总体 规划 污水管网监理规划下载职业规划大学生职业规划个人职业规划职业规划论文 ((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((9 6(1 系统要求(((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((9 6(2 基础管理(((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((9 第七章 系统具体实现((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((9 7(1 主界面的实现((((((((((((((((((((((((((((((((((((((((((((((((((((((((9 7(2 数据库的实现((((((((((((((((((((((((((((((((((((((((((((((((((((((((12 7(3 与VB的连接((((((((((((((((((((((((((((((((((((((((((((((((((((((((14 第八章 结束语(((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((14 四、参考书目((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((15 注:另附程序清单„„„„„„„„„„„„„„„„„„„„„„„„„„„ (16-18) 3 超市收费管理系统 关键字:控件、窗体、域、收费管理。 正 文: 第一章 设计超市收费管理系统的意义 长期以来，商品交易的实现采用手工操作的管理方式，这要付出大量人力，填写各种 表格 关于规范使用各类表格的通知入职表格免费下载关于主播时间做一个表格详细英语字母大小写表格下载简历表格模板下载 、凭证、账册、卡片和文件。这样的机制已经不能适应时代的发展，在信息时代这种传统的管理方法必然被计算机为基础的信息管理所取代。 我作为一个计算机应用的专科生，希望可以在这方面有所贡献。改革的总设计师邓小平同志说过“科学技术是第一生产力”，我希望能用三年所学的知识，编制出一个实用的程序。 超市收费管理系统，归纳起来好处有以下几点: 1(可以存储七天的销售资料，安全、高效，可迅速查到所需的信息，以便退换货。 2(只需一到二名操作管理员即可操作系统，节省大量人力，提高效率。 3(具有数据录入、查询、统计、打印、维护功能。 第二章 超市收费的设计分析 根据实际情况，我们使用原型法(Rapid Prototyping)以少量代价快速地构造一个可执行的软件系统模型。我们还进行了市场调研，较快地确定需求，然后采用循环进化的开发方式，对系统模型作连续的精化，将系统需具备的性质逐渐增加上去，直到所有的性质逐渐满足。此时模块也进一步完善了。 第三章 怎样开发一个超市收费管理系统 3(1 编程环境的选择 微软公司的Visual Basic 6.0是Windows应用程序开发工具，使目前最为广泛的、易学易用的面向对象的开发工具。Visual Basic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。所以，实现本系统VB是一个相对较好的选择。 3(2 关系型数据库的实现 4 Access2000 就是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。Access 的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于 Excel 的电子表格，可以使数据库一目了然。另外，Access 允许创建自定义报表用于打印或输出数据库中的信息。Access也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数据库。Access 是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。如上所述，Access 作为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。 3(3 二者的结合(DBA) 微软的JET数据库引擎提供了与数据库打交道的途径，我们是通过它以及Visual Basic 来访问数据库并对其进行各种操作。Visual Basic、Access以及其他微软的软件产品都是通过共用JET数据库引擎，从而给用户提供了丰富的数据类型。 DATA 控件在数据库中的信息与将信息显示给用户看的Visual Basic程序之间架起了一座桥梁。我们可以设置DATA控件的各个属性，告诉它要调用那个数据库的哪个部分。缺省情况下，DATA控件根据数据库中的一个或多个数据表建立一个dynaset-type(动态集合)类型的记录集合。一个记录集合是动态的也就意味着，当原来的数据表中的容改变了以后，该记录集合中的记录也会随之改变。DATA控件还提供了用来浏览不同记录的各种跳转按钮。将DATA控件放置在窗体中之后，我们还必须在该控件与要处理的数据库之间建立联系。 第四章 Windows下的Visual Basic 编程环境简介 4(1 面向对象的编程 Visual Basic应用程序基本的构建块是用户所创建的对象，每一个对象都具有一些特性和行为(属性、事件和方法)。开发人员可以最有效利用所创建的每一个对象。使用应用程序具有可通用性可说扩展性和强有力的功能。 Visual Basic应用由一系列对象组成，包括有函数、菜单、函数、结构和数据窗口、用户对象、用户事件等等，对象中又包含若干控件如命令按钮、单行编辑器等这些对象和控件都可在许多应用中重复使用。 4(2实现菜单选项 5 菜单是程序最重要的特性之一，大多数程序都依赖一个定义良好的菜单使程序易于使用和维护，Visual Basic也提供了强大的创建菜单功能是程序更加标准。 您可以使用Visual Basic的Application Wizard也可以使用Visual Basic 的菜单编辑器建立菜单或者修改已经存在的菜单。 4(3 实现工具栏 CoolBar控件与Office97种看到的CoolBar是类似的。CoolBar就是一个可以在窗体上浮动的工具，同时也是其他ActiveX的容器。通过在CoolBar中迁入其他空间你局可以向用户提供更好的灵活性和义用性。 Toolbar 是工具条控件，是实现工具条的主体。其中的按钮可以显示图像和标题，并按功能分组或加入分隔符，还可以围棋设置鼠标停留在其上显示的提示字符。Toolbar也是一个控件容器且具有Style属性，并可以为其增加下拉按钮和平滑按钮等。 选择“工程”下拉菜单中的“部件”选项，显示“部件”对话框。在“控件”选项卡列表中选择“Microsoft Windows Common Controls 6.0”后工具相中增加控件。其 属性及对象如下: 1(Align属性定义工具条在窗体中的位置 2(ToolTipText属性是字符串类型，定义控件的提示字符 3(Style属性定义按钮外观。 4(ImageList属性定义与数据条对应的ImageList控件名，该控件定义工具条按钮显示的图像。 5(HotImangeList属性设置一个ImageList控件名，该控件定义按钮获得热点时显示的图像。 6(DisabledImageList属性定义工具条按钮无效时显示的图像。 创建工具条包括ImageList和Toolbar控件 ImageList用于为其他控件提供图像库，将ImageList控件加入到工具箱的操作于前述Toolbar控件相同。 4(4帮助 专业水平的软件通常都带有联机帮助功能。无论写出来的程序是要给大量的用户使用，还是仅仅局限于公司内部有限的使用者，我们都应该为用户提供详细的、易于理解的联机帮助文档。微软的Help Workshop4.0 是一套独立于Visual Basic 的用来协助我们创建、运行于32位Windows 操作系统下的帮助文件的工具。但由于时间急迫，我们将制作一份说明书供查阅。 6 4(5关于系统 为了是程序显得更具有专业风格，首先可以在其中加入通常的应用程序信息。这些信息包括公司名称、版本号、修订号以及其他类似信息。Visual Basic允许你使用APP对象来保存这些信息，APP对象是一个预定义对象，不需要在程序中创建它。APP对象的大多数属性被应用程序用来提供常规的信息，通过使用这些APP提供的属性，可以在应用程序和用户之间交流重要信息，在项目属性框中可以设置它的属性。 第五章 使用Access2000 实现关系型数据库 5(1数据库的概念 数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息，简而言之，数据库就是信息的集合。计算机的数据库可以分为两类:非关系数据库(flat-file)和关系数据库(relational)。关系数据库中包含了多个数据表的信息，数据库含有各个不同部分的术语，象记录、域等。 5(2新建一个数据库 创建任何一个数据库的第一步是仔细的规划数据库，设计必须是灵活的、有逻辑的。创建一个数据库结构的过程被认为是数据模型设计。 1(标识需要的数据; 2(收集被标识的字段到表中; 3(标识主关键字字段; 4(绘制一个简单的数据图表; 5(规范数据; 6(标识指定字段的信息; 7(创建物理表。 5(3修改已建的数据库 数据库的修改分为:添加、编辑和删除记录。这三种操作均可由Visual Basic 创建的程序来完成，下面的章节将详细描述实现的具体方法。 5(4实现数据库之间的联系 7 数据库之间的关系指明两个库之间共享一个共同的关键字值。一个连接是指一种虚拟的表，这种表是在当用户要求从相互关联的各个不同的表中获取信息时建立的，关键字段用于在相互连接的不同表中查找匹配的记录。一个更高级的连接形式称为自连接。这种连接是指一个表被连接到它自己的一个字段，或在不同的纪录中由重复数据的组合字段。数据库中有三种不同类型的关键字:主关键字、组合关键字和外关键字。在表中使用的关键字类型用于描述库表示什么以及在数据库中如何与其它的库建立关系。 表之间的关系图如下: 一对多关系 一对一关系 表结构 供应商表 中间表 入库表 供应商ID 供应商ID 采购单ID 供应商名称 采购单ID 商品ID 供应商地址 入库数量 供应商电话 入库金额 日期 操作员ID 操作员表 商品表 销售表 操作员ID 商品ID 销售ID 操作员姓名 商品名称 小票ID 操作员级别 商品进价 商品ID 操作员口令 商品售价1 销售数量 商品类别表 商品售价2 操作员ID 商品类别ID 商品类别ID 商品编号 商品类别名称 上限 商品上限 下限 商品下限 当前库存表 商品ID 库存量 编号表 商品编号 商品ID 8 第六章 系统总体规划 6(1 系统要求 商业单位使用计算机管理系统时都有其出发点和目标。信息是一种资源，也是一种为管理服务的手段，同时又受到管理方式，思想的制约。在信息的使用过程中，首先必须确信数据的真实性，如果系统所提供的数据并不准确，则对管理只会起到负面作用。因此，在决定使用计算机系统为管理服务时，必须在原有的基础上，完善业务流程，建立监督机制，制订有针对性的规章 制度 关于办公室下班关闭电源制度矿山事故隐患举报和奖励制度制度下载人事管理制度doc盘点制度下载 ，实施规范操作，以达到标准化，科学化，高效性管理的目的。该系统的实施同样围绕管理展开，由于是一套业务管理系统，除了技术本身的因素外，管理的好坏，领导是否支持，职员的合作，直接影响到系统能否成功实施。 6(2基础管理 主要包括: 1、商品的分类，采用商品类别ID(大类)，商品ID(中类)，编号(小类)分类; 2、商品编码，采用条形编码; 3、明确人员权限，使用应用系统功能的权限，查看数据的权限，在系统开始时即 应该明确; 4、单据种类，围绕商业管理的单据，不外是采购单，进货单，销售单，退货单， 售价调整，进价调整，当前库存，这些单据的录入方式及其格式应事先确定; 5、供应商资料的整理，分类，编码，并输入电脑; 6、核算体系方式的明确，应用系统在运行时必须知道会计年度的记帐和核算方式， 以便准确地为有关部门提供成本，毛利，应收\应付款等方面的数据;在本系统中 用报表管理进行打印。 第七章 系统具体实现 7(1 主界面的具体实现 主界面包含五方面内容: 1、基本资料 9 1) 商品类别 用来记录商品的大类。 2) 商品资料 用来记录商品信息的数据。在设置它之前，需先设置货品的类别。 3) 供应商资料 用来存储供货商的基本资料信息，备需要时查询及打印。 2、业务处理 1)采购入库 添加新增货品的时候用户就自己为每一样货品添加一条空白记录，用户把相关内容添上，既可添加到数据库里。点data控件的箭头，即可马上将某项货品的相关资料显示出来。退换货可以删除相关记录。新增货品、新增供应商可随时添加记录。打印按钮可以把采购入库单与打印机相连输出打印。 2)销售商品 10 同采购入库，销售小票的打印已演示在图中。 3)其它库存变动 所有的除采购、销售和退换货之外的其它库存变动，都记入其它库存变动中。其它库存变动类型指的是除了采购、销售、和退换货之外的所有其它的库存变动的项目。如:借入、借出; 受赠、赠予; 在这里设置好了之后，发生其它库存变动时在业务处理-其它库存变动中进行库存的调整。 3、报表管理 报表分为三类。一类是流水帐，一类是业务报表，剩下的一类是经营报表。流水帐是指业务记录的流水帐。是某一个时间段内的所以该业务的流水记录。是按时间排序的;业务报表是用业务处理数据按照各种方法排列生成的报表，以提供给用户一个直观明了的业务情况;经营报表是用来计算利润的。分为销售毛利表、收支报表、经营月报和和经营年报表。 4、系统维护 1)系统设置 系统设置对系统的一些参数进行置，在软件的使用中至关重要。 2)数据备份 因为断电、死机等等一些意外事故，可能会造成数据的损坏。虽然一 般情况下损坏的数据都可以修复。但是这不是根本。数据安全的根本是多做备份。 数据备份是指在数据完好的情况下，另外复制一份放在指定的地方。 3)数据恢复 一旦数据出现损坏，可以将个复制的数据再复制过来，供给系统使用，这个过程叫做数据恢复。 11 5、系统命令 1)系统初始化 2)打印单据 3)退出系统 7(2数据库的实现 表名:Article , 商品表 字段名 功能 数字类型 字段大小 AID 商品ID 文本 50 ANAME 商品名称 文本 50 AUNITS 商品单位 文本 50 APP 商品进价 数字 长整型 ASP1 商品售价1 数字 长整型 ASP2 商品售价2 数字 长整型 ASID 商品类别ID 数字 长整型 UL 上限 数字 长整型 LL 下限 数字 长整型 表名:Article Sort , 商品类别表 字段名 功能 数字类型 字段大小 ASID 商品类别ID 自动编号 长整型 ASNANE 商品类别名称 文本 50 ASUL 商品上限 数字 长整型 ASLL 商品下限 数字 长整型 表名:Provider , 供货商表 字段名 功能 数据类型 字段大小 PID 供货商ID 自动编号 长整型 PNAME 供货商名称 文本 50 PADDRESS 供货商地址 文本 50 PTEL 供货商电话 文本 50 12 表名:Stock , 入库表 字段名 功能 数据类型 字段大小 SBILLID 采购单ID 自动编号 长整型 AID 商品ID 文本 50 SAMOUNT 入库数量 数字 长整型 SPRICE 入库金额 数字 长整型 DATE 日期 日期/时间 PID 供货商ID 数字 长整型 OPID 操作员ID 文本 50 表名:Middle , 中间表 字段名 功能 数据类型 字段大小 PID 供货商ID 数字 长整型 SBILLID 采购单ID 数字 长整型 表名:In Stock , 当前库存表 字段名 功能 数据类型 字段大小 AID 商品ID 文本 50 STOCKS 库存量 数字 长整型 表名:Operator , 操作员表 字段名 功能 数据类型 字段大小 OPID 操作员ID 文本 50 OPNAME 操作员姓名 文本 50 OPORDER 操作员级别 文本 50 OPPASSWORD 操作员口令 文本 50 表名:Sale , 销售表 字段名 功能 数据类型 字段大小 SID 销售ID 自动编号 长整型 13 TICKETID 小票ID 文本 50 AID 商品ID 文本 50 SAMOUNT 销售数量 数字 长整型 OPID 操作员ID 文本 50 NUMBER 编号 文本 50 表名:Number , 编号表 字段名 功能 数据类型 字段大小 NUMBER 编号 文本 50 AID 商品ID 文本 50 7(3与VB的连接 Visual Basic提供了与底层数据库系统紧密的连接。Visual Basic 支持不同的关系数据库管理系统并充分发挥每一个数据库的特长。生成独立应用或脱离服务器运行的服务以上的应用，Visual Basic连接数据库的方式有两种: ?通过使用Visual Basic的 DATA控件。 ?通过使用由Visual Basic提供的专用的直接与数据库相连的接口 第八章 结束语 经过二个多月的设计和开发，超市收费管理系统基本开发完毕。其功能基本符合用户需求，能够完成超市进销存的管理以及各类相关报表的打印。并提供部分系统维护功能,使用户方便进行数据备份和恢复、数据删除。对于数据的一致性的问题也通过程序进行了有效的解决。但是由于毕业设计时间较短，所以该系统还有许多不尽如人意的地方，比如联机文档比较少，用户界面不够美观，出错处理不够等多方面问题。这些都有待进一步改善。 致谢 在本次毕业设计中，我从指导老师 老师身上学到了很多东西。白老师认真负责的工作态度，严谨的治学精神和深厚的理论水平都使我收益匪浅。他无论在理论上还 14 是在实践中，都给予我很大的帮助，使我得到不少的提高。这对于我以后的工作和学习 都有一种巨大的动力，感谢他耐心的辅导。 四、参考书目 [1] Visual Basic程序设计教程 作者:谭浩强 出版社:清华大学出版社 出版日期:2001年8月 [2] 数据库原理及应用(Access 2000) 作者:沈祥玖 出版社:高等教育出版社 出版日期:2002年8月 [3] Visual Basic 6.0 中文版控件大全 作者:Microsoft 出版社:电子工业出版社 出版日期:2003年4月 [4] 信息管理系统 作者:侯炳辉 出版社:中央广播电视大学 出版日期:2003年6月 程序清单:(业务处理部分) 15 第一部分:采购入库 Private Sub Command1_Click() Data1.Recordset.AddNew '当前库存表.库存量=当前库存表.库存量+入库表.入库数量 'STOCK.SAMOUNT=STOCK.SAMOUNT+text3.text FROM STOCK INNER JOIN INSTOCK ON STOCK.AID = INSTOCK.AID; End Sub Private Sub Command2_Click() If Data1.Recordset.EOF = True And Data1.Recordset.recordcound > 0 Then Data1.Recordset.Delete Data1.Recordset.MoveNext Else MsgBox "库中无记录", vbCritical, "错误" End If '当前库存表.库存量=当前库存表.库存量-入库表.入库数量 'STOCK.SAMOUNT=STOCK.SAMOUNT-text3.text FROM STOCK INNER JOIN INSTOCK ON STOCK.AID = INSTOCK.AID; End Sub Private Sub Command3_Click() Form6.Show 1 End Sub Private Sub Command4_Click() Form5.Show 1 End Sub Private Sub Command5_Click() '打印入库单 16 End Sub 第二部分:销售商品 Private Sub Command1_Click() Data1.Recordset.AddNew End Sub Private Sub Command2_Click() If Data1.Recordset.EOF = True And Data1.Recordset.recordcound > 0 Then Data1.Recordset.Delete Data1.Recordset.MoveNext Else MsgBox "库中无记录", vbCritical, "错误" End If End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Command4_Click() '打印小票 Print "-------------------------------" Print "销售ID" Print Data1.Recordset.Fields(0).Value Print "小票ID" Print Data1.Recordset.Fields(1).Value Print "商品ID" Print Data1.Recordset.Fields(2).Value Print "销售数量" Print Data1.Recordset.Fields(3).Value Print "操作员ID" Print Data1.Recordset.Fields(4).Value Print "商品编号" Print Data1.Recordset.Fields(5).Value Print "--------------------------------" On Error GoTo checkerr If (txtcheck.Text - Text9.Text > 0) And (txtcheck.Text - Text9.Text < 1) Then MsgBox "应找回0" & txtcheck.Text - Text9.Text & "元零钱。欢迎再次惠顾。", vbOKOnly, "SuperMarket Server Report" frmgoodslist.txtgoodlist.Text = frmgoodslist.txtgoodlist.Text & "元" & Chr(10) & "总计:" & Text9.Text & "元" & Chr(10) & "实付:" & txtcheck.Text & "元" & Chr(10) & "找回零钱:0." & txtcheck.Text - Text9.Text & "元" & Chr(10) txtcheck.Text = 0 Text9.Text = 0 txtpid.Text = "" txtpName.Text = "" txtpPrice.Text = "" txtpNum.Text = "" Call printpage ElseIf (txtcheck.Text - Text9.Text >= 1) Then MsgBox "应找回" & txtcheck.Text - Text9.Text & "元钱。欢迎再次惠顾。", vbOKOnly, "SuperMarket Server Report" frmgoodslist.txtgoodlist.Text = frmgoodslist.txtgoodlist.Text & "元" & Chr(10) & "总计:" & Text9.Text & "元" & Chr(10) & "实付:" & txtcheck.Text & "元" & Chr(10) & "找回零钱:" & txtcheck.Text - Text9.Text & "元" & Chr(10) txtcheck.Text = 0 Text9.Text = 0 txtpid.Text = "" txtpName.Text = "" txtpPrice.Text = "" txtpNum.Text = "" Call printpage ElseIf (txtcheck.Text - Text9.Text < 0) Then 17 MsgBox "您付的钱不足～还欠" & 0 - (txtcheck.Text - Text9.Text) & "元钱。", vbOKOnly, "SuperMarket Server Report" txtcheck.SetFocus Else If Text9.Text <> "0" And txtcheck.Text <> "0" Then MsgBox "欢迎再次惠顾～", vbOKOnly, "SuperMarket Server Report" frmgoodslist.txtgoodlist.Text = frmgoodslist.txtgoodlist.Text & "元" & Chr(10) & "总计:" & Text9.Text & "元" & Chr(10) & "实付:" & txtcheck.Text & "元" & Chr(10) & "找回零钱:" & txtcheck.Text - Text9.Text & "元" & Chr(10) txtcheck.Text = 0 Text9.Text = 0 txtpid.Text = "" txtpName.Text = "" txtpPrice.Text = "" txtpNum.Text = "" Call printpage End If End If txtid.SetFocus Exit Sub checkerr: MsgBox "数据错误。" End Sub 第三部分:其它库存变动 Private Sub cmdUpdate_Click() On Error GoTo updateerr Data1.Recordset.Edit Data1.Recordset.Fields(4).Value = txtnewprice.text Data1.Recordset.Update MsgBox "修改成功～" Exit Sub updateerr: MsgBox "修改成功～" End Sub Private Sub Form_Activate() MotherForm.StatusBar1.Panels(2).text = Me.Caption End Sub Private Sub Form_Load() On Error Resume Next Dim i As Long cL.DrawingObject = picLogo cL.Caption = "SUPERMARKET SERVER 1.0----WELCOME" Data1.DatabaseName = DatabaseName Data1.RecordSource = "商品信息" Data1.Refresh Me.tOp = (Screen.Height - Me.Height) / 2 Me.left = (Screen.Width - Me.Width) / 2 cmbFieldName.List(0) = "条形码" cmbFieldName.List(1) = "商品名称" cmbFieldName.text = "条形码" cmbData.text = Data1.Recordset.Fields(1).Value End Sub Private Sub Form_Resize() On Error Resume Next picLogo.Height = Me.ScaleHeight On Error GoTo 0 cL.Draw End Sub 18 19