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

《便利店管理信息系统的设计与实现毕业设计》由会员分享，可在线阅读，更多相关《便利店管理信息系统的设计与实现毕业设计（35页珍藏版）》请在装配图网上搜索。

1、( 此文档为 word 格式，下载后您可任意编辑修改！)设计题目：小型超市管理信息系统设计学院：交通学院专业年级：学号：姓名：指导教师、职称：- 1 -2011年5月- 2 -Management information system for small supermarketCollege： Transportation CollegeSpecialty andGrade：Logistics management 2007Number：Name：Advisor：Submitted time:May,20113目录摘要 .1Abstract .21引言 .32系统分析.42.1需求分析 . .

2、 42.2可行性分析 .41.2.1技术上可行性研究 .41.2.2经济上的可行性 .43系统总体设计 .63.1系统目标 . . 63.2系统功能模块设计 .63.3数据库设计 . . 63.4系统界面设计 . . 83.4.1用户登录界面的设计 . . 83.4.2主功能界面设计 .94 各项子功能模块的设计 .104.1 基础信息管理 . . 104.1.1员工信息管理 .104.1.2供应商信息管理 .104.1.3商品信息管理 .104.2 采购管理系统的设计 .114.2.1销售分析 .114.2.1.1销售分析的功能 .114.2.1.2销售数据的保存 .114.2.1.2销售预

3、测方法的介绍： .124.2.2订货批量确定 .164.2.2.1确定订货批量的系统设计 .164.2.2.2系统用到的模型介绍 .174.3 其他功能模块介绍 .184.3.1商品订货单 .184.3.2商品库存情况 .194.3.3数据报表打印 .194.3.4数据备份和数据恢复系统 .214.3.5系统日记 .21密码修改和用户权限管理21参考文献23附录一25附录二26附录三28附录四29摘要本文旨在建立小型超市管理信息系统以处理好超市基本的业务，满足超市对信息的需求。利用计算机系统处理大量数据的能力，使管理工作规范化， 以提高其应变能力。同时本系统通过回归分析和移动平均法等算法来预测

4、未来商品的需求量，提高了对商品预测的准确性。运用了经济订货批量模型、经济生产批量模型等多种库存管理模型， 着力解决超市库存管理现阶段的问题，使库存成本降低，提高利润。关键词：小型超市信息 管理系统AbstractThis paper aims to build a information system for small supermarket to needs of supermarket. By the use of computer which . the management will be standardized to improve its Reaction. At the sa

5、me time the system uses the regression analysis and moving average method so that 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

6、the current problem of inventory management supermarket to reduce inventory costs and increase profitsKeywords: Small supermarket; information; management system1 引言在我国小型超市形成在 20 世纪 70 年代初期，在当时称为“供销社” ，而现在，小型商店已经慢慢演变为小型超市而成为我国零售业的一种重要形态， 为国民经济的发展发挥了重要的作用。在国内目前超市管理信息系统正也以良好的发展状态而不断进步，早期已经有了一些类似的系统， 但

7、由于当时技术和计算机自身等一些方面的限制，还不能形成比较完善的超市信息管理系统。现在的超市信息管理系统能够对供货商、商品类型、商品等的基本信息进行如添加、删除、修改等基本操作，可以根据用户的需要对进货、销售、库存情况进行查询等功能。随着计算机的发展和经过软件开发人员不断的研究与完善， 超市管理信息系统将不断的完善。2 系统分析2.1 需求分析超市在整个经济产业中占有相当重要的地位。随着改革的深化和对外开放力度的加大，超市将会继续推陈出新。超市行业只作为零售业的一种业态，竞争就更加激烈，如何提高超竞争能力和效益，已成为各个超市企业追求的目标。而在当今时代计算机的普及和应用，信息管理的方便快捷，使

