仓库管理系统毕业设计论文

1、文档来源为:从网络收集整理.wold版本可编辑.欢迎下载支持.前言随着企业管理信息化的发展，网络及计算机的引入使管理跃上了一 个新的发展平台。企业的各项管理都将向信息化方向扩展，仓库的管理 对于企业来说尤为重要，也正是基于这个原因我把毕业设计的方向定在 了企业的仓库管理上。仓库管理系统是一个企业不可缺少的部分,它的内容对于企业的决 策者和管理者来说都至关重要，所以仓库管理系统应该能够为用户提供 充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管 理产品，这种管理方式存在着许多缺点，如:效率低、保密性差等。另外, 由于时间一长，将产生大量的文件和数据，这对于查找、更新和维护产 品都带

2、来了不少的困难。作为计算机应用的一部分,使用计算机对仓库信息进行管理，有着 手工管理所无法比拟的优点。例如:检索迅速、查找方便、可靠性高、 存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高仓 库管理的效率。由于时间紧迫，加之水平有限，设计中的缺点和不足之处在所难免, 敬请导师批评指正，不胜感激。摘要仓库管理系统是为了实现企业产品管理的系统化、规范化和自动 化，从而提高企业管理效率而设计的。它完全取代了原来一直用人工管 理的工作方式，避免了由于管理人员的工作疏忽以及管理质量问题所造 成的各种错误，为及时、准确、高效的完成仓库管理提供了强有力的工 具和管理手段。仓库管理系统是一个中小型

3、数据库管理系统，它界面美 观、操作简单、安全性高，基本满足了仓库管理的要求。整个系统由基 本信息、单据中心、查询统计、报表打印、维护设置、帮助等模块组成。本系统是在以ACCESS2000作为后台数据库，以Visual Basic为编 程语言来开发的。仓库管理系统在运行阶段，效果好，数据准确性高， 提高了工作效率，同时也实现了仓库管理计算机化。关键字：仓库，管理系统，数据库AbstractThe administrative system of the warehouse is designed for realizing the systematization , standardizatio

4、n and automization of enterptises products management and improving efficiency of enteiprises management. It completely replaces the working way of artificial management originally ) prevents from various kinds of mistakes because of administrative staff neglect and the quality problem of management

5、 and offeres powerfill tool and management way to complet storehouse management fbr prompt , accurate )high-efficient . The administrative system of the warehouse is a medium and small-scale database management system,it has not oiilv beautifiil interface, but also the liigh security and the simply

6、operation,and meet the demand for storehouse management basically. Whole system is made up by basic information, document in the center, inquire statistics , report form type ,set up to maintain and module of helping etc.The Warehouse administrative system is designed with regarding ACCESS2000 as th

7、e backstage database and regarding Visual Basic as progranuning language . The administrative system is effectual, the high data accuracy during the course of operating , improves working efficiency and realizes computerization for storehouse management at the same time .Key word： The Warehouse , Ad

8、ministrative System, The Database目录前言错误!未定义书签。摘要Abstract错误!未定义书签。错误!未定义书签。目录1仓库管理系统开发环境简介1.1 中文 Visual Basic 6.0 简介.L 2 ACCESS2000 简介2系统可行性分析3系统总体设计3.1系统目标设计3. 2开发设计思想4. 3系统功能需求分析3.4系统功能模块设计4数据库设计4. 1数据库需求分析4. 2数据库概念结构设计5. 3数据库逻辑结构设计5系统主窗体设计5.1 创建工程项目一仓库管理系统6. 2创建系统主窗体7. 3创建主窗体菜单5.4创建主窗体工具栏错误!未定义书签。

9、错误!未定义书签。错误!未定义书签。错误!未定义书签。错误!未定义书签。错误!未定义书签。错误!未定义书签。错误!未定义书签。错误!未定义书签。错误!未定义书签。错误!未定义书签。 错误!未定义书签。 错误!未定义书签。错误!未定义书签。错误!未定义书签。错误!未定义书签。错误!未定义书签。误!未定义书签。错误!未定义书签。5.4.1工具栏控件常用属性和事件错误!未定义书签。5. 4. 2设置工具栏属性错误!未定义书签。5. 5设置主窗体状态栏错误!未定义书签。6系统模块设计错误!未定义书签。6. 1基本信息模块设计错误!未定义书签。6. 1. 1创建货物信息窗体6.1.2创建仓库信息窗体6.

