vb《酒店管理系统》课程设计.doc

vb《酒店管理系统》课程设计

———————————————————————————————— 作者：
———————————————————————————————— 日期：

2

个人收集整理 勿做商业用途

吉林工程技术师范学院

《VB课程设计》设计报告

设计题目： 《酒店客房管理系统》
专 业： 计算机 班 级： C-1152
学生姓名： 学号:
指导教师:

2012年6月
信息工程学院

目 录

摘要 1
第一章 系统分析 2
1.1 课题研究的目的和意义 2
1。2 本文的研究内容 3
第二章 系统实现 4
2.1 设计的原则 4
2.2 用户和软件的特点 5
第三章 系统调试 7
3.1 系统实现 7
3。2 详细模块 8
第四章 使用说明 9
总结 12
参考文献 13
附录 14

摘要
经过前一个学期对《VB.Net程序设计》的学习，我们都学习到了有用VB知识,可能有一些学习成果的不够理想，但无论如何，这些知识都为我们的下一步学习打下了坚实的基础。做这样的一个课程设计，一方面是检查我们一个学期来我们学习的成果,另一方面也是为我们进一步的掌握和运用它打下了坚实的基础，同时也让我们认清自己的不足之处和薄弱环节，加以弥补和加强.
在信息社会中,企业只有利用各种先进的管理方式和技术手段实现信息的高度集成，提高获取信息、分析、利用信息的能力，发展知识经济,才能在激烈的市场竞争中获取优势，随着市场经济的发展．各行各业为加强信息管理．提高经济效益的日益要求．迫切需要把现代化信息处理技术应用到经济管理工作中去。
迅速发展起来的酒店客房服务业．为了提高自身的管理水平．加强竞争能力，提高经济效率等,需要动态掌握客房各个环节中信息的变更．必然离不开计算机的帮助。
宾馆管理信息系统是在对宾馆的日常运作进行综合调查的基础上开发出来的一套系统。主要包括客房资源、顾客信息进行管理，利用酒店管理信息系统及时了解各个环节中信息的变更，有利于提高管理效率。系统以Microsoft Access作为后台数据库，VB.Net为前台开发工具,运用模块化结构设计思想、面向对象的设计方法完成了管理系统的主要模块.
关键词：酒店客房管理 模块化设计 VB.Net

第一章 系统分析

1。1 课题研究的目的和意义
对酒店整个来说，对酒店经营状况起决定作用的是酒店的服务管理水平。如何利用先进的管理手段来提高酒店的管理水平成为酒店业务发展的当务之急。面对信息时代的机遇和挑战，利用科技手段提高酒店的管理无疑是一条行之有效的途径。虽然计算机管理并不是酒店管理走向成功的关键元素，但它可以最大限度地发挥准确、快捷、高效等作用，对酒店的业务管理提供强有力的支持。因此，采用全新的计算机网络和酒店业务管理系统，已成为提高酒店的管理效率，使作业人员与管理系统之间灵活互动,实现流畅的工作流衔接，帮助酒店有效地进行业务管理,释放最大价值。酒店业务管理系统在达到在节省人力资源成本的同时，可以提高业务效率，并能够及时、准确、迅速地满足顾客服务的需求。
需求分析是从客户的需求中提取出软件系统能够帮助用户解决的业务问题，通过对用户业务问题的分析，规划出系统的功能模块，即定义用例。这个步骤是对理解需求的升华，直接关系到该系统的质量.