8、管理系统被超市企业所重视。超市引入信息管理系统，是零售业经营之中的最热门的话题之一。 所以有必要建立一个超市管理信息系统，使得超市商品购销存的处理工作规范化、 系统化、程序化，避免超市商品管理的随意性，提高信息处理的速度和准确性， 能够及时、准确、 有效的对各种商品的购销存进行统计和整理【 1】。超市 管理 系统 本 身就 是一 种管 理信 息系 统 。 管理 信 息系 统（ Management Information System ，MIS）是一个由人、计算机等组成的能进行信息的收集、传送、【 2】存储、维护和使用的系统。它能够实现企业的各种运行情况，并利用过去的历史数据预测未来，从企业全

9、局的角度出发辅助企业进行决策，利用信息控制企业的行为， 帮助企业实现其规划目标。虽然大型的超市管理系统已经在大中型超市得到了广泛的应用，但是那些系统功能过于强大造成操作繁琐，硬件和软件成本非常高，维护也较为困难，根本无法不符合小型超市的实际情况。所以，开发一个操作简便，维护难度小，硬件配置低的超市管理系统变得尤为必要。我们研究的超市管理系统是一个可操作性强，成本低，实用性高的系统，对小型超市信息化工程有着促进作用， 对超市工作效率的提升有着不可替代的作用，在各小型超市普及这种简单易用的超市管理系统迫在眉睫。2.2可行性分析技术上可行性研究ACCESS是一款很好的数据库软件，该软件在安全性、准确

10、性、运行速度方面有绝对的优势，并且处理数据库量大，效率高，Microsoft公司的 Visual Basic 6.0是一款很好的开发工具， ACCESS数据库实现无缝链接。也为超市订货信息管理系统的开发提供了技术上的可能性 【 2】。经济上的可行性开发一款超市订货信息管理系统所需的计算机硬件要求是很低的，具体要求如下。1. 实现系统的硬件要求（1）赛扬 667（含）以上的处理器。（2） 32MB以上的内存。（3） 15（含）寸以上的显示器。（4）光盘驱动器。（5） 3G以上的硬盘空间。（6）键盘、鼠标。2. 实现系统设计的软件要求（1） Windows98以上操作系统。（2） Visual B

11、asic 6.0全套软件。（3） access2000 数据库软件如此的硬件和软件的配置要求，根本不需要超市另行投入购买机器的资金。另外，由于系统开发的兼容性， 一线员工不用经过太多的培训就可以适应新的系统，经济上也不用太多的投资。 因而开发一套新的超市订货信息管理软件已经成为一种必要，也成为了一种可能。3 系统总体设计3.1 系统目标本设计目的在于建立一个覆盖超市管理主要业务功能、人机协调的管理系统，实现对商品流通、库存管理、销售管理、人员管理等实时控制、修改、加工、分析的管理信息系统，及时反映企业的经济活动状态和所需的各种信息，为小型超市管理者提供良好的决策支持环境，成为小型超市管理人员的

12、有力助手。为此，本设计使用了VB 软件与 Access 结合设计出了满足超市运营管理的信息系统。包括对员工的管理，供应商的管理，商品订货管理，商品库存管理等基本功能。3.2 系统功能模块设计小型超市管理系统预期设计结果如下所示：经过研究和开发后本系统具有以下功能：第一是能够处理小型超市的日常业务，包括员工管理，商品采购、库存管理、供、销售管理、应商的管理、销售情况统计报表等。第二是能满足超市管理对信息的需求，及时准确地收集处理与经营有关的各种信息，并能将其分类整理。第三是提高集中管理水平，充分利用计算机系统处理大量数据的能力，将各个供销商供给的不同类商品集中管理起来，使管理工作规范化，以提高其

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

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

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

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

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

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

20、史各期产品需求的数据信息对预测未来期内的需求量的作用是不一样的。 除了以 n 为周期的周期性变化外，远离目标期的变量值的影响力相对较低，故应给予较低的权重。加权移动平均法的计算公式如下：F w A 1 w A 2w At -n（ 42）t1 t2tn式中， w1-第 t-1期实际销售额的权重；w2- 第 t-2期实际销售额的权重；wn- 第 t-n期实际销售额的权重；n- 预测的时期数；w1 + w2+,+ wn=1移动平均法的实现：移动平均法的其实现界面如图4-4 所示：图 4-4移动平均法实现界面图图 4-5移动平均法实现图通过系统可以确定移动平法的指数，用户可以根据实际情况选择移动平滑指

