库存管理系统设计说明书

《库存管理系统设计说明书》由会员分享，可在线阅读，更多相关《库存管理系统设计说明书（17页珍藏版）》请在装配图网上搜索。

1、第一章 概述1.1 库存管理的必要性 大多数库存管理理论认为，库存是物理上和逻辑上库房库位的所有有形和无形物料极其价值的总和， 具体包括成品、原材料、在制品、在途品、生产前物料、备品备件等。虽然持有一些库存是必要的，过量 的库存却非但没有用处而且占用了资金。占用的资金对于公司发展、新产品开发等都是非常需要的；减少 资金占用还可以大大减少来自银行贷款的利息和风险。对那些采购量特别大、采购件市场价格有波动的物 料库存，加强库存管理效果更为明显。因此，平衡公司库存投资与其它资金需求至关重要。1.2 库存分类企业怎样管理库存，是库存管理的最大难点和挑战。因此，通过MRPII物料主计划模块和采购模块建

2、立计划与控制系统以有效地实施库存管理和采购补偿成为题中应有之义。通过调查，我们得知任何库存均 可分为如下三类：A类物品：高值价值占库存总值7 0- 8 0 %的相对少数物品。通常为物品的15-2 0%。 B类物品：中值总值占库存总值的15-2 0%。物品数居中，通常占物品的3 0-4 0%。C类物品：低值库存总值几乎可以忽略不计，只占5-10%。是物品的大多数，通常占60-70%。显然，A类物品是关键；如果我们把精力集中于A类物品，使其库存压缩10-50%，就是总库存的相 当可观的一笔压缩。关于ABC分类方法有几条基本法则：a. 控制的程度：对A类物品严加控制，包括做完备、准确的记录，高层监督

3、和经常评审，从供应商按大合同订单频繁 交货，对车间紧密跟踪以压缩提前期。对B类物品做正常控制，包括良好的记录与常规的关注。对C类物品尽可能使用简便的控制，诸如定期目视检查库存实物、简要记录或以简便标志法表明补充 存货已经订货，采用大库存量与订货量以避免缺货，安排车间日程计划时给以低优先级。b. 优先级在一切活动中给A类物品以高优先级以压缩其提前期与库存。对B类物品予以正常处理，仅在关键时给以高优先级。予C类物品以最低优先级。c. 订货过程对A类物品提供及时、准确的采购信息和状态查询。计算机数据需要人工加以核对，进行阶段性盘点， 以及频繁的评审以压缩库存。对B类物品，按一定周期或当发生重大变化时

4、评审一次库存数据和订货点，MRPII操作按例行公事处 理。对C类物品可以盘点处理或订货点计算。订货往往不用MRPII作计划。可以凭业务人员的经验加以控 制。由上可以看出库存管理的重要性。因此，库存管理是企业管理的重要组成部分。市场需要库存商品提 供给用户，企业的经营需要库存保证各种药品的供应以进行药品的销售，库存对生产效率的提高有着极其 重要的影响。因此，库存管理系统是计算机管理系统的中心。因为，所有企业的经营活动都离不开物流的 活动。1.3 库存管理的目标 库存管理的主要目标就是通过对仓库所有入出库活动的管理和控制及对库存数据有效的统计和分析， 以保证企业生产中畅通的物流，使决策人员及早发现

5、问题，采取相应措施，调整库存结构,缩短储备周期， 加速资金周转，最大限度地降低库存占用，同时，通过周期性的仓库盘点，及时补救管理中的漏洞，使库 存管理系统实时地反映企业中各个仓库的现时情况，为各类管理人员从不同侧面提供所需信息，以便协调 企业经营收到更大效益，库存管理系统是协调企业生产经营的基础，其数据的准确性、方便的查询、有效 的分析是整个计算机管理系统顺利运行的关键。第二章 开发背景企业的库存物资管理往往是很复杂、很繁琐的。由于所掌握的物资种类众多，订货、管理、发放的渠 道各有差异，各个企业之间的管理体制不尽相同，各类统计报表繁多，因此仓库的库存管理必须编制一套 库存管理信息系统，实现计算

