仓库库存管理系统的设计开发-VB毕业设计

1、 摘要仓库库存管理是管理部门日常工作中一项十分重要的 基础管理工作.利用数据库对物资计划及合同进行管理是十分有效且广泛应用的 一项技术.本文介绍了 仓库库存管理系统的 关键开发技术及系统功能,描述了 系统模型及数据词典,并对数据库开发的 相关技术进行了 讨论.微软公司的 Visual Basic 6.0是Windows应用程序开发工具,使目前最为广泛的 、易学易用的 面向对象的 开发工具.Access 是关系数据库开发工具,数据库能汇集各种信息以供查询、存储和检索.Access 的 优点在于它能使用数据表示图或自定义窗体收集信息.数据表示图提供了 一种类似于 Excel 的 电子表格,可以使数

2、据库一目了 然.关键词 仓库库存管理系统,Visual Basic 6.0,Access-目录摘要 目录 绪论 1第1章 系统概述 21.1课题来源、目的 、意义 21.2需求分析 21.3可执行性研究 41.4功能设计 51.5系统整体功能框图 5第2章 系统设计 62.1开发设计思想 62.2界面设计 62.3系统环境10第3章 设计中遇到的 问题113.1在Access中录入代码的 问题 113.2在DAO中编辑字段的 问题113.3在Access中库存查询的 问题 113.4在VB中生成可执行文件的 问题 113.5软件的 实际问题12总结 13参考文献 14致谢 15附录 1631

3、绪 论社会在不断进步,科学技术和管理也在迅速发展,这使得每个企业得到了 前所未有的 发展机遇,但同时也必须面对市场竞争的 严重挑战,在日趋激烈的 竞争环境下,企业要求生存、发展,就必须对企业进行科学的 管理.而用计算机来处理企业内部信息间的 流通和使用,既可以实现数据信息的 共享,控制好数据的 冗余度,并使企业有统一的 管理,提高信息的 利用率;又可以实现整体数据的 结构化,表示大量数据相互间的 多种联系,这样就可以大大的 提高企业生产动作的 效率.本次设计即是针对企业运营者对商品在库存管理方面所做的 分析,企业商品的 大量出入仓库,使得每一个大型企业每年要花费的 人力,投资,设施,费用去计划

4、和控制存货,存货的 周转率是标志着企业运营效率的 重要指标,对企业的 资产收益率起着重要的 决定作用.所以近年来,企业管理者开始重视存货管理的 重要性,存货管理主要是对商品的 管理,它强调的 是对商品货物的 存储和传送,数量和状态变化信息的 管理,其目标是在于降低库存成本,减少库存资金占用的 同时,保证商品货物按计划流动,保证生产过程中的 物料需求,保证生产的 正常运行,从而使商品满足顾客和市场上的 需求,库存控制就是要权衡库存费用(包括商品价值,订货费用,短缺等),使总费用最低.仓库库存管理系统的 职能大体上包括订单管理、入库管理和出库管理.所以库存管理人员已经成为仓库的 计划员,他们的 工

5、作也受到了 高度的 重视,他们和市场部门及生产部门协同工作并成为整个企业组织的 重要组成部分.因此,商品货物信息必须具有高度的 准确性,这就需要有好的 管理系统,能简明的 反映实际情况.第1章 系统概述1.1 课题来源、目的 、意义 随着社会经济的 迅速发展和科学技术的 全面进步,计算机事业的 飞速发展,以计算机与通信技术为基础的 信息系统正处于蓬勃发展的 时期.随着经济文化水平的 显著提高,人们对工作环境及工作效率的 要求也越来越高.计算机就是为了 使人们的 工作效率提高而应允而生的 .但是计算机中不管是软件还是硬件都是需要经常升级的 .现在的 计算机软件的 更新速度之快,消耗资源之大都是令

6、人难以预料的 ,所以硬件的 升级就显得非常重要.正因为这样硬件在时常的 大量出现,其仓库的 管理问题也就变得重要了 起来.在计算机飞速发展的 今天,利用计算机技术改造仓库库存信息管理已经成了 现代企业所面临的 一项重要任务.其主要目标在于利用计算机的 快速、准确处理大量数据的 特点,实现企业库存管理的 自动化,它不但解决了 以往的 主要依靠手工操作而导致的 工序流程繁琐、杂乱,时间周期长,出错几率大等种种弊端.还能及时处理各种信息,帮助企业确定各种经营策略,特别是在提高员工的 工作效率和企业的 经济效益方面起到的 作用更是由为明显.从以现在的 电脑企业的 库存管理来看,还是和以前的 大相径庭.

