vb库存管理系统论文设计与实现模板.doc

摘要

本系统是作者依据企业日常库存管理需要出发，使用VB6.0开发成功小型仓库管理系统。该系统能够方便地实现商品入库操作和出库操作、和报表打印等功效。这些功效实现对企业库存管理从以往手工管理过渡到计算机信息化管理，从而大大提升了工作效率。
本论文从引言开始以本系统开发为根本叙述计算机处理数据是时代发展需要，也是大事所趋，而且计算机科技发展，是计算机进入中小型企业成为可能，功效完善大小型系统开始进入中小企业并为之服务。简单快捷操作，更为减轻职员压力提供了有效缓解。仓库管理系统就是这么一类系统，论文根据系统开发步骤：系统分析、系统设计、系统实施、系统调试和测试、系统运行五个大方面来展示系统开发过程及系统功效实现。在系统分析中前后用数据流图、系统功效结构图分析了系统所需多种数据。在系统设计中，具体展现了系统各个功效模块。所需数据库表及表字段。菜单设计等。在系统实现中，给出了实现表单中对应功效控件事件及代码。和菜单实现方法和本系统关键功效运行界面图。其中第六章对用户来说是比较关键，因为这一章附录了系统具体使用说明

关键词：库存管理 数据库 信息管理

目录
目录 2
第一章 引言 5
第二章 系统分析 8
2.1 可行性分析 8
2.1.1运行可行性 8
2.1.2经济可行性 8
2.1.3技术可行性 9
2．2需求分析 9
2.3系统数据分析和描述 12
2.4 系统总统设计 14
第三章 系统设计 16
3.1 数据库设计 16
3.1.1 数据库概念结构设计 16
3.1.2 数据库逻辑设计 18
3.1.2 数据库物理设计 19
3.2 系统模块设计 22
3.3 界面设计： 23
3.3.1 系统登录界面 23
3.3.2 系统主界面 24
3.3.3 入库统计界面 24
3.4 报表设计 25

第四章 系统实施 27
4.1 系统登录模块实施： 27
4.2 主界面各个功效实现 28
第五章 系统调试和测试 33
系统调试和测试 33
5.1 vb系统连接数据库调试 33
5.2 系统存放、调用数据库数据可靠性 33
5.3 系统查询功效检验 34
第六章 系统运行 35
6.1 系统运行环境 35
6.2 系统使用说明书 35
结束语 38
参考文件 39