6、机化操作，而且必须根据企业的具体情况制定相应的方案。根据当前的企业管理体制，一般的库存管理系统，总是根据所掌握的物资类别，相应分成几个科室来进行物资的计划，订货，核销托收，验收入库，根据企业各个部门的需求来发送物资设备，并随时按期进 行库存盘点，作台帐，根据企业领导和自身管理的需要按月、季度、年度进行统计分析，产生相应报表。 为了加强关键物资、设备的管理，要定期掌握其储备，消耗情况，根据计划定额和实际纤毫定额的比较， 进行定额管理，使得资金使用合理，物资设备的储备最佳。一个完整的企业物资供应管理系统应包括采购计划管理，合同收托管理、仓库库存管理、定额管理、 统计管理、财务管理等模块。其中仓库的

7、库存管理 是整个物资供应管理系统的核心。因此有必要开发一套 独立的库存管理系统来提高企业工作效率, 而所使用的这套库存管理系统是企业生产经营管理活动中的核 心，此系统必须可以用来控制合理的库存费用、适时适量的库存数量，使企业生产活动效率最大化。通过 对这些情况的仔细调查，我开发了下面的仓库库存管理系统。第三章 系统分析本系统采用了结构化生命周期法，结构化生命周期法是最常用的管理信息系统开发方法，分为四个步 骤，即系统调研分析、数据库设计实现、界面设计实现和系统功能设计实现。其中系统调研分析阶段是最 基础、也是最容易被开发人员忽视的环节。3.1进行资料收集在整个系统分析阶段，我在图书馆认真查看了

8、很多关于仓库库存管理方面的书籍，收集到了相应的入 库单、领料单、台账、物料卡、报表等资料，这些资料可以用作数据库设计的依据具体如下：序号提纲1零件仓库划分成多少个区域？2每个区域有多少个货架？3每个货架上分多少层？4架子上的每一层有多少个格子？5零部件是如何进行物料编码的？6仓库管理人员人数有多少？7日均处理入库单数量大约有多少？8日均处理出库单数量大约有多少？9领料退回的处理方法？10是否每天都要登记库存台账？11库存台账有多少类型？12仓库之间是否可以进行调拨？13每次盘点间隔时间多长？14如何处理零部件盘亏？15如何处理零部件盘盈？16是否有零部件物料缺货警戒线？17统计报表的种类和填报

9、频率？入库单是入库单位在把相应的零部件送人仓库时必须填写的单据；领料单是领料人员从仓库中领取零 部件时必须填写的单据（即出库）；零部件台账（相当于本系统中的操作日志）实际是一个流水账，用于 记录每天发生的入库、出库信息；物料卡（在本系统中用现有库存信息来表示）的作用是记录某一种零部 件的数量变化，以便库管员盘查；报表是仓库向有关领导和部门定期提交的零部件库存汇总信息。收集到 的入库单、领料单、零部件库存台账、零部件物料卡等单据和报表的实物样式在此略去，有兴趣者请参考 有关类似企业的样本即可。3.2绘制业务流程图在某公司的调研过程中，已了解到所涉及的业务主要是入库和出库，图3.1 是系统入库、出

10、库业务流库格图 3.1 库存管理系统业务流程图 业务流程图说明外部环境处理过程数据流向图 3.2 业务流程图符号说明3.3 用户需求分析用户需求分析就是在用户需求调研的基础上，确定系统的总体结构方案，完成相应的需求分析报告。 在确定系统的总体结构方案过程中，包括确定应用程序的结构、系统开发环境和系统的功能模块。用户需 求调研结束之后，应该立即进行用户需求分析。3.3.1 应用程序结构确定从用户应用角度来看，可把应用程序系统的组成部分分成数据存储层、业务处理层和界面表示层等 3 个层次，而应用程序结构可归纳为：集中式应用程序结构、单用户应用程序结构、多层服务器应用程序结 构、浏览器服务器应用程序