10、 1. 3创建库存状况信息窗体6.2单据中心模块设计错误!未定义书签。错误!未定义书签。r , 一，错误!未定义书签。错误!未定义书签。6. 2. 1创建新增入库单窗体6. 2. 2创建入库单管理窗体6.2.3创建月盘点窗体错误!未定义书签。错误!未定义书签。错误!未定义书签。6. 3查询统计模块设计错误!未定义书签。6.3.1 创建单据查询窗体6.3.2 创建库存查询窗体6.3.3 创建货物出入统计窗体6.3.4 创建职员操作统计窗体6.4报表打印模块设计错误!未定义书签。错误!未定义书签。错误!未定义书签。错误!未定义书签。错误!未定义书签。错误!未定义书签。6.4.2创建打印月盘点窗体6

11、. 5维护设置模块设计错误!未定义书签。错误!未定义书签。6.5.1 公司和职员信息6.5.2 查看日志6. 5. 3数据清除6.5.4系统初始化错误!未定义书签。错误!未定义书签。错误!未定义书签。错误!未定义书签。6. 5. 5备份数据库错误!未定义书签。6.5.6还原数据库和还原到昨天数据库.错误!未定义书签。6.5.7用户管理6.1帮助模块设计总结致谢参考文献错误!未定义书签。错误!未定义书签。错误!未定义书签。错误!未定义书签。错误!未定义书签。本仓库管理系统是在以Visual Basic为编程语言，以ACCESS2000作为 后台数据库而开发的一个数据库管理系统。下面简要介绍一下中

12、文 Visual Basic 6. 0 和 Access 2000。1.1 中文 Visual Basic 6. 0 简介Visual Basic提供了开发Windows应用程序最迅速、最简洁的方 法，它提供了一整套工具，供用户开发应用程序。Visual指的是开发 图形用户界面(GUI)的方法，在图形用户界面下，不需要编写大量代 码去描述界面元素的外观和位置，而只需要把预先建立的对象加到屏幕 上的适当位置再进行简单设置即可；Basic指的是BASIC (Beginners All-Purpose Symbol Instruction Code)语言，是一种应用十分广泛的 计算机语言。Visua

13、l Basic在原有BASIC语言的基础上进一步发展, 至今包含了数百条语句、函数和关键词，其中很多和Windows GUI有直 接关系，专业人员可以用Visual Basic实现其他任何Windows编程语 言的功能，而初学者只要掌握几个关键词就可以建立简单的应用程序。 Visual Basic还是一个快速可视化程序开发工具，是极有特色和功能 强大的软件。它使用了面向对象的程序设计方法，大大的增强了程序的 可重用性，进而简化了程序设计。Visual Basic提供了众多的ActiveX 控件，提高了软件开发人员的编程效率。它有其独特的特点，主要特点 如下：1可视化设计。VB具有所见即所得的功

14、能，在程序设计时，头脑 中所想象的应用程序界面，完全可以通过键盘和鼠标完成，而不用编制 大量代码，如果需要修改也可利用键盘或鼠标完成，而底层的一些程序 代码，可由VB自动生成或修改。VB为用户提供了大量“控件”，这些 “控件”对于熟悉“Windows应用成序”的用户而言，也许是一点也不 陌生，如“标签”，“组合框”，“命令按扭”“文本框”，“单选框”等 等，用户只需要用鼠标或键盘把这些“控件”拖到所需的位置并设置他 们的大小形状属性等，即可得到所需要的应用程序界面。2事件驱动编程，在VB中把“窗体”及“控件”称为对象。这些 对象组成了与用户交互的图形界面（也称为用户接口用户界面）再设计 应用程

15、序时必须考虑到用户如何与程序进行交互，用户通过鼠标和键盘 与应用程序进行交互是最直接最方便的，这时那些对象必须对鼠标键盘 操作所引起的事件做出响应。响应是指执行一段应用程序，它不沿预定 的路线执行而是在响应不同事件时执行不同的代码，因此VB编程重点 是在编写事件驱动过程的代码。3面向对象的程序设计，VB是面向对象的程序设计语言，他将代 码和数据结合在一个对象中，用户只需要了解每个对象能完成何种任务 而不需要知道对象是如何工做作的。软件开发人员主要编写事件驱动过 程的代码，使对象对用户的操作做出反映。但因VB没有多态等面向对 象的特性，所以也有人称VB是一种准面向对象的程序设计语言。4易学易用，

