2019便利店管理信息系统的设计与实现毕业

1、设计题目： 小型超市管理信息系统设计 学 院： 交 通 学 院 专业年级： 学 号： 姓 名： 指导教师、职称： 2011年5月Management information system for small supermarket College： Transportation College Specialty and Grade：Logistics management 2007 Number： Name： Advisor： Submitted time: May,2011 目 录摘要1Abstract21引言32系统分析42.1需求分析42.2 可行性分析4技术上可行性研究4经济上的可行

2、性43系统总体设计63.1系统目标63.2系统功能模块设计63.3数据库设计73.4系统界面设计83.4.1 用户登录界面的设计8主功能界面设计94各项子功能模块的设计104.1基础信息管理10员工信息管理10供应商信息管理10商品信息管理114.2采购管理系统的设计11销售分析11销售分析的功能11销售数据的保存11销售预测方法的介绍：12订货批量确定18确定订货批量的系统设计18系统用到的模型介绍194.3其他功能模块介绍20商品订货单20商品库存情况21数据报表打印21数据备份和数据恢复系统23系统日记23密码修改和用户权限管理24参考文献25附录一27附录二28附录三30附录四31摘要

3、本文旨在建立小型超市管理信息系统以处理好超市基本的业务，满足超市对信息的需求。利用计算机系统处理大量数据的能力，使管理工作规范化，以提高其应变能力。同时本系统通过回归分析和移动平均法等算法来预测未来商品的需求量，提高了对商品预测的准确性。运用了经济订货批量模型、经济生产批量模型等多种库存管理模型，着力解决超市库存管理现阶段的问题，使库存成本降低，提高利润。关键词：小型超市 信息 管理系统AbstractThis paper aims to build a information system for small supermarket to handle the basic operation

4、s of supermarket to meet the information needs of supermarket. By the use of computer which have the ability to process large amounts of information. the management will be standardized to improve its Reaction. At the same time the system uses the regression analysis and moving average method so tha

5、t the predictions of the demand for goods become more accuracy. And this paper use the inventory management models such as the economic order quantity model(EOQ), economic production quantity model(EPQ) which will Solve the current problem of inventory management supermarket to reduce inventory cost

6、s and increase profitsKeywords: Small supermarket; information; management system 1引言在我国小型超市形成在20世纪70年代初期，在当时称为“供销社”，而现在，小型商店已经慢慢演变为小型超市而成为我国零售业的一种重要形态，为国民经济的发展发挥了重要的作用。在国内目前超市管理信息系统正也以良好的发展状态而不断进步，早期已经有了一些类似的系统，但由于当时技术和计算机自身等一些方面的限制，还不能形成比较完善的超市信息管理系统。现在的超市信息管理系统能够对供货商、商品类型、商品等的基本信息进行如添加、删除、修改等基本操作

7、，可以根据用户的需要对进货、销售、库存情况进行查询等功能。随着计算机的发展和经过软件开发人员不断的研究与完善，超市管理信息系统将不断的完善。 2系统分析2.1需求分析超市在整个经济产业中占有相当重要的地位。随着改革的深化和对外开放力度的加大，超市将会继续推陈出新。超市行业只作为零售业的一种业态，竞争就更加激烈，如何提高超竞争能力和效益，已成为各个超市企业追求的目标。而在当今时代计算机的普及和应用，信息管理的方便快捷，使管理系统被超市企业所重视。超市引入信息管理系统，是零售业经营之中的最热门的话题之一。所以有必要建立一个超市管理信息系统，使得超市商品购销存的处理工作规范化、系统化、程序化，避免超

8、市商品管理的随意性，提高信息处理的速度和准确性，能够及时、准确、有效的对各种商品的购销存进行统计和整理【1】。超市管理系统本身就是一种管理信息系统。管理信息系统（Management Information System，MIS）是一个由人、计算机等组成的能进行信息的收集、传送、存储、维护和使用的系统【2】。它能够实现企业的各种运行情况，并利用过去的历史数据预测未来，从企业全局的角度出发辅助企业进行决策，利用信息控制企业的行为，帮助企业实现其规划目标。虽然大型的超市管理系统已经在大中型超市得到了广泛的应用，但是那些系统功能过于强大造成操作繁琐，硬件和软件成本非常高，维护也较为困难，根本无法不符