11、结构、客户机服务器应用程序结构等5 种类型。本库存管理系统就采用了当前最流行的客户机服务器应用程序结构（即 C/S 结构），此时，客户机提 出请求，服务器对客户机的请求作出回应。通过对服务功能的分布实现了分工服务。数据存储层放在服务 器上，业务处理层和界面表示层放在客户机上，因此又被称为“灵敏的客户机”结构。许多操作可以在本地 的客户机上执行，只是当需要数据时，才向服务器发出请求。并使应用程序的处理更接近用户，使整个系 统具有较好的性能，可以并行地处理应用程序的请求、减少了数据传输量、降低了服务器的负荷。由于条 件所限，将此系统所有程序都置于一台计算机上，以便调试运行。3.3.2确定系统开发环

12、境由于大多数公司内部使用的计算机平台都是基于Windows环境的。为了降低系统成本，应最大程度地利 用现有的资源、兼容现有的环境，可确定使用下面的开发环境：网络操作系统：Windows2000； 数据库服务器：MicrosoftAccessr2000；服务器平台：Windows2000； 客户机平台：Windows95 / 98 / NT / 2000；前端开发工具：visualBasic6.0（企业版）；数据访问对象：ADO （本系统使用ADO控件，简化编程）。3.3.3 确定系统的功能模块通过分析确定库存系统将包含6 个主要功能模块，即系统模块、入库业务管理模块、出库业务管理模块、 退料业

13、务管理模块（还库业务管理模块）、盘点业务管理模块（报表输出）、需求管理模块。对于每一个功 能模块，都包含了数据录入、编辑、查询、统计、打印、应急、帮助等功能。第四章 系统设计4 1总体设计4.1.1 系统目标设计 系统开发的总体任务是实现企业物资设备管理的系统化、规范化和自动化，从而达到企业仓库库存管 理效率的目的。4.1.2开发设计思想 库存管理的物资主要是企业生产中所需要的各种设备、原材料及零部件。进货时经检查合同确认为有 效托收后，进行验收入库，填写入库单，进行入库登记。企业各个部门根据所需要的物资设备总额和部门 生产活动需要提出物资需求申请。计划员根据整个企业的需求开出物资设备出库单，

14、仓库管理员根据出库 单核对发放设备、原材料及零部件。有些设备使用完毕需要及时归还入库，填写还库单。根据需要按照月、 季、年进行统计分析，产生相应报表。仓库库存管理的特点是信息处理量比较大。所管理的物资设备、原材料及零部件种类繁多，而且由于 入库单、出库单、需求单等单据发生量特别大，关联信息多，查询和统计的方式各不相同，因此在管理上 实现起来有一定的困难。在管理的过程中经常会出现信息的重复传递；单据、报表种类繁多，各个部门规 格不统等问题。在本系统的设计过程中，为了克服这些困难，满足计算机管理的需要，我们采取了下面的一些原则： 统一各种原始单据的格式，统一帐目和报表的格式。 删除不必要的管理冗余

15、，实现管理规范化、科学化。 程序代码标准化，软件统一化，确保软件的可维护性和实用性。 界面尽量简单化，做到实用、方便，尽量满足企业中不同层次员工的需要。 建立操作日志，系统自动记录所进行的各种操作。4.1.3系统功能分析 本系统需要完成的功能主要有以下几点。 库存管理的各种信息的输入，包括入库、出库、还库、需求信息的输入等。 库存管理的各种信息的查询、修改和维护。 设备采购报表的生成。 在材料库存中加入所允许的最大库存合最小库存字段，对所有库存物资实现监控和报警。 企业各个部门的物资需求管理。 操作日志的管理 库存管理系统的使用帮助。4.2详细设计4.2.1 系统功能模块设计在系统功能分析的基

