物流信息系统实验报告.docx

实 验 报 告 书

课程名称： 物流信息系统
学生姓名： 学 号：
所在班级： 所在系（部）： 物流工程系
指导教师：
实验学期： 2013 ~ 2014 学年 第 一 学期

山东交通学院 交通与物流工程

一、实验名称
物流信息系统认识上机
二、时间
2013年9月14日
三、地点
交通与物流工程实验中心，机房（6207、6205、6103室）
四、指导教师
刘建磊
五、实验目的
通过一般的物流信息系统软件的实际操作，认识这类软件的常见主要功能，了解物流过程中的库存管理、运输管理、配送管理流程，学会这类软件的基本操作。
六、实验用仪器设备
计算机、相关物流信息系统软件
七、实验内容与实验步骤
1 使用物流管理系统软件，获知其主要功能有：
1部门资料设置：对部门资料进行增加、删除、修改、查询等操作，截图如下：

2车辆调度安排：随时掌握司机以及车辆的动态，对车辆进行合理的安排，截图如下：

3车辆资料设置：将车辆以及司机的资料电子化，方便、快捷的对车辆信息进行及时的更新，来对车辆的信息做到进一步的完善，截图如下：

4密码修改：对密码进行简单的修改工作，截图如下：

5货物托运管理：进行货物托运的各项内容设置，比如对托运的货物进行增减，承运单位的各种信息，以及收货单位的各种信息，截图如下：

除以上功能外，该物流管理系统软件还具有货物验收管理、客户资料设置、司机资料设置等。
使用物流物流管理系统软件，获知其主要功能有：

1物资入库单填写：主要记录物资的编号、数量、名称等项目，截图如下：

2物资出库单填写：主要内容和入库单的大体相同，截图如下：

3用户管理：通过密码设置来进行用户的识别与管理，截图如下：

3 使用钢材行业物流管理软件，获知其主要功能有：
1审核报损出库单：对报损物品进行备注与审核，截图如下：

2查询存款单，截图如下：

一、实验名称
物流信息技术上机
二、时间
2013年9月18日
三、地点
交通与物流工程实验中心，机房（6207、6205、6103室）
四、指导教师
刘建磊
五、实验目的
熟悉VB的系统环境，了解VB程序的编写、保存和编译的方法过程；掌握基本语句的使用；掌握表达式的正确书写方法及函数、运算符的正确使用；掌握逻辑表达式及关系表达式的正确书写形式，掌握IF语句单行和块书写格式及其正确使用。
六、实验用仪器设备
计算机、VisualBasic软件
七、实验内容与实验步骤
1 编一程序，程序运行的初始界面如图所示，当用户在文本框中输入姓名，例如输入“张三”，单击“确定”按钮，则程序的运行情况如图1-2所示，如果单击“结束”按钮，即结束程序运行。

源代码：
Private Sub Command1_Click()
Command2.Enabled = False
Text1.Text = ""
End Sub

Private Sub Command2_Click()
End
End Sub

2 设计一个猜数字游戏软件，点击出题按钮，产生一个10到99的随机数，然后在文本框中由用户输入数字，如果结果不对，应提示是大了，还是小了，否则提示正确。运行界面如图3-1所示。

程序源代码为：
Dim a As Single
Private Sub Command1_Click()
a = Int(Rnd * 90) + 10
End Sub
Private Sub Command2_Click()
Dim b As Single
Dim c As Single
c = a
b = Text1.Text
If c < b Then MsgBox ("您猜的数字大了，加油加油")
If c > b Then MsgBox ("您猜的数字小了，加油加油")
If c = b Then MsgBox ("您猜对了，恭喜恭喜")
Text1.Text = ""
End Sub
Private Sub Command3_Click()
End
End Sub
3 设计一个登陆界面，包含用户名、密码及文本框，确定按钮，退出按钮，并编写代码实现，用户名和密码正确时弹出对话框，提示“欢迎使用该系统”，否则提示“用户名和密码错误，请重新输入”

截图如下：

写入实现上述内容的一段代码:
Dim a As Single
Dim b As Single
Private Sub Command1_Click()
a = "123"
b = "456"
If Text1.Text = a And Text2.Text = b Then
MsgBox ("欢迎使用该系统")
Else
MsgBox ("密码错误，请重新输入")
End If
Text1.Text = ""
Text2.Text = ""
End Sub