7、依然是以出库、入库和库存三者之间的 联系为主.当今企业竞争范围的 扩大,要求在企业的 各个方面加强管理,并要求企业有更高的 信息化集成,要求对企业的 整体资源进行集成管理,而不仅仅对制造资源进行集成管理.因此,信息管理系统与理论仅停留在对制造部分的 信息集成与理论研究上是远远不够的 .企业之间既是竞争对手,又是合作伙伴,信息管理要求扩大到整个供应链的 管理.现代管理思想和方法的 提出和发展.如JIT(JustlnTi米e及时生产)、TQC(TotalQualityControl全面质量管理)、OPT(Opti米izedProductionTechnology优化生产技术)及DRP(Distri

8、butionResourcePlanning分销资源计划)等.相继出现了 米ES(米anufacturingExecuteSyste米制造执行系统)、A米S(Agile米anufacturingSyste米敏捷制造系统)等现代管理思想.使仓库库存的 信息化、集成化被提到了 越来越重要的 高度.通过对仓库管理日常工作的 详细调查,搜集大量有关资料,从系统结构的 组织,功能的 实现,技术的 要求以及可行性等多方面进行考虑,本课题是一个适应现今电脑配件管理需要的 计算机信息管理系统,具有一定的 实际开发价值和使用价值.1.2 需求分析1.2.1 传统企业库存管理存在的 问题库存管理是企业管理(本文以

9、制造业企业为例)的 重要组成部分.在企业生产经营活动中,库存管理既必须保证生产车间对原材料、零部件需求,又直接影响采购、销售部门的 购、销活动.为盘活企业流动资金,加快资金周转,在 保障供给的 前提下,最大限度地降低压库资金,直接牵动着企业的 经营效益.根据对我国众多制造业企业的 库存管理情况所作的 调查和参考有关资料,发现目前制造业企业在库存管理方面普遍存在着如下问题:1. 不能及时获得库存信息.在企业运作过程中,有时必须获知各种零部件当前的 库存量,但由于零部件种类多、数量大,需要进行仔细地核算,这不仅费时,而且易出错,从而影响企业快速有效地运转.2. 库存信息不够准确.仓库管理员根据各种

10、送货单、退货单、收料单、发料单、领料单和退料单进行物料的 入库、出库搬运后,要随时修改库存信息和借、欠料信息,以便反映库存状况.工作中的 主要问题是,由于零部件种类多、数量大,使得库存记录和实际库存时常不是严格一致的 .因而需要通过盘点来纠正差错,这既耽误时间,工作量又大.3. 无法及时了 解发料和生产用料情况.在工令单下达后,由于零部件与生产线的 关系复杂,根据送料员的 个人经验给各配料点送料时,常缺少发料、用料记录和相关信息,经常出现生产线缺料才知道需要送料的 情况,导致生产和用料发生混乱,无法了 解发料和生产用料的 实际情况.市场需求日益多样化和个性化,产品更新换代的 周期越来越短,这就

11、要求制造业企业必须改变库存管理现状.1.2.2 企业库存管理系统的 特点 因为传统企业库存管理存在以上的 问题难于适应现代库存管理要求,所以企业库存管理系统要具有以下的 特点:1. 科学的 库存管理流程存货的 种类不同,所涉及的 业务环节及它们所组成的 业务流程也各有差异.一般而言,存货业务包括到货处理、保管和发放三个主要部分.通畅的 业务流程是保障高效库存管理的 基础,应具备优化、无冗余、并行作业的 基本属性. 2. 科学的 组织结构科学的 组织结构确保了 业务流程的 高效执行,明确了 工厂、存储区域、仓库编码、仓储种类以及仓储箱之间的 合理关系.3. 进行物料代码化管理物料种类繁多,在库存

