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

1、毕业设计（论文）-企业仓库管理系统设计 前言 随着企业管理信息化的发展网络及计算机的引入使管理跃上了一个新的发展平台企业的各项管理都将向信息化方向扩展仓库的管理对于企业来说尤为重要也正是基于这个原因我把毕业设计的方向定在了企业的仓库管理上仓库管理系统是一个不可缺少的部分它的内容对于的决策者和管理者来说都至关重要所以管理系统应该能够为用户提供充足的信息和快捷的查询手段但一直以来人们使用传统人工的方式管理这种管理方式存在着许多缺点如效率低保密性差另外时间长将产生大量的文件和数据这对于查找更新和维护都带来了不少的困难作为计算机应用的一部分使用计算机对信息进行管理有着手工管理所无法比拟的优点例如检索迅

2、速查找方便可靠性高存储量大保密性好寿命长成本低等这些优点能够极大地提高管理的效率由于时间紧迫加之水平有限设计中的缺点和不足之处在所难免敬请导师批评指正不胜感激摘要仓库管理系统是为了实现企业产品管理的系统化规范化和自动化从而提高企业管理效率而设计的它完全取代了原来一直用人工管理的工作方式避免了由于管理人员的工作疏忽以及管理质量问题所造成的各种错误为及时准确高效的完成仓库管理提供了强有力的工具和管理手段仓库管理系统是一个中小型数据库管理系统它界面美观操作简单安全性高基本满足了仓库管理的要求整个系统由基本信息单据中心查询统计报表打印维护设置帮助等模块组成本系统是在以access2000作为后台数据库

3、以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 compl

4、etely 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 and offeres powerful tool and management way to complet storehouse management for prompt accurate high-efficient th

5、e administrative system of the warehouse is a medium and small-scale database management systemit 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

6、center inquire statistics report form type set up to maintain and module of helping etcthe warehouse administrative system is designed with regarding access2000 as the backstage database and regarding visual basic as programming language the administrative system is effectual the high data accuracy

7、during the course of operating improves working efficiency and realizes computerization for storehouse management at the same time key word the warehouse administrative system the database目录前言1摘要2abstract3目录41 仓库管理系统开发环境简介611 中文visual basic 60 简介612 access2000简介72 系统可行性分析83 系统总体设计1031 系统目标设计1032 开发设

8、计思想1033 系统功能需求分析1134 系统功能模块设计114 数据库设计1241 数据库需求分析1242 数据库概念结构设计1443 数据库逻辑结构设计185 系统主窗体设计2451 创建工程项目仓库管理系统2452 创建系统主窗体2453 创建主窗体菜单2554 创建主窗体工具栏51com 工具栏控件常用属性和事件51com 设置工具栏属性5255 设置主窗体状态栏566 系统模块设计5761 基本信息模块设计57com 创建货物信息窗体57com 创建仓库信息窗体58com 创建库存状况信息窗体5962 单据中心模块设计60com 创建新增入库单窗体61com 创建入库单管理窗体62c

9、om 创建月盘点窗体6363 查询统计模块设计63com 创建单据查询窗体64com 创建库存查询窗体64com 创建货物出入统计窗体65com 创建职员操作统计窗体6664 报表打印模块设计67com印入库单窗体67com 创建打印月盘点窗体6865 维护设置模块设计69com 公司和职员信息70com 查看日志70com 数据清除71com 系统初始化71com 备份数据库71com 还原数据库和还原到昨天数据库72com 用户管理7267 帮助模块设计72总结74致谢75参考文献761 仓库管理系统开发环境简介本仓库管理系统是在以visual basic为编程语言以access2000作

10、为后台数据库而开发的一个数据库管理系统下面简要介绍一下中文visual basic 60和access 200011 中文visual basic 60 简介visual basic提供了开发windows应用程序最迅速最简洁的方法它提供了一整套工具供用户开发应用程序visual 指的是开发图形用户界面gui的方法在图形用户界面下不需要编写大量代码去描述界面元素的外观和位置而只需要把预先建立的对象加到屏幕上的适当位置再进行简单设置即可basic指的是basic beginners all-purpose symbol instruction code 语言是一种应用十分广泛的计算机语言visu

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