第一章 引言
社会在不停进步，科学技术和管理也在快速发展，这使得每个企业得到了前所未有发展机遇，但同时也必需面对市场竞争严重挑战，在日趋猛烈竞争环境下，企业要求生存、发展，就必需对企业进行科学管理。伴随计算机发展，计算机完全能够把各类信息搜集起来，按需要进行处理，系统运行于基于WINDOWS XP//NT平台之即可，市面上大部分微机全基于这个层次，用计算机来处理企业内部信息间流通和使用，既能够实现数据信息共享，控制好数据冗余度，并使企业有统一管理，提升信息利用率；又能够实现整体数据结构化，表示大量数据相互间多个联络，这么就能够大大提升企业生产动作效率。此次设计即是针对中小型企业对商品在库存管理方面所做分析，企业商品大量出入仓库，使得每一个企业在仓库管理方面每十二个月要花费大量人力，投资，设施，费用去计划和控制存货。存货周转率是标志着企业运行效率关键指标，对企业资产收益率起着关键决定作用。所以多年来，企业管理者开始重视存货管理关键性，存货管理关键是对商品管理，它强调是对商品货物存放和传送，数量和状态改变信息管理，其目标是在于降低库存成本，降低库存资金占用同时，确保商品货物按计划流动，确保生产过程中物料需求，确保生产正常运行，从而使商品满足用户和市场上需求，库存控制就是要权衡库存费用（包含商品价值，订货费用，短缺等），使总费用最低。企业库存管理系统职能大致上包含订单管理、入库管理和出库管理。所以库存管理人员已经成为仓库计划员，她们工作也受到了高度重视，她们和市场部门及生产部门协同工作并成为整个企业组织关键组成部分。所以，商品货物信息必需含有高度正确性，这就需要有好管理系统，能简明反应实际情况。以上所述就是此次库存管理系统开发依据和目标。
信息社会高科技，商品经济化高效益，使计算机应用已普及到经济和生活各个领域。计算机即使和人类关系愈来愈亲密，不过仍然还有些人因为计算机操作不方便而继续使用传统手工劳动。为了适应该代社会大家高度强烈时间观念，企业库存管理系统软件为企业库存管理方面带来了极大方便。该软件是以vb编程工具为开发工具，其功效实现了对库存管理。经过操作手册，使用者能够了解本软件基础工作原理。操作人员只需要输入部分简单汉字或数字，便可很方便达成自己目标。
仓库管理系统作为现代仓储企业进行货物管理和处理业务操作系统。它能够实现当地一个或多个仓库精细化管理，也可实现制造企业、物流企业、连锁业在全国范围内、异地多点仓库管理；它能够对货物存放和出货等进行动态安排，能够对仓储作业步骤全过程进行电子化操作；能够和客服中心建立数据接口使用户经过互联网实现远程货物管理，能够和企业ERP系统实现无缝连接。
在传统企业中，仓库管理是一项繁琐复杂工作，天天要处理大量单据数据。为立即结清每笔业务，盘点库存和货物流动情况，确保企业生产用料和货物安全，库管人员要花费大量人力物力和时间来作数据统计统计工作。本系统正是依据仓库管理专业特点而开发，用现代电子技术提升库管工作质量和效率。适适用于小型企业库管和储运业务，界面直观，操作简便，利用鼠标，在窗口不一样部位单击左健，双击左健，单击右健，系统会弹出对应窗口，供使用者录入和查询统计。

本系统关键用是模块化设计，关键包含登记信息，单据管理，查询统计，输出管理和维护设置多个模块。各模块关键功效有：
●登记信息关键功效：登记货物信息，登记供给商信息，登记往来用户信息，登记仓库信息。
●单据管理关键功效：对入库单据，出库单据，借入单据，借出单据，调拨单据，报损单据六个单据进行管理。
●查询统计关键功效：实现单据查询，库存查询，职员操作查询，货物出入查询，对管理员还能够实现用access语句进行高级查询。
●输出管理关键功效：能够对入库单据，出库单据，借入单据，借出单据，调拨单据，报损单据六个单据进行输出管理。和输出时对单据进行页面设置等功效
●维护设置关键功效：能够查看操作日志，管理企业信息，管理职员信息，对该系统使用人员进行管理。
系统运行后，就用户方而言，因为用户使用本系统时，不会也无须关心系统内部结构及实现方法，即对用户来说是透明，所以本系统对用户而言，是定位在界面友好、操作方便、功效齐全标准上，用户只需简单用鼠标点击各界面上选项卡或按钮就能实施对应功效，就管理者而言，关心是怎样处理多种数据，只要把用户信息输入计算机，管理者就可运行对应后台程序进行处理。本系统应用定能成为企业仓库管理方面利器。

第二章 系统分析
2.1 可行性分析
可行性分析研究目标就是用最小代价在尽可能短时间里确定问题是否能处理，经过复杂系统规模和目标，研究和这类似系统后，我们具体从下面三方面考虑。
2.1.1运行可行性
系统是采取Visual Basic作为开发一具，Visual Basic是基于Basic可视化程序设计语言。在Visual Basic中，首先继承了Basic所含有程序设计语言简单易用特点，其次在其编程系统中采取了面向对象、事件驱动编程机制，用一个巧妙方法把Windows编程复杂性封装起来并提供了一个所见即所得可视化程序设计方法。本系统能够运行在Win95, Win98, Win操作系统之上, 就是说市场上流行操作系统全部能够支持。所以系统运行可行性绝不会成为《软件零售仓库管理系统》问题。