16、开发周期短。VB简单易学，界面友好，容易使用。 VB提供了大量功能强大的“控件”，能帮助开发人员在较短的时间内用 少量语句编写出应用程序，缩短了开发周期。1.2 ACCESS2000 简介ASSESS是一个数据库管理系统，它简单易学，一个普通的计算机 用户可以很快的掌握它。ACCESS2000的功能也十分强大，利用它可以 方便的实现对信息保存、维护、查询、统计等，而且它可以十分方便地 与OFFICE其他组件交流数据，这些功能对一个普通用户来说已经足够 了。本系统就是在以ACCESS2000作为后台数据库，以Visual Basic为 编程语言为中小型企业管理仓库而开发的一个数据库管理系统。2系

17、统可行性分析可行性分析的任务，并不是所有问题都有简单明显的解决办法，事 实上，许多问题不可能在预定的系统规模之内解决。如果问题没有可行 的解，那么花费这项开发工程上的任何时间、资源、人力和经费都是无 谓的浪费。可行性研究的目的就是用最小的代价在尽可能短的时间内确定问 题是否能够解决。必须记住，可行性研究的目的不是解决问题，而是确 定问题是否值得去解。怎样达到这个目的呢？当然不能靠主观猜想，而 只能靠客观分析。必须分析几种主要的可能解法的利弊，从而判断原定 的系统目标和规模是否现实，系统完成后所能带来的效益是否大到值得 投资开发这个系统的程度。因此，可行性研究实质上是要进行一次大大压缩简化了的系

18、统分析 和设计的过程，也就是在较高层次上以较抽象的方式进行的系统分析和 设计的过程。所以从以上的分析原则来看，我所设计的仓库信息管理系 统是一个规模不太大的系统，但是目标明确，清晰的描述了对目标系统 的一切限制和约束。本系统几乎在所有的企业、公司使用，当然它需要 进一步的完善和更新。在使用过程中，要看它能不能带来效益，毕竟在 现今社会效率是第一位的。从现实看，这还是有一定的实用价值的，从 另一个角度看，现实社会发展飞速，尊重科技势在必行，因此这也是开 发本系统的一个非常重要的原因。21世纪是计算机的时代，它必然取 代一部分人的工作，高科技的监控系统进入社会生活的方方面面是发展 的趋势。本设计从

19、一下三个方面进行可行性研究：1 .技术可行性。本设计“仓库管理系统”是为企业仓库管理人员 开发的。鉴于本人在上学期数据库课程设计中已用Visual Basic6.0 + Access2000开发过网上图书销售管理信息系统，而且通过三个月毕业 实习中的学习和实践，对开发管理信息系统又有了新的认识和提高，使 自己在开发管理信息系统方面的技术更加成熟。由于本设计最重要体现 的是实用性，所以，通过大量的社会调查和分析，结合自己现有的技术 水平加上导师的指导，还是能按期完成本毕业设计。2 .经济可行性。成本方面：由于本毕业设计属于计算机科学（本科） 教学的最后一个环节，所以人力消耗免费，资源学校提供，指

20、导老师义 务指导。所以成本计算只需计算开发期间开发者的生活消费，学校资源 的消耗，所以开发本软件的成本是非常低的。效益方面：为企业开发一 个完整、合理的仓库管理系统，可大大节余人力，以前需要多人干的工 作，使用本系统只需一个人或几个人就能完成，且工作量和劳动强度大 大降低。所以开发本软件可以为社会带来很好的经济效益。从以上分析看开发本软件在经济上是可行的。3 .操作可行性。本软件是为企业仓库的管理者开发的，所有本软 件的用户对象是企业仓库的工作人员，由于本软件要设计成友好的界 面，写出详细的使用说明，用户只需懂得简单的计算机操作知识，就能 自由应用本软件。所以从以上儿个方面的分析来看，开发本软

