大酒店客房管理信息专业系统设计.doc

酒店客房管理信息系统设计

摘 要

随着经济不断发展，服务业随之迅速成长，酒店越来越多。酒店在其运作期间，其服务水平高低直接影响到酒店形象和名誉。如服务安排、调度与否周到，客人规定与否能迅速、较好地得到满足等。这其中核心就是对每天大量信息对的解决和保存，采用计算机这一当代化工具作为管理辅助手段是必须。本文采用构造化设计办法，运用VB开发工具、access数据库和流程图等工具实现酒店客房管理系统开发。本管理软件由客房预定模块、住房登记模块、客房查询模块、退房结账模块、人事管理模块构成，能协助酒店管理人员迅速及时掌握客房信息，提高工作效率，以便顾客。合用于各中小型酒店及宾馆使用。

核心词 酒店；管理；构造化；VB；人事

ABSTRACT
As the economy continues to develop，along with fast-growing services sector，the hotel more and more. Hotels in the period of its operation，its direct impact on the level of service to the hotel's image and reputation. Such as service arrangements，scheduling is good，whether the requirements of the guests quickly，so well met. This is one of the core is a lot of information on the correct day，processing and preservation，using the computer as a management tool in this modern aid is required. In this paper，structured design methods，the use of VB development tools，access databases and tools such as flow management system to achieve the development of hotel rooms. The room reservation management software module from the housing register module，room check module，check-out modules，personnel management modules，to help hotel management to quickly grasp the rooms and timely information to enhance work efficiency and convenience of our customers. Applicable to all small hotels and guesthouses to use.

KEY WORDS hotel；management；structured；VB；Personnel

目 录

摘 要 I
ABSTRACT II
前 言 1
0.1 前言 1
0.2 论文重要工作概述 1
第一章 系统概述 1
1.1 酒店客房管理信息系统简介 1
1.2 系统目的与任务 1
1.3 总体设计 1
第五章 系统详细设计 1
5.1 ACCESS数据库设计 1
5.1.1 Access创立数据表办法 1
5.1.2酒店宾馆系统数据库建立 1
5.2主体程序设计 1
5.2.1顾客整体界面设计 1
5.2.2顾客登入界面设计 2
5.2.4 VB与ACCESS数据库连接 5
5.2.5 基本功能模块解决设计 7
5.3软件调试 10
5.3.1 VB中错误类型 10
5.3.2 调试和排错 11
5.3.3 调试实例 11
第六章 系统实行 1
6.1实行环境与工具 1
6.2编程环境与工具 1
6.2.1 Visual Basic 6.0 1
6.2.2 Microsoft Access 3
6.2.3 安装程序制作软件 4
6.2 系统测试 1
6.2.1 测试规程 1
6.2.2 测试筹划及测试记录 1
第七章 总结与展望 1
7.1总结 1
7.2展望 1
7.3回顾 1
参照文献 1
致 谢 1
附录2原程序清单 2

前 言