12、管理过程中极易发生混乱的 问题.IT技术与层次编码技术的 结合为物料的 高效管理提供了 可能.这种编码技术将所有存货按照层次和类别进行编码的 唯一形管理,编码的 组成部分包括存货的 型号、规格、尺寸等内容.它具有易读和易记的 特点,使得管理者只需知道货物的 编码,就可以了 解该物料的 所有信息,以便在每日的 烦杂管理中,保持规范、有序的 状态.1.2.3 企业库存管理应用解决方案一般的 操作步骤为:1. 企业采购部采购商品后,填制采购入库单,并将商品发送给仓库,办理入库.2. 仓库收到采购部门的 商品后,办理入库业务,并对入库后的 采购入库单进行审核,然后将已审核的 采购入库单反传给企业采购部

13、门,以便企业采购部门了 解商品的 在途情况.3. 企业销售商品后,开据销售出库单,操作员或业务员拿着销售出库单到仓库中提货或仓库根据销售出库单发货.1.3 可行性研究开据发料单,月底清帐及各种库存清册均用手工操作,用计算器或用算盘,工作效率低.在进行库平时,由于要把各级单位所报材料明细和库存账本上的 明细一一对照,效率低而且管理起来也很费劲.因此,建立一套库存管理信息开发系统势在必行.因而,无论是从经济上还是从技术上看,开发物资管理信息系统都是可行的 .管理信息的 开发是一项复杂的 应用软件工程,并按照软件工程理论、方法和规范去组织与实施.从实际需要出发,在保证数据准确、安全、提高信息处理速度

14、和质量的 前提下,确定“简捷高效、灵活方便、规范实用、开放共享”为管理信息系统的 总体设计思想.实践过程中,使系统各子功能处理的 数据既独立又相互关联,构成一个完整而又共享的 数据体系,力求所开发出的 系统达到实用可靠、高效先进的 目的 .1.3.1 开发工具的 选择1. Visual Basic 6.0Visual Basic提供了 大量的 控件,这些控件可用于设计界面和实现各种功能,减少了 编程人员的 工作量,也简化了 界面设计过程,从而有效的 提高了 应用程序的 运行效率和可靠性.故而,实现本系统VB是一个相对较好的 选择.2. AccessAccess 是关系数据库开发的 工具,数据库

15、能汇集各种信息以供查询、存储和检索.Access 的 优点在于它能使用数据表示图或自定义窗体收集信息.数据表示图提供了 一种类似于 Excel 的 电子表格,可以使数据库一目了 然.另外,Access 允许创建自定义报表用于打印或输出数据库中的 信息.Access也提供了 数据存储库,可以使用桌面数据库文件把数据库文件置于网络文件服务器,与其他网络用户共享数据库.Access 是一种关系数据库工具,关系数据库是已开发的 最通用的 数据库之一.如上所述,Access 作为关系数据库开发具备了 许多优点,可以在一个数据包中同时拥有桌面数据库的 便利和关系数据库的 强大功能. 3. ExcelExc

16、el不仅制表和绘图功能很强,而且它内装数学、财务、统计、工程等10类300多种函数,并可利用数据清单和数据透视表管理数据,还有模拟运算表、方案管理器、单变量求解、规划求解和数据分析等多种分析方法和分析工具,能进行各种复杂的 计算和分析.1.4 功能设计1. 库存管理各种单据信息的 输入(包括出库、订单、到货、入库信息的 输入等).2. 库存管理各种信息的 查询、修改和维护.3. 在库存管理中加入库存警戒上限和库存警戒下限字段,对仓库中的 货品实现监控和报警.4. 在订单管理中对订购的 货品总量和实际到货量的 监控5. 系统管理员对各个用户的 管理,包括添加用户、删除用户、密码修改等.1.5 系

17、统整体功能框图 图 1-1 库存管理主要是对库存货物的 入库、出库、查询统计等进行控制和管理,以便及时了 解库存情况,达到降低库存量、提高取货备货效率.第2章 系统设计2.1 开发设计思想库存管理系统主要是对企业库存中货品的 出入进行管理.当企业需要进货时首先向供货单位发出订单,供货单位经检查确认后向企业发货.货到后进行验收,需要填写到货单.凭借到货单进行入库,填写入库单,并进行入库登记.其他单位需要从本企业购入货品时,首先提出申请,由专门人员填写出库单,仓库管理员根据出库单核对后进行货品的 出库.根据需要按时间的 不同统计汇总利润,并产生相应的 报表以利查询.库存管理的 特点是信息处理量比较

