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

仓库管理系统设计THE WAREHOUSE ADMINISTRATIVE SYSTEM DESIGN 专 业：计算机科学与技术 姓 名：刘东辰 指导教师姓名：孙浩亮 申请学位级别：无 论文提交日期：二零壹柒年伍月 学位授予单位： 天津科技大学摘 要仓库管理系统利用计算机管理、网络进行数据传输实现企业产品管理的系统化、规范化和自动化，从而提高企业管理效率，是典型的信息管理系统。它完全取代了原来一直用人工管理或单机管理的工作方式，避免了由于管理人员的工作疏忽以及管理质量问题所造成的各种错误，为及时、准确、高效的完成仓库管理提供了强有力的工具和管理手段。仓库管理系统是一个中小型数据库管理子系统，它界面简洁大方、操作简单、安全性高，基本满足了仓库管理的要求。整个系统由基本信息、单据处理、查询统计、报表打印、维护设置、帮助等模块组成。本系统是在以ACCESS2007作为后台数据库，以Visual Basic为编程语言来开发的。仓库管理系统在运行阶段，效果好，数据准确性高，提高了工作效率，同时也实现了仓库管理计算机网络化。关键词：仓库； 仓库管理； 信息管理系统； 数据库ABSTRACTThe administrative system of the warehouse is designed for realizing the systematization, standardization and automization of enterprises products management and improving efficiency of enterprises management. It is one of typical Management Information System, using computer technology and network technology to transfer data . It completely replaces the working way of artificial management originally, using network technology to transfer data to, prevents from various kinds of mistakes because of administrative staff neglect and the quality problem of management and offeres powerful tool and management way to complet storehouse management for prompt , accurate , high-efficient . The administrative system of the warehouse is a medium and small-scale database management system,it has not only beautiful interface, but also the high security and the simply 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 ACCESS2007 as the backstage database and regarding Visual Basic as programming 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 .Keyword：The Warehouse; Warehouse Management; Management Information System; The Database目 录第一章 系统开发环境简介.1第一节 中文Visual Basic 简介.1第二节 ACCESS2007简介.2第二章 系统可行性分析.2第三章 系统总体设计.3第一节 系统目标设计.3第二节 开发设计思想.3第三节 功能需求分析.3第四节 功能模块设计.4第四章 数据库设计.4第一节 数据库需求分析.4第二节 数据库概念结构设计.6第三节 数据库逻辑结构设计.9第五章 系统主窗体设计.14第一节 创建工程项目仓库管理系统.14第二节 创建系统主窗体.14第三节 创建主窗体菜单.15第四节 创建主窗体工具栏.32第五节 设置主窗体状态栏.34第六章 系统模块设计.34第一节 基本信息模块设计.34第二节 单据处理中心模块设计.35第三节 查询统计模块设计.36第四节 报表打印模块设计.36第五节 维护设置模块设计.36第六节 帮助模块设计.37参考文献.39致 谢.40第一章 系统开发环境简介 第一节 中文Visual Basic简介Visual Basic提供了开发Windows应用程序最迅速、最简洁的方法，它提供了一整套工具，供用户开发应用程序。Visual 指的是开发图形用户界面（GUI）的方法，在图形用户界面下，不需要编写大量代码去描述界面元素的外观和位置，而只需要把预先建立的对象加到屏幕上的适当位置再进行简单设置即可；Basic指的是BASIC(Beginners All-Purpose Symbol Instruction Code)语言，是一种应用十分广泛的计算机语言。Visual Basic 在原有BASIC语言的基础上进一步发展，至今包含了数百条语句、函数和关键词，其中很多和Windows GUI有直接关系，专业人员可以用Visual Basic实现其他任何Windows编程语言的功能，而初学者只要掌握几个关键词就可以建立简单的应用程序。Visual Basic还是一个快速可视化程序开发工具，是极有特色和功能强大的软件。它使用了面向对象的程序设计方法，大大的增强了程序的可重用性，进而简化了程序设计。Visual Basic提供了众多的ActiveX控件，提高了软件开发人员的编程效率。它有其独特的特点，主要特点如下：可视化设计。VB具有所见即所得的功能，在程序设计时，头脑中所想象的应用程序界面，完全可以通过键盘和鼠标完成，而不用编制大量代码，如果需要修改也可利用键盘或鼠标完成，而底层的一些程序代码，可由VB自动生成或修改。VB为用户提供了大量“控件”，这些“控件”对于熟悉“Windows应用成序”的用户而言，也许是一点也不陌生，如“标签”,“组合框”,“命令按扭”“文本框”,“单选框”等等，用户只需要用鼠标或键盘把这些“控件”拖到所需的。事件驱动编程，在VB中把“窗体”及“控件”称为对象。这些对象组成了与用户交互的图形界面（也称为用户接口用户界面）再设计应用程序时必须考虑到用户如何与程序进行交互，用户通过鼠标和键盘与应用程序进行交互是最直接最方便的，这时那些对象必须对鼠标键盘操作所引起的事件做出响应。响应是指执行一段应用程序，它不沿预定的路线执行而是在响应不同事件时执行不同的代码，因此VB编程重点是在编写事件驱动过程的代码。面向对象的程序设计，VB是面向对象的程序设计语言，他将代码和数据结合在一个对象中，用户只需要了解每个对象能完成何种任务而不需要知道对象是如何工做作的。软件开发人员主要编写事件驱动过程的代码，使对象对用户的操作做出反映。但因VB没有多态等面向对象的特性，所以也有人称VB是一种准面向对象的程序设计语言。易学易用，开发周期短。VB简单易学，界面友好，容易使用。VB提供了大量功能强大的“控件”，能帮助开发人员在较短的时间内用少量语句编写出应用程序，缩短了开发周期。第二节 ACCESS2007简介ASSESS是一个数据库管理系统，它简单易学，一个普通的计算机用户可以很快的掌握它。ACCESS2007的功能也十分强大，利用它可以方便的实现对信息保存、维护、查询、统计等，而且它可以十分方便地与OFFICE其他组件交流数据，这些功能对一个普通用户来说已经足够了。本系统就是在以ACCESS2007作为后台数据库，以Visual Basic为编程语言为中小型企业管理仓库而开发的一个数据库管理系统。第2章 系统可行性分析可行性研究实质上是要进行一次大大压缩简化了的系统分析和设计的过程，也就是在较高层次上以较抽象的方式进行的系统分析和设计的过程。本系统几乎在所有的企业、公司使用，当然它需要进一步的完善和更新。在使用过程中，要看它能不能带来效益，毕竟在现今社会效率是第一位的。从现实看，这还是有一定的实用价值的，从另一个角度看，现实社会发展飞速，尊重科技势在必行，因此这也是开发本系统的一个非常重要的原因。21世纪是计算机的时代，它必然取代一部分人的工作，高科技的监控系统进入社会生活的方方面面是发展的趋势。本设计从一下三个方面进行可行性研究：技术可行性。本设计“仓库管理系统”是为企业仓库管理人员开发的。鉴于本人在上学期数据库课程设计中已用Visual Basic Access2007开发过网上图书销售管理信息系统，而且通过三个月毕业实习中的学习和实践，对开发管理信息系统又有了新的认识和提高，使自己在开发管理信息系统方面的技术更加成熟。由于本设计最重要体现的是实用性，所以，通过大量的社会调查和分析，结合自己现有的技术水平加上导师的指导，还是能按期完成本毕业设计。经济可行性。成本方面：由于本毕业设计属于计算机科学(本科)教学的最后一个环节，所以人力消耗免费，资源学校提供，指导老师义务指导。所以成本计算只需计算开发期间开发者的生活消费，学校资源的消耗，所以开发本软件的成本是非常低的。效益方面：为企业开发一个完整、合理的仓库管理系统，可大大节余人力，以前需要多人干的工作，使用本系统只需一个人或几个人就能完成，2且工作量和劳动强度大大降低。所以开发本软件可以为社会带来很好的经济效益。从以上分析看开发本软件在经济上是可行的。操作可行性。本软件是为企业仓库的管理者开发的，所有本软件的用户对象是企业仓库的工作人员，由于本软件要设计成友好的界面，写出详细的使用说明，用户只需懂得简单的计算机操作知识，就能自由应用本软件。所以从以上几个方面的分析来看，开发本软件是完全可行的。第3章 系统总体设计第一节 系统目标设计系统开发的总体任务是实现企业产品管理的系统化、规范化和自动化，从而达到提高企业管理效率的目的。第二节 开发设计思想仓库管理主要是企业各种商品的管理。进货时经检查合同确认为有效托收后，进行验收入库，填写入库单，进行入库登记。企业各个部门根据需要提出产品请求，计划员根据整个企业的需求开出产品出库单，仓库管理人员根据出库单核对发放产品。根据需要按照月进行统计分析，产生相应报表。仓库管理的特点是信息处理量比较大，所管理的产品种类繁多，而且由于入库单、出库单、盘点单等单据发生量特别大，关联信息多，查询和统计的方式各不相同。因此在管理上实现起来有一定的困难。在管理的过程中经常会出现信息的重复传递；单据、报表种类繁多，各个部门管理规格不统一等问题。在本系统的设计过程中，为了克服这些困难，满足计算机管理工作的需要，我们采取了下面的一些原则。统一各种原始单据的格式，统一报表的格式。删除不必要的管理冗余，实现管理规范化、科学化。程序代码标准化，软件统一化，确保软件的可维护性和实用性。界面尽量简单化，做到实用、方便，尽量满足企业中不同层次员工的需要。建立操作流水日志，系统自动记录所进行和各种操作。第三节 功能需求分析系统开发的总体任务是实现各种信息的系统化、规范化和自动化。系统功能分析是在系统开发的总体任务的基础上完成。本仓库管理系统需要完成功能主要有：仓库管理各种信息的输入，包括货物、供应商、客户、仓库信息的输入等。仓库管理各种信息的查询、统计、修改和维护，包括货物、单据查询，货物出入、职员操作统计，各种信息的修改和维护等。打印报表的生成。在货物管理中加入最高储备和最低储备字段，对仓库中的产品实现监控和报警。操作流水日志的管理。仓库管理系统的使用帮助。第四节 功能模块设计 在系统功能分析的基础上，考虑到Visual Basic程序编制的特点，得到如图3-1所示的系统功能模块图。仓库管理系统基本信息单据流水查询统计报表打印维护设置系统帮助新增单据单据管理查询模块统计模块图3-1 系统功能模块图第4章 数据库设计第一节 数据库需求分析用户的需求具体体现在各种信息的提供、保存、更新和查询，这就要求数据库结构能充分满足各种信息的输出和输入。收集基本数据、数据结构以及数据处理的流程，组成一份详尽的数据字典，为后面的具体设计打下基础。仔细分析调查有关仓库管理信息需求的基础上，得到如图41所示的本系统所处理的数据流程。仓库现有库存汇总、处理各种单据产品入库产品出库报表打印图4-1 仓库管理系统数据流程图通过对企业仓库管理的内容和数据流程分析，设计数据项和数据结构如下：货物信息，包括的数据项有编号、货物名称、货物类别、货物规格、计量单位、最高限量、最低限量、备注等。仓库信息，包括的数据项有编号、仓库名称、仓库地点、保管员编号、备注等。库存状况信息，包括的数据项有编号、货物编号、库存数量、仓库编号等。 入库单信息，包括的数据项有编号、货物编号、经办人编号、入库时间、入库单价、入库数量、供应商编号、仓库编号、定单状况、其它金额、备注等。出库单信息，包括的数据项有编号、货物编号、经办人编号、出库时间、出库单价、出库数量、客户编号、仓库编号、定单状况、其它金额、备注等。进行月盘点信息，包括的数据项有编号、仓库编号、盘点时间、经办人编号、盘点数据等。系统流水日志信息，包括的数据项有用户名、操作时间、操作内容等。用户管理信息，包括的数据项有用户名、用户密码、用户权限等。另外，还有借入单、借出单、报损单、调拨单信息等。它们与入库单、出库单信息基本类似，这里不再一一例举。第二节 数据库概念结构设计得到上面的数据项和数据结构以后，就可以设计出能够满足用户需求的各种实体结构，以及他们之间的关系，为以后的逻辑结构设计打下基础。根据上面的设计规划出的实体有：现有库存信息实体、入库信息实体、出库信息实体、借入信息实体、借出信息实体、调拨信息实体图和报损信息实体图。各个实体具体的描述E-R图如下：现有库存信息实体E-R图如图4-2所示。现有库存信息实体编 号货物名称最低限量最高限量图4-2 现有库存信息实体E-R图入库单信息实体E-R图如图4-3所示。入库信息实体编 号经办人编 号入库时间、单价、数量供应商编 号图4-3 入库单信息实体E-R图出库单信息实体E-R图如图4-4所示。出库信息实体编 号经办人编 号入库时间、单价、数量客 户编 号图4-4 出库信息实体E-R图借入信息实体E-R图如图4-5所示。借入信息实体编 号经办人编 号借入时间、单价、数量货 物编 号图4-5 借入信息实体E-R图借出信息实体E-R图如图4-6所示。借出信息实体编 号经办人编 号借出时间、数 量货 物编 号图4-6 借出信息实体E-R调拨信息实体E-R图如图4-7所示。调拨信息实体编 号经办人编 号目标仓库编 号原 仓 库编 号图4-7 调拨信息实体E-R报损信息实体E-R图如图4-8所示。报损信息实体编 号经办人编 号报损时间、单价、数量仓 库编 号图4-8 报损信息实体E-R实体和实体之间的关系E-R图如图4-9所示。现有库存入库出库借入借出调拨 报损图4-9 实体之间关系E-R图第三节 数据库逻辑结构设计现在需要将在上面的数据库概念结构转化为ACCESS 2000 数据库系统所支持的实际数据模型，也就是数据库的逻辑结构。仓库管理信息系统数据库中各个表格的设计结果如下面表格所示。每个表格所示在数据库中的一个表。表4-1为货物基本信息表。表4-1 货物基本信息表字段名称数据类型字段大小可否为空编号数字长整型不可货物名称文本64不可货物类别文本50可货物规格文本50可计量单位文本50可最高限量数字长整型不可最低限量数字长整型不可备注备注可表4-2为仓库信息表表4-2 仓库信息表字段名称数据类型字段大小可否为空编号数字长整型不可仓库名称文本50不可仓库地点文本255可保管理员编号数字长整型可备注备注可 表4-3为库存状况信息表表4-3 库存状况信息表字段名称数据类型字段大小可否为空编号数字长整型不可货物编号数字长整型不可库存数量数字长整型不可仓库编号数字长整型不可表4-4为入库单信息表表4-4 入库单信息表字段名称数据类型字段大小可否为空编号数字长整型不可货物编号数字长整型不可经办人编号数字长整型不可入库时间日期/时间不可入库单价货币不可入库数量数字长整型不可供应商编号数字长整型可仓库编号数字长整型不可订单状况文本50不可其它金额货币可备注备注可表4-5为出库单信息表表4-5 出库单信息表字段名称数据类型字段大小可否为空编号数字长整型不可货物编号数字长整型不可经办人编号数字长整型不可出库时间日期/时间不可出库单价货币不可出库数量数字长整型不可客户编号数字长整型可仓库编号数字长整型不可订单状况文本50不可其它金额货币可备注备注可表4-6为借入单信息表表4-6 借入单信息表字段名称数据类型字段大小可否为空编号数字长整型不可货物编号数字长整型不可经办人编号数字长整型不可借入时间日期/时间不可借入数量数字长整型不可供应商编号数字长整型可仓库编号数字长整型不可订单状况文本50不可其它金额货币可备注备注可表4-7为借出单信息表表4-7 借出单信息表字段名称数据类型字段大小可否为空编号数字长整型不可货物编号数字长整型不可经办人编号数字长整型不可借出时间日期/时间不可借出数量数字长整型不可供应商编号数字长整型可仓库编号数字长整型不可订单状况文本50不可其它金额货币可备注备注可表4-8为调拨单信息表表4-8 调拨单信息表字段名称数据类型字段大小可否为空编号数字长整型不可货物编号数字长整型不可经办人编号数字长整型不可调拨时间日期/时间不可调拨数量数字长整型不可原仓库编号数字长整型不可目标仓库编号数字长整型不可其它金额货币可备注备注可表4-9为报损单信息表表4-9 报损单信息表字段名称数据类型字段大小可否为空编号数字长整型不可货物编号数字长整型不可经办人编号数字长整型不可报损时间日期/时间不可报损单价货币不可报损数量数字长整型不可仓库编号数字长整型不可其它金额货币可备注备注可表4-10为盘点单信息表表4-10 盘点单信息表字段名称数据类型字段大小可否为空编号数字长整型不可仓库编号数字长整型不可盘点时间日期/时间不可经办人编号数字长整型不可盘点数据备注不可表4-11为系统流水日志信息表表4-11 系统流水日志信息表字段名称数据类型字段大小可否为空用户名文本50不可操作时间日期/时间不可操作内容备注不可表4-12为用户管理信息表表4-12 用户管理信息表字段名称数据类型字段大小可否为空用户名文本64不可用户密码文本50不可用户权限数字长整型不可第五章 系统主窗体设计第一节 创建工程项目仓库管理系统打开Visual Basic 后，单击File - New Project 菜单，在工程模板中选择Standard ExE,Visual Basic将自动产生一个Form窗体，属性都是缺省设置。这里我们删除这个窗体，单击File-Save Projiect菜单，将这个工程项目命名为仓库管理系统。第2节 创建系统主窗体Visual Basic 创建的应用程序可以是SDI（单文档界面）和MDI（多文档界面）。在SDI的程序中，每个窗体之间是独立的。而MDI的程序中，有一个窗体是主窗体，可以包含其他窗体，他的类型是MDI Form 。本设计采用多文档界面，这样可以使程序更加美观、整齐有序。单击工具栏中的ADD MDI Form 按钮，生成一个窗体。窗体的属性设置见表51。表51 主窗体属性设置属性属性取值NameFrmMainCaption仓库管理系统StartUpPositionCenterScreenWindowStateMaximized主窗体界面设计如图5-1所示。图51 系统主窗体第三节 创建主窗体菜单熟悉Windows下应用程序的用户对菜单一定有比较深的印象。所谓菜单，即是指应用程序中为用户提供的一组命令，这些命令出现在应用程序界面的顶部。每项菜单有多项子菜单，具有一定的专门功能，用户容易通过主菜单来访问其下的子菜单。增加菜单可以增强应用程序的功能。下面将介绍菜单及菜单的编辑和使用。一、菜单简介菜单栏在窗体栏的标题栏下面，包含一个或多个菜单标题。当单击一个菜单标题，包含菜单项目的列表就被拉下来。菜单项可以包含命令、分隔条和子菜单标题。用户看到的每个菜单项和在“Menu Editor”中定义的一个菜单控件相对应。为了使应用程序简单好用，应该将菜单相按功能进行分组。菜单控件使一个对象，与其他对象一样，它具有定义它的外观与行为的属性。在设计或运行时可以设置Caption 属性、Enabled和Visible属性、Checked属性以及其他属性。菜单控件只包含一个事件，即Click事件，当用鼠标或键盘选中该菜单控件时，将调用该事件。二、Visual Basic菜单编辑器菜单编辑器可以创建新的菜单和菜单栏，也可以向现存的菜单中增加新的命令、用自己的命令替代现存的菜单命令、产生新的菜单和菜单栏，改变和删除现存菜单和菜单栏。要打开菜单编辑器，在“Tools”菜单中选择“Menu Editor”选项。或击鼠标右键，选择弹出式菜单中的“Menu Editor”。弹出菜单编辑器窗口如图52所示。52 菜单编辑器菜单编辑器的基本属性如下：Caption出现在控件上的文本。Name代码中用来引用菜单控件的名字。shortcut可以访问菜单的键盘按键组合。创建的菜单标题将显示在窗体上。在设计时，单击一个菜单标题可下拉其相应的菜项。创建分隔符，如果在设计的菜单中创建分隔符条，只需在想要分隔开来的菜单项之间插入一个菜单控件。单击左、右箭头按钮使新菜单项缩进到与它要隔开的菜单项同级。然后在“Caption”文本框中键入一个连字符（）。设置“Name”属性。“OK”,关闭菜单编辑器。创建赋值访问键和快捷键为了提高应用程序的性能，为用户提供最方便、快捷的操作，可以定义菜单的访问键和快捷键，改进键盘对菜单命令的访问。访问键，要在菜单编辑器中给菜单控件赋值访问键，先选取要赋值访问键的菜单项，在该菜单项“Caption”框中，要在作为访问键字符的前面键入一个（&）字符。快捷键，快捷键提供了一种键盘单步的访问方法，按下时会立刻运行一个菜单项。快捷键的赋值包括功能键与控制键的组合，如CTRL+F1键或CTRL+A键。他们出现在菜单中相应菜单项的右边。系统初始化菜单的代码如下：Private Declare Function GetWindow Lib user32 (ByVal hwnd As Long, ByVal wCmd As Long) As LongPublic Sub InitPurview() 初始化17种权限状态 Dim i As Integer For i = 16 To 0 Step -1 If GetBit(Purview, i + 1) = 0 Then 权限类别(16 - i) = 0 Else 权限类别(16 - i) = 1 End If NextEnd SubPrivate Sub InitMenu() 根据用户权限来初始化菜单 If 权限类别(3) = 0 Then M月盘点.Enabled = False tbToolBar.Buttons(4).Enabled = False End If If 权限类别(4) = 0 Then M供应商.Enabled = False 登记新供应商.MouseIcon = Picture1.MouseIcon End If If 权限类别(5) = 0 Then M往来客户.Enabled = False 登记新客户.MouseIcon = Picture1.MouseIcon End If If 权限类别(6) = 0 Then M单据查询.Enabled = False M库存查询.Enabled = False M货物出入统计.Enabled = False M职员操作统计.Enabled = False L货物出入统计.MouseIcon = Picture1.MouseIcon L职员操作统计.MouseIcon = Picture1.MouseIcon L单据查询.MouseIcon = Picture1.MouseIcon L库存查询.MouseIcon = Picture1.MouseIcon tbToolBar.Buttons(5).Enabled = False tbToolBar.Buttons(8).Enabled = False End If If 权限类别(8) = 0 Then M打印入库单.Enabled = False M打印出库单.Enabled = False M打印借入单.Enabled = False M打印借出单.Enabled = False M打印调拔单.Enabled = False M打印报损单.Enabled = False M打印月盘点.Enabled = False tbToolBar.Buttons(10).Enabled = False End If If 权限类别(9) = 0 Then M公司信息.Enabled = False 修改公司信息.MouseIcon = Picture1.MouseIcon End If If 权限类别(10) = 0 Then M职员信息.Enabled = False 登记新职员.MouseIcon = Picture1.MouseIcon End If If 权限类别(11) = 0 Then M仓库信息.Enabled = False 创建新仓库.MouseIcon = Picture1.MouseIcon End If If 权限类别(12) = 0 Then M货物信息.Enabled = False 登记新货物.MouseIcon = Picture1.MouseIcon End If If 权限类别(13) = 0 Then M数据清除.Enabled = False M系统初始化.Enabled = False End If If 权限类别(14) = 0 Then M备份数据库.Enabled = False M还原数据库.Enabled = False M还原到昨天数据库.Enabled = False 备份数据库.MouseIcon = Picture1.MouseIcon 还原数据库.MouseIcon = Picture1.MouseIcon End If If 权限类别(15) = 0 Then M查看流水日志.Enabled = False 查看流水日志.MouseIcon = Picture1.MouseIcon tbToolBar.Buttons(12).Enabled = False End If If 权限类别(16) = 0 Then mnuUserManage.Enabled = False L用户管理.MouseIcon = Picture1.MouseIcon End IfEnd Sub“菜单”中的各个“子菜单”的程序代码如下：启动主窗体时的需要的代码Private Sub Form_Load() 初始化m_checkado m_checkado.ConnectionString = DataConnectString m_checkado.Visible = False 每天首次运行自动备份数据库 fMainForm.m_checkado.RecordSource = select 操作时间 from 系统流水日志 order by 操作时间 desc fMainForm.m_checkado.Refresh If fMainForm.m_checkado.Recordset.RecordCount 0 Then fMainForm.m_checkado.Recordset.MoveFirst Dim t As String t = fMainForm.m_checkado.Recordset.Fields(操作时间).Value 如果今天从未有人登陆,备份数据库 If InStr(1, t, Str(Date) 1 Then BackupData DataPath, App.Path + everyday.bkp End If Else BackupData DataPath, App.Path + everyday.bkp End If fMainForm.WriteLog (登陆系统) 写入系统流水日志 InitPurview 初始化各种权限类别 InitMenu 初始化菜单 加载图片 Picture1.Picture = LoadPicture(App.Path + dataground1.jpg)End Sub “基本信息”菜单下的“退出”子菜单的Click事件的程序代码如下。点击“退出”会退出系统，但在此之前系统首先会写入系统流水日志。Private Sub Form_Unload(Cancel As Integer) fMainForm.WriteLog (退出系统) 写入系统流水日志End SubPrivate Sub mnuFileExit_Click() Unload MeEnd Sub “维护设置”菜单下的“修改密码”子菜单的Click事件的程序代码如下。点击“修改密码”会弹出修改当前用户密码窗口。Private Sub mnuModifyPassword_Click() PasModify.Show vbModalEnd Sub “维护设置”菜单下的“用户管理”子菜单的Click事件的程序代码，如下。点击“用户管理”会弹出用户管理窗口。Private Sub mnuUserManage_Click() 用户管理.Show vbModalEnd Sub “帮助”菜单下的“关于仓库管理系统”子菜单的Click事件的程序代码如下。点击“关于仓库管理系统”会弹出系统帮助窗口。Private Sub mnuHelpAbout_Click() frmAbout.Show vbModal, MeEnd Sub “打印报表”菜单下的“页面设置”子菜单的Click事件的程序代码如下。点击“页面设置”会弹出页面设置对话框。Private Sub mnuFilePageSetup_Click() On Error Resume Next With dlgCommonDialog .DialogTitle = 页面设置 .CancelError = True .ShowPrinter End WithEnd Sub “视图”菜单下的“状态栏”子菜单的Click事件的程序代码如下。点击“状态栏”主窗体会隐藏状态栏。Private Sub mnuViewStatusBar_Click() sbStatusBar.Visible = True - sbStatusBar.Visible mnuViewStatusBar.Checked = sbStatusBar.VisibleEnd Sub “视图”菜单下的“工具栏”子菜单的Click事件的程序代码如下。点击“工具栏”主窗体会隐藏工具栏。Private Sub mnuViewToolbar_Click() tbToolBar.Visible = True - tbToolBar.Visible mnuViewToolbar.Checked = tbToolBar.VisibleEnd Sub“单据中心”菜单下的“报损单管理”子菜单的Click事件的程序代码如下。点击“报损单管理”会弹出报损单管理窗口。Private Sub M报损单_Click() 报损单.Show vbModalEnd Sub“维护设置”菜单下的“备份数据库”子菜单的Click事件的程序代码如下。点击“备份数据库”系统会提示是否备份数据库，如果点击“是”，系统会备份数据库。Private Sub M备份数据库_Click() On Error GoTo failure With dlgCommonDialog .DialogTitle = 数据库备份为. .ShowSave If Len(.filename) = 0 Then Exit Sub If BackupData(DataPath, .filename) = 1 Then MsgBox 备份成功! fMainForm.WriteLog (备份数据) 写入系统流水日志 Elsefailure: MsgBox 备份失败! End If End With End Sub “维护设置”菜单下的“查看流水日志”子菜单的Click事