《毕业设计（论文）-现代物流管理策略.doc》由会员分享，可在线阅读，更多相关《毕业设计（论文）-现代物流管理策略.doc（51页珍藏版）》请在三一文库上搜索。
1、武汉科技大学中南分校2008届毕业设计(论文)现代物流管理策略XXX摘要本设计论文的内容，围绕物流管理系统展开。物流管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强.数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。 经过分析如此情况,我们使用美国Microsoft公司的Visual Basic前台开发工具,使用ACCESS2000作为后台数据库,利用它们在开发数据库应用程序方面的众多优越性,尤其是VB在应用程序的客户端应用开发方面提供了大量的用于数据库应用开发的各种组件，大大提高
2、开发的效率。 首先在系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进, 直到形成在用户要求的时间内建立系满意的可行系统。关键词：物流管理系统；VB；数据库；数据访问对象(ADO)；AbstractIn this paper,Logistics Management Of Mall System has been discussed. Logistics Management Of Mall System is a typical application of managing information system (MIS),which mainly includes build
3、ing up data-base of back-end and developing the application interface of front-end. The former required consistency and integrality and security of data. The later should make the application powerful and easily used.By analysis of this situation, we use Microsoft Visual Basic as front-end and Micro
4、soft ACCESS2000 as database of back-end. There are many advantages in developing database applications, especially in the client application used VB. It provides lots of VCL to database application development. It enhances development efficiently. Firstly system application prototype is built.The de
5、mand is repeated in the original system. It can give you a short-cut to build up a prototype of system application. The prototype could be modified and developed till users are satisfied.Keywords：Logistics Management Of Mall System; VB; database; ADO; 目录前言1第一章 开发背景1第二章 概述42.1 开发工具介绍42.1.1 visual bas
6、ic 的发展历史42.1.2 VB的功能特点42.1.3 Access介绍4第三章 需求分析53.1需求调查53.2物流管理系统层次图6第四章 数据库设计64.1数据库选择64.2概念模型64.3数据库的实现8第五章 总体设计95.1模块的设计10第六章 详细设计126.1设计的意义126.2模块详细设计13第七章 测试417.1软件测试的重要性417.2测试417.2.1 MDI主窗体模块测试41第八章 现状分析及建议428.1 我国物流管理现状428.2 提出建议42致谢44参考文献4547前言物流概念的提出是人的能力增强所导致的必然结果。过去在工业化过程中，由于能力所限，人们的注意力放在
7、厂区范围内，至于原料和产品在厂外怎样流动，考虑的相对少一些，只要成本低就好。随着人的能力的增强和社会化、专业化大生产体系的建立，人们开始将一个区域，甚至整个世界、整个地球看做一个大工厂、一个整体来研究产品生产流程的合理性和优化问题，从过去把重点放在生产工厂的合理建设转移到把重点放在物资流通全过程的合理设计上，仅把工厂看做物资流动过程中的一个驻留点。狭义地讲，如果认为运输组织意味着运输过程优化，侧重于合理使用运输工具，那么物流组织则意味着流动过程的优化，侧重于物资流动方式的合理性。由运输向物流的转变相当于把运输工具与运输对象的位置做了对调。再进一步讲，这种转变把生产与流通运输这一对对立统一的事物
8、的位置也做了调整，过去以研究生产为主，运输流动为辅，现在以流通运输为主，生产为辅。这就是物流概念的新意所在。位置的调换会使人产生不同的感觉，这样做有时有利于启发新思路，有利于解决问题和提高管理水平。这也说明并非只有新的事物、新的技术能给人们带来效益，一个理念、观念或思路的改变也会给人们带来新意和效益。它遵循的基本规律是：理念改变概念改变业务改变效果改变。抓住物流概念的实质才能纲举目张、有的放矢，做到转变服务意识，从坐等客户上门到主动上门为客户服务，并提供多样化的、使客户满意的服务。也正因为服务质量的改善，扩大了服务范围，使许多物流经营者获得显著效益，与过去的运输过剩和不景气相比，运输市场出现了
9、蓬勃发展的势头。第一章 开发背景根据所掌握的资料，我们对目前国内外的各种物流配送中心的情况进行了分析，结论是：它们大都跨越了简单送货上门的阶段，基本上属于真正意义上的物流配送，但在层次上仍是传统意义上的物流配送，即处于物流配送初级阶段，尚不具备或基本不具备信息化、现代化、社会化的新型物流配送的特征，因此在经营中存在着传统物流配送无法克服的种种弊端和问题。我国目前的商品经济比较发达，但物流配送明显滞后。长期以来，商流与物流分割，严重影响了商品经营和规模效益。市场经济需要更高程度的组织化、规模化和系统化，迫切需要尽快加强建设具有信息功能的物流配送中心。 科学技术日新月异的进步，让人类生活发生了巨大
10、的变化，计算机技术的飞速发展，使各行各业在计算机技术应用方面得到了广泛的普及和使用。信息化时代的到来成为不可抗拒的潮流，人类文明正在进入一个崭新的时代。物流管理系统是使用Visual Basic 6.0开发的面向对象的数据库信息管理系统，该系统主要用于公司或单位对物流的日常管理。该系统界面友好，操作简单，易学易用，从总体方案上力求达到该软件所需的目标要求。国家对企业信息化的重视、电子政务的推广、海关的改革、物流业务自身的迅速发展，都充当了物流信息化进程中强有力的助推器，而IT业对于物流的关注则成为了直接的动力。整个物流产业对于信息技术的需求分为三类，应该提倡效益为本、需求为先、循序渐进的信息化
11、实施之路。 1.基础信息化需求仍是主流 第一类是基础信息化。由于信息技术的发展和普及，特别是近几年，互联网i场经济发展初期，企业和企业之间是完全竞争的，只有到了成熟的产品链、价值链、服务链形成以后，企业和企业之间才有一种依存和战略合作的关系，它们在业务上才会产生协同的要求。一旦建立这种要求，企业之间就需要用一套信息系统把这一要求固定下来，来执行业务上的协同操作。例如，在上下游的企业之间，库存信息对彼此是公开的，采购不再是由一次次的招标来完成，而是变成自动补货。这种情况是建立在企业经营链基础之上的一种新的业务模式，而供应链管理的软件，正是用来解决这些问题的有效工具。2. 优化带来管理效益的提高
12、优化主要是在两个层面上，一个是流程的优化，会涉及到整个的流程再造，这就需要用数据来分析，所以一定要有第一阶段的基础。第二个方面的优化是日常操作的优化，比如说每天都有的库存的改变、运输的调度，同样也需要信息系统的支持。做好优化的工作，将能够大大提高物流管理的效率。流程的改造、日常操作的优化都会带来看得见的效益。所以，这就比仅仅依赖于获得信息，还是人工决策，要上一个层次，等于是机器用数据来进行优化的决策。3.供应链管理打造共赢模式 第三层次，也是最高层次的需求，就是供应链管理的工具。供应链这个概念包含的内容很多，不仅仅是物流，还包括其他方面的内容。供应链是用来调节企业和企业之间的协作关系、在市场经
13、济成熟到一定程度之后出现的一种概念。在市场经济发展初期，企业和企业之间是完全竞争的，只有到了成熟的产品链、价值链、服务链形成以后，企业和企业之间才有一种依存和战略合作的关系，它们在业务上才会产生协同的要求。一旦建立这种要求，企业之间就需要用一套信息系统把这一要求固定下来，来执行业务上的协同操作。例如，在上下游的企业之间，库存信息对彼此是公开的，采购不再是由一次次的招标来完成，而是变成自动补货。这种情况是建立在企业经营链基础之上的一种新的业务模式，而供应链管理的软件，正是用来解决这些问题的有效工具 4.立足实际力争三步并作一步走 我国物流信息化目前的需求仍是以底层的基础信息化为主。现有的物流管理
14、软件大多仅仅是反映信息，只有少数很成熟的软件对流程和操作的优化具备很强的功能。 将物流信息化的需求分为三层，有助于了解发展的趋势，了解自己的目标。尽管供应链管理在我国现在还没有太多成功案例，但是并不代表没有这方面的发展条件。只要企业之间不断加强合作，建立战略合作伙伴关系，进行业务上的协同，必将促进供应链、价值链的形成。所以，只要充分利用资源，我国的物流信息化实现三步并作一步走，是完全有可能的。但是，实现这一目标，就要求企业必须给自己定好位，绝对不能从观念出发，不能脱离实际，每一层的需求都需要一定的基础、一定的管理水准、一定的物质和技术条件。从这个意义上讲，只有最合适企业的系统才可能取得成功。第
15、二章 概述2.1 开发工具介绍2.1.1 visual basic 的发展历史BASIC是Beginners All-purpose symbolic instruction Code（初学者通i的程序代码就是事件过程。 事件过程的编写格式:一个对象可以响应一个或多个事件，因此可以使用一个和多个事件过程对用户或系统的事件做出响应。程序员只需编写必须响应的事件过程，而其它无用的事件过程则不必编写。事件过程的一般编写格式为：SUB 对象名_事件名（ ）程序代码End Sub2.1.2 VB的功能特点 具有面向对象的可视化设计工具 事件驱动的编程机制 提供了易学易用的应用程序集成开发环境 结构化的程
16、序设计语言 强大的数据库功能 Active技术 网络功能 多个应用程序向导 完备的HELP联机帮助功能 2.1.3 Access介绍Access是Microsoft Office办公套件中一个极为重要的组成部分。刚开始时微软公司是将Access单独作为一个产品进行销售的，后来微软发现如果将Access捆绑在OFFICE中一起发售，将带来更加可观的利润，于是第一次将Access捆绑到OFFICE97中，成为OFFICE套件中的一个重要成员。现在它已经成为Office办公套件中不可缺少的部件了。自从1992年开始销售以来，Access 已经卖出了超过6000万份，现在它已经成为世界上最流行的桌面数
17、据库管理系统。后来微软公司通过大量地改进，将Access的新版本功能变得更加强大。不管是处理公司的客户订单数据；管理自己的个人通讯录；还是大量科研数据的记录和处理，人们都可以利用它来解决大量数据的管理工作。Access做为一个数据库管理系统，它被集成在Microsoft Office中。Access数据库处理的基本结构，采取关系型数据库模式。与其他的数据库系统相比，Access更加简单易学，一个普通的计算机用户可以很快地掌握它。Access 2000的功能十分强大，利用它可以方便地实现对信息保存、维护、查询、统计、打印、交流、发布，而且它可以十分方便地与Office其他组件交流数据，这些功能对
18、一个一般用户而言已经足够了。第三章 需求分析3.1需求调查我国物流信息化目前的需求仍是以底层的基础信息化为主。现有的物流管理软件大多仅仅是反映信息，只有少数很成熟的软件对流程和操作的优化具备很强的功能。 将物流信息化的需求分为三层，有助于了解发展的趋势，了解自己的目标。尽管供应链管理在我国现在还没有太多成功案例，但是并不代表没有这方面的发展条件。只要企业之间不断加强合作，建立战略合作伙伴关系，进行业务上的协同，必将促进供应链、价值链的形成。所以，只要充分利用资源，我国的物流信息化实现三步并作一步走，是完全有可能的。但是，实现这一目标，就要求企业必须给自己定好位，绝对不能从观念出发，不能脱离实际
19、，每一层的需求都需要一定的基础、一定的管理水准、一定的物质和技术条件。从这个意义上讲，只有最合适企业的系统才可能取得成功。 3.2物流管理系统层次图第四章 数据库设计4.1数据库选择凭证管理系统面向的对象是物流的各个功能，为了需要安全、方便的本地数据库。因此，我采用Microsoft公司的Access文件数据库来存放数据。4.2概念模型软件系统本质上是信息处理系统，因此在软件系统的整个开发过程中都必考虑到两方面的问题“数据”及对数据的“处理”。在需求分析阶段即要分析用户的数据要求又要分析用户的处理要求。为了把用户的数据要求清晰明确地表达出来，现采用最常用的表示概念性数据模型的方法(实体-联系方
20、法)。由此方法作出的E-R模型如下：货品管理修改删除货品添加货品图4-2-1 货品管理信息ER图删除物流信息添加物流信息物流管理修改物流信息 图4-2-2 物流管理工ER图删除库内货物信息添加入库信息仓库管理修改库内货品信息图4-2-3 仓库管理信息ER图4.3数据库的实现启动Access2000 创建一个新的数据库。命名为dat.mdb,保存在要存放这个系统的所有工程的文件中。 使用设计器创建这个系统需要的所有表格.如表1货品添加表格、表2货品删除表格、表3货品盘点表格所示。 1. 货品添加表格：FrmBaleAdd.frm控件名称说明FrmBaleAdd货品添加窗体FraMain主框架Tx
21、tBaleID货品ID信息文本框TxtBaleName货品名称信息文本框TxtBlaeFrom货品产地信息文本框TxtBaleSpec货品规格信息文本框TxtBalePrice货品价格信息文本框TxtBaleMemeo货品备注信息文本框CmdAddNew添加按钮CmdConfirm确定操作按钮CmdCancel撤消操作按钮CmdRefresh刷新按钮CmdExit退出按钮AdoMain主ADO控件AdoTest测试ADO控件2.货品删除表格：FrmBaleDel.frm:控件名称说明FrmBaleDel货品删除窗体FraMain主框架TxtBaleID货品ID信息文本框TxtBaleName货
22、品名称信息文本框TxtBlaeFrom货品产地信息文本框TxtBaleSpec货品规格信息文本框TxtBalePrice货品价格信息文本框TxtBaleMemeo货品备注信息文本框CmdDel删除按钮CmdConfirm确定操作按钮CmdCancel撤消操作按钮CmdRefresh刷新按钮CmdExit退出按钮AdoMain主ADO控件AdoTest测试ADO控件3.货品盘点表格：FrmBaleUpdate.frm控件名称说明FrmBaleUpdate货品信息更新窗体FraMain主框架TxtBaleID货品ID信息文本框TxtBaleName货品名称信息文本框TxtBlaeFrom货品产地信
23、息文本框TxtBaleSpec货品规格信息文本框TxtBalePrice货品价格信息文本框TxtBaleMemeo货品备注信息文本框CmdUpdate修改资料按钮CmdConfirm确定操作按钮CmdCancel撤消操作按钮CmdRefresh刷新按钮CmdExit退出按钮AdoMain主ADO控件AdoTest测试ADO控件第五章 总体设计对第三章需求分析所得出的系统流程图，具体功能说明进行归类总结，并依据模块的特征以及独立性原则对系统进行分析后，不难得出系统的模块结构组成，以及各个模块之间的关系。5.1模块的设计用模块化原理进行软件设计时；为了得到一组最好的模块集合，应该根据信息隐蔽原理对
24、软件进行分解。也就是应该这样来设计和确定模块，使得一个模块内包含的信息(数据和过程)对手不需要这些信息的模块是不能访问的。模块独立的概念，是模块化、抽象和信息隐蔽的直接结果。模块独立是指该模块能完成一个相对独立的特定子功能，并且与其他模块之间的接口很简单。模块独立有两个优势：一是具有独立模块的软件比较容易开发出来，这是因为能够分割功能，接口可以简化，并且有利于团队合作；二是独立的模块比较容易测试和维护，这是因为错误传播范围小。所以，提高模块独立性是设计模块的根本目标。本系统为数据库应用程序，主要是对数据库中记录的增加、修改、删除等操作，模块内部的各个组成部分的处理动作全都为数据库的操作功能存在
25、。因此，系统中模块的聚合种类应为功能聚合。功能聚合模块具有定义很清楚的界面，它可以单独地被理解，进一步设计，然后再同其他模块连接起来。从模块特征以及模块独立性角度出发，得出以下结论：系统中模块的独立性要高，即耦合程度要低；模块的聚合程度要高，即尽量采用功能聚合。运行Visual Basic后，选择文件 “新建工程”菜单。然后从工程模块中选择“标准EXE”项。单击确定按钮。Visual Basic就会自动生成一个窗体，这个窗体的属性采用的都是默认的设置。在这个实例中，先册初这个窗体，然后选择“文件”在选“保存工程”菜单。在出现的“文件另存为”对话框中输入这个工程项目的名称:物流_MIS.并且选择
26、这个工程的目录，单击“保存”按钮，保存工程。为了提高代码的效率方便维护，在VB中可以用公共模块来存放工程经常使用的函数，过程和全局变量等。在这个系统中，每个功能模块都要使用数据库，因此可以使用一个公用的数据库操作函数，来执行一系列的SQL语句。在项目资源管理器中为这个工程添加一个模块，保存为Modulel.bas.首先添加几个变量的定义Public gllserName As String保存用户名称Public flag As Integer添加和修改的标志Public gSQL As Integer保存SQL语句Public kqspt As String保存查询考勤结果SQL语句Publ
27、ic kqspl2 As Sting保存查询其他考勤结果SQL语句Public ArecordID As Integer保存上下班记录编号Public ArecordID As Integer保存请假记录编号Public OrecordID As Integer保存加班记录编号Public ErecordID As Integer保存出差记录编号Public iflag As Integer数据库是否打开标志添加执行SQL语句的函数Public Function Transact SQL (By Val Sql As String)As ADODB . RecordsetDim Con As
28、ADODB.ConnectionDim con As ADODB.RecordsetDim rs As ADODB.ReordsetDim strConnection As StringDim strArray() As StringSet con=Nem ADODB.Connection 创建连接Set rs=New ADODB.Recordset 创建记录集On Error GoTo TransactSQL_ErrorStrConnection=”Provider=Microsoft.jet.oledb.4.0;Data Source=”& App.path&”person.mdb”Str
29、Array=Split(sql)Con.Open strConnection 打开连接If strComp(Ucase$(strArray(0),”select”,vbTextCompare)=0 The rs.Open Trim$(sql),.con.adOpenKeyset.sdLock()ptimistic Set TransctSQL=rs 返回记录集 Iflag=1Else con.Execute sql 执行命令 iflag=1 End IfTransactSQL-Esit: Set rs=Nothing Set con=Nothing Exit FunctionTransactS
30、QL-Error: MsgBox”查询错误:& Err.Description Iflag=2Resume TransactSQL-ExitEnd FunctionPublic Sub TabToEnter(Key As Integer) If Key=13 Then 判断是否为回车键 Sendkeys”TAB” 转换为Tab键 End IfEnd SubSub main() Dim fLogin As New frmLogin FLogin.Show vbModual 显示窗体End Sub第六章 详细设计6.1设计的意义软件详细设计是指对软件模块的过程设计。其主要任务是对总体设计所产生的功
31、能模块进行过程描述，开发一个可以直接转换成程序语言代码的软件表示。这种表示应当是无歧义性并且是高度结构化的。详细设计阶段不是具体地编写程序，而是设计出程序的“蓝图”，程序员再根据这些蓝图进行编码。因此，详细设计的结果基本上决定了最终的程序代码的质量。衡量程序的质量不仅要看它在逻辑上是否正确地描述每个模块的功能，更重要地是要看它是否容易阅读、测试和维护。因此，要求详细设计表示的软件过程应具有高度的结构化构造。所以结构化程序设计是完成上述任务的关键技术。 6.2模块详细设计A. 货品添加窗体：FrmBaleAdd.frm 该窗体在用户登陆时列出所有货品清单，但用户选择添加货品记录后，会激活资料输入
32、功能，若用户输入完成后点击确认后，会自动检测是否在数据库中有没有重复编号的数据。若有，拒绝添加，代码如下：Private Sub CmdAddNew_Click()/点击添加 CmdAddNew.Enabled = False CmdRefresh.Enabled = False CmdConfirm.Enabled = True CmdCancel.Enabled = True ActiveTextBox AdoMain.Recordset.AddNewEnd SubPrivate Sub CmdConfirm_Click()/确认添加 If TxtBaleID.Text = Or TxtB
33、aleName.Text = Then aa = MsgBox(请填写货品编号和名称, vbOKOnly, ) Else 检查是否有重复的货品ID AdoTest.RecordSource = SELECT * FROM Bale WHERE BaleID= & TxtBaleID.Text & AdoTest.Refresh If Not AdoTest.Recordset.EOF Then aa = MsgBox(相同货品编号已经存在，请重新输入！, vbOKOnly, ) Else AdoMain.Recordset.Update CmdAddNew.Enabled = True Cmd
34、Refresh.Enabled = True CmdConfirm.Enabled = False CmdCancel.Enabled = False AdoMain.RecordSource = SELECT * FROM Bale AdoMain.Recordset.Requery AdoMain.Refresh End If End IfEnd SubPrivate Sub CmdCancel_Click()/撤消添加 AdoMain.Recordset.Cancel AdoMain.Refresh CmdAddNew.Enabled = True CmdRefresh.Enabled
35、= True CmdConfirm.Enabled = False CmdCancel.Enabled = False UnActiveTextBoxEnd SubB. 货品删除窗体：FrmBaleDel.frm 在该窗体中当用户点击了删除按钮会提示是否真正要删除，如果用户确认，则删除当前记录，否则撤消操作。具体代码如下：Private Sub Cmddel_Click() CmdDel.Enabled = False CmdRefresh.Enabled = False CmdConfirm.Enabled = True CmdCancel.Enabled = True DaGrBale.E
36、nabled = FalseEnd SubPrivate Sub CmdCancel_Click() AdoMain.Recordset.Cancel AdoMain.Refresh CmdDel.Enabled = True CmdRefresh.Enabled = True CmdConfirm.Enabled = False CmdCancel.Enabled = False DaGrBale.Enabled = TrueEnd SubPrivate Sub CmdConfirm_Click() AdoMain.Recordset.Delete AdoMain.RecordSource
37、= SELECT * FROM Bale AdoMain.Recordset.Requery AdoMain.Refresh CmdDel.Enabled = True CmdRefresh.Enabled = True CmdConfirm.Enabled = False CmdCancel.Enabled = False DaGrBale.Enabled = TrueEnd SubC. 货品盘点窗体：FrmBaleUpdate.frm 在该窗体中当用户点击了更新按钮会会激活资料修改功能，若用户输入完成后点击确认后，会自动检测是否在数据库中有没有重复编号的数据。若有，拒绝添加，具体代码如下：
38、Private Sub CmdCancel_Click()/撤消更新 AdoMain.Recordset.Cancel AdoMain.Refresh CmdUpdate.Enabled = True CmdRefresh.Enabled = True CmdConfirm.Enabled = False CmdCancel.Enabled = False UnActiveTextBoxEnd SubPrivate Sub CmdConfirm_Click()/确认更新 If TxtBaleID.Text = Or TxtBaleName.Text = Then aa = MsgBox(请填写
39、货品编号和名称, vbOKOnly, ) Else 检查是否有重复的货品ID AdoTest.RecordSource = SELECT * FROM Bale WHERE BaleID= & TxtBaleID.Text & AdoTest.Refresh If Not AdoTest.Recordset.EOF And p_BaleID TxtBaleID.Text Then aa = MsgBox(相同货品编号已经存在，请重新输入！, vbOKOnly, ) Else AdoMain.Recordset.Update CmdUpdate.Enabled = True CmdRefresh
40、.Enabled = True CmdConfirm.Enabled = False CmdCancel.Enabled = False AdoMain.RecordSource = SELECT * FROM Bale AdoMain.Recordset.Requery AdoMain.Refresh UnActiveTextBox End If End IfEnd SubPrivate Sub CmdUpdate_Click()/点击更新 CmdUpdate.Enabled = False CmdRefresh.Enabled = False CmdConfirm.Enabled = Tr
41、ue CmdCancel.Enabled = True p_BaleID = TxtBaleID.Text ActiveTextBoxEnd SubD. 主MDI窗体：MDIFrmMain.frm 窗体控件： 该窗体在系统启动时作为主要的外边界，基于MDI设计，设置各种菜单于其之上，不同的用户登陆会显示不同的菜单形式。 窗体代码：Private Sub M_About_Click()/关于菜单单击事件 FrmAbout.ShowEnd SubPrivate Sub M_BaleAdd_Click()/货品资料添加菜单单击事件 FrmLogin.Hide FrmBaleAdd.ShowEnd S
42、ubPrivate Sub M_BalecMove_Click() /货品流动菜单单击事件 FrmLogin.Hide FrmBaleMove.ShowEnd SubPrivate Sub M_BaleUpdate_Click()/货品资料修改菜单单击事件 FrmLogin.Hide FrmBaleUpdate.ShowEnd SubPrivate Sub M_BaleDel_Click()/货品删除菜单单击事件 FrmLogin.Hide FrmBaleDel.ShowEnd SubPrivate Sub M_DepotAdd_Click()/仓库添加菜单单击事件 FrmLogin.Hide FrmDepotAdd.ShowEnd SubPrivate Sub M_DepotDel_Click()/仓库删除菜单单击事件 FrmLogin.Hide FrmDepotDel.ShowEnd SubPrivate Sub M_DepotUpdate_Click()/仓库资料修改菜单单击事件 FrmLogin.Hide FrmDepotUpdate.ShowEnd SubPrivate Sub M_Exit_Click()/退出菜单单击事件 If PubLogin Then