vb《酒店管理系统》课程设计Word下载.docx

vb《酒店管理系统》课程设计Word下载.docx

《vb《酒店管理系统》课程设计Word下载.docx》由会员分享，可在线阅读，更多相关《vb《酒店管理系统》课程设计Word下载.docx（11页珍藏版）》请在冰豆网上搜索。

迅速发展起来的酒店客房服务业．为了提高自身的管理水平．加强竞争能力，提高经济效率等，需要动态掌握客房各个环节中信息的变更．必然离不开计算机的帮助。

宾馆管理信息系统是在对宾馆的日常运作进行综合调查的基础上开发出来的一套系统。

主要包括客房资源、顾客信息进行管理，利用酒店管理信息系统及时了解各个环节中信息的变更，有利于提高管理效率。

系统以MicrosoftAccess作为后台数据库，VB.Net为前台开发工具，运用模块化结构设计思想、面向对象的设计方法，完成了管理系统的主要模块。

关键词：

酒店客房管理模块化设计VB.Net

第一章系统分析

1.1课题研究的目的和意义

对酒店整个来说，对酒店经营状况起决定作用的是酒店的服务管理水平。

如何利用先进的管理手段来提高酒店的管理水平成为酒店业务发展的当务之急。

面对信息时代的机遇和挑战，利用科技手段提高酒店的管理无疑是一条行之有效的途径。

虽然计算机管理并不是酒店管理走向成功的关键元素，但它可以最大限度地发挥准确、快捷、高效等作用，对酒店的业务管理提供强有力的支持。

因此，采用全新的计算机网络和酒店业务管理系统，已成为提高酒店的管理效率，使作业人员与管理系统之间灵活互动，实现流畅的工作流衔接，帮助酒店有效地进行业务管理，释放最大价值。

酒店业务管理系统在达到在节省人力资源成本的同时，可以提高业务效率，并能够及时、准确、迅速地满足顾客服务的需求。

需求分析是从客户的需求中提取出软件系统能够帮助用户解决的业务问题，通过对用户业务问题的分析，规划出系统的功能模块，即定义用例。

这个步骤是对理解需求的升华，直接关系到该系统的质量。

1.2本文的研究内容

本报告编写的目的是为了说明系统需求概述、设计概要情况和设计思路，为系统的详细设计提供基础，同时作为开发人员在系统分析设计阶段的工作成果和本阶段的结束标志。

使用户和软件开发者，对系统的总体设计规定有一个共同的认识，使之成为今后整个开发工作的基础和依据。

随着我国经济体制改革的不断深化和我国经济的快速发展，我国人民的收入不断提高，消费观念也有提高，对服务质量的要求也有很大的提高。

各地把旅游业当作本地经济发展的重要支柱之一。

酒店作为人们食宿、娱乐、休闲的场所而得到了快速的发展。

社会上也成立了各种类型，不同规模的酒店服务企业。

如何为客户提供更加准确及时的服务，成为各个酒店竞争关键。

所以酒店业务信息化建设就成为了客户衡量酒店提供商服务标准的一个准则，信息系统成为了基础。

随着Internet技术的进一步发展和普及，不能很好的适应世界经济发展的形式和我国国民经济建设的需要，市场现有的产品化的酒店业务软件系统在不断发展中的酒店的需求。

基于VB.Net的酒店管理系统的总体设计目标能够建立完善、高效、可靠的酒店业务信息系统，为酒店提供良好的信息环境。

一个成熟的酒店管理系统不仅仅是记录酒店客人的信息，提供查询，报表打印等一系列简单的工作，它能让工作人员从烦琐的手工操作中解脱，并且酒店管理系统本身就代表着一种管理方法。

随着它的深入，将带动企业的运做，为管理和决策提供支持。

为了达到这个要求，它必须依靠高起点的硬件环境和软件开发工具来保证系统的稳定和正常运行。

第二章系统实现

在分析现行手工操作的基础上，进一步研究餐饮管理的处理流程，确定系统的总体结构及功能模块，研究各个模块之间的联系，确定模块之间的接口方案。

依照实用性、可靠性、可扩充性、经济性的原则，设计有关的各类码表及相关的程序代码，并验证代码的正确性，设计一套合理、完整的测试方案，对系统进行测试，是系统达到用户的使用要求。

VisualBasic.NET是从VisualBasic语言演变而来，是一种为高效地生成类型安全和面向对象的应用程序而设计的语言。

VisualBasic允许开发人员开发面向Windows、Web和移动设备的程序。

与所有面向Microsoft.NETFramework语言一样，使用VisualBasic编写的程序都具有安全性和语言互操作性方面优点。

VB.Net常被人称为VB7.0即对VB6.0的升级是不对的，几乎在.net中思想已经完全改变，VB6.0中是基于事件和对象的思想，而在.net中由于使用了.net框架，面对对象在.net中尤为突出，VB6.0的思想还能运用，但在.net的思想已完全被OOP思想取代。

2.1设计的原则

1．实用性原则

该系统是以宾馆管理为基础开发的通用宾馆管理系统，适合中、小宾馆企业的使用。

2．可靠性原则

该系统应有较高的可靠性，在系统设计及程序设计上应该强调系统的可靠性。

3．可扩充性原则

应该保证该系统在系统的功能，结构方面具有可扩充性。

以便适应企业以后发展的需要，做出相应的功能结构上的调整。

4．经济性原则

应该注重系统的性价比，时刻为用户着想，在同等功能的基础上尽可能的减少企业的投入。

综上所述，帮助企业加强管理，提高经济效益，解决实际管理中的各类问题，是设计该系统的主要目标。