2.1.2经济可行性
估算新系统成本效益分析，其中包含估量项目开发成本，开发费用和以后运行、维护费用，估量新系统将取得效益，估算开发成本是否回高于项目预期全部经费。而且，分析系统开发是否会对其它产品或利润带来一定影响。
● 支出：
基础投资：硬件货物“ PC机”
软件货物：WINDOWS98/、POWERBUILDE WORD
其它一次性支出：软件设计和开发费用
常常性支出：软件维护费用、软件使用费用。
●效益：
系统效益能够从经济效益和社会效益两方面考虑。对于仓库管理系统则应着重分析其社会效益。比如，系统投入运行后能够使仓库管理实现科学化、规范化。曾强了工作人员对仓库管理能力、提升了工作效率。
2.1.3技术可行性
本设计“仓库管理系统”是为企业仓库管理人员开发。鉴于本人在上学期数据库课程设计中已用Visual Basic6.0＋Access开发过考试管理息系统，而且经过三个月毕业实习中学习和实践，对开发管理信息系统又有了新认识和提升，使自己在开发管理信息系统方面技术愈加成熟。因为本设计最关键表现是实用性，所以，经过大量社会调查和分析，结合自己现有技术水平加上导师指导，一定能按期完成本毕业设计。
2．2需求分析
一、 仓库日常管理
1、仓库保管员必需合理设置各类物资和产品明细账簿和台账。原材料仓库必需依据实际情况和各类原材料性质、用途、类型分明别类建立对应明细账、卡片；半成品、产成品应根据类型及规格型号设置明细账、卡片；财务部门和仓库所建账簿及次序编号必需相互统一，相互一致。合格品、逾期品、失效品、料废、退回电机、返修电机应分别建账反应。
2、必需严格按仓库管理规程进行日常操作，仓库保管员对当日发生业务必需立即逐笔统计，做到日清日结，确保物料进出及结存数据正确无误。立即登记手工明细账并和仓库中数据进行查对，确保二者一致性。
3、做好各类物料和产品日常核查工作，仓库保管员必需对各类库存物资定时进行检验盘点，并做到账、物、卡三者一致。。
4、各事业部、分厂必需根椐生产计划及仓库库存情况合理确定采购数量，并严格控制各类物资库存量，有条件单位逐步实施零库存；仓库保管员必需定时进行各类存货分类整理，对存放期限较长，逾期失效等不良存货，要按月编制报表，报送各事业部领导及财务人员，各事业部对本单位各类不良存货每个月必需提出处理意见，责成相关部门立即加以处理。
二、入库管理
1、物料进仓时，仓库管理员必需凭送货单、检验合格单办理入库手续；如属回用物资应凭回用单办理入库手续，拒绝不合格或手续不齐全物资入库，杜绝只见发票不见实物或边办理入库边办理出库现象。
2、入库时，仓库管理员必需查点物资数量、规格型号、合格证件等项目，如发觉物资数量、质量、单据等不齐全时，不得办理入库手续。未经办理入库手续物资一律作待检物资处理放在待检区域内，经检验不合格物资一律退回，放在暂放区域，同时必需在短期内通知经办人员负责处理。
3、一切原材料购入全部必需用增植税专用发票方可入库报销，无税票，其材料价格必需下浮到能补足扣税额为止。同时要注意审查发票正确性和有效性。
4、入库材料在未收到对应发票前，仓管员必需建立货到票未到材料明细账，并依据检验单等有效单据立即填开货到票未到收料单（在当月票到可不开），在收到发票后，冲销原货到票未到收料单，并开具材料票到收料单，月底将货到票未到材料清单上报财务。
5、收料单填开必需正确完整，供给单位名称应填写全称并和发票单位一致，如属票到冲抵，应在备注栏中注明原入库时间，铸件收料单上还应注明单重和总重。收料单上必需有保管员及经手人签字，而且字迹清楚。每批材料入库累计金额必需和发票上不含税金额一致。
三、出库管理
1、各类材料发出，标准上采取优异先出法。物料（包含原材料、半成品）出库时必需办理出库手续，并做到限额领料，车间领用物料必需由车间主任（或其指定人员）统一领取，领料人员凭车间主任或计划员开具步骤单或相关凭证向仓库领料，行政各部门只有经主管领导批字后方可领取，领料员和仓管员应查对物品名称、规格、数量、质量情况，查对正确后方可发料；仓管员应开具领料单，经领料人签字，登记入卡、入帐。
2、成品发出必需由各销售部开具销售发货单据，仓库管理人员凭盖有财务发货印章和销售部门责任人签字发货单仓库联发货,并登记卡片。
四、报表及其它管理
1、仓管员在月末结账前要和车间及相关部门做好物料进出衔接工作，各相关部门计算口径应保持一致，以保障成本核实正确性。
2、必需正确立即报送要求各类报表，收付存报表、材料耗用汇总表、三个月以上积压物资报表、货到票未到材料明细表每个月27日前上报财务及相关部门，并确保其正确无误。
3、库存物资清查盘点中发觉问题和差错，应立即查明原因，并进行对应处理。如属短缺及需报废处理，必需按审批程序经领导审核同意后才可进行处理，不然一律不准自行调整。发觉物料失少或质量上问题（如超期、受潮、生锈、老化、变质或损坏等），应立即用书面形式向相关部门汇报。
4、各事业部因用户需要，要求在外设置仓库，必需报经股份企业主管领导同意后作为库存转移，并报财务部立案，其仓库管理纳入纳入所在事业部仑库管理；外设仓库必需由专员负责登记库存商品收发存台账，并将当月增减变动及月末结存情况编成报表，定时进行盘点清查，每个月将各类报表在要求时间内报送查关事业部及财务人员。
5、仓库现场管理工作必需严格根据6S要求、ISO9000标准及各事业部分厂具体要求实施。
对应如上需求我们现已总结出仓库管理系统数据要求.该系统完成后将含有以下功效：
●仓库多种信息输入，包含入库，出库，还原，需求信息输入等
●仓库管理多种信息查询，修改和维护
●货物采购报表生成
●在库存管理中加入最高贮备和最低贮备字段，对仓库物质货物实现监控和报警
●企业各个部门物质需求管理
●操作日志管理
●仓库管理系统数据备份
●数据更新
●仓库管理系统使用帮助
本系统以上功效会更适合仓库管理发展情况，将会给仓库管理带来一个更为科学服务系统，是仓库管理自动化一面新窗口。也将会是仓库管理员好帮手。
2.3系统数据分析和描述
入库单
入库事物处理
货物统计
库存查询、分析
分析或查询汇报
出库事物处理
用料单
存档
存档
图2-1 仓库出入库业务步骤图
准备采购单
采购单序列
卖方
登记代收款
代收款清单
收获处理
应收款处理
应收款
3
2
收货单1
卖方
存档
取货通知
存档
付款
图2-2 货物采购步骤