16、础上，考虑VB和Access的特点，设计出如图4.1所示的系统功能模块图。图 4.1 系统功能模块图1) 系统模块a. 包括报表的打印及设置，操作日志的管理。b. 管理员可以通过管理界面添加或删除用户，添加新管理员或删除原有管理员 ,验证用户的合法 性，阻止非法用户登录。c. 管理员或其他用户可以修改自己的密码。2) 入库模块 包括填写入库单，更新，删除入库记录，查看现有库存信息，入库记录的查询及打印3) 出库模块 包括填写出库单，更新，删除出库记录，查看现有库存信息，出库记录的查询及打印4) 还库模块 包括填写还库单，更新，删除还库记录，还库记录的查询及打印5) 需求模块 包括填写需求计划表

17、，更新，删除采购计划信息，查看现有采购信息，采购信息的查询及打印 以及预测短期内的需求计划。图 4.2 库存管理 HIPO 图4.2.2数据库设计数据库需求分析在仔细调查企业库存物资材料管理过程的基础上，设计出本系统所处理的数据流程图(图 4.2)图 4.3 库存系统数据流程图通过对企业仓库管理内容和数据流程分析，设计的数据项合数据结构如下： 设备代码信息。包括的数据项有设备号、设备名称。 现有库存信息。包括的数据项有现有设备、现有数目、最大库存、最小库存等。 设备使用信息。包括的数据项有使用的设备、使用部门。数目。使用时间、出库时状态等。 设备采购信息。包括的数据项有采购的设备、采购员、供应

18、商、采购数目、采购时间等。 设备归还信息。包括的数据项有归还设备、归还部门、归还数目、归还时间、经手人等。 设备需求信息。包括的数据项有需求的部门、需求设备、需求数目、需求时间等。 有了上面的数据结构、数据项和数据流程，就可以进行下面的数据库设计。数据库概念结构设计 这一设计阶段是在需求分析的基础上，设计出能够满足用户需求的各种实体，以及它们之间的关 系，为后面的逻辑结构设计打下基础。根据上面的设计规划出的实体有库存实体、出库实体、入库实 体、采购实体、还库实体、需求实体。各个实体的E-R图及其关系描述如下：图 4.4 库存实体 E-R 图图 4.5 入库实体 E-R 图图 4.6 出库实体

19、E-R 图图 4.8 库存实体 E-R 图图 4.9 计划采购实体 E-R 图实体与实体间的关系E-R图如下所示：还库部门需求 设备釆购图4.10实体之间关系E-R图数据库逻辑结构设计在上面的实体以及实体之间关系的基础上，形成各个表格之间的关系。库存管理系统数据库中的各个表的设计结果如下面的几个表格所示 ，每个表格表示数据库中的一个表。表41设备代码表字段名称数据类型可否为空说明设备号文本NOT NULL字段大小为6设备名称文本NULL字段大小为20表4.2权限表字段名称数据类型可否为空说明用户名文本NULL字段大小为10密码文本NULL字段大小为15权限文本NULL字段大小为10表43设备入

20、库表字段名称数据类型可否为空说明设备号文本NOT NULL字段大小为6入库时间日期耐间NULL无供应商文本NULL字段大小为20供应商电话文本NULL字段大小为15入库数量数字NULLINTEGER价格数字NULLINTEGER采购员文本NULL字段大小为10表44设备出库表字段名称数据类型可否为空说明设备号文本NOT NULL字段大小为6使用部门文本NULL字段大小为20出库时间日期/时间NULL无出库状况文本NULL字段大小为20经手人文本NULL字段大小为10出库数量数字NULLINTEGER领取人文本NULL字段大小为10用途文本NULL字段大小为20表45现有库存库表字段名称数据类型