2.2用户和软件的特点

1．管理高效

宾馆管理内部从业人员中存在不少人对计算机比较陌生，对使用计算机来管理有一定的畏惧心理。

这就要求面向宾馆的计算机管理系统应尽可能得在功能设计上和使用手法上模拟现实情况，让用户使用时感觉熟悉、踏实、容易接受，否则会导致强烈的抵触情绪。

2．管理信息

宾馆管理系统要对客房资源、顾客信息进行管理，存储宾馆客房的所有静态和动态信息，能够实现宾馆管理的自动化，并利用宾馆管理信息系统及时了解各个环节中信息的变更，有利于提高管理效率，否则无法满足宾馆方便、快捷的需求，这对系统使用和运行效率、稳定性都提出了更高的要求宾馆管理内部从业人员中存在不少人对计算机比较陌生。

对使用计算机来管理有数据库管理没有专业知识，而本系统使用数据库连接技术，运用SQL语言查询方式集成模块，通过VB.Net程序的可视化窗体消除了非专业人员对计算机操作的畏惧心理。

这就要求面向酒店的计算机管理系统应尽可能得在功能设计上和使用手法上模拟现实情况，让用户使用时感觉熟悉、踏实、容易接受。

第三章系统调试

3.1系统实现

VB.Net是一款网络化的，面向对象的设计平台。

通过对模块的设计能够成功的将很多的功能集成在一起形成一套完整的系统。

本系统的功能如下图所示：

图3-1系统结构化模型

入住客房登记及退房登记等模块都与后台数据库相连。

实现了系统整体结构的运行。

3.2详细模块

酒店管理系统在设计过程中应用到了代码，用代码控制每个模块所具有的功能，并通过可视化的窗体对界面的设计提供帮助。

其中连接数据库的方法及代码如下：

addname="

酒店客房管理系统.My.MySettings.userConnectionString"

connectionString="

Provider=Microsoft.Jet.OLEDB.4.0;

DataSource=|DataDirectory|\user.mdb;

JetOLEDB:

DatabasePassword=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

PublicClassForm1

PrivateSubForm1_Load（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesMyBase.Load

Timer1.Enabled=True

EndSub

PrivateSub全部客房信息ToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles全部客房信息ToolStripMenuItem.Click

Form2.Show（）

Me.Hide（）

PrivateSub退出ToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles退出ToolStripMenuItem.Click

DimaAsInteger

a=MsgBox（"

是否真的推出？

"

4,"

提示信息"

）

Ifa=6Then

EndIf

PrivateSubTimer1_Tick（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesTimer1.Tick

IfLabel1.Left<

0Then

Label1.Left=Me.Width

Else

Label1.Left=Label1.Left-30

PrivateSubForm2_Load（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesMyBase.Load

'

TODO:

这行代码将数据加载到表“UserDataSet.user”中。

您可以根据需要移动或移除它。

Me.UserTableAdapter.Fill（Me.UserDataSet.user）

PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click

Form1.Show（）

总结

感谢一直对我课程设计提供帮助的指导老师高岚老师和高汝仪老师，没有您的悉心指导，我不可能完成符合要求的合格的课程设计，同时也特别感谢王少华老师，没有您的指导，我也不可能完成该系统的基本设计和功能实现。

与此同时，我也要感谢对我课程设计提供帮助的同学们，是你们给予了我更多更广泛的设计思路，才使得我的思维更加宽广，这对于我的课程设计来说，是一种莫大的帮助，谢谢你们。

同时，我也要再次感谢全体老师，是你们在辛勤地为我们做了许多我们不曾注重的一些细节问题，为我们无论是在设计上还是在论文中，您们的劳动都是我的毕业设计能够完成不可缺少的因素。

参考文献

[1]刘炳文.VisualBasic.NET程序设计.清华大学出版社，2007

[2]刘怀亮.VisualBasic.NET程序设计.冶金工业出版社，2008

[3]吴霞，万缨VisualBasic.NET基础教程.清华大学出版社，2007

[4]郑阿奇，彭作民.VisualBasic.NET程序设计教程.机械出版社.2006

附录

log登录界面

PublicClasslog

PrivateSubLabel1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles

Label1.Click

EndSub

PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles

Button1.Click

IfTextBox1=="

aaa"

AndTextBox2=="

111"

Then

MsgBox（"

密码或用户名错误！

提示"

PrivateSublog_Load（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles

MyBase.Load

TextBox2.PasswordChar="

*"

EndClass

PrivateSubForm1_Load（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles

PrivateSub全部客房信息ToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAs

System.EventArgs）Handles全部客房信息ToolStripMenuItem.Click

PrivateSub剩余客房ToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAs

System.EventArgs）Handles剩余客房ToolStripMenuItem.Click

PrivateSub入户信息ToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAs

System.EventArgs）Handles入户信息ToolStripMenuItem.Click

PrivateSub退房信息ToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAs

System.EventArgs）Handles退房信息ToolStripMenuItem.Click

PrivateSub退出ToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAs

System.EventArgs）Handles退出ToolStripMenuItem.Click

PrivateSub版权信息ToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAs

System.EventArgs）Handles版权信息ToolStripMenuItem.Click

meg.Show（）

PrivateSub保存信息ToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAs

System.EventArgs）Handles保存信息ToolStripMenuItem.Click

是否需要保存？

PrivateSubTimer1_Tick（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles

Timer1.Tick

PrivateSub日期时间ToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAs

System.EventArgs）Handles日期时间ToolStripMenuItem.Click

datet.Show（）

用户数据管理form2

PublicClassForm2

PrivateSubForm2_Load（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles

PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles