库存管理系统设计说明书

第一章概述1.1库存管理的必要性大多数库存管理理论认为，库存是物理上和逻辑上库房库位的全部有形和无形物料极其价值的总和，具体涉及成品、原材料、在制品、在途品、生产前物料、备品备件等。即使持有某些库存是必要的，过量的库存却非但没有用处并且占用了资金。占用的资金对于公司发展、新产品开发等都是非常需要的；减少资金占用还能够大大减少来自银行贷款的利息和风险。对那些采购量特别大、采购件市场价格有波动的物料库存，加强库存管理效果更为明显。因此，平衡公司库存投资与其它资金需求至关重要。1.2库存分类公司如何管理库存，是库存管理的最大难点和挑战。因此，通过MRPII物料主计划模块和采购模块建立计划与控制系统以有效地实施库存管理和采购赔偿成为题中应有之义。通过调查，我们得知任何库存均可分为以下三类：Ａ类物品：高值──价值占库存总值７０-８０％的相对少数物品。普通为物品的１５-２０％。Ｂ类物品：中值──总值占库存总值的１５-２０％。物品数居中，普通占物品的３０-４０％。Ｃ类物品：低值──库存总值几乎能够无视不计，只占５-１０％。是物品的大多数，普通占６０-７０％。显然，Ａ类物品是核心；如果我们把精力集中于Ａ类物品，使其库存压缩10-50％，就是总库存的相称可观的一笔压缩。有关ＡＢＣ分类办法有几条基本法则：a.控制的程度：对Ａ类物品严加控制，涉及做完备、精确的统计，高层监督和经常评审，从供应商按大合同订单频繁交货，对车间紧密跟踪以压缩提前期。对Ｂ类物品做正常控制，涉及良好的统计与常规的关注。对Ｃ类物品尽量使用简便的控制，诸如定时目视检查库存实物、简要统计或以简便标志法表明补充存货已经订货，采用大库存量与订货量以避免缺货，安排车间日程计划时给以低优先级。b.优先级在一切活动中给Ａ类物品以高优先级以压缩其提前期与库存。对Ｂ类物品予以正常解决，仅在核心时给以高优先级。予Ｃ类物品以最低优先级。c.订货过程对Ａ类物品提供及时、精确的采购信息和状态查询。计算机数据需要人工加以核对，进行阶段性盘点，以及频繁的评审以压缩库存。对Ｂ类物品，按一定周期或当发生重大变化时评审一次库存数据和订货点，MRPII操作按例行公事解决。对Ｃ类物品能够盘点解决或订货点计算。订货往往不用MRPII作计划。能够凭业务人员的经验加以控制。 由上能够看出库存管理的重要性。因此，库存管理是公司管理的重要构成部分。市场需要库存商品提供应顾客，公司的经营需要库存确保多个药品的供应以进行药品的销售，库存对生产效率的提高有着极其重要的影响。因此，库存管理系统是计算机管理系统的中心。由于，全部公司的经营活动都离不开物流的活动。1.3

