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

《vb《酒店管理系统》课程设计.docx》由会员分享，可在线阅读，更多相关《vb《酒店管理系统》课程设计.docx（20页珍藏版）》请在三一文库上搜索。

1、吉林工程技术师范学院VB课程设计设计报告设计题目：酒店客房管理系统专业： 计算机 班级：C-1152学生姓名：学号：指导教师：2012年6月信息工程学院摘要 1第一章系统分析 21.1 课题研究的目的和意义21.2 本文的研究内容 3第二章系统实现42.1 设计的原则 42.2 用户和软件的特点 5第三章系统调试 73.1 系统实现 73.2 详细模块 8第四章使用说明 10总结 13参考文献 14附录 15摘要经过前一个学期对VB.Net 程序设计的学习，我们都学习到了有用VB 知识，可能有一些学习成果的不够理想，但无论如何，这些知识都为我们的下一步学习打下了坚实的基础。做这样的一个课程设计

2、，一方面是检查我们一个学期来我们学习的成果，另一方面也是为我们进一步的掌握和运用它打下了坚实的基础，同时也让我们认清自己的不足之处和薄弱环节，加以弥补和加强。在信息社会中，企业只有利用各种先进的管理方式和技术手段实现信息的高度集成，提高获取信息、分析、利用信息的能力，发展知识经济，才能在激烈的市场竞争中获取优势，随着市场经济的发展各行各业为加强信息管理提高经济效益的日益要求迫切需要把现代化信息处理技术应用到经济管理工作中去。迅速发展起来的酒店客房服务业为了提高自身的管理水平加强竞争能力，提高经济效率等，需要动态掌握客房各个环节中信息的变更必然离不开计算机的帮助。宾馆管理信息系统是在对宾馆的日常

3、运作进行综合调查的基础上开发出来的一套系统。主要包括客房资源、顾客信息进行管理，利用酒店管理信息系统及时了解各个环节中信息的变更，有利于提高管理效率。系统以Microsoft Access作为后台数据库，VB.Net为前台开发工具，运用模块化结 构设计思想、面向对象的设计方法，完成了管理系统的主要模块。关键词 ： 酒店客房管理模块化设计VB.Net第一章系统分析1.1 课题研究的目的和意义对酒店整个来说，对酒店经营状况起决定作用的是酒店的服务管理水 平。如何利用先进的管理手段来提高酒店的管理水平成为酒店业务发展的 当务之急。面对信息时代的机遇和挑战，利用科技手段提高酒店的管理无 疑是一条行之有

4、效的途径。虽然计算机管理并不是酒店管理走向成功的关 键元素，但它可以最大限度地发挥准确、快捷、高效等作用，对酒店的业 务管理提供强有力的支持。因此，采用全新的计算机网络和酒店业务管理 系统，已成为提高酒店的管理效率，使作业人员与管理系统之间灵活互动， 实现流畅的工作流衔接，帮助酒店有效地进行业务管理，释放最大价值。 酒店业务管理系统在达到在节省人力资源成本的同时，可以提高业务效率,并能够及时、准确、迅速地满足顾客服务的需求。需求分析是从客户的需求中提取出软件系统能够帮助用户解决的业务 问题，通过对用户业务问题的分析，规划出系统的功能模块，即定义用例。 这个步骤是对理解需求的升华，直接关系到该系

5、统的质量。1.2 本文的研究内容本报告编写的目的是为了说明系统需求概述、设计概要情况和设计思 路，为系统的详细设计提供基础，同时作为开发人员在系统分析设计阶段 的工作成果和本阶段的结束标志。使用户和软件开发者，对系统的总体设 计规定有一个共同的认识，使之成为今后整个开发工作的基础和依据。随着我国经济体制改革的不断深化和我国经济的快速发展，我国人民 的收入不断提高，消费观念也有提高，对服务质量的要求也有很大的提高。 各地把旅游业当作本地经济发展的重要支柱之一。酒店作为人们食宿、娱 乐、休闲的场所而得到了快速的发展。社会上也成立了各种类型，不同规 模的酒店服务企业。如何为客户提供更 加准确及时的服