12、全可以通过键盘和鼠标完成而不用编制大量代码如果需要修改也可利用键盘或鼠标完成而底层的一些程序代码可由vb自动生成或修改vb为用户提供了大量控件这些控件对于熟悉windows应用成序的用户而言也许是一点也不陌生如标签组合框命令按扭文本框单选框等等用户只需要用鼠标或键盘把这些控件拖到所需的位置并设置他们的大小形状属性等即可得到所需要的应用程序界面2 事件驱动编程在vb中把窗体及控件称为对象这些对象组成了与用户交互的图形界面也称为用户接口用户界面再设计应用程序时必须考虑到用户如何与程序进行交互用户通过鼠标和键盘与应用程序进行交互是最直接最方便的这时那些对象必须对鼠标键盘操作所引起的事件做出响应响应是

13、指执行一段应用程序它不沿预定的路线执行而是在响应不同事件时执行不同的代码因此vb编程重点是在编写事件驱动过程的代码3 面向对象的程序设计vb是面向对象的程序设计语言他将代码和数据结合在一个对象中用户只需要了解每个对象能完成何种任务而不需要知道对象是如何工做作的软件开发人员主要编写事件驱动过程的代码使对象对用户的操作做出反映但因vb没有多态等面向对象的特性所以也有人称vb是一种准面向对象的程序设计语言4 易学易用开发周期短vb简单易学界面友好容易使用vb提供了大量功能强大的控件能帮助开发人员在较短的时间内用少量语句编写出应用程序缩短了开发周期 12 access2000简介assess是一个数据

14、库管理系统它简单易学一个普通的计算机用户可以很快的掌握它access2000的功能也十分强大利用它可以方便的实现对信息保存维护查询统计等而且它可以十分方便地与office其他组件交流数据这些功能对一个普通用户来说已经足够了本系统就是在以access2000作为后台数据库以visual basic为编程语言为中小型企业管理仓库而开发的一个数据库管理系统2 系统可行性分析可行性分析的任务并不是所有问题都有简单明显的解决办法事实上许多问题不可能在预定的系统规模之内解决如果问题没有可行的解那么花费这项开发工程上的任何时间资源人力和经费都是无谓的浪费可行性研究的目的就是用最小的代价在尽可能短的时间内确定

15、问题是否能够解决必须记住可行性研究的目的不是解决问题而是确定问题是否值得去解怎样达到这个目的呢当然不能靠主观猜想而只能靠客观分析必须分析几种主要的可能解法的利弊从而判断原定的系统目标和规模是否现实系统完成后所能带来的效益是否大到值得投资开发这个系统的程度因此可行性研究实质上是要进行一次大大压缩简化了的系统分析和设计的过程也就是在较高层次上以较抽象的方式进行的系统分析和设计的过程所以从以上的分析原则来看我所设计的仓库信息管理系统是一个规模不太大的系统但是目标明确清晰的描述了对目标系统的一切限制和约束本系统几乎在所有的企业公司使用当然它需要进一步的完善和更新在使用过程中要看它能不能带来效益毕竟在现

16、今社会效率是第一位的从现实看这还是有一定的实用价值的从另一个角度看现实社会发展飞速尊重科技势在必行因此这也是开发本系统的一个非常重要的原因21世纪是计算机的时代它必然取代一部分人的工作高科技的监控系统进入社会生活的方方面面是发展的趋势本设计从一下三个方面进行可行性研究1 技术可行性本设计仓库管理系统是为企业仓库管理人员开发的鉴于本人在上学期数据库课程设计中已用visual basic60access2000开发过网上图书销售管理信息系统而且通过三个月毕业实习中的学习和实践对开发管理信息系统又有了新的认识和提高使自己在开发管理信息系统方面的技术更加成熟由于本设计最重要体现的是实用性所以通过大量的

17、社会调查和分析结合自己现有的技术水平加上导师的指导还是能按期完成本毕业设计 2 经济可行性成本方面由于本毕业设计属于计算机科学 本科 教学的最后一个环节所以人力消耗免费资源学校提供指导老师义务指导所以成本计算只需计算开发期间开发者的生活消费学校资源的消耗所以开发本软件的成本是非常低的效益方面为企业开发一个完整合理的仓库管理系统可大大节余人力以前需要多人干的工作使用本系统只需一个人或几个人就能完成且工作量和劳动强度大大降低所以开发本软件可以为社会带来很好的经济效益 从以上分析看开发本软件在经济上是可行的 3 操作可行性本软件是为企业仓库的管理者开发的所有本软件的用户对象是企业仓库的工作人员由于本

18、软件要设计成友好的界面写出详细的使用说明用户只需懂得简单的计算机操作知识就能自由应用本软件 所以从以上几个方面的分析来看开发本软件是完全可行的3 系统总体设计31 系统目标设计系统开发的总体任务是实现企业产品管理的系统化规范化和自动化从而达到提高企业管理效率的目的32 开发设计思想仓库管理主要是企业各种商品的管理进货时经检查合同确认为有效托收后进行验收入库填写入库单进行入库登记企业各个部门根据需要提出产品请求计划员根据整个企业的需求开出产品出库单仓库管理人员根据出库单核对发放产品根据需要按照月进行统计分析产生相应报表仓库管理的特点是信息处理量比较大所管理的产品种类繁多而且由于入库单出库单盘点单

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

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