9、合小型超市的实际情况。所以，开发一个操作简便，维护难度小，硬件配置低的超市管理系统变得尤为必要。我们研究的超市管理系统是一个可操作性强，成本低，实用性高的系统，对小型超市信息化工程有着促进作用，对超市工作效率的提升有着不可替代的作用，在各小型超市普及这种简单易用的超市管理系统迫在眉睫。2.2 可行性分析技术上可行性研究ACCESS是一款很好的数据库软件，该软件在安全性、准确性、运行速度方面有绝对的优势，并且处理数据库量大，效率高，Microsoft公司的Visual Basic 6.0是一款很好的开发工具，ACCESS数据库实现无缝链接。也为超市订货信息管理系统的开发提供了技术上的可能性【2】

10、。经济上的可行性开发一款超市订货信息管理系统所需的计算机硬件要求是很低的，具体要求如下。1. 实现系统的硬件要求（1）赛扬667（含）以上的处理器。（2）32MB以上的内存。（3）15（含）寸以上的显示器。（4）光盘驱动器。（5）3G以上的硬盘空间。（6）键盘、鼠标。2. 实现系统设计的软件要求（1）Windows98以上操作系统。（2）Visual Basic 6.0 全套软件。（3）access2000数据库软件如此的硬件和软件的配置要求，根本不需要超市另行投入购买机器的资金。另外，由于系统开发的兼容性，一线员工不用经过太多的培训就可以适应新的系统，经济上也不用太多的投资。因而开发一套新的

11、超市订货信息管理软件已经成为一种必要，也成为了一种可能。3系统总体设计3.1系统目标本设计目的在于建立一个覆盖超市管理主要业务功能、人机协调的管理系统，实现对商品流通、库存管理、销售管理、人员管理等实时控制、修改、加工、分析的管理信息系统，及时反映企业的经济活动状态和所需的各种信息，为小型超市管理者提供良好的决策支持环境，成为小型超市管理人员的有力助手。为此，本设计使用了VB软件与Access结合设计出了满足超市运营管理的信息系统。包括对员工的管理，供应商的管理，商品订货管理，商品库存管理等基本功能。3.2系统功能模块设计基础信息管理小型超市管理系统采购管理员工信息商品信息供应商信息销售分析订

12、货确定数据报表系统维护查看日记密码修改库存管理订货单商品入库库存查询订货情况入库情况商品销售情况数据备份数据恢复操作权限管理小型超市管理系统预期设计结果如下所示：图3-1小型超市管理系统流程图 经过研究和开发后本系统具有以下功能：第一是能够处理小型超市的日常业务，包括员工管理，商品采购、库存管理、供、销售管理、应商的管理、销售情况统计报表等。第二是能满足超市管理对信息的需求，及时准确地收集处理与经营有关的各种信息，并能将其分类整理。第三是提高集中管理水平，充分利用计算机系统处理大量数据的能力，将各个供销商供给的不同类商品集中管理起来，使管理工作规范化，以提高其应变能力。第四是为了提高管理工作效

13、率，本系统要具有信息传递快捷，海量记忆能力和高速处理能力，可以大大提高业务管理中的工作效率。使管理人员能从大量数字工作中解脱出来，通过系统生成的日报表，季度报表，年报表，对每类商品在特定的时间段的销售进行对比，来结合赢利等经济效益进行分析，集中做好分析和决策工作。第五是解决超市库存管理现阶段的问题，使库存成本降低，提高利润。有效地控制库存成本是超市经营业绩提高的关键。实现库存决策的自动化。第六是满足超市人事管理的个性化需要。日后，超市人事资源发生改变，能够方便添加和修改模块，不需要重新购买其他人事管理类系统就可以满足新需求。3.3数据库设计总体设计完成后，建立该系统的第一步就是建立起数据库；通

14、过各个数据表来保存订货过程中所需要的信息。经过对流程的分析，我们建立如下数据表。表3-1员工信息表YG字段名数据类型字段长度是否为空员工ID文本50姓名文本50职务文本50电话文本50地址文本50表3-2商品信息表SP字段名数据类型字段长度是否为空商品ID文本50商品名称文本50分类文本50数量文本20单位文本50表3-3供应商信息表GYS字段名数据类型字段长度是否为空供应商ID文本50供应商名称文本50地址文本50电话文本50联系人文本50 表3-4商品销售情况表SPXS字段名数据类型字段长度是否为空商品ID文本50销售数量文本50 价格文本50 日期日期/时间50 时间日期/时间50表3-