6、务，成为各个酒店 竞争关键。所以酒店业务信息化建设就成为了客户衡量酒店提供商服务标 准的一个准则，信息系统成为了基础。随着Internet技术的进一步发展和普及，不能很好的适应世界经济发展 的形式和我国国民经济建设的需要，市场现有的产品化的酒店业务软件系 统在不断发 展中的酒店的需求。基于 VB.Net的酒店管理系统的总体设计 目标能够建立完善、高效、可靠的酒店业务信息系统，为酒店提供良好的 信息环境。一个成熟的酒店管理系统不仅仅是记录酒店客人的信息，提供查询， 报表打印等一系列简单的工作，它能让工作人员从烦琐的手工操作中解脱， 并且酒店管理系统本 身就代表着一种管理方法。随着它的深入，将带动

7、企 业的运做，为管理和决策提供支持。为了达到这个要求，它必须依靠高起 点的硬件环境和软件开发工具来保证系统的稳定和正常运行。第二章系统实现在分析现行手工操作的基础上，进一步研究餐饮管理的处理流程，确 定系统的总体结构及功能模块，研究各个模块之间的联系，确定模块之间 的接口方案。依照实用性、可靠性、可扩充性、经济性的原则，设计有关 的各类码表及相关的程序代码，并验证代码的正确性，设计一套合理、完 整的测试方案，对系统进行测试，是系统达到用户的使用要求。Visual Basic.NET是从 Visual Basic语言演变而来，是一种为高效地生 成类型安全和面向对象的应用程序而设计的语言。Visu

8、al 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 .实用性原则该系统是以宾馆管理为基础开发的通用宾馆管理系统，适合中、

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

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

11、理。这就要求面向酒店的计算机管理系统应尽可能得在功能设计上和使用手法上模拟现实情况，让用户使用时感觉熟悉、踏实、容易接受。第三章系统调试3.1系统实现VB.Net是一款网络化的，面向对象的设计平台。通过对模块的设计能 够成功的将很多的功能集成在一起形成一套完整的系统。本系统的功能如下图所示:图3-1系统结构化模型入住客房登记及退房登记等模块都与后台数据库相连。实现了系统整 体结构的运行。依照实用性、可靠性、可扩充性、经济性的原则，设计有 关的各类码表及相关的程序代码，并验证代码的正确性，设计一套合理、 完整的测试方案，对系统进行测试，是系统达到用户的使用要求。3.2详细模块酒店管理系统在设计过

12、程中应用到了代码，用代码控制每个模块所具 有的功能，并通过可视化的窗体对界面的设计提供帮助。其中连接数据库 的方法及代码如下：add name=酉店客房管理系统.My.MySettings.userConnectionString connectionString=Provider=Microsoft.Jet.OLEDB.4.0;DataSource=|DataDirectory|user.mdb;Jet OLEDB:Database Password=111 type=Microsoft.VisualBasic.Logging.FileLogTraceListener,Microsoft.V

13、isualBasic, Version=8.0.0.0, Culture=neutral,PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL 可视化添加数据源的方式如下图：图3-2可视化数据库添加第四章使用说明根据现在的酒店规模化的发展，将计算机应用于酒店的日常管理师必 不可少的。酒店客房管理还可以应用在其他方面。这样的模块化设计使繁 琐工作变得简单方便，而对于本系统来说，将不同的功能集成在一起是设 计更加简便。酒店管理系统操作简单方便，下设有客房管理，入住管理，退房管理， 对客房的浏览。系统还自带有系统时间，方便检查入住的时

14、间和退房时间。 动态滚动条，界面简洁大方，易于管理。设有返回按钮及简便退出选项。图4-1登陆界面X岁例例用善耳恬E名曜谛氏根恬F. JE出欢迎使用酒店客房管理系统图4-2主菜单采用多级菜单模式，使界面看起来更加的简洁。操作方便易于管理。 上图将所用的功能集成在一起分类，看起来简介明了。以下是部分功能代 码：多管理界面formlPublic Class FormlPrivate Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadTimer1.Enabled =