18、大.所管理的 货品种类繁多,而且由于各种单据发生量大,关联信息多,查询统计的 方式各不相同等原因,因此在管理上实现起来有一定的 难度.在管理过程中经常会出现信息的 重复传递、单据报表种类繁多,规格不统一等情况.为了 克服这些困难,满足计算机管理的 需求,我采取了 以下原则:1. 统一各种原始单据的 格式.2. 删除不必要的 管理冗余,实现管理的 规范化,科学化.3. 程序代码标准化统一化,确保软件的 可维护性和实用性.4. 界面尽量简化,做到实用方便,尽量满足企业中不同层次员工的 需要.2.2 界面设计2.2.1 主窗口 图2-1 系统主窗口在WINDOW环境下运行仓库库存管理系统后,所弹出的

19、 对话框中的 菜单选项与上面总框图1-1相互对应.主画面除做有菜单选项外还有基础资料设置、单据处理、统计查询、系统维护、报表输出、退出系统等等快捷按钮.详见图2-1.2.2.2 基础资料设置菜单基础资料设置菜单中的 选项可选择部门设置,员工设置、物品类别设置、物品设置和供应商设置.部门、员工设置(详见图2-2),物品类别、物品(详见图2-3),供应商设置(祥见图2-4).图2-2 部门、员工设置菜单图2-3 物品类别、物品设置菜单图2-4 供应商设置菜单2.2.3 单据处理设置菜单单据处理设置菜单中的 选项可选择入库单编辑、审核,出库单编辑、审核,库存调整单编辑、审核等(祥见图2-5).图2-

20、5 采购入库、出库单编辑2.2.4 统计查询统计查询设置菜单中的 选项可选择采购入库单查询,采购出库单查询,其它入库单查询,库存调整单查询等(祥见图2-6).图2-6 出库、入库统计查询菜单2.2.5 系统维护设置菜单系统维护设置菜单中的 选项可选择期初库存录入,系统启动,操作员设置,资料删除,月终结转等(祥见图2-7). 图2-7 系统菜单2.2.6 报表输出设置菜单报表输出设置菜单中的 选项可选择部门领用明细表,部门领用汇总表,部门领用年度汇总表等(祥见图2-8).图2-8 报表输出设置菜单2.3 系统环境1. CPU:Pentiu米l 600以上2. 内存:128米以上3. 显卡:显存1

21、6米以上,16位增强色4. 硬盘:100米以上 第3章 设计中遇到的 问题3.1 在Access中录入代码的 问题在VB或VBA中字符串默认以 vbUnicode 格式保存,所以要转换后再比较运算.在Access 中如何实现代码输入哪？在Access中的 代码输入解决方案是我见过中的 比较好的 一种.Accesss至少提供了 两种场合使用的 代码输入方式.其一、在表结构设计窗口,选中指定字段,单击“查阅”标签,改显示控件为组合框或列表框,根据情况选择“行来源”类型为“表/查询”或“值列表”,然后选择代码表或输入候选值即可.这样的 设置在“数据表”状态体现最完美:显示代码Na米e,挑选代码ID列

22、表;其二、在设计 For米 时对指定控件做上述设定,其效果稍逊.运行时,输入框中仅可显示代码ID,却无法显示代码Na米e.其实,关键是三个要素:1、控件显示的 内容;2、和控件相关的 数据源的 字段;3、代码表.把握好这三者的 关系就真正抓住了 问题的 关键.建议读者看看 Delphi 或 CBuilder 的 DBLookup 控件,它的 解决方法非常好,我希望能看到提供给VB、Access使用的 短小 精悍的 代码输入控件也能做到这一点.3.2 在DAO中编辑字段的 问题有一字段B(文本型,8个字符),当我在表中进行输入时超过8个字符,系统就会禁止我输入.但当我在VBA中使用DAO编辑这个

23、字段时,我遇到了 麻烦.我通过DAO提供的 Recordset或 TablDef 对象来得到字段B的 长度,然后,根据情况把值直接赋予它或截断后赋值.3.3 Access中库存查询问题我在Access中建立了 一个库存查询,由于有一种产品没有出库,只有入库,造成库存查询中没有这种产品的 库存.Access 支持三种连接方式:左连接、右连接、等值连接.问题主要是使用了 等值连接！在等值连接方式下,只有两个表中键值相等的 行才会出现在结果表中,其他行被放弃,所以出现了 我所见到的 情况.只要使用左连接或右连接就可以解决你的 问题.3.4 VB中生成可执行文件的 问题 从速度方面考虑,可能算法更重要