1.2 本文的研究内容
本报告编写的目的是为了说明系统需求概述、设计概要情况和设计思路，为系统的详细设计提供基础，同时作为开发人员在系统分析设计阶段的工作成果和本阶段的结束标志。使用户和软件开发者,对系统的总体设计规定有一个共同的认识，使之成为今后整个开发工作的基础和依据。
随着我国经济体制改革的不断深化和我国经济的快速发展,我国人民的收入不断提高，消费观念也有提高,对服务质量的要求也有很大的提高.各地把旅游业当作本地经济发展的重要支柱之一。酒店作为人们食宿、娱乐、休闲的场所而得到了快速的发展。社会上也成立了各种类型，不同规模的酒店服务企业。如何为客户提供更 加准确及时的服务，成为各个酒店竞争关键。所以酒店业务信息化建设就成为了客户衡量酒店提供商服务标准的一个准则，信息系统成为了基础。
随着Internet技术的进一步发展和普及，不能很好的适应世界经济发展的形式和我国国民经济建设的需要，市场现有的产品化的酒店业务软件系统在不断发 展中的酒店的需求。基于VB.Net的酒店管理系统的总体设计目标能够建立完善、高效、可靠的酒店业务信息系统,为酒店提供良好的信息环境。
一个成熟的酒店管理系统不仅仅是记录酒店客人的信息，提供查询,报表打印等一系列简单的工作，它能让工作人员从烦琐的手工操作中解脱，并且酒店管理系统本 身就代表着一种管理方法。随着它的深入，将带动企业的运做，为管理和决策提供支持.为了达到这个要求，它必须依靠高起点的硬件环境和软件开发工具来保证系统的稳定和正常运行.

第二章 系统实现

在分析现行手工操作的基础上，进一步研究餐饮管理的处理流程,确定系统的总体结构及功能模块，研究各个模块之间的联系，确定模块之间的接口方案。依照实用性、可靠性、可扩充性、经济性的原则,设计有关的各类码表及相关的程序代码，并验证代码的正确性，设计一套合理、完整的测试方案，对系统进行测试，是系统达到用户的使用要求.
Visual Basic。NET是从 Visual Basic 语言演变而来,是一种为高效地生成类型安全和面向对象的应用程序而设计的语言。Visual Basic 允许开发人员开发面向 Windows、Web 和移动设备的程序.
与所有面向Microsoft 。NET Framework语言一样，使用 Visual Basic 编写的程序都具有安全性和语言互操作性方面优点。VB。Net常被人称为VB7.0即对VB 6。0的升级是不对的，几乎在.net中思想已经完全改变，VB 6.0中是基于事件和对象的思想，而在。net中由于使用了.net框架，面对对象在.net中尤为突出，VB 6。0的思想还能运用，但在。net的思想已完全被OOP思想取代。
2。1 设计的原则
1．实用性原则
该系统是以宾馆管理为基础开发的通用宾馆管理系统，适合中、小宾馆企业的使用。

2．可靠性原则
该系统应有较高的可靠性，在系统设计及程序设计上应该强调系统的可靠性。
3．可扩充性原则
应该保证该系统在系统的功能，结构方面具有可扩充性。以便适应企业以后发展的需要，做出相应的功能结构上的调整。
4．经济性原则
应该注重系统的性价比，时刻为用户着想，在同等功能的基础上尽可能的减少企业的投入。
综上所述，帮助企业加强管理，提高经济效益，解决实际管理中的各类问题,是设计该系统的主要目标.
2.2 用户和软件的特点
1．管理高效
宾馆管理内部从业人员中存在不少人对计算机比较陌生，对使用计算机来 管理有一定的畏惧心理。这就要求面向宾馆的计算机管理系统应尽可能得在功能设计上和使用手法上模拟现实情况，让用户使用时感觉熟悉、踏实、容易接受，否则会导致强烈的抵触情绪。

2．管理信息
宾馆管理系统要对客房资源、顾客信息进行管理，存储宾馆客房的所有静态和动态信息，能够实现宾馆管理的自动化，并利用宾馆管理信息系统及时了解各个环节中信息的变更，有利于提高管理效率,否则无法满足宾馆方便、快捷的需求,这对系统使用和运行效率、稳定性都提出了更高的要求宾馆管理内部从业人员中存在不少人对计算机比较陌生.对使用计算机来管理有数据库管理没有专业知识，而本系统使用数据库连接技术，运用SQL语言查询方式集成模块，通过VB.Net程序的可视化窗体消除了非专业人员对计算机操作的畏惧心理。这就要求面向酒店的计算机管理系统应尽可能得在功能设计上和使用手法上模拟现实情况，让用户使用时感觉熟悉、踏实、容易接受。

第三章 系统调试