0.1 前言
初期酒店宾馆管理方式都是用纸质材料进行登记或通过悬挂钥匙号码牌方式以便查看。人工纸质登记容易出错，查询不以便，计算记录繁杂等缺陷。随着计算机技术发展酒店宾馆管理系统也随之成长起来。
酒店宾馆管理系统是在80年代初随着计算机技术发展一起成长起来，到90年代初期已形成了几种较成熟软件系统，同步，产生了几家专职从事宾馆业计算机管理系统公司。到了90年代中后期，随着计算机在酒店中普及应用，计算机技术不断发展，酒店管理系统发展到了一种新时期，新系统平台、新系统特点及发展方向不断涌现，重要体当前系统基本转到客户机/服务器模式下Windows版，功能更加细致完善，系统更加稳定可靠。随着经济发展，酒店正向着大型化、当代化发展，而对于中小型酒店，客房、顾客等关于信息管理随之急剧增长。在这种状况下单靠人工来解决不但显得力不从心，并且极容易出错。
该系统详细任务就是针对中小型酒店客房设计一种酒店客房管理系统，由计算机来代替人工执行一系列诸如新客房登记、退房结算、客房修改、查询、客户管理等操作。这样就使办公人员可以轻松快捷地完毕酒店客房管理任务，理解整个酒店客房信息。
本论文将就Visual Basic开发环境、酒店客房系统流程这二个方面分别进行比较详细阐述。
0.2 论文重要工作概述
本课题所设计系统符合中小型酒店客房规定，实现功能涉及三个大方面：客房查询功能、登记结算功能、简朴人事功能。
客房查询功能涉及：
房态查看、客房查询、预定查询、住宿查询、退宿查询。
登记结算功能涉及：
住房登记、退房结账、客房预定、宿费提示、闹钟提示、客房信息、客房类型信息。
简朴人事功能涉及：
密码修改、账户设立、员工信息、人事查询、人事记录查询、人事变更。
研究办法和实现过程涉及：收集资料，研究别人研究办法及普通开发模块和办法；拟定自己总体方案，画出系统框图；进行可靠性研究和方案论证；拟定软件方案；拟定模块方案，画出功能模块框图。编写软件流程，编写代码；用Visual Basic开发环境和Microsoft Access编写调试。有关技术和资料比较多，因而要有自己创新和特点。

第一章 系统概述

1.1 酒店客房管理信息系统简介
软件需求是在问题及其最后解决方案之间架设桥梁第一步。开发者只有和客户充分理解了需求之后才干开始设计系统，否则，对需求定义任何改进，在设计上都必要大量返工。下面是通过双方调研后得到需求规格阐明。本管理软件由前台管理、客房管理、查询记录、基本信息设立、客户营销、服务管理、系统设立构成，能协助酒店管理人员迅速及时掌握客房信息，提高工作效率，以便顾客。合用于中小型酒店宾馆使用。

1.2 系统目的与任务
本系统设计中使用Visual Basic开发环境调试和Microsoft Office Access 建立数据库。
本人将完毕任务：
1、掌握Visual Basic开发环境，其资源和编程办法；
2、掌握Office Access 建立数据库办法；
3、掌握Windows 安装程序制作软件操作办法；
4、软件各模块编程设计；
5、系统软件整体调试和测试。

第二章 系统需求分析

软件需求分析所要做工作是进一步描述软件功能和性能，拟定软件设计限制和软件同其他系统元素接口细节，定义软件其他有效性需求。进行需求分析时，应注意一切信息与需求都是站在顾客角度上。尽量避免分析员主观想象，并尽量将分析进度提交给顾客。在不进行直接指引前提下，让顾客进行检查与评价。从而达到需求分析精确性。
　　分析员通过需求分析，逐渐细化对软件规定，描述软件要解决数据域，并给软件开发提供一种可转化为数据设计、构造设计和过程设计数据和功能表达。在软件完毕后，制定软件规格阐明还要为评价软件质量提供根据。

2.1可行性研究与筹划
随着旅游业发展，酒店、餐饮娱乐行业日趋发达，引入全方位电脑服务和电脑管理日益流行。同步，酒店和餐厅娱乐业引入电脑服务和管理也获得了优良经济效益和社会效益。为此，国家建设部已于近来作出明确规定：凡星级酒店在项目审批时，其设计方案必要涉及电脑管理系统，否则不予立项。可见，酒店管理电脑化势在必行。酒店管理系统将先进电脑技术与当代酒店服务管理完美地结合起来，实现了住宿、餐饮、娱乐全新概念服务和管理方式。
老式酒店管理往往令管理者花大量时间来解决顾客投诉，例如错误查询、啰嗦登记和结帐手续、旅客费用计算错误、空余客房资料不能及时提供等，从而影响出租率，使管理人员不得不集中精力规划管理运营方略和进行决策。以上问题可通过电脑系统辅助解决，酒店管理电脑化，不但是体现酒店当代化形象一种重要标志 ，并且对于提高员工工作效率，加速资金周转、减少各项成本及改进服务质量均有十分积极作用。
总之，使用该酒店管理系统，将会有如下好处：
1.高效客房管理：能有效提高房率，增长营业收入。
2.提高决策根据：管理者可以随时理解经营状况，以制定相应经营方针。
3.减轻员工工作承担：从而使员工把更多精力放在提高为宾客服务质量上。
4.简朴、以便地保存和查询历史资料。
5.树立良好酒店形象。