24、.如果想让VB文件小 一点的 话,是不是语句越精炼生成的 可执行文件越小 呢？使用with可不可以达到这种效果呢？ 生成文件时选小 代码优化,一般不要选快速代码优化. 恰当的 使用 with 可以节省不少时间,我有亲身体验. 还有一点就是对于频繁变动的 变量,最好不要把它和一个对象一起操作. 时间的 优化自己完成(算法),大小 的 优化由VB完成(编译选项).3.5 软件的 实际问题仓库库存管理系统虽然可以完成基本的 管理功能,但是它还存在着很多方面的 问题有待改进完善.系统不足,系统的 安全性不强等. 总结通过使用VB编程,使人真正体会到了 可视化编程的 优点,自己动手开发小 规模的 应用系

25、统,学会一种规范化的 编程方法,使我加深了 对软件的 理解.学以致用,学用结合,这既是学习理论知识目的 ,也是检验学习的 最好方法.毕业设计是整个教学过程的 最后环节,是学生综合运用所学知识解决实际问题能力的 考查.这次毕业实际不尽使我了 解了 VB在数据库方面编程的 概要,更让我知道了 计算机的 变成秘诀在于严密的 思考与仔细的 推敲,只有这样,才会有一个完善的 软件生成.在此,我能够依据实际情况以及课堂上所学习的 知识,应用到自己的 实际工作,帮助解决工作过程中的 问题,对实施方法程序有深刻理解,在数据库设计方面,编程技术方面有了 一定的 进步.通过这一系列工作使我系统地掌握四年来所学的

26、专业知识,并基本掌握了 开发一个应用软件的 能力.参考文献1 张海藩.软件工程导论.第三版.清华大学出版社,1998年1月2 王珊,萨师煊.数据库系统相对论.第三版.高等教育出版社,2000年2月3 谢金宝,虞琦等.Visual Basic程序设计.上海交通大学出版社,19964 周民光,王复康等.Visual Basic For Windows语言参考详解,北京航空航天大学出版社.1995.125 刘圣才,李春葆.Visual Basic程序设计题典.清华大学出版社,2002年致谢论文完成的 前提是老师给予我的 真诚的 关怀与耐心的 指导,在些表示衷心地感谢.老师认真负责的 工作态度、严谨的

27、 治学风格,使我深受启发;开发的 同时,和同学们之间的 相互探讨也使我获益匪浅.12周的 时间内,我除基本学会数据库软件的 应用和系统开发.更重要的 是在开发系统之外,我还学到了 兢兢业业,奋发向上的 精神,这种精神是我今后人生前进道路上的 一种力量,所以我再次感谢老师和我的 同学们.附录Option ExplicitPrivate rsPro As ADODB.RecordsetPublic strFindPro As StringPrivate Sub 厘米dFind_Click(Index As Integer) Select Case Index Case 0 strFindPro =

28、 DataGrid1.Colu米ns.Ite米(0).Value Case 1 strFindPro = End Select Unload 米eEnd SubPrivate Sub For米_Load() Set rsPro = DEjxc.rsCo米Product If strFindPro = Then rsPro.Filter = p_id Else rsPro.Filter = p_id like * & strFindPro & * End If If rsPro.RecordCount = 0 Then 厘米dFind(0).Enabled = False Else 厘米dFin

29、d(0).Enabled = True End IfEnd SubPrivate Sub For米_Unload(Cancel As Integer) rsPro.Close Set rsPro = NothingEnd SubOption ExplicitPublic LoginSucceeded As BooleanPrivate Sub 厘米dCancel_Click() 设置全局变量为 false 不提示失败的 登录 LoginSucceeded = False 米e.HideEnd SubPrivate Sub 厘米dOK_Click() 检查正确的 密码 If Not IsNull

30、(米e.DCboUserNa米e.SelectedIte米) Then If txtPassword = 米e.DCboUserNa米e.BoundText Then 将代码放在这里传递 成功到 calling 函数 设置全局变量时最容易的 LoginSucceeded = True strCurUser = 米e.DCboUserNa米e.Text 米e.Hide Else 米sgBox 无效的 密码,请重试!, , 登录 txtPassword.SetFocus SendKeys Ho米e+End End If Else 米sgBox 请选择用户名!, , 登录 米e.DCboUserNa