21、件是完全可行的。3系统总体设计1 .1系统目标设计系统开发的总体任务是实现企业产品管理的系统化、规范化和自 动化，从而达到提高企业管理效率的目的。3 . 2开发设计思想仓库管理主要是企业各种商品的管理。进货时经检查合同确认为有 效托收后，进行验收入库，填写入库单，进行入库登记。企业各个部门 根据需要提出产品请求，计划员根据整个企业的需求开出产品出库单， 仓库管理人员根据出库单核对发放产品。根据需要按照月进行统计分 析，产生相应报表。仓库管理的特点是信息处理量比较大，所管理的产品种类繁多，而 且由于入库单、出库单、盘点单等单据发生量特别大，关联信息多，查 询和统计的方式各不相同。因此在管理上实现

22、起来有一定的困难。在管 理的过程中经常会出现信息的重复传递；单据、报表种类繁多，各个部 门管理规格不统一等问题。在本系统的设计过程中，为了克服这些困难，满足计算机管理工作 的需要，我们采取了下面的一些原则。 统一各种原始单据的格式，统一报表的格式。 删除不必要的管理冗余，实现管理规范化、科学化。 程序代码标准化，软件统一化，确保软件的可维护性和实用性。界面尽量简单化，做到实用、方便，尽量满足企业中不同层次员 工的需要。建立操作日志，系统自动记录所进行和各种操作。3 . 3系统功能需求分析系统开发的总体任务是实现各种信息的系统化、规范化和自动化。 系统功能分析是在系统开发的总体任务的基础上完成。

23、本仓库管理系统 需要完成功能主要有： 仓库管理各种信息的输入，包括货物、供应商、客户、仓库信息 的输入等。 仓库管理各种信息的查询、统计、修改和维护，包括货物、单据 查询，货物出入、职员操作统计，各种信息的修改和维护等。 打印报表的生成。 在货物管理中加入最高储备和最低储备字段，对仓库中的产品实 现监控和报警。 操作日志的管理。 仓库管理系统的使用帮助。4 .4系统功能模块设计在系统功能分析的基础上,考虑到Visual Basic程序编制的特点,得到如图3-1所示的系统功能模块图。仓库管理系统图3-1系统功能模块图。4数据库设计4.1数据库需求分析用户的需求具体体现在各种信息的提供、保存、更新

24、和查询，这就 要求数据库结构能充分满足各种信息的输出和输入。收集基本数据、数 据结构以及数据处理的流程，组成一份详尽的数据字典，为后面的具体 设计打下基础。仔细分析调查有关仓库管理信息需求的基础上，得到如图4-1所 示的本系统所处理的数据流程。图4-1仓库管理系统数据流程图通过对企业仓库管理的内容和数据流程分析，设计数据项和数据结 构如下：货物信息，包括的数据项有编号、货物名称、货物类别、货物规 格、计量单位、最高限量、最低限量、备注等。仓库信息，包括的数据项有编号、仓库名称、仓库地点、保管员 编号、备注等。库存状况信息，包括的数据项有编号、货物编号、库存数量、仓 库编号等。入库单信息，包括的

25、数据项有编号、货物编号、经办人编号、入 库时间、入库单价、入库数量、供应商编号、仓库编号、定单状况、其 它金额、备注等。出库单信息，包括的数据项有编号、货物编号、经办人编号、出 库时间、出库单价、出库数量、客户编号、仓库编号、定单状况、其它 金额、备注等。进行月盘点信息，包括的数据项有编号、仓库编号、盘点时间、经办人编号、盘点数据等。系统日志信息、，包括的数据项有用户名、操作时间、操作内容等。用户管理信息、，包括的数据项有用户名、用户密码、用户权限等。另外，还有借入单、借出单、报损单、调拨单信息等。它们与入库 单、出库单信息基本类似，这里不再一一例举。4. 2数据库概念结构设计得到上面的数据项

26、和数据结构以后，就可以设计出能够满足用户 需求的各种实体结构，以及他们之间的关系，为以后的逻辑结构设计打 下基础。根据上面的设计规划出的实体有：现有库存信息实体、入库信息实 体、出库信息实体、借入信息实体、借出信息实体、调拨信息实体图和 报损信息实体图。各个实体具体的描述E-R图如下：入库单信息实体E-R图如图4-3所示。调拨信息实体图47调拨信息实体ER报损信息实体E-R图如图4-4所示。报损信息实体图48报损信息实体ER实体和实体之间的关系E-R图如图4-9所示。图4-9实体之间关系E-R图4. 3数据库逻辑结构设计现在需要将在上面的数据库概念结构转化为ACCESS 2000数据 库系统所