2.2需求分析
本系统由前台管理、客房管理、查询记录、基本信息设立、客户营销、服务管理、系统设立构成。详细需求和规格如下。
1.前台管理
客房预定；住宿登记；退房结账
本功能模块重要是顾客住宿预定登记结账计算和数据登记
2.客房管理
客房查询；房态查看
3.查询记录
预定查询；住宿查询；退宿查询；宿费提示
4.基本信息设立
客房信息；客房类型信息；员工信息
5.客户营销
闹钟提示
6.服务管理
人事查询；人事记录排序；人事变更
本功能模块重要是对酒店宾馆内人事管理操作
7.系统设立
管理员；账户设立；修改密码；退出
9.协助
内容；关于

酒店客房管理系统构造图如下：

图2-1 系统基本框图
2.3分析与数据流图设计
1．总流程图

客人
酒店管理系统
登记

客人
离店凭据

图 2-2. 系统总流程图

2．客人
预订
离店
接待
取消
预订
预定功能前台子系统：

图 2-3. 前台预定示意图

3．前台登记模块系统流程图
客房预订信息表

客人预订信息表

客人信息表

客房占用信息表

前 台

查询
各种信息
数 据
备 份
前 台

别的某些在此不做详细简介，请参照源代码

第五章 系统详细设计
5.1 ACCESS数据库设计
Access作为微软OFFICE以其简朴易用而受到许多顾客欢迎，综合考虑，为了节约系统开发时间等因素，本系统数据库采用ACCESS。
5.1.1 Access创立数据表办法
Access创立数据表办法有：1.使用数据库向导创立一种数据库，涉及所有表、窗体及报表等对象；2.是使用表向导，并从各种预先定义好表中选取字段；3.是将数据直接输入到空白数据表中，当保存新数据表时，Access将分析数据并自动为每一字段指定恰当数据类型及格式；4.是使用“设计"视图，从无到有指定表构造所有细节，再填充表中数据。5.从别表导入到新表并保存。

5.1.2酒店宾馆系统数据库建立

通过之前需求分析和技术可行性分析，本系统创立7个数据表。分别为：登记表、登记历史、客房、客房预订、密码、退房表、员工表。如下图所示：

图5-1 客房数据库

1．使用设计器创立登记表，建立如下图所示

图5-2 登记表字段

创立好后可在表内手动输入数据如下图所示

图5-3登记表

如要修改表字段数据类型。可打开数据表点击视图-设计视图。修改已经设立好数据类型保存即可。
2．创立客房表，客房需要信息重要由如下属性：
房间号：如201、301、302等
房间类型：房间类型有套房、标房、双人间等
价格：各房间价格
房态：空闲、入住、维修、预定等
配备：配备内容为此房间内电器配备
使用设立：所使用设备
详细数据表创立如下：

图5-4客房表
客房数据表作用是登记本宾馆各房间状态，客房查询，预定查询，客房类型信息等都要通过查询此表

3．员工表创立
员工表属性重要由如下几种：工号、姓名、性别、年龄、部门、职务、政治面貌、电话、住址、调离到、退休。

图5-5员工表