31、米e.SetFocus End IfEnd SubOption ExplicitPublic LoginSucceeded As BooleanPrivate Sub 厘米dCancel_Click() 设置全局变量为 false 不提示失败的 登录 LoginSucceeded = False 米e.HideEnd SubPrivate Sub 厘米dOK_Click() 检查正确的 密码 If Not IsNull(米e.DCboUserNa米e.SelectedIte米) Then If txtPassword = 米e.DCboUserNa米e.BoundText Then 将代码放在

32、这里传递 成功到 calling 函数 设置全局变量时最容易的 LoginSucceeded = True strCurUser = 米e.DCboUserNa米e.Text 米e.Hide Else 米sgBox 无效的 密码,请重试!, , 登录 txtPassword.SetFocus SendKeys Ho米e+End End If Else 米sgBox 请选择用户名!, , 登录 米e.DCboUserNa米e.SetFocus End IfEnd SubPrivate Sub For米_Load() I米age1.Picture = LoadPicture(App.Path &

33、i米agelogo.gif)End SubOption ExplicitPrivate rsSys As ADODB.RecordsetPrivate 厘米Sys As ADODB.Co米米andPrivate Sub 米DIFor米_Load() Di米 strSQL As String strSQL = select offline fro米 r_para米eter Set rsSys = New ADODB.Recordset rsSys.Open strSQL, DEjxc.Conjxc, adOpenDyna米ic, adLockOpti米istic rsSys.米oveFirst

34、If rsSys!offline Then 米e.米nuAct_dj.Enabled = False 米e.米nuSql.Enabled = False 米e.米nuReport.Enabled = False 米e.米nuSys_trans.Enabled = False 米e.米nuSys_start.Enabled = True 米e.米nuSys_begqty.Enabled = True Else 米e.米nuAct_dj.Enabled = True 米e.米nuSql.Enabled = True 米e.米nuReport.Enabled = True 米e.米nuSys_tra

35、ns.Enabled = True 米e.米nuSys_start.Enabled = False 米e.米nuSys_begqty.Enabled = False End If rsSys.Close Set 厘米Sys = New ADODB.Co米米and 厘米Sys.ActiveConnection = DEjxc.Conjxc 厘米Sys.Co米米andType = ad厘米dTextEnd SubPrivate Sub 米DIFor米_QueryUnload(Cancel As Integer, Unload米ode As Integer) Call 米nuExit_Click I

36、f intNu米Windows 0 Then Cancel = True End If Set rsSys = Nothing Set 厘米Sys = NothingEnd SubPrivate Sub 米nuEdit_other_Click() Fr米OtherEdit.ShowEnd SubPrivate Sub 米nuEdit_ps_Click() Fr米PsEdit.ShowEnd SubPrivate Sub 米nuEdit_sales_Click() Fr米SaleEdit.ShowEnd SubPrivate Sub 米nuExit_Click() If intNu米Window

37、s = 0 Then Unload 米e Else 米sgBox 请关闭所有子程序后再关闭该主程序！, vbCritical, 提示 End IfEnd SubPrivate Sub 米nuRec_other_Click() Fr米OtherChk.ShowEnd SubPrivate Sub 米nuRec_ps_Click() Fr米PsChk.ShowEnd SubPrivate Sub 米nuRec_sales_Click() Fr米SaleChk.ShowEnd SubPrivate Sub 米nuReport_DetailUse_Click() Fr米RptDetUse.ShowEn

38、d SubPrivate Sub 米nuReport_米at_Click() Fr米Rpt米at.ShowEnd SubPrivate Sub 米nuReport_TotalUse_Click() Fr米RptTotUse.ShowEnd SubPrivate Sub 米nuReport_TotalYearUse_Click() Fr米RptYearUse.ShowEnd SubPrivate Sub 米nuSet_depart米ent_Click() Fr米SetDep.ShowEnd SubPrivate Sub 米nuSet_e米ployee_Click() Fr米SetE米p.Show

39、End SubPrivate Sub 米nuSet_product_Click() Fr米SetPro.ShowEnd SubPrivate Sub 米nuSet_protype_Click() Fr米SetPrTy.ShowEnd SubPrivate Sub 米nuSet_supplier_Click() Fr米SetSup.ShowEnd SubPrivate Sub 米nuSql_djother_Click() Fr米OtherSql.ShowEnd SubPrivate Sub 米nuSql_djps_Click() Fr米PsSql.ShowEnd SubPrivate Sub 米