27、支持的实际数据模型，也就是数据库的逻辑结构。仓库管理信息系统数据库中各个表格的设计结果如下面表格所示。 每个表格所示在数据库中的一个表。表41为货物基本信息表。表41货物基本信息表字段名称数据类型字段大小可否为空编号数字长整型不可货物名称文本64不可货物类别文本50可货物规格文本50可计量单位文本50可最高限量数字长整型不可最低限量数字长整型不可备注备注可表4-2为仓库信息表表4-2仓库信息表字段名称数据类型字段大小可否为空编号数字长整型不可仓库名称文本50不可仓库地点文本255可保管理员编号数字长整型可备注备注可表4-3为库存状况信息表表4-3库存状况信息表字段名称数据类型字段大小可否为空编

28、号数字长整型不可货物编号数字长整型不可库存数量数字长整型不可仓库编号数字长整型不可表4-4为入库单信息表表4-4入库单信息表字段名称数据类型字段大小可否为空编号数字长整型不可货物编号数字长整型不可经办人编号数字长整型不可入库时间日期/时间不可入库单价货币不可入库数量数字长整型不可供应商编号数字长整型可仓库编号数字长整型不可订单状况文本50不可其它金额货币可备注备注可表4-5为出库单信息表表4-5出库单信息表字段名称数据类型字段大小可否为空编号数字长整型不可货物编号数字长整型不可经办人编号数字长整型不可出库时间日期/时间不可出库单价货币不可出库数量数字长整型不可客户编号数字长整型可仓库编号数字长

29、整型不可订单状况文本50不可其它金额货币可备注备注可表4-6为借入单信息表表4-6借入单信息表字段名称数据类型字段大小可否为空编号数字长整型不可货物编号数字长整型不可经办人编号数字长整型不可借入时间日期/时间不可借入数量数字长整型不可供应商编号数字长整型可仓库编号数字长整型不可订单状况文本50不可其它金额货币可备注备注可表4-7为借出单信息表表4-6借出单信息表字段名称数据类型字段大小可否为空编号数字长整型不可货物编号数字长整型不可经办人编号数字长整型不可借出时间日期/时间不可借出数量数字长整型不可供应商编号数字长整型可仓库编号数字长整型不可订单状况文本50不可其它金额货币可备注备注可表4-8

30、为调拨单信息表表4-8调拨单信息表字段名称数据类型字段大小可否为空编号数字长整型不可货物编号数字长整型不可经办人编号数字长整型不可调拨时间日期/时间不可调拨数量数字长整型不可原仓库编号数字长整型不可目标仓库编号数字长整型不可其它金额货币可备注备注可表4-9为报损单信息表表4-9报损单信息表字段名称数据类型字段大小可否为空编号数字长整型不可货物编号数字长整型不可经办人编号数字长整型不可报损时间日期/时间不可报损单价货币不可报损数量数字长整型不可仓库编号数字长整型不可其它金额货币可备注备注可表4-10为盘点单信息表表4-10盘点单信息表字段名称数据类型字段大小可否为空编号数字长整型不可仓库编号数字

31、长整型不可盘点时间日期/时间不可经办人编号数字长整型不可盘点数据备注不可表4-11为系统日志信息表表4T1系统日志信息表字段名称数据类型字段大小可否为空用户名文本50不可操作时间日期/时间不可操作内容备注不可表4-12为用户管理信息表表4-H用户管理信息表字段名称数据类型字段大小可否为空用户名文本64不可用户密码文本50不可用户权限数字长整型不可5系统主窗体设计5.1创建工程项目一仓库管理系统打开Visual Basic后,单击File - New Project菜单,在工程模板 中选择Standard ExE,Visual Basic将自动产生一个Form窗体，属性都是 缺省设置。这里我们删

32、除这个窗体，单击FileSave Piojiect菜单，将 这个工程项目命名为仓库管理系统。5. 2创建系统主窗体Visual Basic创建的应用程序可以是SDI （单文档界面）和MDI （多 文档界面）。在SDI的程序中，每个窗体之间是独立的。而MDI的程序 中，有一个窗体是主窗体，可以包含其他窗体，他的类型是MDI Form。 本设计采用多文档界面，这样可以使程序更加美观、整齐有序。单击工 具栏中的ADDMDIFomi按钮，生成一个窗体。窗体的属性设置见表 5 1 o表5 1主窗体属性设置属性属性取值NameFrmMainCaption仓库管理系统StaitUpPositionCente