3。1 系统实现
VB.Net是一款网络化的面向对象的设计平台。通过对模块的设计能够成功的将很多的功能集成在一起形成一套完整的系统。本系统的功能如下图所示：登录界面

入住客房登记
退房登记
房间信息查询
房间管理
欢迎界面

图3-1 系统结构化模型
入住客房登记及退房登记等模块都与后台数据库相连。实现了系统整体结构的运行。依照实用性、可靠性、可扩充性、经济性的原则,设计有关的各类码表及相关的程序代码,并验证代码的正确性,设计一套合理、完整的测试方案，对系统进行测试，是系统达到用户的使用要求。
3。2 详细模块
酒店管理系统在设计过程中应用到了代码，用代码控制每个模块所具有的功能，并通过可视化的窗体对界面的设计提供帮助。其中连接数据库的方法及代码如下：
add name=”酒店客房管理系统。My.MySettings.userConnectionString" connectionString=”Provider=Microsoft.Jet.OLEDB。4.0;Data Source=｜DataDirectory｜\user.mdb；Jet OLEDB:Database Password=111”
type=”Microsoft.VisualBasic。Logging.FileLogTraceListener， Microsoft.VisualBasic, Version=8.0.0.0， Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL"
可视化添加数据源的方式如下图：

图3-2 可视化数据库添加

第四章 使用说明

根据现在的酒店规模化的发展，将计算机应用于酒店的日常管理师必不可少的.酒店客房管理还可以应用在其他方面。这样的模块化设计使繁琐工作变得简单方便,而对于本系统来说，将不同的功能集成在一起是设计更加简便。
酒店管理系统操作简单方便，下设有客房管理,入住管理，退房管理，对客房的浏览。系统还自带有系统时间，方便检查入住的时间和退房时间。动态滚动条，界面简洁大方，易于管理.设有返回按钮及简便退出选项。

图4-1 登陆界面

图4—2 主菜单

采用多级菜单模式，使界面看起来更加的简洁。操作方便易于管理。上图将所用的功能集成在一起分类,看起来简介明了。以下是部分功能代码：
多管理界面form1
Public Class Form1
Private Sub Form1_Load(ByVal sender As System。Object, ByVal e As System。EventArgs） Handles MyBase.Load
Timer1.Enabled = True
End Sub

Private Sub 全部客房信息ToolStripMenuItem_Click(ByVal sender As System。Object， ByVal e As System.EventArgs） Handles 全部客房信息ToolStripMenuItem.Click
Form2.Show(）
Me.Hide（)
End Sub
Private Sub 退出ToolStripMenuItem_Click(ByVal sender As System.Object， ByVal e As System。EventArgs Handles 退出ToolStripMenuItem.Click
Dim a As Integer
a = MsgBox（”是否真的推出?”, 4， ”提示信息”)
If a = 6 Then
Me.Hide()
End If
End Sub

Private Sub Timer1_Tick(ByVal sender As System。Object, ByVal e As System.EventArgs) Handles Timer1。Tick
If Label1.Left < 0 Then
Label1。Left = Me.Width
Else
Label1.Left = Label1。Left - 30
End If
End Sub

Private Sub Form2_Load（ByVal sender As System.Object, ByVal e As System。EventArgs） Handles MyBase.Load
'TODO: 这行代码将数据加载到表“UserDataSet.user”中.您可以根据需要移动或移除它。
Me。UserTableAdapter。Fill(Me。UserDataSet。user）
End Sub
Private Sub Button1_Click（ByVal sender As System。Object， ByVal e As System。EventArgs) Handles Button1。Click
Form1.Show（)
Me.Hide()
End Sub

总结

感谢一直对我课程设计提供帮助的指导老师高岚老师和高汝仪老师，没有您的悉心指导,我不可能完成符合要求的合格的课程设计，同时也特别感谢王少华老师，没有您的指导，我也不可能完成该系统的基本设计和功能实现.
与此同时,我也要感谢对我课程设计提供帮助的同学们，是你们给予了我更多更广泛的设计思路，才使得我的思维更加宽广，这对于我的课程设计来说，是一种莫大的帮助,谢谢你们。
同时，我也要再次感谢全体老师，是你们在辛勤地为我们做了许多我们不曾注重的一些细节问题，为我们无论是在设计上还是在论文中，您们的劳动都是我的毕业设计能够完成不可缺少的因素.

参考文献

［1］ 刘炳文。Visual Basic。NET 程序设计。清华大学出版社,2007
［2] 刘怀亮。 Visual Basic。NET 程序设计。冶金工业出版社，2008
［3] 吴霞，万缨Visual Basic。NET 基础教程.清华大学出版社，2007
[4] 郑阿奇，彭作民。 Visual Basic.NET 程序设计教程。机械出版社。2006