15、 TrueEnd SubPrivate Sub 全部客房信息 ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 全部客房信息 ToolStripMenuItem.ClickForm2.Show()Me.Hide()End SubPrivate Sub 退出 ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出 ToolStrip

16、MenuItem.ClickDim a As Integera = MsgBox(是否真的推出？ , 4,提示信息)If a = 6 ThenMe.Hide() End IfEnd SubPrivate Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.TickIf Label1.Left 0 ThenLabel1.Left = Me.WidthElseLabel1.Left = Label1.Left - 30End If End SubPrivate Sub

17、Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadTODO:这行代码将数据加载到表“ UserDataSet.us刮。您可以根据需要移动或移除它。Me.UserTableAdapter.Fill(Me.UserDataSet.user) End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickFo

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

19、参考文献1刘炳文.Visual Basic.NET程序设计.清华大学出版社，20072刘怀亮.Visual Basic.NET程序设计.冶金工业出版社，20083吴霞，万缨Visual Basic.NET基础教程.清华大学出版社，20074郑阿奇，彭作民.Visual Basic.NET程序设计教程.机械出版社.2006附录log登录界面Public Class logPrivate Sub Label1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) HandlesLabel1.ClickEnd SubPriv

20、ate Sub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) HandlesButton1.ClickIf TextBox1=aaa And TextBox2 =111ThenMe.Hide()Form1.Show()ElseMsgBox(密码或用户名错误！, 4,提示)End IfEnd SubPrivate Sub log_Load(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) HandlesMyBase.LoadTex

21、tBox2.PasswordChar = *End SubEnd Class多管理界面formlPublic Class FormlPrivate Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.LoadTimer1.Enabled = TrueEnd SubPrivate Sub 全部客房信息 ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Han

22、dles 全部客房信息 ToolStripMenuItem.ClickForm2.Show()Me.Hide()End SubPrivate Sub 剩余客房 ToolStripMenuItem_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles 乘U余客房 ToolStripMenuItem.ClickForm2.Show()Me.Hide()End SubPrivate Sub 入户彳三息 ToolStripMenuItem_Click(ByVal sender AsSystem.Object, B

23、yVal e AsSystem.EventArgs) Handles入户彳S息 ToolStripMenuItem.ClickForm2.Show()Me.Hide()End SubPrivate Sub 退房信息 ToolStripMenuItem_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles 退房信息 ToolStripMenuItem.ClickForm2.Show()Me.Hide()End SubPrivate Sub 退出 ToolStripMenuItem_Click(ByVal s

24、ender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles 退出 ToolStripMenuItem.ClickDim a As Integera = MsgBox(是否真的推出？ , 4,提示信息)If a = 6 ThenMe.Hide()End IfEnd SubPrivate Sub 版权信息 ToolStripMenuItem_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles 版权信息 ToolStripMenuItem.Clickm

25、eg.Show()End SubPrivate Sub 保存信息 ToolStripMenuItem_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles 保存信息 ToolStripMenuItem.ClickMsgBox(是否需要保存？ , 4,提示信息)End SubPrivate Sub Timer1_Tick(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) HandlesTimer1.TickIf Labell.Left 0

26、ThenLabell.Left = Me.WidthElseLabell.Left = Labell.Left - 30End IfEnd SubPrivate Sub 日期时间 ToolStripMenuItem_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles 日期时间 ToolStripMenuItem.Clickdatet.Show()End SubEnd Class用户数据管理form2Public Class Form2Private Sub Form2_Load(ByVal sender

27、 As System.Object, ByVal e AsSystem.EventArgs) HandlesMyBase.LoadTODO:这行代码将数据加载到表 “UserDataSet.us井。您可以根 据需要移动或移除它。Me.UserTableAdapter.Fill(Me.UserDataSet.user)End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickForm1.Show()Me.Hide()End Sub