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

vb库存管理系统论文设计与实现

65
2020年5月29日
文档仅供参考
摘要

本系统是作者根据企业日常库存管理的需要出发,使用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 '显示货品归还查询窗体
M