一、实验名称
物流信息技术上机
二、时间
2013年10月12日
三、地点
交通与物流工程实验中心，机房（6207、6205室）
四、指导教师
张良智
五、实验目的
掌握For语句的使用,掌握Do…Loop{While|Until}两种形式的使用。掌握如何控制循环条件，防止死循环或不循环。熟练掌握循环条件设置及循环的控制方法。掌握数组的声明、数组元素的引用,掌握静态数组和动态数组的使用差别,应用数组解决与数组有关的常用问题。
六、实验用仪器设备
计算机、VisualBasic软件
七、实验内容与实验步骤
1、编一程序，显示出所有的水仙花数。所谓水仙花数是指：一个三位数的各位数字立方和等于该数字本身。如：153=，因此153是一个水仙花数。
截图如下：

程序源代码为
Private Sub Form_click()
Dim i As Integer

For i = 100 To 999
If (i \ 100) ^ 3 + (i \ 10 Mod 10) ^ 3 + (i Mod 10) ^ 3 = i Then Print i
Next

End Sub

2、设计一个程序，将用户输入的10个数字进行倒置。
截图如下：

程序源代码为：
Private Sub Form_click()
Dim s As String
s = InputBox("请输入要倒置的数字", "测试")
If s <> "" Then
s = StrReverse(s)
MsgBox s
End If
End Sub
3、设计一个程序，定义一个5×5的二维数组，随机存放10-60之间的整数，输出内容如下：
1）按矩阵形式输出所有数组元素。
2）在每行结尾输出各行元素之和。
3）在每列的下面输出主对角线上的元素。
截图如下：

程序源代码为：
Private Sub Form_click()
Dim I As Integer, J As Integer
Dim IntSumH As Integer
Dim IntSj(1 To 5, 1 To 5) As Integer
Randomize
For I = 1 To 5
IntSumH = 0
Print "|";
For J = 1 To 5
IntSj(I, J) = Int(Rnd() * 51 + 10)
IntSumH = IntSumH + IntSj(I, J)
Print IntSj(I, J);
Next J
Print "|";
Print IntSumH
Next I

For I = 1 To 5
Print "－－";
Next I
Print
Print " ";
For I = 1 To 5
Print IntSj(I, I);
Next I
Print
Print " ";
For I = 1 To 5
Print IntSj(6 - I, I);
Next I
End Sub

一、实验名称
数据库操作上机
二、时间
2013年10月16日
三、地点
交通与物流工程实验中心，机房（6207、6205室）
四、指导教师
张良智
五、实验目的
理解关系数据库的基本概念，掌握Access数据管理系统的基本操作。练习建立数据表，熟悉各数据类型的内容。
六、实验用仪器设备
计算机、ACCESS软件
七、实验内容与实验步骤
1 ACCESS数据库软件的主要功能有：
（1） 新建数据库，截图如下：

图1 供应商表设计视图

图2 货物表设计视图

图3 货物出库表设计视图

图4 货物入库表设计视图

图5 客户表设计视图

图6 运货商设计视图

图7 货物表数据视图

图8 货物出库表数据视图

图9 货物入库表数据视图

一、实验名称
数据库操作上机
二、时间
2013年10月30日
三、地点
交通与物流工程实验中心，机房（6207、6205室）
四、指导教师
张良智
五、实验目的
通过在VB和ACCESS的交互操作，练习高级语言操作数据库的多种方法，重点掌握使用DATA控件、ADODC控件和DATAGRID控件、数据窗体设计器三种方法连接数据库，并了解使用ADO对象编写代码连接数据的方法。
六、实验用仪器设备
计算机、ACCESS软件、VisualBasic软件
七、实验内容与实验步骤
1、使用DATA控件连接数据库
在硬盘的用户盘上建立一个用户目录（如E:\WORK），用于保存所有实验文件。启动ACCESS，找到数据库“仓储管理信息系统”,确认有货物表，并已经录入了多条数据。将“仓储管理信息系统”数据库打开，转化97格式的数据库，取名“仓储管理信息系统-97”，复制到用户目录下。
启动VB，在窗体上加入DATA控件data1，文本框控件text1，保存文件和工程到用户目录下。
设置DATA控件的databasename属性为“仓储管理信息系统97”，设置DATA控件的Recordsource属性为货物表。设置文本框控件的datasource属性为data1,设置文本框控件的datafield属性为货物名称。
运行程序，查看结果。修改上述文本框控件的datafield属性，查看结果。添加其他文本框控件，设置属性，显示更多的货物表内容。
显示多个货物表信息的界面截屏如下：