库存管理的目的库存管理的重要目的就是通过对仓库全部入出库活动的管理和控制及对库存数据有效的统计和分析，以确保公司生产中畅通的物流，使决策人员及早发现问题，采用对应方法，调节库存构造,缩短储藏周期，加速资金周转，最大程度地减少库存占用，同时，通过周期性的仓库盘点，及时补救管理中的漏洞，使库存管理系统实时地反映公司中各个仓库的现时状况，为各类管理人员从不同侧面提供所需信息，方便协调公司经营收到更大效益，库存管理系统是协调公司生产经营的基础，其数据的精确性、方便的查询、有效的分析是整个计算机管理系统顺利运行的核心。第二章开发背景 公司的库存物资管理往往是很复杂、很繁琐的。由于所掌握的物资种类众多，订货、管理、发放的渠道各有差别，各个公司之间的管理体制不尽相似，各类统计报表繁多，因此仓库的库存管理必须编制一套库存管理信息系统，实现计算机化操作，并且必须根据公司的具体状况制订对应的方案。 根据现在的公司管理体制，普通的库存管理系统，总是根据所掌握的物资类别，对应分成几个科室来进行物资的计划，订货，核销托收，验收入库，根据公司各个部门的需求来发送物资设备，并随时按期进行库存盘点，作台帐，根据公司领导和本身管理的需要按月、季度、年度进行统计分析，产生对应报表。为了加强核心物资、设备的管理，要定时掌握其储藏，消耗状况，根据计划定额和实际纤毫定额的比较，进行定额管理，使得资金使用合理，物资设备的储藏最佳。 一种完整的公司物资供应管理系统应涉及采购计划管理，合同收托管理、仓库库存管理、定额管理、统计管理、财务管理等模块。其中仓库的库存管理是整个物资供应管理系统的核心。因此有必要开发一套独立的库存管理系统来提高公司工作效率,而所使用的这套库存管理系统是公司生产经营管理活动中的核心，此系统必须能够用来控制合理的库存费用、适时适量的库存数量，使公司生产活动效率最大化。通过对这些状况的认真调查，我开发了下面的仓库库存管理系统。第三章系统分析 本系统采用了构造化生命周期法，构造化生命周期法是最惯用的管理信息系统开发办法，分为四个环节，即系统调研分析、数据库设计实现、界面设计实现和系统功效设计实现。其中系统调研分析阶段是最基础、也是最容易被开发人员无视的环节。3.1进行资料收集在整个系统分析阶段，我在图书馆认真查看了诸多有关仓库库存管理方面的书籍，收集到了对应的入库单、领料单、台账、物料卡、报表等资料，这些资料能够用作数据库设计的根据,具体以下： 序号提纲1零件仓库划分成多少个区域？2每个区域有多少个货架？3每个货架上分多少层？4架子上的每一层有多少个格子？5零部件是如何进行物料编码的？6仓库管理人员人数有多少？7日均解决入库单数量大概有多少？8日均解决出库单数量大概有多少？9领料退回的解决办法？10与否每天都要登记库存台账？11库存台账有多少类型？12仓库之间与否能够进行调拨？13每次盘点间隔时间多长？14如何解决零部件盘亏？15如何解决零部件盘盈？16与否有零部件物料缺货警戒线？17统计报表的种类和填报频率？入库单是入库单位在把对应的零部件送人仓库时必须填写的单据；领料单是领料人员从仓库中领取零部件时必须填写的单据（即出库）；零部件台账（相称于本系统中的操作日志）实际是一种流水账，用于统计每天发生的入库、出库信息；物料卡（在本系统中用现有库存信息来表达）的作用是统计某一种零部件的数量变化，方便库管员盘查；报表是仓库向有关领导和部门定时提交的零部件库存汇总信息。收集到的入库单、领料单、零部件库存台账、零部件物料卡等单据和报表的实物样式在此略去，有爱好者请参考有关类似公司的样本即可。3.2绘制业务流程图财务处采购科车间验收财务处供应科缺件单领料单入库单报表库存台帐登帐入库处出库处统计盘点在某公司的调研过程中，已理解到所涉及的业务重要是入库和出库，图3.1是系统入库、出库业务流程图。财务处采购科车间验收财务处供应科缺件单领料单入库单报表库存台帐登帐入库处出库处统计盘点财务处财务处退货退货不合格领料入合库格图3.1库存管理系统业务流程图业务流程图阐明外部环境解决过程决策过程数据存档数据流向图3.2业务流程图符号阐明3.3顾客需求分析

顾客需求分析就是在顾客需求调研的基础上，拟定系统的总体构造方案，完毕对应的需求分析报告。在拟定系统的总体构造方案过程中，涉及拟定应用程序的构造、系统开发环境和系统的功效模块。顾客需求调研结束之后，应当立刻进行顾客需求分析。3.3.1应用程序构造拟定

从顾客应用角度来看，可把应用程序系统的构成部分分成数据存储层、业务解决层和界面表达层等3个层次，而应用程序构造可归纳为：集中式应用程序构造、单顾客应用程序构造、多层服务器应用程序构造、浏览器／服务器应用程序构造、客户机／服务器应用程序构造等5种类型。

本库存管理系统就采用了现在最流行的客户机／服务器应用程序构造（即C/S构造），此时，客户机提出请求，服务器对客户机的请求作出回应。通过对服务功效的分布实现了分工服务。数据存储层放在服务器上，业务解决层和界面表达层放在客户机上，因此又被称为“敏捷的客户机”构造。许多操作能够在本地的客户机上执行，只是当需要数据时，才向服务器发出请求。并使应用程序的解决更靠近顾客，使整个系统含有较好的性能，能够并行地解决应用程序的请求、减少了数据传输量、减少了服务器的负荷。由于条件所限，将此系统全部程序都置于一台计算机上，方便调试运行。

3.3.2拟定系统开发环境