仓管
货物需求
日常货物管理
需求汇总
货物管理
货物统计单
数据汇总
报表统计查询
综合报表
企业领导
查询卡片
图2-3 仓库管理业务步骤示意图

仓 库管理员
1

操 作
事 务
2.1

确定信 息
数据库
2.2

进入系 统

D1 用户信息清单
图2-4 仓库运行数据步骤图
2.4 系统总统设计
图2-5 企业仓库管理系统结构总图
企业仓库管理系统
早期设置
货物管理
查询统计
数据报表
系统维护
退出系统
供给商信息维护
仓库设置
货物入库
货物出库
货物盘点
出库查询
入库查询
库存查询
出库报表
库存报表
操作员管理
密码修改
操作员权限设置
数据备份
数据恢复
日志清理
数据清理
查看日志

第三章 系统设计
3.1 数据库设计
3.1.1 数据库概念结构设计
（1） 分E－R图设计
本设计依据上面设计计划出实体有货物实体、仓库实体、职员实体、部门实体、供给商实体。各个实体E-R图及其关系描述以下：
货物
货物号

名称
型号
状态
图3-1 货物实体E-R图
使用年限

仓库
仓库号
面积
租用年限
图3-2 仓库实体E-R图

职员
编号
姓名
性别
职称
电话
薪水
图3-3 职员实体E-R图