21、据处理的流程组成一份详尽的数据字典为后面的具体设计打下基础仔细分析调查有关仓库管理信息需求的基础上得到如图41所示的本系统所处理的数据流程图4-1 仓库管理系统数据流程图通过对企业仓库管理的内容和数据流程分析设计数据项和数据结构如下货物信息包括的数据项有编号货物名称货物类别货物规格计量单位最高限量最低限量备注等仓库信息包括的数据项有编号仓库名称仓库地点保管员编号备注等库存状况信息包括的数据项有编号货物编号库存数量仓库编号等 入库单信息包括的数据项有编号货物编号经办人编号入库时间入库单价入库数量供应商编号仓库编号定单状况其它金额备注等出库单信息包括的数据项有编号货物编号经办人编号出库时间出库单价

22、出库数量客户编号仓库编号定单状况其它金额备注等进行月盘点信息包括的数据项有编号仓库编号盘点时间经办人编号盘点数据等系统日志信息包括的数据项有用户名操作时间操作内容等用户管理信息包括的数据项有用户名用户密码用户权限等另外还有借入单借出单报损单调拨单信息等它们与入库单出库单信息基本类似这里不再一一例举42 数据库概念结构设计得到上面的数据项和数据结构以后就可以设计出能够满足用户需求的各种实体结构以及他们之间的关系为以后的逻辑结构设计打下基础根据上面的设计规划出的实体有现有库存信息实体入库信息实体出库信息实体借入信息实体借出信息实体调拨信息实体图和报损信息实体图各个实体具体的描述e-r图如下现有库存

23、信息实体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-3所示图4-5 借入信息实体e-r图借出信息实体e-r图如图4-6所示图4-6 借出信息实体e-r调拨信息实体e-r图如图4-7所示图4-7 调拨信息实体e-r报损信息实体e-r图如图4-4所示图4-8 报损信息实体e-r实体和实体之间的关系e-r图如图4-9所示图4-9 实体之间关系e-r图43 数据库逻辑结构设计 现在需要将在上面的数据库概念结构转化为access 2

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

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

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

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

28、编号数字长整型不可仓库编号数字长整型不可盘点时间日期时间不可经办人编号数字长整型不可盘点数据备注不可表4-11为系统日志信息表表4-11 系统日志信息表字段名称数据类型字段大小可否为空用户名文本50不可操作时间日期时间不可操作内容备注不可表4-12为用户管理信息表表4-11 用户管理信息表字段名称数据类型字段大小可否为空用户名文本64不可用户密码文本50不可用户权限数字长整型不可 5 系统主窗体设计51 创建工程项目仓库管理系统打开visual basic 后单击file - new project 菜单在工程模板中选择standard exevisual basic将自动产生一个form窗体

29、属性都是缺省设置这里我们删除这个窗体单击file- save projiect菜单将这个工程项目命名为仓库管理系统52 创建系统主窗体visual basic 创建的应用程序可以是sdi单文档界面和mdi多文档界面在sdi的程序中每个窗体之间是独立的而mdi的程序中有一个窗体是主窗体可以包含其他窗体他的类型是mdi form 本设计采用多文档界面这样可以使程序更加美观整齐有序单击工具栏中的add mdi form 按钮生成一个窗体窗体的属性设置见表51表51 主窗体属性设置 属性 属性取值namefrmmaincaption仓库管理系统startuppositioncenterscreenwi

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

31、简单好用应该将菜单相按功能进行分组菜单控件使一个对象与其他对象一样它具有定义它的外观与行为的属性在设计或运行时可以设置caption 属性enabled和visible属性checked属性以及其他属性菜单控件只包含一个事件即click事件当用鼠标或键盘选中该菜单控件时将调用该事件2 visual basic菜单编辑器 菜单编辑器可以创建新的菜单和菜单栏也可以向现存的菜单中增加新的命令用自己的命令替代现存的菜单命令产生新的菜单和菜单栏改变和删除现存菜单和菜单栏 要打开菜单编辑器在tools菜单中选择menu editor选项或击鼠标右键选择弹出式菜单中的menu editor弹出菜单编辑器窗口