21、可否为空说明设备号文本NOT NULL字段大小为6主键现有库存文本NULLINTEGER最大库存文本NULLINTEGER最小库存文本NULLINTEGER表46部门需求表字段名称数据类型可否为空说明设备号文本NOT NULL字段大小为6部门名称文本NOT NULL字段大小为10需要数量数字NULLINTEGER需求开始时间日期耐间NULL无需求结束时间日期耐间NULL无表47设备还库表字段名称数据类型可否为空说明设备号文本NOT NULL字段大小为6还库时间日期耐间NULL无仓库管理员文本NULL字段大小为10归还数量数字NULLINTEGER归还人文本NULL字段大小为10表48操作日志表

22、字段名称数据类型可否为空说明操作员文本NOT NULL字段大小为10操作内容文本NOT NULL字段大小为100操作时间日期/时间NOT NULL无表49设备采购计划表字段名称数据类型可否为空说明设备号文本NOT NULL字段大小为6主键现有库存数字NULLINTEGER总库存数字NULLINTEGER最大库存数字NULLINTEGER购买数量数字NULLINTEGER供应商文本NULL字段大小为10价格数字NULLINTEGER计划采购时间日期耐间NULL无43 代码设计 任何库存均可分为如下三类：A类物品：高值价值占库存总值7 0 - 8 0 %的相对少数物品。通常为物品的15-20%。E

23、类物品：中值总值占库存总值的15-2 0%。物品数居中，通常占物品的3 0 -4 0 %。C类物品：低值库存总值几乎可以忽略不计，只占5-10%。是物品的大多数，通常占6 0 - 7 0 %。因此设计编码如下：设备号或零件号X_X X_X X_X自定义自定义自定义例如设备号或零件号A 0_1 0_2A类消耗性物资常用零件44 输入输出设计本系统界面标准 Windows 形式，键盘输入（也可以用条形码读取），人机交互，容易使用。输入输出的 设计考虑美观实用和通俗易懂，图文并茂。45 系统安全性设计系统数据库中包含多个二维表，所以在系统与数据库的连接上，并没有把数据库和系统的连接直接写入 代码，而

24、是通过对服务器端进行系统设置，使数据库名及路径不可见，并通过ACCESS的数据库安全设置， 保证了数据库的安全性。系统根据用户身份不同赋予不同权限，用户用密码登陆，同样也保证了系统数据 的安全性。第五章 系统实施51 系统实现5.1.1.系统管理模块实现系统管理菜单系统管理入库操作出库操作还J 重新登录修改密码忝加或删除用户很出修改用户密码程序Private Sub Command1_Click()Adodc1.RecordSource = frmLogin.Adodc1.RecordSource Adodc1.RefreshSet Text4.DataSource = Adodc1Text4

25、.DataField = 密码If Text1 = Then MsgBox 请输入原密码！, , 修改密码 Exit SubElself Textl.Text Adodcl.Recordset.Fields(密码”)Then MsgBox 原密码错误！, , 修改密码Exit SubElseIf Text2 = Or Text3 = ThenMsgBox 请输入新密码！, , 修改密码Exit SubElseIf Text2 Text3 ThenMsgBox 密码不一致！, , 修改密码Exit SubElseText4.Text = Text2.TextAdodcl.Recordset.Mo

26、veFirstMsgBox 密码修改成功！, , 修改密码Unload MeEnd IfEnd Sub5.1.2 用户管理界面（程序略）设备名称设备名称设备号:设备号现有库存入库数量:入库时间:最人库存供应商:价格:供应商电话:最小库存查看所有入库设备信息Dim I, J As IntegerDim STR As StringIf Text1.Text = Or Text2 = Or Combo1.Text = Or Text4 = Or Text5 = Or Text6 = Or Text7 = ThenMsgBox 请输入完整信息！Exit SubElse 将记录存入入库记录表设备入库表.