部门
部门号

名称
经理
图3-4 部门E-R图

供给商
货物
仓库
职员
管理
入库
存放
出库
采购
属于
领导
编号
名称
地址
邮编
电话
联络人
价格
时间
仓库号
货物号
名称
型号
仓库号
面积
编号
姓名
性别
职称
电话
薪水
部门

部门号
名称
1
1
1
1
1
1
1
n
n
1
时间
时间
1
1
1
1
图3-5 总体E-R图
状态

3.1.2 数据库逻辑设计
将上面E－R图转化为关系模型，关系主码用下横线标出，外码用删除线标出：
实体：
货物（货物号，名称，型号，仓库号，状态）
仓库（仓库号，面积，管理员）
职员（编号，姓名，性别，职称，电话，薪水，部门号）
部门（部门号，名称，部门经理）
供给商（编号，名称，联络人，电话，地址，邮编）
联络：共3个联络
采购（货物号，名称，型号，仓库号，时间，价格，供给商）
出库（货物号，部门号，时间）
入库（货物号，部门号，时间）
经验证，以上全部实体和联络表均符合BC范式。
3.1.2 数据库物理设计
在上面实体和实体之间关系基础上，形成数据库中表格和各个表格之间关系。
仓库管理系统数据库中各个表格设计结果以下面多个表格所表示。每个表格表示在数据库中一个表。
（1）货物表：
列名
数据类型
可否为空
货物号（主键）
字符型（20）
不能为空
名称
字符型（20）
可为空
型号
字符型（20）
可为空
仓库号（外码）
字符型（20）
不能为空
状态
字符型（10）
不能为空

（2）仓库表：
列名
数据类型
可否为空
仓库号（主键）
字符型（20）
不能为空
面积
数值型（20）
可为空
管理员（外码）
字符型（20）
可为空

（3）职员表：
列名
数据类型
可否为空
编号（主键）
字符型（20）
不能为空
姓名
字符型（20）
可为空
性别
字符型（2）
可为空
职称
字符型（20）
可为空
电话
字符型（30）
可为空
薪水
数值型（20）
可为空
部门（外码）
字符型（20）
可为空

（4）部门表：
列名
数据类型
可否为空
部门号（主键）
字符型（20）
不能为空
名称
字符型（20）
可为空
部门经理（外码）
字符型（20）
可为空
（5）供给商表：
列名
数据类型
可否为空
编号（主键）
字符型（20）
不能为空
名称
字符型（20）
不能为空
联络人
字符型（20）
可为空
电话
字符型（30）
可为空
地址
字符型（50）
可为空
邮编
字符型（20）
可为空

（6）货物采购表：
列名
数据类型
可否为空
货物号（主键）
字符型（20）
不能为空
名称
字符型（20）
可为空
型号
字符型（20）
可为空
仓库号（外码）
数值型（20）
不能为空
时间
字符型（10）
可为空
价格
数值型（20）
不能为空
供给商（外码）
字符型（20）
不能为空

（7）出库表：
列名
数据类型
可否为空
部门号（主键）（外码）
字符型（20）
不能为空
货物号（主键）（外码）
字符型（20）
不能为空
时间
字符型（10）
可为空
（8）入库表：
列名
数据类型
可否为空
部门号（主键）（外码）
数值型（20）
不能为空
货物号（主键）（外码）
数值型（20）
不能为空
时间
字符型（10）
可为空
3.2 系统模块设计
系统关键由：早期设置、货物管理、查询统计、数据报表、系统维护五大模块，她们关键功效即实现以下：
早期设置：数据库原始数据录入，试运行，管理员权限设定等基础功效设置。
货物管理：包含商品入库、出库、商品产地、名称、价格等“统计”工作，并将管理员所作操作全部正确存入数据库。步骤图以下：
仓管员
货物卡片