33、rScreenWindowStateMaximized主窗体界面设计如图51所示。图5 1系统主窗体5. 3创建主窗体菜单熟悉Windows下应用程序的用户对菜单一定有比较深的印象。所 谓菜单，即是指应用程序中为用户提供的一组命令，这些命令出现在应 用程序界面的顶部。每项菜单有多项子菜单，具有一定的专门功能，用 户容易通过主菜单来访问其下的子菜单。增加菜单可以增强应用程序的 功能。下面将介绍菜单及菜单的编辑和使用。1 .菜单简介菜单栏在窗体栏的标题栏下面，包含一个或多个菜单标题。当单击 一个菜单标题，包含菜单项目的列表就被拉下来。菜单项可以包含命令、 分隔条和子菜单标题。用户看到的每个菜单项和

34、在“MenuEditot”中定 义的一个菜单控件相对应。为了使应用程序简单好用，应该将菜单相按功能进行分组。菜单控 件使一个对象，与其他对象一样，它具有定义它的外观与行为的属性。 在设计或运行时可以设置Caption属性、Enabled和Visible属性、 Checked属性以及其他属性。菜单控件只包含一个事件，即Click事件, 当用鼠标或键盘选中该菜单控件时，将调用该事件。2 . Visual Basic菜单编辑器菜单编辑器可以创建新的菜单和菜单栏，也可以向现存的菜单中增 加新的命令、用自己的命令替代现存的菜单命令、产生新的菜单和菜单 栏，改变和删除现存菜单和菜单栏。要打开菜单编辑器，在

35、“Tools”菜单中选择Menu Editor选项。 或击鼠标右键，选择弹出式菜单中的“Menu Editor。弹出菜单编辑器 窗口如图52所示o5-2菜单编辑器 菜单编辑器的基本属性如下：Caption一出现在控件上的文本。Name一代码中用来引用菜单控件的名字。shortcut一可以访问菜单的键盘按键组合。以上介绍了菜单编辑器的基本情况和属性，接下来将来介绍利用菜单编 辑器创建菜单的过程。（1） 选取待创建菜单的窗体，激活该窗体。（2） 从菜单栏的“Tools”菜单中，选取“MenuEditoi”并单击（或 在“工具栏”上单击“MenuEditoi”按钮）。（3）在菜单编辑器的“Capti

36、on”文本框中，为第一个菜单标题键 入希望在菜单栏上显示的文本。如果希望某一字符成为该菜 单项的访问键，也可以在该字符前加上一个（&）字符。在 菜单中，这一字符会自动加上一条下划线。（4）在菜单编辑器的“Name”文本框中，键入将用来在代码中引 用该菜单控件的名字。命名菜单控件的规则如下：（a）菜单中项目名称应当唯一，但不同菜单中相似动作项目可以重名。（b）每一个项目名称应当有一个用键盘选取命令的唯一的记忆访 问字符。访问字符通常是菜单标题的第一个字母；每个菜单标 题不能用同一个字符。（c）如果命令在完成之前还需要附加信息，则在其名称后面应当有 一个省略号（）。（5）单击向左或向右箭头按钮，可

37、以改变该控件的缩进级。（6）如果需要，还可以设置控件的其他属性。（7）创建新的菜单控件时，选取“Next”命令。（8）单击“Insert”可以在现有的控件之间增加一个菜单控件。（9）单击向上与向下的箭头按钮，可以在现有菜单控件之中移动 控件。（10）菜单控件创建好后，选取“OK”可关闭菜单编辑器。创建的菜单标题将显示在窗体上。在设计时，单击一个菜单标题可 下拉其相应的菜项。创建分隔符，如果在设计的菜单中创建分隔符条，只需在想要分隔 开来的菜单项之间插入一个菜单控件。单击左、右箭头按钮使新菜单项 缩进到与它要隔开的菜单项同级。然后在“Caption”文本框中键入一个 连字符（一）。设置“Name