27、datPrimaryRS.Recordset.Fields（设备号）=Textl.Text设备入库表.datPrimaryRS.Recordset.Fields（入库数量）=Text2.Text设备入库表.datPrimaryRS.Recordset.Fields（入库时间）=Combol.Text设备入库表.datPrimaryRS.Recordset.Fields（供应商）=Text4.Text设备入库表.datPrimaryRS.Recordset.Fields（供应商电话）=Text5.Text 设备入库表.datPrimaryRS.Recordset.Fields（价格）=Text6

28、.Text 设备入库表.datPrimaryRS.Recordset.Fields（采购员）=Text7.TextMsgBox 已经成功入库！End If设备入库表.Adodcl.RecordSource = select * from 现有库存表 where 设备号=& Textl.Text & 设备入库表.Adodd.Refresh设备入库表.DataGrid1.RefreshIf 设备入库表.Adodd.Recordset.RecordCount 0 Then将记录加入现有库存表中设备入库表.Text9.Text = CInt（设备入库表.Text9.Text） + CInt（Text2

29、.Text） 设备入库表.Text9.RefreshJ =设备入库表.Text9设备入库表.Adodd.Recordset.MoveFirst设备入库表.Adodd.Recordset.Fields.Refresh设备入库表.DataGrid1.RefreshMsgBox 现有库存量为： & JElseSTR = 现有库存表中无此设备！ & vbCrLf & 请在设备代码表和现有库存表中手动添加记录！ MsgBox STRLoad frm 现有库存表 frm现有库存表.ShowCall frm 现有库存表.Command1_ClickFrmAddNewEqu.Textl.Text = frmI

30、nput.Textl.TextFrmAddNewEqu.Text2.Text = frmInput.Text2.TextLoad frm 设备代码表frm设备代码表.ShowEnd IfEnd SubPrivate Sub cmdDelete_Click( ) 删除入库表中记录 On Error GoTo DeleteErr Dim YesNo As StringYesNo = MsgBox(删除 ”,vbYesNo,删除记录) If YesNo = vbYes ThenWith datPrimaryRS.Recordset.Delete .MoveNext If .EOF Then .Mov

31、eLastEnd WithElseExit SubEnd IfDeleteErr:MsgBox Err.DescriptionEnd SubPrivate Sub cmdUpdate_Click( ) 更新纪录程序On Error GoTo UpdateErr datPrimaryRS.Recordset.UpdateBatch adAffectAll Exit SubUpdateErr:MsgBox Err.DescriptionEnd Sub5.1.4 出库模块实现鱼设备出库表信息查询报表輸出 帮助宙库盪备舊息 设备名称一、甕有库存宿息I设备名称设备号:B001设备号出库数量:出库时间:0

32、3-5-11经手人领取人现有库存最大库存使用部门用途工程部查看所有现有库存信息关闭最小库存设备现有库存信息更 aDimi备注：出库数量將从现有库存中减去装饰舞台设备出库现有库存表where设备号=& Textl.Text &*frm 设备出库表.DataGrid1.RefreshIf IsNumeric(Text2) = False Then MsgBox 数量必须是数字！ Exit SubEnd IfIf Text1.Text = Or Text2 = Or Combo1.Text = Or Text4 = Or Text5 = Or Text6 = Or Text7 = Then MsgB

33、ox 请输入完整信息！Exit SubElseIf frm 设备出库表.Adodd.Recordset.RecordCount 0 Thenk = CInt（frm 设备出库表.Text9.Text） - CInt（Text2.Text）If k = 0 Thenfrm 设备出库表.Text9.Text = CInt（frm设备出库表.Text9.Text） - CInt（Text2.Text） frm 设备出库表.Text9.RefreshJ = frm设备出库表.Text9frm 设备出库表.Adodd.Recordset.MoveFirstfrm 设备出库表.Adodd.Recordse