日常卡片处理

数据库汇总
处理结果
临时数据统计
数据存放
图3-6 货物管理步骤图

数据报表：出库货物报表、入库数据报表
系统维护：操作员管理、密码修改 、操作员权限设置、数据备份、数据恢复、日志统计、日志查看、日志统计。

3.3 界面设计：
3.3.1 系统登录界面
以下图所表示即为系统登录界面，标题“欢迎使用仓库管理系统”，能够看到该界面嵌入了日历显示功效，提醒职员这是新一天，有个好心情，也是作为设计者一番良苦用心。用户名和密码框供使用者验明身份正常使用系统，整体上和确定、取消按钮合理分布，大方简练。
：
图3-7 系统登录界面

3.3.2 系统主界面
以下图为系统主界面，系统背景选择古树苍山，让人认为意味无穷，系统多个逻辑模块调用，被设计成系统菜单一共调用，依据见名知义标准，系统按钮全部代表她能实现功效。使用简单可操作性强。

图3-8 系统主界面

3.3.3 入库统计界面
该界面简单来讲包含数据输入窗口：供给商编号、供给商名称、入库编号、货物名称等详尽货物信息录入。和一个listview空间往返显数据库内货物统计情况一边用户（数据库管理员）来立即查对数据正确性。

图3-9 入库统计界面
3.4 报表设计
报表是一个完整仓库管理系统所不可或缺一部分。直接负担者将当日或一段时间企业业绩情况展现给使用者和管理者。本系统报表以下所表示，界面大方、简单明了，个项目分门别类罗列出来，层次清楚，可用性很强。
图3-10 货物出库明细表具体列出了货物编号、货物名称、计量单位、数量、单价、金额、出库日期、提货人、经手人具体信息，一目了然。
在图3-11 为库存信息明细表一样列出了货物名称。货物规格、计量单位、单价、数量等一切可能用到数据。能够说报表给了管理者最直观表述。

图3-10 货物出库报表
图3-11 库存信息明细表第四章 系统实施
本章着重介绍了系统登录模块及主模块代码实施：
4.1 系统登录模块实施：
'*** 用户登录按钮事件代码 ***
Private Sub Command1_Click()
rtn = SetWindowPos(Me.hwnd, -2, 0, 0, 0, 0, 3) '利用API函数SetWindowPos，来实现取消窗体置前功效
On Error Resume Next
Dim MPassword As String
If Text2.Text = "mr" And Text1.Text = "mr" Then '判定是否使用是超级口令登录
frm_main.StatusBar1.Panels.Item(2).Text = "目前操作员： mr"
Name1 = Text2.Text
Unload Me
frm_main.Show
Else
Adodc1.RecordSource = "select * from tb_enter where M_Name ='" & Text2.Text & "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
MPassword = Adodc1.Recordset.Fields("M_Password")
If Text1.Text = MPassword Then '判定数据密码是否正确
frm_main.StatusBar1.Panels.Item(2).Text = "目前操作员： " + Adodc1.Recordset.Fields("M_Name")
Name1 = Text2.Text
frm_main.Show
'添加登录日志
Open (App.Path & "\系统日志.ini") For Input As #1
Do While Not EOF(1)
Line Input #1, Intext
TStr = TStr + Intext + Chr(13) + Chr(10)
Loop
Close #1
TStr = TStr + " " + Name1 + " " + Format(Now, "yyyy-mm-dd hh:mm:ss") + " " + "系统登录" + Chr(13) + Chr(10)
Open (App.Path & "\系统日志.ini") For Output As #1
Print #1, TStr
Close #1
Unload Me
Else
MsgBox "密码不正确,请您确定后重新输入", , "库存管理系统"
Text1.Text = ""
Text1.SetFocus
End If
Else
MsgBox "对不起 没有此用户信息", , "库存管理系统"
Text2.Text = ""
Text1.Text = ""
End If
End If
End Sub
4.2 主界面各个功效实现
Private Sub Form_Load()
Me.AutoRedraw = False
Image1.Visible = False
Call WHScreen
'利用代码连接数据库
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_kcgl.mdb;Persist Security Info=False"
Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_kcgl.mdb;Persist Security Info=False"