15、5商品入库情况表RK字段名数据类型字段长度是否为空商品ID文本50商品名称文本50供应商文本50数量数字50单价数字50经手人文本50日期日期/时间50时间日期/时间50表3-6商品最优订货情况表字段名数据类型字段长度是否为空商品ID文本50最优订货量数字50订货价格数字50下次订购时间日期/时间50日期日期/时间50单价数字50时间日期/时间503.4系统界面设计3.4.1 用户登录界面的设计设置系统登入用户名和密码是为了保障系统能够安全的运行，用户只有输入正确的用户名和密码才能够进入系统并使用系统的各项功能【3】。该界面设计如图3-2所示：图3-2 系统登陆界面图3.4.2主功能界面设计进

16、行密码的验证正确后进入系统主界面，如图3-3所示：图3-3 系统主界面图从图3-3的树状结构可以对本系统的主菜单和子菜单的预览，很容易了解该系统的基本功能，这种友好的设计界面使得使用者对本系统容易掌握，同时在菜单栏中还设有常用子菜单快捷键，充分的为用户提供方便。 4各项子功能模块的设计4.1基础信息管理员工信息管理超市在进行人力资源管理中会涉及到员工信息的管理，为了确保员工信息的准确、及时、完整与安全，需要进行员工信息的管理。该系统界面图4-1所示，通过该系统功能基本上满足了员工的信息管理，包括员工信息添加、保存、查询、删除，薪酬管理等操作，从而提高了对信息处理的效率降低了超市的人力资源管理成

17、本。图4-1 员工信息管理界面图 供应商信息管理在市场经济竞争日益激烈的情况下超市为了获得更好的产品和服务以便实现超市的利润最大化。超市需要进行供应商的管理，在供应商管理中需要时常对供应商的信息进行管理。我们设计的供应商管理系统界面如图4-2所示：该系统基本上满足了供应商信息的查询、更改、添加、和删除等功能。 图4-2供应商信息管理界面图商品信息管理在商品信息管理中，商品价格信息，库存信息都是对超市利润影响极重要的信息，对商品进行了分类以便进行库存管理等操作。其设计界面和供应商信息管理的设计界面相似，能够满足商品信息的添加、删除、查询、修改等功能。4.2采购管理系统的设计销售分析.1销售分析的

18、功能1帮助超市安排销售计划，发掘生意机会。2使超市的销售更主动更具有成效3帮助超市降低采购、销售成本和费用。4为企业的费用预算提供了便利。.2销售数据的保存管理人员可以针对每一商品自己输入每阶段的销售数据，可根据产品的特性来设定预测数据的时间间隔，所输入的销售数据将保存到数据库中。同时数据可以以图表的形式显示出来，使得分析人员对过去的销售情况走势有了大致得了解。如图4-3所示：图4-3 销售数据保存实现图.2销售预测方法的介绍：（一）移动平均法移动平均法是用一组最近的实际数据值来预测未来一期或几期内公司产品的需求量、公司产能等的一种常用方法。移动平均法适用于即期预测。当产品需求既不快速增长也不

19、快速下降，且不存在季节性因素时，移动平均法能有效地消除预测中的随机波动，是非常有用的。移动平均法根据预测时使用的各元素的权重不同，可以分为：简单移动平均和加权移动平均【5】。1.简单移动平均法： 简单移动平均的各元素的权重都相等。简单的移动平均的计算公式如下： （41）公式中，Ft-对下一期的预测值； n-移动平均的时期个数； At-1-前期实际值； At-2,At-3和At-n分别表示前两期、前三期直至前n期的实际值。 2.加权移动平均法：加权移动平均给固定跨越期限内的每个变量值以相等的权重。其原理是：历史各期产品需求的数据信息对预测未来期内的需求量的作用是不一样的。除了以n为周期的周期性变

20、化外，远离目标期的变量值的影响力相对较低，故应给予较低的权重。 加权移动平均法的计算公式如下： （42）式中，w1-第t-1期实际销售额的权重； w2-第t-2期实际销售额的权重； wn-第t-n期实际销售额的权重； n-预测的时期数； w1+ w2+ wn=1移动平均法的实现：移动平均法的其实现界面如图4-4所示： 图4-4 移动平均法实现界面图图4-5 移动平均法实现图通过系统可以确定移动平法的指数，用户可以根据实际情况选择移动平滑指数，系统将自动绘制出用户输入数据的散点图（用红色散点表示）。并得出通移动平均法计算出来的预测值（用蓝色散点表示）如图4-5。用户输入的销售数据将在图表中显示出