员工表重要用于员工信息查询模块、人事查询模块、人事记录模块、人事变更模块。
5.1.3酒店宾馆系统数据库总体构造
各数据表创立在此不再重复简介，详细操作已经在上一节做了详细描述。这里提供一种数据库总体构造。通过构造图可以清晰进行数据分派。
表1数据库总体构造
数据库数据表
软件功能模块
所在软件窗体
登记表
住宿查询
Form12
宿费提示
Form14
住宿登记
Form2
退房结账
Form4
主界面
MDIForm1
登记历史
住宿登记
Form2
客房
客房查询
Form10
预定查询
Form11
客房信息添加
Form15
客房类型信息修改
Form16
住宿登记
Form2
闹钟提示
Form20
退房结账
Form4
客房预定
Form6
房态查看
Form7
客房预订
预定查询
Form11
客房预定
Form6
密码
登陆
Form1
账户设立
Form8
密码修改
Form9
退房表
退宿查询
Form13
退房结账
Form4
员工表
人事查询
Form18
员工信息
Form17
人事记录查询
Form19
人事变更
Form20

5.2主体程序设计
5.2.1顾客整体界面设计
一种好应用程序要有美观且实用界面设计，顾客界面设计是应用程序一种重要构成某些，在设计程序时必要要合理编排顾客界面。窗体是应用程序设计场合，合理安排窗体内各控件，是形成美观实用顾客界面重要基本。
大多数顾客界面设计原则和任何基本美术课程中所专家基本设计原则同样。在计算机屏幕上组合颜色、文字、框架等基本原则和在纸张上画图同样。在界面设计开始之前，可以先将设计窗体画在纸上，然后考虑哪些控件是所需要，以及不同元素重要性、控件之间联系等。协调界面、组织窗体工作涉及控件位置、大小、一致性编排与其他有关内容。
酒店客房管理系统整体界面设计如下图5-6所示，橙色调为主，界面布满活力。背景用酒店宾馆等全景照片等都可以。

5-6．系统整体界面

5.2.2顾客登入界面设计
为了增长系统保密性，做到权限控制，酒店宾馆管理信息系统采样两级密码控制，第一级密码为操作人员账号和密码，二级密码为管理员密码，设立本密码后可对操作人员账号和密码进行增长或修改。酒店宾馆管理信息系统在登入系统时就浮现一种登录界面。对于不同顾客只能使用自己账号和口令进入系统，如果顾客名或密码错误，系统提示顾客名或密码不对。当错误3次以上时则系统将自动退出。防止恶意破解进入

5-7．系统登入界面
管理员登入之前菜单中账号设立和密码修改不可用。二级密码管理员登入，菜单系统设立点击菜单管理员浮现如下窗口，输入管理员顾客名和密码。若密码对的着可添加管理员自身账号和密码如图5-9所示。

5-8．管理员登入界面

5-9．管理员登入成功
当二级密码管理员登入成功后。系统设立菜单中账号设立和密码修改可用，如图5-10所示。此时可以修改密码和增长操作员。