图10 货物出库查询
2、使用ADODC控件连接数据库
在硬盘的用户盘上建立一个用户目录（如E:\WORK），用于保存所有实验文件。启动ACCESS，找到数据库“仓储管理信息系统”,确认有货物表，并已经录入了多条数据。复制到用户目录下。
启动VB,通过菜单 工程—部件—控件添加控件Microsoft ADO DATA CONTROL 6.0 和Microsoft DATAgrid CONTROL 6.0。通过工具箱加两个控件到窗体上。
设置ADODC的属性，生成—提供程序—Microsoft JET 4.0 OLE DB；连接—WLGL—测试连接成功；记录源—命令类型：2—表名称：货物表。设置datagrid控件属性datasource为ADODC1.
运行程序，显示货物表全部内容的界面如下：

图11 物资查询

3、使用数据窗体设计器操作数据库
在硬盘的用户盘上建立一个用户目录（如E:\WORK），用于保存所有实验文件。启动ACCESS，找到数据库“仓储管理信息系统”,确认有货物表，并已经录入了多条数据。将“仓储管理信息系统”数据库打开，转化97格式的数据库，取名“仓储管理信息系统97”，复制到用户目录下。
启动VB,通过菜单 外接程序—可视化数据管理器，在visdata界面上文件--打开数据库—Microsoft ACCESS- “仓储管理信息系统97”,实用程序--数据窗体设计器—窗体名称:huowu—记录源：货物表—添加使用的多个字段到右侧—生成窗体—关闭。
对自动生成的窗体，重新排列位置、设置字体大小，颜色，控件长度等，调整界面美观大方，不留空白，不显拥挤。
运行程序，得到操作数据库的界面设计如下：

图12 客户管理表

一、实验名称
物流信息系统开发上机
二、时间
2013年11月13日
三、地点
交通与物流工程实验中心，机房（6207、6205室）
四、指导教师
张良智
五、实验目的
通过编制系统可行性分析报告了解物流信息系统可行性分析的内容，通过系统业务流程图的绘制，熟悉系统业务过程，学会绘制业务流程图；通过界面设计熟练输入设计、输出设计的方法，掌握基本的界面设计方法。
六、实验用仪器设备
计算机、ACCESS、WORD、VB、DiagramDesigner软件
七、实验内容与实验步骤
1 系统可行性分析
（1）方案的可行性
本系统方案是适应现代仓储业高效仓储化作业而设计的，且系统界面友好， 系统功能比较简单，任何人都可以很快掌握操作原理并使用，不存在太大难度。
（2）技术的可行性
系统的总体架构将采用三层架构模型，数据库采用微软的Access，其工作稳定，功能强大，资源耗费较少，所以能够充分满足目前的需要。采用VB语言进行编程。VB是安全的、稳定的、简单的面向对象的编程语言。因此，开发本系统在技术上是可行的。
（3）经济的可行性 
由于本系统的开发以课程设计为依托，参与人员的目的以学习为主，投入成本比较小。本系统比较简单且只在本机使用，暂不考虑网络，因而开发费用小。同时无纸化办公可以节省资源，减少后期资源浪费。因此，开发本系统在经济上是可行的。
（4）社会的可行性
在社会生产飞速发展的今天，物流己经成为国民经济的支柱，尤其是仓储管理，信息化是发展物流、提高效率的关键。仓储管理系统数据逻辑设计规范，系统功能健全，数据标准化，可以满足企业物流仓储业务的实际需要，提高仓储工作的效率。这些需求成为发展物流的关键因素。因此，本系统在社会上具有可行性。
2.业务流程图

图13 入库作业流程图

图14 出库作业流程图

图15 盘点作业流程图

3．界面设计截图如下：

图16 用户登录界面

图17 仓储管理系统主界面

图18 客户管理界面

图19 供应商查询界面

图20 供应商管理界面

编号：
时间：2021年x月x日

书山有路勤为径，学海无涯苦作舟
页码：第8页 共35页

