《vb库存管理系统论文设计与实现.docx》由会员分享，可在线阅读，更多相关《vb库存管理系统论文设计与实现.docx（38页珍藏版）》请在三一办公上搜索。
1、摘要本系统是作者根据企业日常库存管理的需要出发，使用VB6.0开发成功的小型仓库管理系统。该系统可以方便地实现商品的入库操作和出库操作、以及报表打印等功能。这些功能的实现对公司的库存管理从以往的手工管理过渡到计算机的信息化管理，从而大大提高了工作效率。本论文从引言开始以本系统开发为主线阐述计算机处理数据是时代发展的需要，也是大事所趋，并且计算机科技的发展，是计算机进入中小型企业成为可能，功能完善的大小型系统开始进入中小企业并为之服务。简单快捷的操作，更为减轻职员压力提供了有效缓解。仓库管理系统就是这样一类系统，论文按照系统开发的步骤：系统分析、系统设计、系统实施、系统调试与测试、系统运行五个大
2、方面来展示系统的开发过程及系统功能的实现。在系统分析中先后用数据流图、系统的功能结构图分析了系统所需的各种数据。在系统的设计中，详细的展现了系统的各个功能模块。所需的数据库表及表字段。菜单的设计等。在系统的实现中，给出了实现表单中相应的功能控件的事件及代码。以及菜单实现的方法和本系统的主要功能运行界面图。其中第六章对用户来说是比较重要的，因为这一章附录了系统的详细使用说明关键词：库存管理 数据库 信息管理目录目录2第一章 引言5第二章 系统分析82.1 可行性分析82.1.1运行可行性82.1.2经济可行性82.1.3技术可行性922需求分析92.3系统数据分析与描述122.4 系统总统设计1
3、4第三章 系统设计163.1 数据库设计163.1.1 数据库概念结构设计163.1.2 数据库逻辑设计183.1.2 数据库物理设计193.2 系统模块设计223.3 界面设计：233.3.1 系统登录界面233.3.2 系统主界面243.3.3 入库统计界面243.4 报表设计25第四章 系统实施274.1 系统登录模块的实施：274.2 主界面各个功能实现28第五章 系统调试与测试33系统调试与测试335.1 vb系统连接数据库的调试335.2 系统存储、调用数据库数据的可靠性335.3 系统查询功能检验34第六章 系统运行356.1 系统运行环境356.2 系统使用说明书35结束语38
4、参考文献39第一章 引言社会在不断进步，科学技术和管理也在迅速发展，这使得每个企业得到了前所未有的发展机遇，但同时也必须面对市场竞争的严重挑战，在日趋激烈的竞争环境下，企业要求生存、发展，就必须对企业进行科学的管理。随着计算机的发展，计算机完全可以把各类信息收集起来，按需要进行处理，系统运行于基于WINDOWS XP/2000/NT平台之即可，市面上大部分微机全基于这个层次，用计算机来处理企业内部信息间的流通和使用，既可以实现数据信息的共享，控制好数据的冗余度，并使企业有统一的管理，提高信息的利用率；又可以实现整体数据的结构化，表示大量数据相互间的多种联系，这样就可以大大的提高企业生产动作的效
5、率。本次设计即是针对中小型企业对商品在库存管理方面所做的分析，企业商品的大量出入仓库，使得每一个企业在仓库管理方面每年要花费大量的人力，投资，设施，费用去计划和控制存货。存货的周转率是标志着企业运营效率的重要指标，对企业的资产收益率起着重要的决定作用。所以近年来，企业管理者开始重视存货管理的重要性，存货管理主要是对商品的管理，它强调的是对商品货物的存储和传送，数量和状态变化信息的管理，其目标是在于降低库存成本，减少库存资金占用的同时，保证商品货物按计划流动，保证生产过程中的物料需求，保证生产的正常运行，从而使商品满足顾客和市场上的需求，库存控制就是要权衡库存费用（包括商品价值，订货费用，短缺等
6、），使总费用最低。企业库存管理系统的职能大体上包括订单管理、入库管理和出库管理。所以库存管理人员已经成为仓库的计划员，他们的工作也受到了高度的重视，他们和市场部门及生产部门协同工作并成为整个企业组织的重要组成部分。因此，商品货物信息必须具有高度的准确性，这就需要有好的管理系统，能简明的反映实际情况。以上所述就是本次库存管理系统开发的依据和目标。 信息社会的高科技，商品经济化的高效益，使计算机的应用已普及到经济和生活的各个领域。计算机虽然与人类的关系愈来愈密切，但是仍然还有人由于计算机操作的不方便而继续使用传统的手工劳动。为了适应现代社会人们高度强烈的时间观念，企业库存管理系统软件为企业库存管理
7、方面带来了极大的方便。该软件是以vb编程工具为开发工具，其功能实现了对库存的管理。通过操作手册，使用者可以了解本软件的基本工作原理。操作人员只需要输入一些简单的汉字或数字，便可很方便的达到自己的目标。仓库管理系统作为现代仓储企业进行货物管理和处理的业务操作系统。它可以实现本地一个或几个仓库的精细化管理，也可实现制造企业、物流企业、连锁业在全国范围内、异地多点仓库的管理；它可以对货物存储和出货等进行动态安排，可以对仓储作业流程的全过程进行电子化操作；可以与客服中心建立数据接口使客户通过互联网实现远程货物管理，可以与企业的ERP系统实现无缝连接。在传统企业中，仓库管理是一项繁琐复杂的工作，每天要处
8、理大量的单据数据。为及时结清每笔业务，盘点库存和货物流动情况，保证企业生产用料以及货物安全，库管人员要花费大量人力物力和时间来作数据记录统计工作。本系统正是根据仓库管理的专业特点而开发的，用现代电子技术提高库管工作的质量和效率。适用于小型企业库管以及储运业务，界面直观，操作简便，运用鼠标，在窗口的不同部位单击左健，双击左健，单击右健，系统会弹出相应窗口，供使用者录入和查询统计。本系统主要用的是模块化设计，主要包含登记信息，单据管理，查询统计，输出管理和维护设置几个模块。各模块的主要功能有：登记信息的主要功能：登记货物信息，登记供应商信息，登记往来客户信息，登记仓库信息。单据管理的主要功能：对入
9、库单据，出库单据，借入单据，借出单据，调拨单据，报损单据六个单据进行管理。查询统计的主要功能：实现单据查询，库存查询，职员操作查询，货物出入查询，对管理员还可以实现用access语句进行高级查询。输出管理的主要功能：可以对入库单据，出库单据，借入单据，借出单据，调拨单据，报损单据六个单据进行输出管理。以及输出时对单据进行页面设置等功能维护设置的主要功能：可以查看操作日志，管理公司信息，管理职员信息，对该系统的使用人员进行管理。系统运行后，就用户方而言，由于用户使用本系统时，不会也不必关心系统内部的结构及实现方法，即对用户来说是透明的，所以本系统对用户而言，是定位在界面友好、操作方便、功能齐全的
10、原则上的，用户只需简单的用鼠标点击各界面上的选项卡或按钮就能执行相应的功能，就管理者而言，关心的是如何处理各种数据，只要把用户的信息输入计算机，管理者就可运行相应的后台程序进行处理。本系统的应用定能成为企业仓库管理方面的利器。 第二章 系统分析2.1 可行性分析可行性分析研究的目的就是用最小的代价在尽可能短的时间里确定问题是否能解决，通过复杂系统的规模与目标，研究与此类似的系统后，我们具体从下面三方面考虑。2.1.1运行可行性 系统是采用Visual Basic作为开发一具的，Visual Basic是基于Basic的可视化的程序设计语言。在Visual Basic中，一方面继承了Basic所
11、具有的程序设计语言简单易用的特点，另一方面在其编程系统中采用了面向对象、事件驱动的编程机制，用一种巧妙的方法把Windows的编程复杂性封装起来并提供了一种所见即所得的可视化程序设计方法。本系统可以运行在Win95, Win98, Win2000操作系统之上, 就是说市场上流行的操作系统都可以支持。因此系统运行可行性绝不会成为软件零售仓库管理系统的问题。 2.1.2经济可行性估算新系统的成本效益分析，其中包括估计项目开发的成本，开发费用和今后的运行、维护费用，估计新系统将获得的效益，估算开发成本是否回高于项目预期的全部经费。并且，分析系统开发是否会对其它产品或利润带来一定影响。 支出：基础投资
12、：硬件货品“ PC机”软件货品：WINDOWS98/2000、POWERBUILDE WORD2000其它一次性支出：软件设计和开发费用经常性支出：软件维护费用、软件使用费用。效益： 系统的效益可以从经济效益和社会效益两方面考虑。对于仓库管理系统则应着重分析其社会效益。例如，系统投入运行后可以使仓库管理实现科学化、规范化。曾强了工作人员对仓库管理能力、提高了工作效率。2.1.3技术可行性本设计“仓库管理系统”是为企业仓库管理人员开发的。鉴于本人在上学期数据库课程设计中已用Visual Basic6.0Access2000开发过考试管理息系统，而且通过三个月毕业实习中的学习和实践，对开发管理信息
13、系统又有了新的认识和提高，使自己在开发管理信息系统方面的技术更加成熟。由于本设计最重要体现的是实用性，所以，通过大量的社会调查和分析，结合自己现有的技术水平加上导师的指导，一定能按期完成本毕业设计。22需求分析一、 仓库日常管理1、仓库保管员必须合理设置各类物资和产品的明细账簿和台账。原材料仓库必须根据实际情况和各类原材料的性质、用途、类型分明别类建立相应的明细账、卡片；半成品、产成品应按照类型及规格型号设立明细账、卡片；财务部门与仓库所建账簿及顺序编号必须互相统一，相互一致。合格品、逾期品、失效品、料废、退回电机、返修电机应分别建账反映。2、必须严格按仓库管理规程进行日常操作，仓库保管员对当
14、日发生的业务必须及时逐笔记录，做到日清日结，确保物料进出及结存数据的正确无误。及时登记手工明细账并与仓库中的数据进行核对，确保两者的一致性。3、做好各类物料和产品的日常核查工作，仓库保管员必须对各类库存物资定期进行检查盘点，并做到账、物、卡三者一致。4、各事业部、分厂必须根椐生产计划及仓库库存情况合理确定采购数量，并严格控制各类物资的库存量，有条件单位逐步实行零库存；仓库保管员必须定期进行各类存货的分类整理，对存放期限较长，逾期失效等不良存货，要按月编制报表，报送各事业部领导及财务人员，各事业部对本单位的各类不良存货每月必须提出处理意见，责成相关部门及时加以处理。二、入库管理1、物料进仓时，仓
15、库管理员必须凭送货单、检验合格单办理入库手续；如属回用物资应凭回用单办理入库手续，拒绝不合格或手续不齐全的物资入库，杜绝只见发票不见实物或边办理入库边办理出库的现象。2、入库时，仓库管理员必须查点物资的数量、规格型号、合格证件等项目，如发现物资数量、质量、单据等不齐全时，不得办理入库手续。未经办理入库手续的物资一律作待检物资处理放在待检区域内，经检验不合格的物资一律退回，放在暂放区域，同时必须在短期内通知经办人员负责处理。3、一切原材料的购入都必须用增植税专用发票方可入库报销，无税票的，其材料价格必须下浮到能补足扣税额为止。同时要注意审查发票的正确性和有效性。4、入库材料在未收到相应发票前，仓
16、管员必须建立货到票未到材料明细账，并根据检验单等有效单据及时填开货到票未到收料单（在当月票到的可不开），在收到发票后，冲销原货到票未到收料单，并开具材料票到收料单，月底将货到票未到材料清单上报财务。5、收料单的填开必须正确完整，供应单位名称应填写全称并与发票单位一致，如属票到抵冲的，应在备注栏中注明原入库时间，铸件收料单上还应注明单重和总重。收料单上必须有保管员及经手人签字，并且字迹清楚。每批材料入库合计金额必须与发票上的不含税金额一致。三、出库管理1、各类材料的发出，原则上采用先进先出法。物料（包括原材料、半成品）出库时必须办理出库手续，并做到限额领料，车间领用的物料必须由车间主任（或其指定
17、人员）统一领取，领料人员凭车间主任或计划员开具的流程单或相关凭证向仓库领料，行政各部门只有经主管领导批字后方可领取，领料员和仓管员应核对物品的名称、规格、数量、质量状况，核对正确后方可发料；仓管员应开具领料单，经领料人签字，登记入卡、入帐。2、成品发出必须由各销售部开具销售发货单据，仓库管理人员凭盖有财务发货印章和销售部门负责人签字的发货单仓库联发货,并登记卡片。四、报表及其他管理1、仓管员在月末结账前要与车间及相关部门做好物料进出的衔接工作，各相关部门的计算口径应保持一致，以保障成本核算的正确性。2、必须正确及时报送规定的各类报表，收付存报表、材料耗用汇总表、三个月以上积压物资报表、货到票未
18、到材料明细表每月27日前上报财务及相关部门，并确保其正确无误。3、库存物资清查盘点中发现问题和差错，应及时查明原因，并进行相应处理。如属短缺及需报废处理的，必须按审批程序经领导审核批准后才可进行处理，否则一律不准自行调整。发现物料失少或质量上的问题（如超期、受潮、生锈、老化、变质或损坏等），应及时的用书面的形式向有关部门汇报。4、各事业部因客户需要，要求在外设立仓库的，必须报经股份公司主管领导批准后作为库存转移，并报财务部备案，其仓库管理纳入纳入所在事业部仑库管理；外设仓库必须由专人负责登记库存商品收发存台账，并将当月增减变动及月末结存情况编成报表，定期进行盘点清查，每月将各类报表在规定的时间
19、内报送查关事业部及财务人员。5、仓库现场管理工作必须严格按照6S要求、ISO9000标准及各事业部分厂的具体规定执行。对应如上需求我们现已总结出仓库管理系统的数据要求.该系统完成后将具备如下功能：仓库各种信息的输入，包括入库，出库，还原，需求信息的输入等仓库管理的各种信息查询，修改和维护货品采购报表的生成在库存管理中加入最高储备和最低储备字段，对仓库的物质货品实现监控和报警 企业各个部门的物质需求管理 操作日志的管理仓库管理系统数据备份数据更新仓库管理系统的使用帮助 本系统的以上功能会更适合仓库管理的发展情况，将会给仓库管理带来一种更为科学的服务系统，是仓库管理自动化的一面新窗口。也将会是仓库
20、管理员的好帮手。 2.3系统数据分析与描述入库单入库事物处理货品记录库存查询、分析分析或查询报告出库事物处理用料单存档存档图2-1 仓库出入库业务流程图准备采购单采购单序列卖方登记代收款代收款清单收获处理应收款处理应收款 3 2收货单1卖方存档取货通知存档付款图2-2 货品采购流程仓管货品需求日常货品管理需求汇总货品管理货品统计单数据汇总报表统计查询综合报表公司领导查询卡片图2-3 仓库管理业务流程示意图仓 库管理员1 操 作事 务2.1确认信 息数据库2.2进入系 统 D1 用户信息清单图2-4 仓库运行数据流程图2.4 系统总统设计 图2-5 企业仓库管理系统结构总图企业仓库管理系统初期设
21、置货品管理查询统计数据报表系统维护退出系统供应商信息维护仓库设置货品入库货品出库货品盘点出库查询入库查询库存查询出库报表库存报表操作员管理密码修改操作员权限设置数据备份数据恢复日志清理数据清理查看日志 第三章 系统设计3.1 数据库设计 3.1.1 数据库概念结构设计（1） 分ER图设计本设计根据上面的设计规划出的实体有货品实体、仓库实体、职工实体、部门实体、供应商实体。各个实体的E-R图及其关系描述如下：货品货品号名称型号状态图3-1 货品实体E-R图使用年限仓库仓库号面积租用年限图3-2 仓库实体E-R图职工编号姓名性别职称电话薪水图3-3 职工实体E-R图部门部门号名称经理图3-4 部门
22、E-R图供应商货品仓库职工管理入库存放出库采购属于领导编号名称地址邮编电话联系人价格时间仓库号货品号名称型号仓库号面积编号姓名性别职称电话薪水部门部门号名称1111111nn1时间时间1111图3-5 总体E-R图状态3.1.2 数据库逻辑设计将上面的ER图转化为关系模型，关系的主码用下横线标出，外码用删除线标出：实体：货品（货品号，名称，型号，仓库号，状态）仓库（仓库号，面积，管理员）职工（编号，姓名，性别，职称，电话，薪水，部门号）部门（部门号，名称，部门经理）供应商（编号，名称，联系人，电话，地址，邮编）联系：共3个联系采购（货品号，名称，型号，仓库号，时间，价格，供应商）出库（货品号，
23、部门号，时间）入库（货品号，部门号，时间）经验证，以上所有实体与联系表均符合BC范式。 3.1.2 数据库物理设计在上面的实体以及实体之间的关系的基础上，形成数据库中的表格以及各个表格之间的关系。仓库管理系统数据库中的各个表格的设计结果如下面的几个表格所示。每个表格表示在数据库中的一个表。（1）货品表：列名数据类型可否为空货品号（主键）字符型（20）不能为空名称字符型（20）可为空型号字符型（20）可为空仓库号（外码）字符型（20）不能为空状态字符型（10）不能为空（2）仓库表：列名数据类型可否为空仓库号（主键）字符型（20）不能为空面积数值型（20）可为空管理员（外码）字符型（20）可为空（
24、3）职工表：列名数据类型可否为空编号（主键）字符型（20）不能为空姓名字符型（20）可为空性别字符型（2）可为空职称字符型（20）可为空电话字符型（30）可为空薪水数值型（20）可为空部门（外码）字符型（20）可为空（4）部门表：列名数据类型可否为空部门号（主键）字符型（20）不能为空名称字符型（20）可为空部门经理（外码）字符型（20）可为空（5）供应商表：列名数据类型可否为空编号（主键）字符型（20）不能为空名称字符型（20）不能为空联系人字符型（20）可为空电话字符型（30）可为空地址字符型（50）可为空邮编字符型（20）可为空（6）货品采购表：列名数据类型可否为空货品号（主键）字符型（
25、20）不能为空名称字符型（20）可为空型号字符型（20）可为空仓库号（外码）数值型（20）不能为空时间字符型（10）可为空价格数值型（20）不能为空供应商（外码）字符型（20）不能为空（7）出库表：列名数据类型可否为空部门号（主键）（外码）字符型（20）不能为空货品号（主键）（外码）字符型（20）不能为空时间字符型（10）可为空（8）入库表：列名数据类型可否为空部门号（主键）（外码）数值型（20）不能为空货品号（主键）（外码）数值型（20）不能为空时间字符型（10）可为空3.2 系统模块设计系统主要由：初期设置、货品管理、查询统计、数据报表、系统维护五大模块，他们的主要功能即实现如下：初期设置
26、：数据库原始数据的录入，试运行，管理员权限设定等基本功能设置。货品管理：包括商品的入库、出库、商品产地、名称、价格等“记录”工作，并将管理员所作操作全部正确的存入数据库。流程图如下：仓管员货品卡片日常卡片处理数据库汇总处理结果 临时数据记录 数据存储图3-6 货品管理流程图数据报表：出库货品报表、入库数据报表系统维护：操作员管理、密码修改 、操作员权限设置、数据备份、数据恢复、日志记录、日志查看、日志记录。3.3 界面设计：3.3.1 系统登录界面如下图所示即为系统的登录界面，标题“欢迎使用仓库管理系统”，可以看到该界面嵌入了日历显示功能，提醒员工这是新的一天，有个好心情，也是作为设计者的一番
27、良苦用心。用户名和密码框供使用者验明身份正常使用系统，整体上和确定、取消按钮合理分布，大方简洁。：图3-7 系统登录界面3.3.2 系统主界面如下图为系统的主界面，系统背景选取古树苍山，让人觉得意味无穷，系统的几个逻辑模块的调用，被设计成系统菜单一共调用，根据见名知义的原则，系统的按钮都代表他能实现的功能。使用简单可操作性强。图3-8 系统主界面 3.3.3 入库统计界面该界面简单来讲包括数据输入窗口：供应商编号、供应商名称、入库编号、货品名称等详尽的货品信息录入。以及一个listview空间来回显数据库内货品的记录状况一边用户（数据库管理员）来及时核对数据的正确性。 图3-9 入库统计界面3
28、.4 报表设计报表是一个完整仓库管理系统所不可或缺的一部分。直接承担者将当天或者一段时间的公司业绩情况呈现给使用者和管理者。本系统报表如下所示，界面大方、简单明了，个项目分门别类的罗列出来，层次清晰，可用性很强。如图3-10 货品出库明细表详细列出了货品编号、货品名称、计量单位、数量、单价、金额、出库日期、提货人、经手人详细信息，一目了然。在图3-11 为库存信息明细表同样列出了货品名称。货品规格、计量单位、单价、数量等一切可能用到的数据。可以说报表给了管理者最直观的表述。图3-10 货品出库报表 图3-11 库存信息明细表第四章 系统实施本章着重介绍了系统登录模块及主模块的代码实施：4.1
29、系统登录模块的实施：* 用户登录按钮的事件代码 *Private Sub Command1_Click() rtn = SetWindowPos(Me.hwnd, -2, 0, 0, 0, 0, 3) 运用API函数SetWindowPos，来实现取消窗体置前的功能On Error Resume NextDim MPassword As StringIf Text2.Text = mr And Text1.Text = mr Then 判断是否使用的是超级口令登录 frm_main.StatusBar1.Panels.Item(2).Text = 当前操作员： mr Name1 = Text2
30、.Text Unload Me frm_main.ShowElse 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 = 当前操作
31、员： + 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
32、(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 IfEnd Sub 4.2 主界面各个功能实现Private Sub Form_Load()Me.AutoRedraw = FalseImage
33、1.Visible = FalseCall WHScreen利用代码连接数据库Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & db_kcgl.mdb;Persist Security Info=FalseAdodc2.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & db_kcgl.mdb;Persist Security Info=False Call Tree_ch
34、ange 调用过程，用于显示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 SubPrivate Sub Form_Paint(
35、)Me.PaintPicture Image1.Picture, 0, 0, ScaleWidth, Me.Height, 0, 0, Image1.Width, Image1.HeightEnd 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.Rec
36、ordCount 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.Ref
37、resh 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 IfEnd SubPri
38、vate 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)
39、+ + 退出系统 + Chr(13) + Chr(10) Open (App.Path & 系统日志.ini) For Output As #1 将添加日志后的信息重新保存到文件当中 Print #1, TStr Close #1 EndEnd SubPrivate Sub GYSXXWH_Click() frm_gys.Show 显示供应商信息窗体 Me.Enabled = FalseEnd SubPrivate Sub HPCKGL_Click() frm_out.Show 显示货品出库信息窗体 StrNums = 0 出库标识，用于标识调用库存检索窗体 Me.Enabled = FalseEnd SubPrivate Sub HPGH_Click() frm_hpin.Show 显示货品归还窗体 Me.Enabled = FalseEnd SubPrivate Sub HPGHCX_Click() frm_HpghQuery.Show 显示货品归还查询窗体 Me.Enabled = FalseEnd SubPrivate Sub H