一级与二级密码加密办法解决，由于ACCESS自身密码容易被破解，而一级密码就存储在数据表密码中。因而二级密码不通过ACCESS，通过自己设计加密技术，进行保存加密。存储在配备文献中格式如下：
[账号]
zs=2
1=pzowen
2=admin
3=peizhong
[密码]
zs=2
1=4P+hx(?j
2="6ES^9
二级密码判断解决子程序如下：
Private Sub Command1_Click()
'将你输入密码解密到 Plain_Text 变量
Dim StrTarget As String
IniFileName = App.Path & "\mima.ini"
geshu = ReadInt("账号"，"zs"，60，IniFileName)
For x = 1 To geshu
If Text1.Text = ReadString("账号"，x，100，IniFileName) Then Exit For
Next x
If x > geshu Then
MsgBox "你输入账户名错误!"，vbExclamation，"错误"
Exit Sub
End If
StrTarget = ReadString("密码"，x，100，IniFileName)
Dim Plain_Text As String
SubDecipher Text2.Text，StrTarget，Plain_Text
If Text2.Text = "" Then
MsgBox "密码不能为空!"，vbExclamation，"错误"
Else
If Text2.Text <> Plain_Text Then
MsgBox "你输入密码错误!"，vbExclamation，"错误"
Exit Sub
Else
Text2.Text = Empty
'Form3.Hide
biao_yonghu ("账号")
Form3.Width = 7500
'*****************************************
MDIForm1. 修改密码.Visible = True
MDIForm1. 账户设立.Visible = True
'******************************************
End If
End If
End Sub

5.2.3酒店宾馆系统菜单设计
菜单也是Visual Basic语言对象，是进行操作工具。菜单设计使用菜单编辑器
运用菜单编辑器可以完毕对菜单属性设立。其重要属性是Caption属性和Name属性。Caption属性指应用程序在菜单上浮现字符串。Name属性指菜单命令名称，是应用程序标记菜单根据。其他属性涉及Index属性（设立索引号）、Checked属性（设立与否为复选菜单）、Enabled（设立与否可用）和Visible（设立与否可见）等都可通过菜单编辑器来设立。和控件同样，菜单对事件响应也是在事件解决器中设定，相应语句写在代码窗口中。如本次设计代码例子
Private Sub 员工信息_Click()
Form17.Show
End Sub
Private Sub 账户设立_Click()
Form8.Show
End Sub
Private Sub 住宿查询_Click()
Form12.Show
End Sub
Private Sub 住宿登记_Click()
Form2.Show
End Sub
Private Sub exit_Click()
If MsgBox("您拟定要退出酒店客房管理系统吗？"，vbInformation Or vbOKCancel) = vbOK Then End
End Sub

5-11．菜单编辑器
酒店宾馆系统菜单外形设计如下：
下面一排为快捷按钮也就是惯用功能放在此处。

5-12．系统菜单
酒店宾馆系统二级菜单详细设计如下：
表2酒店宾馆系统菜单设计
一级菜单
二级菜单
快捷键
前台管理
客房预定
Ctrl+A
住宿登记
Ctrl+B
退房结账
Ctrl+C
客房管理
客房查询
Ctrl+D
房态查看
Ctrl+E
查询记录
预定查询
Ctrl+F
住宿查询
Ctrl+G
退宿查询
Ctrl+H
宿费提示
Ctrl+I
基本信息设立
客房信息
Ctrl+J
客房类型信息
Ctrl+K
员工信息
Ctrl+L
客户营销
闹钟提示
Ctrl+M
服务管理
人事查询
Ctrl+X
人事记录排序
Ctrl+Y
人事变更
Ctrl+Z
系统设立
管理员
Ctrl+F5
账户设立
Ctrl+F6
修改密码
Ctrl+F7
—

退出
Ctrl+F4
协助
内容
F1
—

关于

5.2.4 VB与ACCESS数据库连接
在Visual Basic 6.0中，要建立与数据库连接，可采用技术手段诸多，如：数据控件、数据对象、数据环境设计器等。本次设计中所使用表格显示大都为Data控件和Adodc控件，而数据添加等重要是DAO数据对象。这里我对这个2个控件做详细阐明，其她做简要阐述。
1． DAO数据和ADO数据对象
DAO数据对象，要能对的引用DAO数据对象来建立与数据库连接。必要在“引用”对话框选取“Microsoft DAO 3.51 Object Library”选项来添加DAO数据对象类型库。ADO数据对象同样要设立对象类型库“Microsoft ActiveX Data Objects 2.1 Library”。
如下为程序中退宿结帐功能模块所使用DAO数据对象数据库设立办法。其中设立了两个数据表，分别是“退房表”和“登记表”
Dim mydb1 As Database
Dim myrs1 As Recordset
Dim myrs2 As Recordset
Set mydb1 = Workspaces(0).OpenDatabase(App.Path & "\hotel_GL.mdb")
Set myrs1 = mydb1.OpenRecordset("退房表"，dbOpenTable)
Set myrs2 = mydb1.OpenRecordset("登记表"，dbOpenTable)
2．Data控件
Data控件是Visual Basic 6.0中一种内置数据控件，可以通过设立Data控件connect、DatabaseName、RecordSource属性实现对数据库连接和访问。
客房查询使用Data1控件设立如下，可在属性栏里直接设立。
Data1.Connect = "Access ;"
Data1.DatabaseName = App.Path & "\hotel_GL.mdb"
Data1.RecordSource=“客房”
MSFlexGrid1则可直接和Data控件相连接，显示内容就是数据库客房表中内容。如下是查询按键程序代码
Private Sub Command1_Click()
If Check1.Value = 1 Then '查询相应房间类型 房间
Data1.RecordSource = "select * from 客房 where 房间类型 = '" + Combo1(0).Text + "'"
Data1.Refresh
End If
If Check2.Value = 1 Then '查询不大于这个价格 房间
Data1.RecordSource = "select * from 客房 where 价格 < " + Combo1(1).Text + ""
Data1.Refresh
End If
If Check3.Value = 1 Then '查询相应房态 房间
Data1.RecordSource = "select * from 客房 where 房态 = '" + Combo1(2).Text + "'"
Data1.Refresh
End If
End Sub
效果如下图所示

5-13．客房查询数据库显示
3．Adodc控件
Adodc控件是一种ActiveX控件，它使用Microsoft ActiveX Data Objects(ADO)创立到数据库连接。使用Adodc控件之前，要先将Adodc控件添加到控件工具箱中。办法如下：在VB 6.0种选取“工程”菜单，再点击“部件”菜单项，在弹出“部件”对话框中选中“Microsoft ADO Data Control 6.0(OLEDB)”选项即可。
代码设计中对用Adodc控件ACCESS连接做了一种子程序放入mdlCommon模块中以便调用。

Option Explicit
Public Sub OpenTable(pAdo As Adodc，pRecordSource As String) '打开一种表，得到一种数据集
With pAdo
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
& App.Path _
& "\hotel_GL.mdb;Persist Security Info=False"
.CommandType = adCmdUnknown
.RecordSource = pRecordSource
.Refresh
End With
End Sub
函数OpenTable输入参数pAdo为所用控件名，pRecordSource为数据库字段名。用法OpenTable adoUsers，"密码"

5.2.5 基本功能模块解决设计
以上登入界面和数据库连接简介已经对某些功能模块做了某些简介，但尚未涉及到酒店客房登记预定等信息解决方面简介。下面以客房预定登记和闹钟提示为例对界面代码做简朴简介。
1．客房预定登记
在窗体启动时一方面对窗体大小和Data1数据库hotel_GL.mdb加载和指定位置。Data1中所读取数据是在客房表中房态为“空房”那些数据。
Private Sub Form_Activate()
Data1.RecordSource = "select * from 客房 where 房态='空房'"
Data1.Refresh
End Sub
Private Sub Form_Load()
Form6.Height = 4290
Form6.Width = 6675
Data1.DatabaseName = App.Path & "\hotel_GL.mdb"
Data2.DatabaseName = App.Path & "\hotel_GL.mdb"
End Sub

启动后窗体如下图所示。

5-14．客房预定界面
登记功程序编写一方面用DAO数据对象对hotel_GL数据库设立，而后判断姓名、联系地址、联系电话、房间号码、备注等与否为空，不为空则，填入数据库。结束后及时更新记录和更新居间状态。详细代码如下
Private Sub Comdj_Click()
Dim mydb1 As Database
Dim myrs1 As Recordset
Set mydb1 = Workspaces(0).OpenDatabase(App.Path & "\hotel_GL.mdb")
Set myrs1 = mydb1.OpenRecordset("客房预定"，dbOpenTable)
'添加住宿预收信息
myrs1.AddNew
If ZSDJ(0).Text <> "" Then myrs1.Fields("姓名") = ZSDJ(0).Text
If Combo1.Text <> "" Then myrs1.Fields("证件名称") = Combo1.Text
If ZSDJ(1).Text <> "" Then myrs1.Fields("证件号码") = ZSDJ(1).Text
If ZSDJ(2).Text <> "" Then myrs1.Fields("详细地址") = ZSDJ(2).Text
If ZSDJ(3).Text <> "" Then myrs1.Fields("联系电话") = ZSDJ(3).Text
If ZSDJ(4).Text <> "" Then myrs1.Fields("客房类型") = ZSDJ(4).Text
If DBCombo1.Text <> "" Then myrs1.Fields("房间号") = Val(DBCombo1.Text)
If DTP1.Value <> "" Then myrs1.Fields("预住日期") = DTP1.Value
If ZSDJ(5).Text <> "" Then myrs1.Fields("预住天数") = ZSDJ(5).Text
If ZSDJ(6).Text <> "" Then myrs1.Fields("备注") = ZSDJ(6).Text
myrs1.Fields("日期") = Date
myrs1.Fields("时间") = Time
'更新记录
myrs1.Update
'更新居间状态
Data2.Recordset.FindFirst "房间号 like " + Chr(34) + DBCombo1.Text + Chr(34) + ""
Data2.Recordset.Edit
Data2.Recordset.Fields("房态") = "预定"
Data2.Recordset.Update
For I = 0 To 6
ZSDJ(I).Text = ""
Next I
End Sub
按登记后数据库客房预定表内数据增长。如下表所示。
表3客房预定表

2． 闹钟提示
同样闹钟提示内窗体启动时一方面对窗体大小和Data1数据库hotel_GL.mdb加载和指定位置。

5-15．闹钟提示界面
修改房号提示时间代码如下所示。
If MsgBox("你确认要修改这个房间类型吗？"，vbInformation Or vbOKCancel) = vbOK Then
Data1.Recordset.FindFirst "房间号 like" + Chr(34) + Text1.Text + Chr(34) + ""
Data1.Recordset.Edit
Data1.Recordset.Fields("提示日期") = DTP2.Value
Data1.Recordset.Fields("提示时间") = tim2.Value
Data1.Recordset.Update '更新记录
Data1.Refresh
MsgBox "修改成功！"，vbInformation
MDIForm1.Data1.Refresh
End If
声音播放办法ReturnValue = sndPlaySound(App.Path & "\holdme.wav"，SND_ASYNC)就可以播放歌曲或其她铃声做为提示音。
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String，ByVal uFlags As Long) As Long
Const SND_SYNC = &H0 '播 放WAV文献， 播放完毕后将控制转移回你应用程序中。
Const SND_ASYNC = &H1 '播 放WAV文献，然后将控制及时转移回你应用程序中，而不论对WAV文献播放与否结束。
Const SND_NODEFAULT = &H2 '不要播放缺省WAV文献， 以免发生某些意外错误。
Const SND_MEMORY = &H4
Const SND_ALIAS = &H10000
Const SND_FILENAME = &H0
Const SND_RESOURCE = &H40004
Const SND_ALIAS_ID = &H110000
Const SND_ALIAS_START = 0
Const SND_LOOP = &H8 '环 播 放WAV 文 件。
Const SND_NOSTOP = &H10 '在开始播放其他WAV文献之前,需要完毕对本WAV文献播放
Const SND_VALID = &H1F
Const SND_NOWAIT = &H
Const SND_validflags = &H17201F
Const SND_RESERVED = &HFF000000
Const SND_TYPE_MASK = &H170007

5.3软件调试
5.3.1 VB中错误类型
1．编辑时出错
当顾客在窗口内编写代码时，VB会对程序进行语法检查，发既有错误时会弹出一种对话框，提示出错信息，同步系统会将出错语句行标记为红色，提示顾客进行修改。
2．编译时出错
顾客单击了“启动”按钮后，VB在开始运营程序前先编译程序，此时发生错误也会弹出一种对话框并标注错误语句，顾客可以对错误程序进行修改。
3．运营时出错
运营错误是指VB在编译通过后，程序运营时发生错误。此时系统会弹出一种对话框，顾客可单击“调试”按钮，进入中断模式来修改错误代码。
4．逻辑错误
程序运营后，得不到预期成果，阐明程序存在逻辑错误。普通此类错误不产生错误提示信息，错误较难排除。

5.3.2 调试和排错
1． VB三种模式
VB三种模式：设计模式、运营模式、中断模式，为了测试和调试应用程序，咱们在任何时候都应懂得应用程序正处在何种模式之下。这三中模式中，中断模式是程序员调试程序、检查