21、数，系统将自动绘制出用户输入数据的散点图（用红色散点表示） 。并得出通移动平均法计算出来的预测值（用蓝色散点表示）如图 4-5 。用户输入的销售数据将在图表中显示出来，这样方便了用户对销售数据的趋势和分布有了更加的了解。（二）回归分析法1. 定义所谓回归分析法， 是在掌握大量观察数据的基础上， 利用数理统计方法建立因变量与自变量之间的回归关系函数表达式（称回归方程式）。2. 预测模型由于超市销售预测中只用到一元线性回归预测法，而一元线性回归又是一种广泛应用并且比较简单的预测方法，因此，以下一元线性回归模型作简单介绍。设 X 为自变量， Y 为应变量， Y 与 X 之间存在某种线性关系，一元线性

22、回归模型为：i=1,2, , ,n i（4-3 ）式中 为各种随机因素 y 的影响总和， - (0, 2) ； y-N(a+bx, 2) 。则可设对此，可以通过 最小二乘法 来估计模型的回归系数。根据最小平方原理，必须符合以下条件：=最小值(4-4)(4-5)根据最小二乘法要求，记 Q( yi22yi )( yi a bxi )?根据极值原理，为使Q具有最小值，可分别对a、b 求偏导数，并令其等于零，即Q2( yiabxi )xaQ2( yiabxi )xbii0(4-6)0(4-7)整理的：对上两式联立求解，即可得到回归系数的估计值：(4-10)(4-11)相关系数 R 可根据最小二乘原理及

23、平均数的数学性质得到：Rnxi yixiy i(4-12)n xi2(xi ) 2nyi2( yi ) 2相关系数 R 的绝对值的大小表示相关程度的高低。当 R=0时，说明是零相关，所求回归系数无效。当时，说明是 完全相关 ，自变量 X 与应变量 Y 之间的关系为函数系。当时，说明是部分相关，渊值越大相关程度越高。3.回归分析法的实现本系统回归分析界面如图4-6 、图 4-7 所示：图 4-6 回归分析结果图图 4-7 回归分析坐标图本系统能够利用最小二乘法计算出回归方程中各个系数的数值从而得出回归方程的方程式子。并且通过计算出回归方程的F 值 T 值等参数对方程的显著性进行判断，同时该系统能

24、够画出销售数据的方程线（如图4-7 所示），当方程线性不显著的时候会做出提醒。有了自动检测的功能大大的提高了对销售预测的准确度。如图4-8 ：图 4-8 回归分析结果图订货批量确定确定订货批量的系统设计对于特定的商品在商品需求量确定后本部分设计着力解决单位时间内使得效益最大化的问题，在当中我们考虑了订货费，库存费用，供应商给予的价格折扣等因素，运用了经济订货批量模型、 经济生产批量模型、 价格折扣模型等模型使得单位时间订货量的确定更加的科学。 具体实现界面如图 4-9 所示，同时通过本系统可以计算出最佳订货的周期，从而计算出下次订货的时间。 并保存订货信息到数据库中方便以后生成订货单、订货信息

25、的查询和报表的打印等功能。图 4-9 订货需求预测图系统用到的模型介绍（一）经济订货批量模型对于特定的商品在商品需求量确定后我们还需要要综合考虑订货费， 库存费用，供应商给予的价格折扣来确定单位时间内最优的订货批量根据运筹学我们可以运用经济订货批量模型和价格折扣模型来计算最优订货批量【6】。经济订货批量是固定订货批量模型的一种，可以用来确定企业一次订货（外购或自制）的数量。当企业按照经济订货批量来订货时，可实现订货成本和储存成本之和最小化。公式如下：其中 Q*-经济订货批量D -商品年需求量S -每次订货成本C - 单位商品年保管费用（二）经济生产批量模型经济生产批量模型与经济订货批量模型相比