38、”属性。“OK”，关闭菜单编辑器。创建赋值访问键和快捷键为了提高应用程序的性能，为用户提供最方便、快捷的操作，可以 定义菜单的访问键和快捷键，改进键盘对菜单命令的访问。访问键，要在菜单编辑器中给菜单控件赋值访问键，先选取要赋值 访问键的菜单项，在该菜单项“Caption”框中，要在作为访问键字符的 前面键入一个（&）字符。快捷键，快捷键提供了一种键盘单步的访问方法，按下时会立刻运 行一个菜单项。快捷键的赋值包括功能键与控制键的组合，如CTRL+F1 键或CTRL+A键。他们出现在菜单中相应菜单项的右边。根据以上介绍的方法创建本设计的菜单结构如图5-3所示基本信息(&A).货物信息、Ctil+A

39、.仓库信息Ctil+B.供应商信息Ctil+C.往来客户Ctil+D.库存状况信息Ctil+E .退出Ctil+F单据中心(&B).新增入库单Ctil+G.新增出库单Ctil+H.新增借入单Ctil+I.新增借出单Ctil+J.新增调拨单Ctil+K.新增报损单Ctil+L二入库单管理Ctil+M.出库单管理Ctil+N.借入单管理Ctil+O.借出单管理Ctil+P.调拨单管理Ctrl+Q报损单管理Ctil+R.进行月盘点Ctil+S查询统计(&C).单据查询Ctil+T.库存查询Ctil+U:二货物出入统计Ctil+V.职员操作统计Ctil+W打印报表.打印入库单Ctil+X.打印出库单C

40、til+Y.打印借入单Ctil+Z.打印借出单Ctil+Fl.打印调拨单Ctil+F2.打印报损单Ctil+F3.打印月盘点CU1+F4 页面设置Ctil+F5视图(&D).工具栏Ctil+F6.状态栏Ctil+F7维护毯置(&E).公司信息Ctil+F8.职员信息Ctil+F9 .查看日志Ctil+Fll.数据清除Ctii+F12.系统初始化Shift+Fl二:备份数据库Shift+F2.还原数据库Shift+ F3 修改密码Shift+F5 .用户管理Shift+F6帮助(&H) .关于仓库管理系统F1图5-3仓库管理系统菜单结构系统初始化菜单的代码如下：Private Declare F

41、unction GetWindow Lib ”user32 (ByVai hwnd AsLong, ByVai wCmd As Long) As LongPublic Sub InitPurviewO初始化17种权限状态Dim i As IntegerFor i = 16 To 0 Step -1If GetBit(Purview, i + 1) = 0 Then 权限类别(16 - i) = 0Else权限类别(16 - i) = 1End IfNextEnd Sub根据用户权限来初始化菜单Private Sub InitMenu()If权限类别(3)=0 ThenM 月盘点.Enabled

42、 = False tbToolBar. Buttons(4). Enabled = FalseEnd IfIf权限类别(4) = 0 ThenM 供应商.Enabled = False登记新供应商.Mouseicon = Picturel. MouseiconEnd IfIf权限类别(5) = 0 ThenM 往来客户.Enabled = False 登记新客户.Mouseicon = Picturel. MouseiconEnd IfIf权限类别(6) = 0 ThenM 单据查询.Enabled = FalseM 库存查询.Enabled = FalseM货物出入统计.Enabled =

43、FalseM职员操作统计.Enabled = FalseL 货物出入统计.Mouseicon = Picturel. MouseiconL 职员操作统计.Mouseicon = Picturel. MouseiconL 单据查询.Mouseicon = Picturel. MouseiconL 库存查询.Mouseicon = Picturel. Mouseicon tbToolBar. Buttons(5). Enabled = False tbToolBar. Buttons(8). Enabled = FalseEnd IfIf权限类别(8)=0 ThenM打印入库单.Enabled=F

44、alseM打印出库单.Enabled=FalseM打印借入单.Enabled=FalseM打印借出单.Enabled二FalseM打印调拔单.Enabled=FalseM打印报损单.Enabled=FalseM打印月盘点.Enabled=False tbToolBar. Buttons(10). Enabled = FalseEnd IfIf权限类别(9)=0 ThenM 公司信息.Enabled = False修改公司信息.Mouseicon = Picturel. MouseiconEnd IfIf权限类别QO）=0 ThenM 职员信息.Enabled = False登记新职员.Mous