Call Tree_change '调用过程，用于显示TreeView控件中数据信息
If TWidth > 800 Or THeigth > 600 Then

RemoveMenu GetSystemMenu(frm_main.hwnd, 0), SC_MAXIMIZE, MF_REMOVE '最大化按钮不可用
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2

Else
Me.WindowState = 2
End If

'向ListView控件中添加元素

End Sub
Private Sub Form_Paint()
Me.PaintPicture Image1.Picture, 0, 0, ScaleWidth, Me.Height, 0, 0, Image1.Width, Image1.Height
End Sub
'*** 自定义一个过程，用于显示TreeView控件中数据 ***
Public Sub Tree_change()
Dim key, Text, BH, StrTemp As String
Dim Nod As Node '定义一个节点变量
Adodc1.RecordSource = "select * from tb_zcd "
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
Adodc1.Recordset.MoveFirst
Do While Adodc1.Recordset.EOF = False '循环读取第1层节点中数据信息
key = Trim(Adodc1.Recordset.Fields("主菜单名称"))
Text = Adodc1.Recordset.Fields("主菜单名称")
StrTemp = Adodc1.Recordset.Fields("主菜单名称")

Adodc2.RecordSource = "select * from tb_zcd_zcd where 主菜单名称='" + StrTemp + "' "
Adodc2.Refresh
If Adodc2.Recordset.RecordCount > 0 Then
Adodc2.Recordset.MoveFirst
Do While Adodc2.Recordset.EOF = False '循环读取第2层节点中数据信息
key = Trim(Adodc2.Recordset.Fields("子菜单名称"))
Text = Adodc2.Recordset.Fields("子菜单名称")

Adodc2.Recordset.MoveNext
Loop
Else
End If
Adodc1.Recordset.MoveNext
Loop
Else
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
'添加退出系统日志
Open (App.Path & "\系统日志.ini") For Input As #1 '首先读取文件中信息
Do While Not EOF(1)
Line Input #1, Intext
TStr = TStr + Intext + Chr(13) + Chr(10) '将读取信息保留到变量中
Loop
Close #1
'改变变量值
TStr = TStr + " " + Name1 + " " + Format(Now, "yyyy-mm-dd hh:mm:ss") + " " + "退出系统" + Chr(13) + Chr(10)
Open (App.Path & "\系统日志.ini") For Output As #1 '将添加日志后信息重新保留到文件当中
Print #1, TStr
Close #1
End
End Sub

Private Sub GYSXXWH_Click()
frm_gys.Show '显示供给商信息窗体
Me.Enabled = False
End Sub

Private Sub HPCKGL_Click()
frm_out.Show '显示货物出库信息窗体
StrNums = 0 '出库标识，用于标识调用库存检索窗体
Me.Enabled = False
End Sub

Private Sub HPGH_Click()
frm_hpin.Show '显示货物归还窗体
Me.Enabled = False
End Sub

Private Sub HPGHCX_Click()
frm_HpghQuery.Show '显示货物归还查询窗体
Me.Enabled = False
End Sub

Private Sub HPJC_Click()
StrNums = 2 '货物借出标识，用于标识调用库存检索窗体
frm_hpout.Show '显示货物借出窗体
Me.Enabled = False
End Sub

Private Sub HPJCCX_Click()
frm_HpjcQuery.Show '显示货物借出查询窗体
Me.Enabled = False
End Sub

Private Sub HP