26、具有如下特点：1) 在一定时间内补充库存 Q，单位时间里的补货量为 P=Qtp；2) 需求速度 D，应满足； PD3) 其余假设同不允许缺货，瞬时到货模型计算公式如下：最优订货周期：经济声场批量：结束生产时间：最大库存量：平均总费用：2C32C1C3 D(P D)C(t*)*Pt（三）价格折扣模型为了刺激需求， 诱发更大的购买行为， 供应商往往在顾客的采购批量大于某一值时提供优惠的价格。这就是价格折扣。价格折扣模型的计算步骤：第一步：从最低的单位价格开始计算经济订货批量 EOQ，如果计算出来的 EOQ在所给出的价格范围，则即为最佳经济订货批量。否则进行第二步计算。第二步：计算次低单位价格的 E

27、OQ，如果计算出来的 EOQ在所给的优惠价格范围内，则需要比较可行 EOQ下总成本与最低价格下最小订货数量的总成本， 选择最低成本的订货量为最佳订货批量。 如果计算出来的 EOQ不在所给的优惠价格范围内， 则需要按步骤三计算。第三步：计算第三个优惠范围的单位价格的 EOQ，如果计算出来的 EOQ在所给的优惠价格范围内，则需要比较可行 EOQ下总成本与各较低价格范围的最小订货数量的总成本，选择最低成本的订货量为最佳订货批量。 如果计算出来的 EOQ不在所给的优惠价格范围内，则需要重复步骤三计算。4.3 其他功能模块介绍商品订货单由于超市商品多，每天所发生的订货数据量打，本系统能够很好的实现订货单

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

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

30、的设计与实现J 市场与电脑1997 年 11 期 20-30 3陈惟斌 Visual Basic 6.0开发指南 M 清华大学出版社，2001： 45-86 7王福成 Visual Basic 6.0数据库开发指南 M 清华大学出版社，2000：11-15 8 Buczek Access 2002 数据库开发即时应用 M 人民邮电出版社，2002： 56-78 9美 David G.Jung,Jeff Kent Visual Basic程序调试实用手册 M 电子工业出版社，2002：36-45 10李晓黎、张巍 Visual Basic + SQL Server数据库应用系统开发与实例 M 人

31、民邮电出版社， 2003：21-30 13张树兵 Visual Basic 6.0入门与提高 M 清华大学出版社， 2001 ： 46-85 14郭赢发数据库原理与应用M 西安电子科技大学出版社，1999： 96-109 15刘红基于 VB的数据库访问技术，电脑与电信J 2009 年 11 期 20-30 致谢大学本科的学习生活即将结束，在此，要感谢所有曾经教导我的老师和关心我的同学，他们在我成长过程中给予了我很大的帮助。首先，要衷心感谢作者的导师陈诚导师的悉心教导。今天作者能够顺利完成论文的写作，无不凝聚着老师的心血与汗水。从她身上学到了很多东西，她认真负责的工作态度，严谨的治学精神和深厚的

32、理论水平都使我受益非浅。无论在理论上还是在实践中，她都给与我很大的帮助， 使我的知识得到较大的提高，这对于我以后的工作和学习都有一种巨大的帮助。另外，我还要感谢论文写作过程中关心和帮助我的同学，感谢他们在学习和生活上一直鼓励和支持我。最后感谢父母的支持与鼓励，让我完成了本科学业。作者：许剑宏2011年 5月附录一价格折扣模型代码：Private Sub Command1_Click()计算出最优订货批量Dim ki As Single, tmp1 As SingleCd = form1.Text1订货费Cp = form1.Text2存储费D = Text3单位时间需求量折扣个数Q = Sqr