一、实验名称
物流信息系统开发上机
二、时间
2013年11月28日
三、地点
交通与物流工程实验中心，机房（6207、6205室）
四、指导教师
张良智
五、实验目的
通过系统分析（含业务流程分析和数据流程分析）、系统设计（含数据库设计、界面设计）、系统实施等环节，让学生全面掌握物流信息系统开发的全部内容，并初步掌握一些关键技术，了解系统开发的整体流程。
六、实验用仪器设备
计算机、ACCESS、WORD、VB、DiagramDesigner软件
七、实验内容与实验步骤
（一）系统分析
采购入库时由仓储部门开出会验收通知单，交相关检验人员进行检验（验收标准由使用部门即生产科给定，在本系统中不进行管理），开出验收单，如果验收合格，则进行移仓，并记入仓库台帐，然后财务根据具体情况进行付款操作，当然付款作业并不包括在本仓储管理系统内，本系统仅仅在此预留与财务系统的接口而已；如果验收不合格，则视具体情况进行处理，根据需要进行退货作业，在此本系统只负责退货单的维护。
领料出库有多种形式，生产领料和其他领料如设备维修领料等的领料作业流程和领料单都相同。领料出库时，由相关检验人员查可用库存量，如果领料量小于可用库存量则进行发料，从而入仓库台账；如果领料单不小于库存量则重新填写领料单并且填写请购单。
（二）系统设计
1.物理配置方案设计
随着信息技术的飞速发展，各种计算机软、硬件产品竞相投向市场。多种多样的计算机技术产品为信息系统的建设提供了极大的灵活性，其性价比也是五年前甚至是半年前所无法比拟的，使我们可以根据应用的需要灵活选用不同生产者的性能各异的软、硬件产品。
该系统采用Client/Server、Browser/Server结构，采用了最先进的三层结构设计，使应用层和数据库逻辑分离，进而使核心数据库更安全，升级和扩展可不受原系统的局限。服务器采用Windows2000 Server操作系统，数据库是SQL Server2000，中间层服务器和客户端开发语言为VB6.0。
2.系统设计原则
系统设计遵循的原则：（1）系统的标准化和规范化，系统的标准化和规范化是信息系统建设基本而又关键的一步，要实现信息通讯与共享，必须规范信息技术标准。（2）系统的实用性、稳定和可靠性，系统建设要以满足工作的业务需求为首要目标，建设方案以实际可接受能力为尺度，避免盲目追求新技术。系统中的软硬件及信息资源要满足可靠性设计要求，系统必须可靠地长期安全运行，即系统的设计必须在成本可以接受的条件下，从系统结构、设计方案、设备选型、厂商的技术服务与维护响应能力、备件供应能力等方面考虑，使得系统故障发生的可能性尽可能少，对各种可能出现的紧急情况有应急的工作方案和对策。（3）系统的安全性。遵循有关信息安全标准，系统具有很强的安全防卫机制，应提供多方式、多层次、多渠道的安全保密措施，防止各种形式与途径的非法侵入和机密信息泄露；同时要有备份机制，保证客户信息的安全。（4）系统的灵活性和可扩充性。计算机技术发展迅速，日新月异，系统的设计要保证软件兼容的情况下，利用最小代价，使网络系统结构平滑过渡到新的网络结构体系，可以灵活扩充。系统能有较强的应变能力，实现程序与处理数据分离，处理数据的变化不需要修改应用程序软件，如表格、数据结构的定义，既满足上级的要求，又满足用户自己的特殊需要，用户可以灵活定义和变化。
3.网络结构
网络主要由企业内部网和信息发布系统两部分组成。根据企业客户信息管理系统的需求，在网络系统的设计中，采用目前先进成熟的快速以太网技术，以最优的性能价格比实现整个网络系统的高性能和高可靠性。这样，客户随时随地都可通过公众网访问本信息系统。网络设计的目标是：（1）系统采用星型网络结构，因此单机损坏对整个系统无影响；（2）采用高容错技术，系统可以不间断的运；（3）星型布线使站点不受限制，在站点增加、减少的情况下，系统不停机；（4）采用实用的客户机/服务器和浏览器/服务器结构；（5）服务器采用易于管理的Windows NT系统；（6）客户端采用方便实用的Windows 98、2000和XP。
4.系统软件
（1）操作系统Windows NT Server。该系统为各种组织的计算环境提供了一个完整的方案。从文件/打印操作，到Intranet和Internet服务，关键任务的应用程序支持，所有的服务被嵌入操作系统。从基本点着手，Windows NT Server设计成为最具有集成性，完整性和便捷性的服务器操作系统，并提供了对关键任务应用程序所必备的评测性，可靠性和管理性。
（2）数据库系统SQLServer 2000。SQL Server 2000是一个综合的分布式管理框架结构，允许你集中地管理组织机构中所有数据库服务器。通过增强的基于Windows的管理工具和强大的基于服务器的作业日程安排，你可以直观地控制多个服务器，并且实现分布式环境命令构成的远程操作的自动执行。考虑到与Internet的集成，SQL Server还提供了高性能的Web页面信息访问机制。它的新组件Web Assistant能使你通过多种方式利用SQL数据推广你的Web服务，允许在一个私有Intranet网或在世界范围网（Internet）的Web上分发公司数据。
（3）客户端系统软件。客户端操作系统可采用Windows NT Workstation 4.0 或Windows 98中文版。
（三）数据库设计
1.使用DATA控件连接数据库
在硬盘的用户盘上建立一个用户目录（如E:\WORK），用于保存所有实验文件。启动ACCESS，找到数据库“仓储管理信息系统”,确认有货物表，并已经录入了多条数据。将“仓储管理信息系统”数据库打开，转化97格式的数据库，取名“仓储管理信息系统-97”，复制到用户目录下。
启动VB，在窗体上加入DATA控件data1，文本框控件text1，保存文件和工程到用户目录下。
设置DATA控件的databasename属性为“仓储管理信息系统97”，设置DATA控件的Recordsource属性为货物表。设置文本框控件的datasource属性为data1,设置文本框控件的datafield属性为货物名称。
运行程序，查看结果。修改上述文本框控件的datafield属性，查看结果。添加其他文本框控件，设置属性，显示更多的货物表内容。
2.使用ADODC控件连接数据库
在硬盘的用户盘上建立一个用户目录（如E:\WORK），用于保存所有实验文件。启动ACCESS，找到数据库“仓储管理信息系统”,确认有货物表，并已经录入了多条数据。复制到用户目录下。
启动VB,通过菜单 工程—部件—控件添加控件Microsoft ADO DATA CONTROL 6.0 和Microsoft DATAgrid CONTROL 6.0。通过工具箱加两个控件到窗体上。
设置ADODC的属性，生成—提供程序—Microsoft JET 4.0 OLE DB；连接—WLGL—测试连接成功；记录源—命令类型：2—表名称：货物表。设置datagrid控件属性datasource为ADODC1.
3.使用数据窗体设计器操作数据库
在硬盘的用户盘上建立一个用户目录（如E:\WORK），用于保存所有实验文件。启动ACCESS，找到数据库“仓储管理信息系统”,确认有货物表，并已经录入了多条数据。将“仓储管理信息系统”数据库打开，转化97格式的数据库，取名“仓储管理信息系统97”，复制到用户目录下。
启动VB,通过菜单 外接程序—可视化数据管理器，在visdata界面上文件--打开数据库—Microsoft ACCESS- “仓储管理信息系统97”,实用程序--数据窗体设计器—窗体名称:huowu—记录源：货物表—添加使用的多个字段到右侧—生成窗体—关闭。
对自动生成的窗体，重新排列位置、设置字体大小，颜色，控件长度等，调整界面美观大方，不留空白，不显拥挤。
（四）系统实现
（1）实现对供应商管理的代码
Private Sub cmdAdd_Click()
Data1.Recordset.AddNew
End Sub
Private Sub cmdDelete_Click()
'如果删除记录集的最后一条记录
'记录或记录集中唯一的记录
Data1.Recordset.Delete
Data1.Recordset.MoveNext
End Sub
Private Sub cmdRefresh_Click()
'这仅对多用户应用程序才是需要的
Data1.Refresh
End Sub
Private Sub cmdUpdate_Click()
Data1.UpdateRecord
Data1.Recordset.Bookmark = Data1.Recordset.LastModified
End Sub
Private Sub cmdClose_Click()
Unload Me
Form2.Show
End Sub
Private Sub Data1_Error(DataErr As Integer, Response As Integer)
'这就是放置错误处理代码的地方
'如果想忽略错误，注释掉下一行代码
'如果想捕捉错误，在这里添加错误处理代码
MsgBox "数据错误事件命中错误：" & Error$(DataErr)
Response = 0 '忽略错误
End Sub
Private Sub Data1_Reposition()
Screen.MousePointer = vbDefault
On Error Resume Next
'这将显示当前记录位置
'为动态集和快照
Data1.Caption = "记录：" & (Data1.Recordset.AbsolutePosition + 1)
'对于 Table 对象，当记录集创建后并使用下面的行时，
'必须设置 Index 属性
'Data1.Caption = "记录：" & (Data1.Recordset.RecordCount * (Data1.Recordset.PercentPosition * 0.01)) + 1
End Sub
Private Sub Data1_Validate(Action As Integer, Save As Integer)
'这是放置验证代码的地方
'当下面的动作发生时，调用这个事件
Select Case Action
Case vbDataActionMoveFirst
Case vbDataActionMovePrevious
Case vbDataActionMoveNext
Case vbDataActionMoveLast
Case vbDataActionAddNew
Case vbDataActionUpdate
Case vbDataActionDelete
Case vbDataActionFind
Case vbDataActionBookmark
Case vbDataActionClose
End Select
Screen.MousePointer = vbHourglass
End Sub
（2）实现用户注册的单击事件
Private Sub Command1_Click()
If Text1.Text <> "" And Text2.Text <> "" And Text3.Text <> "" And Text3.Text = Text2.Text Then
pubConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\仓储管理信息系统.mdb" & ";" & "Persist Security Info=False"
pubConn.ConnectionTimeout = 30
pubConn.Open
rs.CursorLocation = adUseClient
strSQL = "select * from user "
rs.Open strSQL, pubConn, adOpenDynamic, adLockOptimistic
rs.AddNew
rs!用户名 = Text1.Text
rs!密码 = Text2.Text
rs.Update
MsgBox "注册成功！", vbExclamation + vbOKOnly, "警告"
Form4.Hide
Else
m = MsgBox("错误,请重新登录", vbExclamation)
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End If
End Sub
（3）实现货物出库管理的代码
Private Sub cmdAdd_Click()
Data1.Recordset.AddNew
End Sub
Private Sub cmdDelete_Click()
'如果删除记录集的最后一条记录
'记录或记录集中唯一的记录
Data1.Recordset.Delete
Data1.Recordset.MoveNext
End Sub
Private Sub cmdRefresh_Click()
'这仅对多用户应用程序才是需要的
Data1.Refresh
End Sub
Private Sub cmdUpdate_Click()
Data1.UpdateRecord
Data1.Recordset.Bookmark = Data1.Recordset.LastModified
End Sub
Private Sub cmdClose_Click()
Unload Me
Form2.Show
End Sub
Private Sub Data1_Error(DataErr As Integer, Response As Integer)
'这就是放置错误处理代码的地方
'如果想忽略错误，注释掉下一行代码
'如果想捕捉错误，在这里添加错误处理代码
MsgBox "数据错误事件命中错误：" & Error$(DataErr)
Response = 0 '忽略错误
End Sub
Private Sub Data1_Reposition()
Screen.MousePointer = vbDefault
On Error Resume Next
'这将显示当前记录位置
'为动态集和快照
Data1.Caption = "记录：" & (Data1.Recordset.AbsolutePosition + 1)
'对于 Table 对象，当记录集创建后并使用下面的行时，
'必须设置 Index 属性
'Data1.Caption = "记录：" & (Data1.Recordset.RecordCount * (Data1.Recordset.PercentPosition * 0.01)) + 1
End Sub
Private Sub Data1_Validate(Action As Integer, Save As Integer)
'这是放置验证代码的地方
'当下面的动作发生时，调用这个事件
Select Case Action
Case vbDataActionMoveFirst
Case vbDataActionMovePrevious
Case vbDataActionMoveNext
Case vbDataActionMoveLast
Case vbDataActionAddNew
Case vbDataActionUpdate
Case vbDataActionDelete
Case vbDataActionFind
Case vbDataActionBookmark
Case vbDataActionClose
End Select
Screen.MousePointer = vbHourglass
End Sub

第 8 页 共 35 页