21、来，这样方便了用户对销售数据的趋势和分布有了更加的了解。（二）回归分析法1.定义所谓回归分析法，是在掌握大量观察数据的基础上，利用数理统计方法建立因变量与自变量之间的回归关系函数表达式（称回归方程式）。2.预测模型 由于超市销售预测中只用到一元线性回归预测法，而一元线性回归又是一种广泛应用并且比较简单的预测方法，因此，以下一元线性回归模型作简单介绍。 设X为自变量，Y为应变量，Y与X之间存在某种线性关系，一元线性回归模型为： i=1,2,ni （4-3） 式中为各种随机因素y的影响总和， (0,2)；y-N(a+bx,2)。则可设 对此，可以通过最小二乘法来估计模型的回归系数。根据最小平方原理

22、，必须符合以下条件： =最小值 (4-4) (4-5) 根据最小二乘法要求，记 根据极值原理，为使Q具有最小值，可分别对a、b求偏导数，并令其等于零，即 (4-6) (4-7)整理的： 对上两式联立求解，即可得到回归系数的估计值： (4-10) (4-11)相关系数R可根据最小二乘原理及平均数的数学性质得到： (4-12)相关系数R的绝对值的大小表示相关程度的高低。 当R=0时，说明是零相关，所求回归系数无效。 当时，说明是完全相关，自变量X与应变量Y之间的关系为函数系。 当时，说明是部分相关，渊值越大相关程度越高。 3.回归分析法的实现本系统回归分析界面如图4-6、图4-7所示：图4-6回归

23、分析结果图 图4-7回归分析坐标图本系统能够利用最小二乘法计算出回归方程中各个系数的数值从而得出回归方程的方程式子。并且通过计算出回归方程的F值T值等参数对方程的显著性进行判断，同时该系统能够画出销售数据的方程线（如图4-7所示），当方程线性不显著的时候会做出提醒。有了自动检测的功能大大的提高了对销售预测的准确度。如图4-8： 图4-8回归分析结果图订货批量确定.1确定订货批量的系统设计对于特定的商品在商品需求量确定后本部分设计着力解决单位时间内使得效益最大化的问题，在当中我们考虑了订货费，库存费用，供应商给予的价格折扣等因素，运用了经济订货批量模型、经济生产批量模型、价格折扣模型等模型使得单

24、位时间订货量的确定更加的科学。具体实现界面如图4-9所示，同时通过本系统可以计算出最佳订货的周期，从而计算出下次订货的时间。并保存订货信息到数据库中方便以后生成订货单、订货信息的查询和报表的打印等功能。图4-9订货需求预测图 .2系统用到的模型介绍（一）经济订货批量模型对于特定的商品在商品需求量确定后我们还需要要综合考虑订货费，库存费用，供应商给予的价格折扣来确定单位时间内最优的订货批量根据运筹学我们可以运用经济订货批量模型和价格折扣模型来计算最优订货批量【6】。经济订货批量是固定订货批量模型的一种，可以用来确定企业一次订货（外购或自制）的数量。当企业按照经济订货批量来订货时，可实现订货成本和

25、储存成本之和最小化。 公式如下： 其中Q*- 经济订货批量 D - 商品年需求量 S - 每次订货成本 C -单位商品年保管费用（二）经济生产批量模型经济生产批量模型与经济订货批量模型相比具有如下特点：1)在一定时间内补充库存Q，单位时间里的补货量为P=Q/tp；2)需求速度D，应满足；P>D3)其余假设同不允许缺货，瞬时到货模型计算公式如下：最优订货周期：经济声场批量：结束生产时间：最大库存量：平均总费用：（三）价格折扣模型为了刺激需求，诱发更大的购买行为，供应商往往在顾客的采购批量大于某一值时提供优惠的价格。这就是价格折扣。价格折扣模型的计算步骤：第一步：从最低的单位价格开始计算经济

26、订货批量EOQ，如果计算出来的EOQ在所给出的价格范围，则即为最佳经济订货批量。否则进行第二步计算。第二步：计算次低单位价格的EOQ，如果计算出来的EOQ在所给的优惠价格范围内，则需要比较可行EOQ下总成本与最低价格下最小订货数量的总成本，选择最低成本的订货量为最佳订货批量。如果计算出来的EOQ不在所给的优惠价格范围内，则需要按步骤三计算。第三步：计算第三个优惠范围的单位价格的EOQ，如果计算出来的EOQ在所给的优惠价格范围内，则需要比较可行EOQ下总成本与各较低价格范围的最小订货数量的总成本，选择最低成本的订货量为最佳订货批量。如果计算出来的EOQ不在所给的优惠价格范围内，则需要重复步骤三计