附录

log 登录界面
Public Class log
Private Sub Label1_Click（ByVal sender As System.Object， ByVal e As System.EventArgs） Handles
Label1。Click
End Sub

Private Sub Button1_Click(ByVal sender As System。Object， ByVal e As System。EventArgs） Handles
Button1。Click
If TextBox1==”aaa" And TextBox2 =="111"Then
Me.Hide（）
Form1。Show（)
Else
MsgBox("密码或用户名错误！", 4， ”提示”）
End If
End Sub

Private Sub log_Load（ByVal sender As System。Object, ByVal e As System。EventArgs) Handles
MyBase。Load
TextBox2。PasswordChar = ”＊”
End Sub
End Class
多管理界面form1

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs） Handles
MyBase.Load
Timer1。Enabled = True
End Sub

Private Sub 全部客房信息ToolStripMenuItem_Click（ByVal sender As System.Object， ByVal e As

System.EventArgs） Handles 全部客房信息ToolStripMenuItem。Click
Form2。Show（）
Me.Hide(）
End Sub
Private Sub 剩余客房ToolStripMenuItem_Click（ByVal sender As System.Object， ByVal e As
System。EventArgs) Handles 剩余客房ToolStripMenuItem。Click
Form2.Show()
Me.Hide（)
End Sub
Private Sub 入户信息ToolStripMenuItem_Click(ByVal sender As System。Object, ByVal e As
System.EventArgs） Handles 入户信息ToolStripMenuItem.Click
Form2。Show(）
Me。Hide（）
End Sub
Private Sub 退房信息ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles 退房信息ToolStripMenuItem.Click
Form2。Show(）
Me。Hide(）
End Sub
Private Sub 退出ToolStripMenuItem_Click(ByVal sender As System。Object, ByVal e As
System.EventArgs) Handles 退出ToolStripMenuItem。Click
Dim a As Integer
a = MsgBox("是否真的推出？”, 4, "提示信息”)
If a = 6 Then
Me。Hide()
End If
End Sub
Private Sub 版权信息ToolStripMenuItem_Click（ByVal sender As System。Object， ByVal e As
System。EventArgs） Handles 版权信息ToolStripMenuItem。Click
meg.Show(）
End Sub
Private Sub 保存信息ToolStripMenuItem_Click（ByVal sender As System。Object, ByVal e As
System.EventArgs) Handles 保存信息ToolStripMenuItem。Click
MsgBox（"是否需要保存？", 4, ”提示信息”）
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System。EventArgs） Handles
Timer1.Tick
If Label1。Left 〈 0 Then
Label1.Left = Me.Width
Else
Label1.Left = Label1.Left - 30
End If
End Sub
Private Sub 日期时间ToolStripMenuItem_Click(ByVal sender As System。Object， ByVal e As
System。EventArgs) Handles 日期时间ToolStripMenuItem.Click
datet。Show()
End Sub
End Class

用户数据管理form2
Public Class Form2
Private Sub Form2_Load(ByVal sender As System.Object， ByVal e As System。EventArgs） Handles
MyBase.Load
'TODO： 这行代码将数据加载到表“UserDataSet.user”中.您可以根据需要移动或移除它。
Me.UserTableAdapter.Fill（Me.UserDataSet.user）
End Sub
Private Sub Button1_Click（ByVal sender As System。Object, ByVal e As System。EventArgs) Handles
Button1.Click
Form1.Show(）
Me.Hide（)
End Sub
End Class
17