40、nuSql_djsales_Click() Fr米SaleSql.ShowEnd SubPrivate Sub 米nuSys_begqty_Click() Fr米Set米att米p.ShowEnd SubPrivate Sub 米nuSys_delete_Click() Di米 intDel As Integer Di米 strSQL As String intDel = 米sgBox(确认要删除所有资料码?, vbInfor米ation + vbYesNo, 删除确认) If intDel = vbYes Then strSQL = delete fro米 depart米ent 厘米Sys.

41、Co米米andText = strSQL 厘米Sys.Execute strSQL = delete fro米 e米ployee 厘米Sys.Co米米andText = strSQL 厘米Sys.Execute strSQL = delete fro米 米at_detail 厘米Sys.Co米米andText = strSQL 厘米Sys.Execute strSQL = delete fro米 米at_head 厘米Sys.Co米米andText = strSQL 厘米Sys.Execute strSQL = select p_id,qty,price into 米at_t米p fro米 米

42、at_head 厘米Sys.Co米米andText = strSQL 厘米Sys.Execute strSQL = drop table 米at_head 厘米Sys.Co米米andText = strSQL 厘米Sys.Execute strSQL = select p_id,qty,price into 米at_head fro米 米at_t米p 厘米Sys.Co米米andText = strSQL 厘米Sys.Execute strSQL = update 米at_head set qty=0,price=0 厘米Sys.Co米米andText = strSQL 厘米Sys.Execut

43、e strSQL = drop table 米at_t米p 厘米Sys.Co米米andText = strSQL 厘米Sys.Execute strSQL = delete fro米 product 厘米Sys.Co米米andText = strSQL 厘米Sys.Execute strSQL = delete fro米 product_type 厘米Sys.Co米米andText = strSQL 厘米Sys.Execute strSQL = delete fro米 supplier 厘米Sys.Co米米andText = strSQL 厘米Sys.Execute strSQL = dele

44、te fro米 order_detail_a 厘米Sys.Co米米andText = strSQL 厘米Sys.Execute strSQL = delete fro米 order_detail_b 厘米Sys.Co米米andText = strSQL 厘米Sys.Execute strSQL = delete fro米 ps_head_a 厘米Sys.Co米米andText = strSQL 厘米Sys.Execute strSQL = delete fro米 ps_head_b 厘米Sys.Co米米andText = strSQL 厘米Sys.Execute strSQL = delete

45、 fro米 other_head_a 厘米Sys.Co米米andText = strSQL 厘米Sys.Execute strSQL = delete fro米 other_head_b 厘米Sys.Co米米andText = strSQL 厘米Sys.Execute strSQL = delete fro米 sale_detail_a 厘米Sys.Co米米andText = strSQL 厘米Sys.Execute strSQL = delete fro米 sale_detail_b 厘米Sys.Co米米andText = strSQL 厘米Sys.Execute strSQL = dele

46、te fro米 sale_head_a 厘米Sys.Co米米andText = strSQL 厘米Sys.Execute strSQL = delete fro米 sale_head_b 厘米Sys.Co米米andText = strSQL 厘米Sys.Execute strSQL = update r_para米eter set offline=true,psnu米ber=0 厘米Sys.Co米米andText = strSQL 厘米Sys.Execute 米sgBox 资料删除完毕!, vbInfor米ation, 资料删除 End If 米e.米nuAct_dj.Enabled = Fa

47、lse 米e.米nuSql.Enabled = False 米e.米nuReport.Enabled = False 米e.米nuSys_trans.Enabled = False 米e.米nuSys_start.Enabled = True 米e.米nuSys_begqty.Enabled = TrueEnd SubPrivate Sub 米nuSys_start_Click() Di米 strBeg As String Di米 strYear, str米onth As String Di米 strSQL As String strBeg = InputBox(请输入系统启用时间, 系统启用, CStr(Date) If IsDate(strBeg) Then strYear = Right(CStr(Year(CDate(strBeg), 2) str米onth = For米at(CStr(米onth(CDate(strBeg), 0号) strSQL = alter table 米at_head add colu米n qty & strYear & str米onth _ & single 厘米Sys.Co米米andText = strSQL 厘米Sys.Execute strSQL