27、算。4.3其他功能模块介绍商品订货单由于超市商品多，每天所发生的订货数据量打，本系统能够很好的实现订货单的添加、修改、查询、删除。同时还支持报表的答应功能。可以根据不同的供应商分别显示订货情况的报表。同时还可以对商品的订货情况进行日统计等功能。该系统界面如图4-10： 图4-10商品订货单图商品库存情况库存情况管理包括商品的入库，上架和商品的销售，其在系统中的实现原理基本上一样，商品入库实现过程如图4-11所示： 图4-11 商品库存管理图数据报表打印该功能模块主要能够支持订货单的打印，入库情况的答应销售情况的打印。方便的对订货、入库、销售进行管理订货单打印主要按日期进行打印预览。如图4-12

28、，图4-13，图4-14所示。 图4-12订货情况报表图 图4-13入库情况报表图图4-14销售情况报表图数据备份和数据恢复系统为了方式管理这操作失误等方面造成的损失，本系统添加了对数据库惊醒备份和恢复的功能，如图4-15、图4-16所示： 图4-15数据恢复图 图4-16数据备份图系统日记为了方便对系统的维护和监控，本系统自动能够记载系统中日常事件的功能。其实现如图4-17：图4-17系统日记图密码修改和用户权限管理通过本系统可以实现对系统用户的管理，能够创建新的用户，为用户设置用户的权限，同时能够对用户进行删除和修改等基本操作。其实现界面如图4-18所示。 图4-18系统账户管理图参考文献

29、1 何鹏.中国超市你需要计算机管理吗？一超市管理信息系统的设计与实现J市场与电脑1997年11期20-302 谢红燕、陈宇物流管理信息系统M化学工业出版社，2009: 159-1703 陈惟斌Visual Basic 6.0开发指南M清华大学出版社，2001：45-864 王汉新，Visual Basic程序设计M科学出版社，2002：120-2305 贾俊平、何晓群、金勇进统计学（第三版）M中国人民大学出版社，2000：392-4236 胡运权运筹学教程M清华大学出版社，2003：345-355 7 王福成Visual Basic 6.0数据库开发指南M清华大学出版社，2000：11-158

30、 BuczekAccess 2002数据库开发即时应用M人民邮电出版社，2002：56-789 美David G.Jung,Jeff KentVisual Basic程序调试实用手册M电子工业出版社，2002：36-4510 李晓黎、张巍Visual Basic + SQL Server 数据库应用系统开发与实例M人民邮电出版社，2003：21-3011 潇湘工作室Access2002中文版从入门到精通M人民邮电出版社，2001：125-13212 刘大玮，巩志强Access数据库项目案例导航M.北京：清华大学出版社，2000：159-17913 张树兵Visual Basic 6.0入门与提

31、高M清华大学出版社，2001：46-8514 郭赢发数据库原理与应用M西安电子科技大学出版社，1999：96-10915 刘红基于VB的数据库访问技术，电脑与电信 J2009年 11期20-30 致谢大学本科的学习生活即将结束，在此，要感谢所有曾经教导我的老师和关心我的同学，他们在我成长过程中给予了我很大的帮助。首先，要衷心感谢作者的导师陈诚导师的悉心教导。今天作者能够顺利完成论文的写作，无不凝聚着老师的心血与汗水。从她身上学到了很多东西，她认真负责的工作态度，严谨的治学精神和深厚的理论水平都使我受益非浅。无论在理论上还是在实践中，她都给与我很大的帮助，使我的知识得到较大的提高，这对于我以后的

32、工作和学习都有一种巨大的帮助。另外，我还要感谢论文写作过程中关心和帮助我的同学，感谢他们在学习和生活上一直鼓励和支持我。最后感谢父母的支持与鼓励，让我完成了本科学业。 作者：许剑宏2011年5月附录一价格折扣模型代码：Private Sub Command1_Click()计算出最优订货批量 Dim ki As Single, tmp1 As Single Cd = form1.Text1 '订货费 Cp = form1.Text2 '存储费 D = Text3 '单位时间需求量 n = form1.Text4.Text '折扣个数 Q = Sqr(2 * Cd

33、 * D / Cp) '公式算出最优订货量 If Q >= Text5 And Q < Val(Text6) Then ki = Text4.Text F = Q / 2 * Cp + D * Cd / Q + D * ki '总费用计算 P = ki tmp1 = Text8 / 2 * Cp + D * Cd / Text8 + D * Text7 tmp2 = Text11 / 2 * Cp + D * Cd / Text11 + D * Text10 If tmp1 < F Then F = tmp1 Q = Text8 P = Text7 End I