32、如图52所示 52 菜单编辑器菜单编辑器的基本属性如下caption出现在控件上的文本 name代码中用来引用菜单控件的名字 shortcut可以访问菜单的键盘按键组合以上介绍了菜单编辑器的基本情况和属性接下来将来介绍利用菜单编辑器创建菜单的过程选取待创建菜单的窗体激活该窗体从菜单栏的tools菜单中选取menu editor并单击或在工具栏上单击menu editor按钮在菜单编辑器的caption文本框中为第一个菜单标题键入希望在菜单栏上显示的文本如果希望某一字符成为该菜单项的访问键也可以在该字符前加上一个字符在菜单中这一字符会自动加上一条下划线在菜单编辑器的name文本框中键入将用来在代

33、码中引用该菜单控件的名字命名菜单控件的规则如下菜单中项目名称应当唯一但不同菜单中相似动作项目可以重名每一个项目名称应当有一个用键盘选取命令的唯一的记忆访问字符访问字符通常是菜单标题的第一个字母每个菜单标题不能用同一个字符如果命令在完成之前还需要附加信息则在其名称后面应当有一个省略号单击向左或向右箭头按钮可以改变该控件的缩进级如果需要还可以设置控件的其他属性创建新的菜单控件时选取next命令单击insert可以在现有的控件之间增加一个菜单控件单击向上与向下的箭头按钮可以在现有菜单控件之中移动控件菜单控件创建好后选取ok可关闭菜单编辑器创建的菜单标题将显示在窗体上在设计时单击一个菜单标题可下拉其相

34、应的菜项创建分隔符如果在设计的菜单中创建分隔符条只需在想要分隔开来的菜单项之间插入一个菜单控件单击左右箭头按钮使新菜单项缩进到与它要隔开的菜单项同级然后在caption文本框中键入一个连字符设置name属性ok关闭菜单编辑器创建赋值访问键和快捷键 为了提高应用程序的性能为用户提供最方便快捷的操作可以定义菜单的访问键和快捷键改进键盘对菜单命令的访问 访问键要在菜单编辑器中给菜单控件赋值访问键先选取要赋值访问键的菜单项在该菜单项caption框中要在作为访问键字符的前面键入一个字符快捷键快捷键提供了一种键盘单步的访问方法按下时会立刻运行一个菜单项快捷键的赋值包括功能键与控制键的组合如ctrlf1键

35、或ctrla键他们出现在菜单中相应菜单项的右边根据以上介绍的方法创建本设计的菜单结构如图53所示 图5-3 仓库管理系统菜单结构 系统初始化菜单的代码如下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

36、 1 end if nextend subprivate sub initmenu 根据用户权限来初始化菜单 if 权限类别 3 0 then m月盘点enabled false tbtoolbarbuttons 4 enabled false end if if 权限类别 4 0 then m供应商enabled false 登记新供应商mouseicon picture1mouseicon end if if 权限类别 5 0 then m往来客户enabled false 登记新客户mouseicon picture1mouseicon end if if 权限类别 6 0 then m

37、单据查询enabled false m库存查询enabled false m货物出入统计enabled false m职员操作统计enabled false l货物出入统计mouseicon picture1mouseicon l职员操作统计mouseicon picture1mouseicon l单据查询mouseicon picture1mouseicon l库存查询mouseicon picture1mouseicon tbtoolbarbuttons 5 enabled false tbtoolbarbuttons 8 enabled false end if if 权限类别 8 0

38、then m打印入库单enabled false m打印出库单enabled false m打印借入单enabled false m打印借出单enabled false m打印调拔单enabled false m打印报损单enabled false m打印月盘点enabled false tbtoolbarbuttons 10 enabled false end if if 权限类别 9 0 then m公司信息enabled false 修改公司信息mouseicon picture1mouseicon end if if 权限类别 10 0 then m职员信息enabled false

39、登记新职员mouseicon picture1mouseicon end if if 权限类别 11 0 then m仓库信息enabled false 创建新仓库mouseicon picture1mouseicon end if if 权限类别 12 0 then m货物信息enabled false 登记新货物mouseicon picture1mouseicon end if if 权限类别 13 0 then m数据清除enabled false m系统初始化enabled false end if if 权限类别 14 0 then m备份数据库enabled false m还原数

40、据库enabled false m还原到昨天数据库enabled false 备份数据库mouseicon picture1mouseicon 还原数据库mouseicon picture1mouseicon end if if 权限类别 15 0 then m查看日志enabled false 查看日志mouseicon picture1mouseicon tbtoolbarbuttons 12 enabled false end if if 权限类别 16 0 then mnuusermanageenabled false l用户管理mouseicon picture1mouseicon