45、eicon = Picturel. MouseiconEnd IfIf权限类别QI）=0 ThenM 仓库信息.Enabled = False创建新仓库. Mouseicon = Picturel. MouseiconEnd IfIf权限类别（12）=0 ThenM 货物信息.Enabled = False登记新货物.Mouseicon = Picturel. MouseiconEnd IfIf权限类别（13）=0 ThenM 数据清除.Enabled = FalseM系统初始化.Enabled=FalseEnd IfIf权限类别（14）=0 ThenM备份数据库.Enabled二FalseM

46、还原数据库.Enabled二FalseM还原到昨天数据库.Enabled = False备份数据库. Mouseicon = Picturel. Mouseicon还原数据库. Mouseicon = Picturel. MouseiconEnd IfIf权限类别(15)=0 ThenM 查看日志.Enabled = False查看日志. Mouseicon = Picturel. MouseicontbToolBar.Buttons(12). Enabled = FalseEnd IfIf权限类别(16)=0 ThenmnuUserManage. Enabled = FalseL 用户管理.

47、Mouseicon = Picturel. MouseiconEnd IfEnd Sub“菜单”中的各个“子菜单”的程序代码如下：启动主窗体时的需要的代码Private Sub Form_Load()初始化 m_checkadom_checkado. ConnectionString = DataConnectStringm_checkado. Visible = False每天首次运行自动备份数据库fMainForm. m_checkado. RecordSource = select 操作时间 from 系统日志order by操作时间desc”fMainForm. m_checkado.

48、 RefreshIf fMainForm. m_ 0 ThenfMainForm. m_Dim t As String t 二 fMainForm. m_操作时间).Value 如果今天从未有人登陆，备份数据库 If InStr (1, t, Str (Date) 1 ThenBackupData DataPath, App. Path + “everyday. bkp End IfElseBackupData DataPath, App. Path + “everyday, bkp”End Iff Ma inForm. Writ eLog (登陆系统)写入系统日志InitPurview 初始

49、化各种权限类别InitMenu 初始化菜单加载图片Picturel. Picture = LoadPicture(App. Path + /zdatagroundl. jpg) End Sub“基本信息”菜单下的“退出”子菜单的Click事件的程序代码如 下。点击“退出”会退出系统，但在此之前系统首先会写入系统日志。 Private Sub Form_Unload(Cancel As Integer)f Ma inForm. Writ eLog (退出系统)写入系统日志End SubPrivate Sub mnuFileExit_Click()Unload MeEnd Sub“维护设置”菜单下

50、的“修改密码”子菜单的Click事件的程序代码如下。点击“修改密码”会弹出修改当前用户密码窗口。Private Sub mnuModifyPassword_Click()PasModify. Show vbModalEnd Sub“维护设置”菜单下的“用户管理”子菜单的Click事件的程序代 码，如下。点击“用户管理”会弹出用户管理窗口。Private Sub mnuUserManage_Click()用户管理.Show vbModalEnd Sub“帮助”菜单下的“关于仓库管理系统”子菜单的Click事件的程 序代码如下。点击“关于仓库管理系统”会弹出系统帮助窗口。Private Sub m

51、nuHelpAbout_Click()frmAbout. Show vbModal, MeEnd Sub“打印报表”菜单下的“页面设置”子菜单的Click事件的程序代 码如下。点击“页面设置”会弹出页面设置对话框。Private Sub mnuFilePageSetup_Click()On Error Resume NextWith d1gCommonDialog.DialogTitle = 页面设置.CancelError = True.ShowPrinterEnd WithEnd Sub“视图”菜单下的“状态栏”子菜单的Click事件的程序代码如下。点击“状态栏”主窗体会隐藏状态栏。Pri

52、vate Sub mnuViewStatusBar_C1ick()sbStatusBar. Visible = True - sbStatusBar. VisiblemnuViewStatusBar. Checked = sbStatusBar. VisibleEnd Sub“视图”菜单下的“工具栏”子菜单的Click事件的程序代码如下。 点击“工具栏”主窗体会隐藏工具栏。Private Sub mnuViewToo1bar_C1ick()tbToolBar. Visible = True - tbToolBar.VisiblemnuViewToolbar. Checked = tbToolBar. VisibleEnd Sub“单据中心”菜单下的“报损单管理”子菜单的Click事件的程序 代码如下。点击“报损单管理”会弹出报损单管理窗口。Private Sub M 报损单_Click()报损单.Show