由于大多数公司内部使用的计算机平台都是基于Windows环境的。为了减少系统成本，应最大程度地运用现有的资源、兼容现有的环境，可拟定使用下面的开发环境：

★网络操作系统：Windows；★数据库服务器：MicrosoftAccessr；

★服务器平台：Windows；★客户机平台：Windows95／98／NT／；

★前端开发工具：visualBasic6.0(公司版)；★数据访问对象：ADO（本系统使用ADO控件，简化编程）。

3.3.3拟定系统的功效模块

通过分析拟定库存系统将包含6个重要功效模块，即系统模块、入库业务管理模块、出库业务管理模块、退料业务管理模块（还库业务管理模块）、盘点业务管理模块（报表输出）、需求管理模块第四章系统设计1总体设计4.1.1系统目的设计系统开发的总体任务是实现公司物资设备管理的系统化、规范化和自动化，从而达成公司仓库库存管理效率的目的。4.1.2开发设计思想库存管理的物资重要是公司生产中所需要的多个设备、原材料及零部件。进货时经检查合同确认为有效托收后，进行验收入库，填写入库单，进行入库登记。公司各个部门根据所需要的物资设备总额和部门生产活动需要提出物资需求申请。计划员根据整个公司的需求开出物资设备出库单，仓库管理员根据出库单核对发放设备、原材料及零部件。有些设备使用完毕需要及时偿还入库，填写还库单。根据需要按照月、季、年进行统计分析，产生对应报表。仓库库存管理的特点是信息解决量比较大。所管理的物资设备、原材料及零部件种类繁多，并且由于入库单、出库单、需求单等单据发生量特别大，关联信息多，查询和统计的方式各不相似，因此在管理上实现起来有一定的困难。在管理的过程中经常会出现信息的重复传递；单据、报表种类繁多，各个部门规格不统等问题。在本系统的设计过程中，为了克服这些困难，满足计算机管理的需要，我们采用了下面的某些原则：统一多个原始单据的格式，统一帐目和报表的格式。删除不必要的管理冗余，实现管理规范化、科学化。程序代码原则化，软件统一化，确保软件的可维护性和实用性。界面尽量简朴化，做到实用、方便，尽量满足公司中不同层次员工的需要。建立操作日志，系统自动统计所进行的多个操作。4.1.3系统功效分析本系统需要完毕的功效重要有下列几点。库存管理的多个信息的输入，涉及入库、出库、还库、需求信息的输入等。库存管理的多个信息的查询、修改和维护。设备采购报表的生成。在材料库存中加入所允许的最大库存合最小库存字段，对全部库存物资实现监控和报警。公司各个部门的物资需求管理。操作日志的管理库存管理系统的使用协助。4.2具体设计4.2.1系统功效模块设计 在系统功效分析的基础上，考虑VB和Access的特点，设计出如图4.1所示的系统功效模块图。需求模块还库模块出库模块入库模块日志管理打印设立协助模块报表模块查看模块维护模块输入模块系统模块库存管理系统需求模块还库模块出库模块入库模块日志管理打印设立协助模块报表模块查看模块维护模块输入模块系统模块库存管理系统顾客管理顾客管理图4.1系统功效模块图系统模块涉及报表的打印及设立，操作日志的管理。管理员能够通过管理界面添加或删除顾客，添加新管理员或删除原有管理员,验证顾客的正当性，制止非法顾客登录。管理员或其它顾客能够修改自己的密码。入库模块 涉及填写入库单，更新，删除入库统计，查看现有库存信息，入库统计的查询及打印出库模块 涉及填写出库单，更新，删除出库统计，查看现有库存信息，出库统计的查询及打印还库模块 涉及填写还库单，更新，删除还库统计，还库统计的查询及打印需求模块 涉及填写需求计划表，更新，删除采购计划信息，查看现有采购信息，采购信息的查询及打印，以及预测短期内的需求计划。库存管理库存管理解决输出输入解决输出输入采购单报表删除修改统计查寻入库单出库单还库单采购计划采购单报表删除修改统计查寻入库单出库单还库单采购计划图4.2库存管理HIPO图4.2.2数据库设计数据库需求分析在认真调查公司库存物资材料管理过程的基础上，设计出本系统所解决的数据流程图(图4.2)汇总解决公司总体生产计划设备还库设备出库设备入库设备采购各部门需求仓库现有库存汇总解决公司总体生产计划设备还库设备出库设备入库设备采购各部门需求仓库现有库存图4.3库存系统数据流程图通过对公司仓库管理内容和数据流程分析，设计的数据项合数据构造以下：设备代码信息。涉及的数据项有设备号、设备名称。现有库存信息。涉及的数据项有现有设备、现有数目、最大库存、最小库存等。设备使用信息。涉及的数据项有使用的设备、使用部门。数目。使用时间、出库时状态等。设备采购信息。涉及的数据项有采购的设备、采购员、供应商、采购数目、采购时间等。设备偿还信息。涉及的数据项有偿还设备、偿还部门、偿还数目、偿还时间、经手人等。设备需求信息。涉及的数据项有需求的部门、需求设备、需求数目、需求时间等。有了上面的数据构造、数据项和数据流程，就能够进行下面的数据库设计。数据库概念构造设计这一设计阶段是在需求分析的基础上，设计出能够满足顾客需求的多个实体，以及它们之间的关系，为背面的逻辑构造设计打下基础。根据上面的设计规划出的实体有库存实体、出库实体、入库实体、采购实体、还库实体、需求实体。各个实体的E-R图及其关系描述以下：最小库存最大库存设备号现有库存现有库存最小库存最大库存设备号现有库存现有库存图4.4库存实体E-R图设备号供应商信息入库设备号供应商信息入库采购价格、数量采购员采购价格、数量采购员图4.5入库实体E-R图经手人数量、时间设备号使用部门出库经手人数量、时间设备号使用部门出库图4.6出库实体E-R图需求时间需求数量设备号需求部门部门需求需求时间需求数量设备号需求部门部门需求图4.7部门需求实体E-R图经手人还库数量设备号设备还库经手人还库数量设备号设备还库还库时间、人还库时间、人图4.8库存实体E-R图时间供应信息设备号库存信息计划采购时间供应信息设备号库存信息计划采购图4.9计划采购实体E-R图实体与实体间的关系E-R图以下所示：出库现有库存入库出库现有库存入库设备采购部门需求还库设备采购部门需求还库图4.10实体之间关系E-R图数据库逻辑构造设计在上面的实体以及实体之间关系的基础上，形成各个表格之间的关系。库存管理系统数据库中的各个表的设计成果以下面的几个表格所示，，每个表格表达数据库中的一种表。表4.1设备代码表字段名称数据类型可否为空阐明设备号文本NOTNULL字段大小为6设备名称文本NULL字段大小为20表4.2权限表字段名称数据类型可否为空阐明顾客名文本NULL字段大小为10密码文本NULL字段大小为15权限文本NULL字段大小为10表4.3设备入库表字段名称数据类型可否为空阐明设备号文本NOTNULL字段大小为6入库时间日期/时间NULL无供应商文本NULL字段大小为20供应商电话文本NULL字段大小为15入库数量数字NULLINTEGER价格数字NULLINTEGER采购员文本NULL字段大小为10表4.4设备出库表字段名称数据类型可否为空阐明设备号文本NOTNULL字段大小为6使用部门文本NULL字段大小为20出库时间日期/时间NULL无出库状况文本NULL字段大小为20经手人文本NULL字段大小为10出库数量数字NULLINTEGER领取人文本NULL字段大小为10用途文本NULL字段大小为20表4.5现有库存库表字段名称数据类型可否为空阐明设备号文本NOTNULL字段大小为6主键现有库存文本NULLINTEGER最大库存文本NULLINTEGER最小库存文本NULLINTEGER表4.6部门需求表字段名称数据类型可否为空阐明设备号文本NOTNULL字段大小为6部门名称文本NOTNULL字段大小为10需要数量数字NULLINTEGER需求开始时间日期/时间NULL无需求结束时间日期/时间NULL无表4.7设备还库表字段名称数据类型可否为空阐明设备号文本NOTNULL字段大小为6还库时间日期/时间NULL无仓库管理员文本NULL字段大小为10偿还数量数字NULLINTEGER偿还人文本NULL字段大小为10表4.8操作日志表字段名称数据类型可否为空阐明操作员文本NOTNULL字段大小为10操作内容文本NOTNULL字段大小为100操作时间日期/时间NOTNULL无表4.9设备采购计划表字段名称数据类型可否为空阐明设备号文本NOTNULL字段大小为6主键现有库存数字NULLINTEGER总库存数字NULLINTEGER最大库存数字NULLINTEGER购置数量数字NULLINTEGER供应商文本NULL字段大小为10价格数字NULLINTEGER计划采购时间日期/时间NULL无4.3代码设计任何库存均可分为以下三类：Ａ类物品：高值──价值占库存总值７０-８０％的相对少数物品。普通为物品的１５-２０％。Ｂ类物品：中值──总值占库存总值的１５-２０％。物品数居中，普通占物品的３０-４０％。Ｃ类物品：低值──库存总值几乎能够无视不计，只占５-１０％。是物品的大多数，普通占６０-７０％。因此设计编码以下：设备号或零件号××××××自定义自定义自定义例如设备号或零件号A0102A类消耗性物资惯用零件4．4输入输出设计本系统界面原则Windows形式，键盘输入(也能够用条形码读取)，人机交互，容易使用。输入输出的设计考虑美观实用和通俗易懂，图文并茂。4．5系统安全性设计系统数据库中包含多个二维表，因此在系统与数据库的连接上，并没有把数据库和系统的连接直接写入代码，而是通过对服务器端进行系统设立，使数据库名及途径不可见，并通过ACCESS的数据库安全设立，确保了数据库的安全性。系统根据顾客身份不同赋予不同权限，顾客用密码登陆，同样也确保了系统数据的安全性。第五章系统实施5．1系统实现5.1.1 系统管理菜单 修改顾客密码程序PrivateSubCommand1_Click()Adodc1.RecordSource=frmLogin.Adodc1.RecordSourceAdodc1.RefreshSetText4.DataSource=Adodc1Text4.DataField="密码"IfText1=""ThenMsgBox"请输入原密码！",,"修改密码"ExitSubElseIfText1.Text<>Adodc1.Recordset.Fields("密码")ThenMsgBox"原密码错误！",,"修改密码"ExitSubElseIfText2=""OrText3=""ThenMsgBox"请输入新密码！！",,"修改密码"ExitSubElseIfText2<>Text3ThenMsgBox"密码不一致！！",,"修改密码"ExitSubElseText4.Text=Text2.TextAdodc1.Recordset.MoveFirstMsgBox"密码修改成功！！",,"修改密码"UnloadMeEndIfEndSub5.1.25..2.3入库模块的实现PrivateSubCommand1_Click()设备入库程序DimI,JAsIntegerDimSTRAsStringIfText1.Text=""OrText2=""OrCombo1.Text=""OrText4=""OrText5=""OrText6=""OrText7=""ThenMsgBox"请输入完整信息！"ExitSubElse将统计存入入库统计表设备入库表.datPrimaryRS.Recordset.Fields("设备号")=Text1.Text设备入库表.datPrimaryRS.Recordset.Fields("入库数量")=Text2.Text设备入库表.datPrimaryRS.Recordset.Fields("入库时间")=Combo1.Text设备入库表.datPrimaryRS.Recordset.Fields("供应商")=Text4.Text设备入库表.datPrimaryRS.Recordset.Fields("供应商电话")=Text5.Text设备入库表.datPrimaryRS.Recordset.Fields("价格")=Text6.Text设备入库表.datPrimaryRS.Recordset.Fields("采购员")=Text7.TextMsgBox"已经成功入库！"EndIf设备入库表.Adodc1.RecordSource="select*from现有库存表where设备号='"&Text1.Text&"'"设备入库表.Adodc1.Refresh设备入库表.DataGrid1.RefreshIf设备入库表.Adodc1.Recordset.RecordCount>0Then 将统计加入现有库存表中设备入库表.Text9.Text=CInt(设备入库表.Text9.Text)+CInt(Text2.Text)设备入库表.Text9.RefreshJ=设备入库表.Text9设备入库表.Adodc1.Recordset.MoveFirst设备入库表.Adodc1.Recordset.Fields.Refresh设备入库表.DataGrid1.RefreshMsgBox"现有库存量为："&JElseSTR="现有库存表中无此设备！"&vbCrLf&"请在设备代码表和现有库存表中手动添加统计！！"MsgBoxSTRLoadfrm现有库存表frm现有库存表.ShowCallfrm现有库存表.Command1_ClickFrmAddNewEqu.Text1.Text=frmInput.Text1.TextFrmAddNewEqu.Text2.Text=frmInput.Text2.TextLoadfrm设备代码表frm设备代码表.ShowEndIfEndSubPrivateSubcmdDelete_Click()删除入库表中统计OnErrorGoToDeleteErrDimYesNoAsStringYesNo=MsgBox("删除",vbYesNo,"删除统计")IfYesNo=vbYesThenWithdatPrimaryRS.Recordset.Delete.MoveNextIf.EOFThen.MoveLastEndWithElseExitSubEndIfDeleteErr:MsgBoxErr.DescriptionEndSubPrivateSubcmdUpdate_Click()更新纪录程序OnErrorGoToUpdateErrdatPrimaryRS.Recordset.UpdateBatchadAffectAllExitSubUpdateErr:MsgBoxErr.DescriptionEndSub5.PrivateSubCommand1_Click()设备出库程序Dimi,J,kAsIntegerDimSTRAsStringfrm设备出库表.Adodc1.RecordSource="select*from现有库存表where设备号='"&Text1.Text&"'"frm设备出库表.Adodc1.Refreshfrm设备出库表.DataGrid1.RefreshIfIsNumeric(Text2)=FalseThenMsgBox"数量必须是数字！"ExitSubEndIfIfText1.Text=""OrText2=""OrCombo1.Text=""OrText4=""OrText5=""OrText6=""OrText7=""ThenMsgBox"请输入完整信息！"ExitSubElseIffrm设备出库表.Adodc1.Recordset.RecordCount<=0ThenSTR="现有库存表中无此设备！请检查输入与否对的！！"MsgBoxSTRExitSubElsefrm设备出库表.datPrimaryRS.Recordset.Fields("设备号")=Text1.Textfrm设备出库表.datPrimaryRS.Recordset.Fields("出库数量")=Text2.Textfrm设备出库表.datPrimaryRS.Recordset.Fields("出库时间")=Combo1.Textfrm设备出库表.datPrimaryRS.Recordset.Fields("经手人")=Text4.Textfrm设备出库表.datPrimaryRS.Recordset.Fields("领取人")=Text5.Textfrm设备出库表.datPrimaryRS.Recordset.Fields("使用部门")=Text6.Textfrm设备出库表.datPrimaryRS.Recordset.Fields("用途")=Text7.TextMsgBox"已经成功存入设备出库表库！"EndIfIffrm设备出库表.Adodc1.Recordset.RecordCount>0Thenk=CInt(frm设备出库表.Text9.Text)-CInt(Text2.Text)Ifk>=0Thenfrm设备出库表.Text9.Text=CInt(frm设备出库表.Text9.Text)-CInt(Text2.Text)frm设备出库表.Text9.RefreshJ=frm设备出库表.Text9frm设备出库表.Adodc1.Recordset.MoveFirstfrm设备出库表.Adodc1.Recordset.Fields.Refreshfrm设备出库表.DataGrid1.RefreshMsgBox"现有库存量为："&JElseMsgBox"现有库存量局限性！请输入适宜数量！！"ExitSubEndIfElseSTR="现有库存表中无此设备！请检查输入与否对的！！"MsgBoxSTREndIfEndSubPrivateSubcmdDelete_Click()删除出库统计OnErrorGoToDeleteErrDimYesNoAsStringYesNo=MsgBox("删除",vbYesNo,"删除统计")IfYesNo=vbYesThenWithdatPrimaryRS.Recordset.Delete.MoveNextIf.EOFThen.MoveLastEndWithElseExitSubEndIfDeleteErr:MsgBoxErr.DescriptionEndSub更新统计程序同入库的更新程序相似，在此略5.重要程序PrivateSubcmdAdd_Click()添加设备OnErrorGoToAddErrdatPrimaryRS.Recordset.AddNewExitSubAddErr:MsgBoxErr.DescriptionEndSub5.1重要程序PrivateSubCommand1_Click()显示高于最大警戒库存的设备datPrimaryRS.RecordSource="select*from现有库存表where现有库存>最大库存"datPrimaryRS.RefreshgrdDataGrid.RefreshIfdatPrimaryRS.Recordset.RecordCount>0ThenBeepMsgBox"表中设备已过量！"ElseMsgBox"没有设备库存过量！"EndIfEndSubPrivateSubCommand2_Click()显示低于于最小警戒库存的设备datPrimaryRS.RecordSource="select*from现有库存表where现有库存<最小库存"datPrimaryRS.RefreshgrdDataGrid.RefreshIfdatPrimaryRS.Recordset.RecordCount>0ThenBeepMsgBox"表中设备库存量已过警戒线！请采购！！"ElseMsgBox"没有设备库存量过少！" EndIf EndsubPrivateSubTimer1_Timer()自动报警程序frmAlarm.datPrimaryRS.RecordSource="select*from现有库存表where现有库存>最大库存"frmAlarm.datPrimaryRS.Refresh