41、end ifend sub菜单中的各个子菜单的程序代码如下启动主窗体时的需要的代码private sub form_load 初始化m_checkado m_checkadoconnectionstring dataconnectstring m_checkadovisible false 每天首次运行自动备份数据库 fmaincomrdsource select 操作时间 from 系统日志 order by 操作时间 desc fmaincomesh if fmaincomrdsetrecordcount 0 then fmaincomrdsetmovefirst dim t as str

42、ing t fmaincomrdsetfields 操作时间 value 如果今天从未有人登陆备份数据库 if instr 1 t str date 1 then backupdata datapath apppath everydaybkp end if else backupdata datapath apppath everydaybkp end if fmainformwritelog 登陆系统 写入系统日志 initpurview 初始化各种权限类别 initmenu 初始化菜单 加载图片 picture1picture loadpicture apppath dataground1

43、jpg end sub 基本信息菜单下的退出子菜单的click事件的程序代码如下点击退出会退出系统但在此之前系统首先会写入系统日志private sub form_unload cancel as integer fmainformwritelog 退出系统 写入系统日志end subprivate sub mnufileexit_click unload meend sub 维护设置菜单下的修改密码子菜单的click事件的程序代码如下点击修改密码会弹出修改当前用户密码窗口private sub mnumodifypassword_click pasmodifyshow vbmodalend

44、sub 维护设置菜单下的用户管理子菜单的click事件的程序代码如下点击用户管理会弹出用户管理窗口private sub mnuusermanage_click 用户管理show vbmodalend sub 帮助菜单下的关于仓库管理系统子菜单的click事件的程序代码如下点击关于仓库管理系统会弹出系统帮助窗口private sub mnuhelpabout_click frmaboutshow vbmodal meend sub 打印报表菜单下的页面设置子菜单的click事件的程序代码如下点击页面设置会弹出页面设置对话框private sub mnufilepagesetup_click o

45、n error resume next with dlgcommondialog dialogtitle 页面设置 cancelerror true showprinter end withend sub 视图菜单下的状态栏子菜单的click事件的程序代码如下点击状态栏主窗体会隐藏状态栏private sub mnuviewstatusbar_click sbstatusbarvisible true - sbstatusbarvisible mnuviewstatusbarchecked sbstatusbarvisibleend sub 视图菜单下的工具栏子菜单的click事件的程序代码如

46、下点击工具栏主窗体会隐藏工具栏private sub mnuviewtoolbar_click tbtoolbarvisible true - tbtoolbarvisible mnuviewtoolbarchecked tbtoolbarvisibleend sub单据中心菜单下的报损单管理子菜单的click事件的程序代码如下点击报损单管理会弹出报损单管理窗口private sub m报损单_click 报损单show vbmodalend sub维护设置菜单下的备份数据库子菜单的click事件的程序代码如下点击备份数据库系统会提示是否备份数据库如果点击是系统会备份数据库private su

47、b m备份数据库_click on error goto failure with dlgcommondialog dialogtitle 数据库备份为 showsave if len filename 0 then exit sub if backupdata datapath filename 1 then msgbox 备份成功 fmainformwritelog 备份数据 写入系统日志 elsefailure msgbox 备份失败 end if end with end sub 维护设置菜单下的查看日志子菜单的click事件的程序代码如下点击查看日志会弹出查看日志窗口private

48、sub m查看日志_click 系统日志show vbmodal end sub 打印报表菜单下的打印报损单子菜单的click事件的程序代码如下点击打印报损单会弹出打印报损单窗口private sub m打印报损单_click dim f as new 报损单 com com com com comble false comble false fshow vbmodal unload f end sub 打印报表菜单下的打印出库单子菜单的click事件的程序代码如下点击打印出库单会弹出打印出库单窗口private sub m打印出库单_click dim f as new 出库单 com co

49、m com com comble false comble false comble false fshow vbmodal unload fend sub 打印报表菜单下的打印调拔单子菜单的click事件的程序代码如下点击打印调拔单会弹出打印调拔单窗口private sub m打印调拔单_click dim f as new 调拔单 com com com com comble false comble false fshow vbmodal unload fend sub 打印报表菜单下的打印借出单子菜单的click事件的程序代码如下点击打印借出单会弹出打印借出单窗口private sub m打印借出单_click dim f as new 借出单 com com com com comble false comble false comble false fshow vbmodal unload fend sub打印报表菜单下的打印借入单子菜单的click事件的程序代码如下点击打印借入单会弹出打印借入单窗口private sub m打印借入单_click dim f as new 借入单 com com com com comble false comble false comble false fshow vbmo