34、f If tmp2 < F Then F = tmp2 Q = Text11 P = Text10 End If End If If Q >= Val(Text8) And Q <= Val(Text9.Text) Then ki = Text7.Text F = Q / 2 * Cp + D * Cd / Q + D * ki P = ki tmp2 = Text11 / 2 * Cp + D * Cd / Text11 + D * Text10 If tmp2 < F Then F = tmp2 Q = Text11 P = Text10 End If End If

35、 If Q >= Val(Text11) And Q <= Val(Text12.Text) Then ki = Text10.Text F = Q / 2 * Cp + D * Cd / Q + D * ki P = ki End If T = Q / D T = Int(T * 30)Text13 = QText14 = TText14 = "最优订购时间为：" & Text14 & "天订购一次货"Text15 = PEnd Sub附录二移动平均法代码：Public Qi '需求量Public Name1, Nu

36、m1商品名称和编码Private Sub Command3_Click()查询Dim conn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim rs1 As New ADODB.RecordsetSet DataGrid1.DataSource = Adodc1.RecordsetIf Text4 <> "" Thenrs.Open "select * from sells where 商品编码='" & Text4.Text & "'&

37、quot;, Adodc1.ConnectionString, 3, 1ElseIf Text5 <> "" Thenrs.Open "select * from sells where 商品名称='" & Text5.Text & "'", Adodc1.ConnectionString, 3, 1ElseMsgBox "请输入商品编码或商品名称"Text4.SetFocusExit SubEnd IfIf rs.RecordCount = 0 Then MsgBox

38、"用户不存在" Exit Sub rs.Close ElseIf Not rs.EOF Then For j = 1 To 12 Text1(j) = rs.Fields(j + 1).Value On Error Resume Next Next Text5 = rs.Fields(1).Value End IfEnd Ifconnstr = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "aa.mdb"conn.Open connstrrs

39、1.Open "select 现有库存数量 from student1 where 商品编码='" & Text4.Text & "'", conn, 3, 1Text6.Text = rs1.Fields(0).Valueconn.CloseDim Kk(30) As SingleDim i%Dim Y(30) As SingleDim M(30) As SingleDim NnFor i = 1 To 12Y(i) = Text1(i).TextNextNn = 3 '移动指数For i = Nn To 12

40、For j = 0 To Nn - 1 M(i) = Y(i - j) + M(i) Next Kk(i) = M(i) / Nn '预测量写入kk(i)NextText2 = Kk(12) '最终需求量If Val(Text2) < Val(Text6) Then '需求小于库存Text3 = "不需要为下个月订货"ElseText3 = Val(Text2) - Val(Text6)Qi = Text3 '全局变量End IfName1 = Text5 '全局变量Num1 = Text4End SubPrivate Sub

41、DataGrid1_Click()Datagrid1控件 Text4 = Adodc1.Recordset(0) Text5.Text = Adodc1.Recordset(1) '以下调出库存数量Dim conn As New ADODB.ConnectionDim rs1 As New RecordsetDim connstr As Stringconnstr = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "aa.mdb"conn.Open con

42、nstrrs1.Open "select 现有库存数量 from student1 where 商品编码='" & Text4.Text & "'", conn, 3, 1Text6.Text = rs1.Fields(0).Valueconn.Close '以下是显示销售情况 For j = 1 To 12 Text1(j) = Adodc1.Recordset(j + 1) On Error Resume Next NextEnd SubPrivate Sub Form_Load()Adodc1.Connect

43、ionString = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "aa.mdb"Adodc1.RecordSource = "select * from sells"Adodc1.RefreshSet DataGrid1.DataSource = Adodc1.RecordsetEnd Sub附录三商品入库代码：Private Sub Command18_Click()Dim conn As New ADODB.ConnectionDim

44、 rs As New ADODB.RecordsetDim Sql As StringDim connstr As Stringconnstr = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "zz.mdb"conn.Open (connstr)Sql = "insert into rk (商品ID,商品名称,供应商,数量,单价,经手人,日期,时间) values('" + Combo3.Text + "','" + Text7(0) + "','" + Text7(1) + "','" + Text7(2) +