33、(2 * Cd * D Cp) 公式算出最优订货量If Q = Text5 And Q Val(Text6) Thenki = Text4.TextF = Q 2 * Cp + D * Cd Q + D * ki 总费用计算P = kitmp1 = Text8 2 * Cp + D * Cd Text8 + D * Text7 tmp2 = Text11 2 * Cp + D * Cd Text11 + D * Text10If tmp1 F ThenF = tmp1Q = Text8P = Text7End IfIf tmp2 = Val(Text8) And Q = Val(Text9.T

34、ext) Then ki = Text7.TextF = Q2 * Cp + D * Cd Q + D * kiP = kitmp2 = Text11 2 * Cp + D * Cd Text11 + D * Text10 If tmp2 = Val(Text11) And Q = Val(Text12.Text) Then ki = Text10.TextF = Q2 * Cp + D * Cd Q + D * kiP = kiEnd IfT=QDT = Int(T * 30)Text13 = QText14 = TText14 = 最优订购时间为： & Text14 & 天订购一次货 Te

35、xt15 = PEnd Sub附录二移动平均法代码：Public Qi 需求量Public Name1, Num1商品名称和编码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*fromsells where商 品 编 码 =&Text4.Text &,Adodc1

36、.ConnectionString, 3, 1ElseIf Text5 Thenrs.Open select*fromsells where商 品 名 称 =&Text5.Text &,Adodc1.ConnectionString, 3, 1ElseMsgBox 请输入商品编码或商品名称Text4.SetFocusExit SubEnd IfIf rs.RecordCount = 0 ThenMsgBox 用户不存在 Exit Subrs.CloseElseIf Not rs.EOF ThenFor j = 1 To 12Text1(j) = rs.Fields(j + 1).ValueOn

37、 Error Resume NextNextText5 = rs.Fields(1).ValueEnd IfEnd Ifrs1.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 移动指数Fo

38、r i = Nn To 12For j = 0 To Nn - 1M(i) = Y(i - j) + M(i)NextKk(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 DataGrid1_Click()Datagrid1控件Text4

39、= Adodc1.Recordset(0)Text5.Text = Adodc1.Recordset(1)以下调出库存数量Dim conn As New ADODB.ConnectionDim rs1 As New RecordsetDim connstr As Stringrs1.Open select 现有库存数量 from student1 where 商品编码 = & Text4.Text& , conn, 3, 1Text6.Text = rs1.Fields(0).Valueconn.Close以下是显示销售情况For j = 1 To 12Text1(j) = Adodc1.Re

40、cordset(j + 1)On Error Resume NextNextEnd SubPrivate Sub Form_Load()Adodc1.RecordSource = select * from sellsAdodc1.RefreshSet DataGrid1.DataSource = Adodc1.RecordsetEnd Sub附录三商品入库代码：Private Sub Command18_Click()Dim conn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim Sql As StringDim connst

41、r As StringSql = insert into rk (商品 ID,商品名称 ,供应商 ,数量 ,单价 ,经手人 ,日期 ,时间 ) values( + Combo3.Text + , + Text7(0) + , + Text7(1) + , + Text7(2) + ,Sql = Sql + + Text7(3) + , + Text7(4) + , + Str(Date) + , + Str(Time) + ) Set rs = conn.Execute(Sql)MsgBox 已经保存 Adodc8.RefreshDataGrid6.Refresh库存的改变For i = 1

42、To Combo3.ListIndexNextAdodc2.Recordset(数量 ) = Str(Val(Adodc2.Recordset(数量 ) + Text7(2)End Sub附录四订货单输出代码：Private Sub Command17_Click()查询订货单If Combo2.Text = Adodc3.Recordset(供应商名称 ) ThenText6(0) = Adodc3.Recordset(供应商 ID)End IfWendIf Combo2.Text = Adodc3.Recordset(供应商名称 ) ThenText6(0) = Adodc3.Recordset(供应商 ID)End IfWendAdodc7.RecordSource = SELECT商SP品. ID, SP名.称 , ZYDH最.优订货量 as 订货量 , ZYDH. 订货价格 , ZYDH日.期 , ZYDH.时间 FROM SP INNER JOIN ZYDH ON SP商品. ID=ZYDH商.品ID where sp