34、t.Fields.Refreshfrm 设备出库表.DataGrid1.Refresh MsgBox 现有库存量为： & JElseMsgBox 现有库存量不足！请输入合适数量！Exit Sub End IfElseSTR = 现有库存表中无此设备！请检查输入是否正确！ MsgBox STREnd IfEnd Sub Private Sub cmdDelete_Click（ ）删除出库记录On Error GoTo DeleteErr Dim YesNo As String YesNo = MsgBox（删除 ”,vbYesNo,删除记录） If YesNo = vbYes ThenWith

35、datPrimaryRS.Recordset.Delete.MoveNextIf .EOF Then .MoveLast End WithElseExit SubEnd If DeleteErr:MsgBox Err.DescriptionEnd Sub5.2.6 现有模块实现，程序略517设备代码模块实现datPrimaryRS.Recordset.AddNew过窖过少蚯)更新I刷新 关闭 I所眾Exit SubAddErr:MsgBox Err.DescriptionEnd Sub5.1.8库存报警模块实现Private Sub Command1_Click() 显示高于最大警戒库存的设备

36、datPrimaryRS.RecordSource = select * from 现有库存表 where 现有库存最大库存 datPrimaryRS.Refresh grdDataGrid.RefreshIf datPrimaryRS.Recordset.RecordCount 0 ThenBeepMsgBox 表中设备已过量！ElseMsgBox 没有设备库存过量！End IfEnd SubPrivate Sub Command2_Click()显示低于于最小警戒库存的设备datPrimaryRS.RecordSource = select * from 现有库存表 where 现有库存最

37、小库存datPrimaryRS.Refresh grdDataGrid.Refresh If datPrimaryRS.Recordset.RecordCount 0 ThenBeepMsgBox 表中设备库存量已过警戒线！请采购！ElseMsgBox 没有设备库存量过少！End IfEnd subPrivate Sub Timer1_Timer() 自动报警程序 frmAlarm.datPrimaryRS.RecordSource = select * from 现有库存表 where 现有库存最大库存 frmAlarm.datPrimaryRS.RefreshIf frmAlarm.dat

38、PrimaryRS.Recordset.RecordCount 0 ThenBeepMsgBox 有设备库存超过警戒库存！ & vbCrLf & 请查看库存报警记录 Timer1.Enabled = False frmAlarm.ShowExit SubEnd IfEnd SubPrivate Sub Timer2_Timer() frmAlarm.datPrimaryRS.RecordSource = select * from 现有库存表 where 现有库存 0 ThenBeepMsgBox 有设备库存低于警戒库存！ & vbCrLf & 请查看库存报警记录 Timer2.Enabled

39、 = False frmAlarm.ShowExit SubEnd IfEnd Sub5.1.9 操作日志模块实现Private Sub Command2_Click( ) 填写日志记录If Text1.Text = Or Combo1.Text = Or Combo2.Text = ThenMsgBox 请输入完整信息！Exit SubElsefrmLog.Adodcl.Recordset.Fields(操作员)=Textl.Text frmLog.Adodcl.Recordset.Fields(操作内容)=Combol.Text frmLog.Adodc1.Recordset.Fields

40、(操作时间)=Combo2.Text frmLog.Adodcl.Recordset.MoveLastEnd IfEnd SubPrivate Sub Form_Load() 设置填写时间Dim STRtime As String STRtime = Now() Combo2.Text = STRtime Combo2.AddItem (STRtime)End Sub5110还库操模块实现设备名称设备号:归还数量:李明参考文献：1 数据库系统原理教程王珊 陈红 清华大学出版社2 管理信息系统王虎 张俊 武汉理工大学出版社3 Visual Basic 数据库开发 E.Winemiller,J.Roff B.Heyman,R.Groom 著 清华大学出版社4 PowerBuilder 8.0 数据库系统开发实例导航何旭洪 余建英 人民邮电出版社5. VB6从入门道精通 美Gary Cornell著 北京希望电子出版社6. managing Information Systems David L.Anderson 著 清华大学出版社7. Management Information Systems Raymond Mcleod,Jc George Schell 著 北京大学出版社