酒店管理系统课程设计

1、软件开发环境与工具课程设计实验题目 ：酒店管理系统指导老师 ：南丽丽专业班级 ：计算机科学与技术系1105 班姓名：陈阿艳（ 2011100516）王媛（ 2011100529）闫丽颖（ 2011100503）樊建红（ 2011100515）2013年12月13日目录1.42.1. Visual Basic .NET2.2.SQL Server200. .. “ ” 2第1章前言1.1 选题背景酒店业是一个前景广阔而又竞争激烈的行业。 改革开放以来， 我国的酒店业迅速发展，已经成为一个具有相当规模的

2、产业。 由于我国的旅游业迅速发展， 通过调查，我国在 2020 年将成为世界上第四大旅游国家；同时我国加入世界贸易组织，酒店业将完全开放， 这个时候，我国的酒店业将面临着前所未有的机遇和挑战。但是，现在甚至还有一些酒店还停留在由人工操作和管理阶段， 这样已经无法适应当前的发展趋势。 因此，要想使酒店的工作质量和效率提高， 采用先进的计算机网络 通信技术改变酒店业务模式，实现酒店业务管理的自动化已经成为一种必然。酒店管理系统采用 B/S 结构。按照按国家星级宾馆标准化业务程序流式设计，会采用主流开发工具来开发， 搭建比较稳定可靠安全的服务端来辅佐客户管理，并且还采用数据库 mysql，会通过测试

3、用例来达到测试效果，技术支持会采用轻量级框架 struts 和 hibernate 持久化来完成，服务器采用 tomcat ，通过powerdesigner 来设计数据模型为最初业务流程的概念设计阶段和详细设计阶段打好基础 1。1.2 课题研究的目的和意义对酒店整个来说， 对酒店经营状况起决定作用的是酒店的服务管理水平。如何利用先进的管理手段来提高酒店的管理水平成为酒店业务发展的当务之急。面对信息时代的机遇和挑战， 利用科技手段提高酒店的管理无疑是一条行之有效的途径。虽然计算机管理并不是酒店管理走向成功的关键元素，但它可以最大限度地发挥准确、快捷、高效等作用，对酒店的业务管理提供强有力的支持。

4、因此，采用全新的计算机网络和酒店业务管理系统，已成为提高酒店的管理效率， 使作业人员与管理系统之间灵活互动，实现流畅的工作流衔接， 帮助酒店有效地进行业务管理，释放最大价值。酒店业务管理系统在达到在节省人力资源成本的同时，可以提高业务效率，并能够及时、准确、迅速地满足顾客服务的需求2。31.3 本文的研究内容课程设计选题酒店管理系统主要研究了：酒店业务的管理（划分为，登陆界面部分，查询界面部分，入住界面部分，退房界面部分）。1.4 国内外现状随着我国经济体制改革的不断深化和我国经济的快速发展， 我国人民的收入不断提高，消费观念也有提高，对服务质量的要求也有很大 的 提高。各地把旅游业当作本 地

5、经济发展的 重要支柱之一。 酒店作为人们食宿、娱乐、休闲的场所而得到了快速的发展。 社会上也成立了各种类型， 不同规模的酒店服务企业。 如何为客户提供更 加准确及时的服务，成为各个酒店竞争关键。所以酒店业务信息化建设就成为了客户衡量酒店提供商服务标准的一个准则，信息系统成为了基础。随着 Internet技术的进一步发展和普及，不能很好的适应世界经济发展的形式和我国国民经济建设的需要， 市场现有的产品化的酒店业务软件系统在不断发 展中的酒店的需求。 基于 WEB的酒店管理系统的总体设计目标能够建立完善、高效、可靠的酒店业务信息系统，为酒店提供良好的信息环境3。第 2 章 开发环境及工具介绍21V

6、isual Basic .NET简介Visual Basic .NET通常缩写为 VB.NET,在某些特定情况下也直接简称VB，比如在 .NET 这个大话题下或者与其他.NET 语言一起讨论的时候。Visual Basic .NET属 Basic 系语言，其语法特点是以极具亲和力的英文单词为基础标识，以及与自然语言极其相近的逻辑表达， 有时候你会觉得写 VB.NET 代码就好像在写英文句子一样，从这个角度来说， VB.NET似乎是最高级的一门编程语言，当然在 Basic 系语言中 VB.NET也确实是迄今为止最强大的一门编程语言。Visual Basic .NET 的应用范围包括 window

7、s 桌面、 web以及当下突然觉醒的正在奋力追赶的第三大移动平台 Windows phone。2.2 SQL Server2005SQLServer是一个关系数据库管理系统。 它最初是由 Microsoft、Sybase 和4Ashton-Tate三家公司共同开发的，于1988 年推出了第一个OS/2 版本。在Windows NT 推出后， Microsoft与 Sybase 在 SQL Server 的开发上就分道扬镳了， Microsoft将 SQL Server 移植到 Windows NT系统上，专注于开发推广SQLServer的 Windows NT 版本。 Sybase 则较专注于

8、 SQL Server 在 UN操作系统上的应用。MicrosoftSQL Server 2005 是一个全面的数据库平台，使用集成的商业智能 (BI)工具提供了企业级的数据管理。Microsoft SQL Server 2005数据库引擎为关系型数据和结构化数据提供了更安全可靠的存储功能，使您可以构建和管理用于业务的高可用和高性能的数据应用程序。第3章系统分析3.1 可行性分析随着旅游业的发展， 酒店、餐饮娱乐行业日趋发达， 引入全方位的电脑服务和电脑管理日益流行。 同时，酒店和餐厅娱乐业引入电脑服务和管理也取得了优良的经济 效益和社会效益。为此，国家建设部已于最近作出明确规定：凡星级酒店在

9、项目审批时，其设计方案必须包括电脑管理系统，否则不予立项。可见，酒店管理电脑化 势在必行。酒店管理系统将先进的电脑技术与现代酒店服务管理完美地结合起来，实现了住宿、餐饮、娱乐全新概念的服务和管理方式。一个成熟的酒店管理系统不仅仅是记录酒店客人的信息， 提供查询，报表打印等一系列简单的工作， 它能让工作人员从烦琐的手工操作中解脱， 并且酒店管理系统本 身就代表着一种管理方法。随着它的深入，将带动企业的运做，为管理和决策提供支持。 为了达到这个要求， 它必须依靠高起点的硬件环境和软件开发工具来保证系 统的稳定和正常运行。酒店电脑系统要求 24 小时连续运行，数据量大，可靠性要求高， 因此整个电脑系

10、统供电采用专线方式， 加配 UPS（不间断供电系统），并合理接地，以便保障整套系统的正常运行7。3.2 需求分析系统需对用户登录进行管理。 使用各功能模块时， 系统应验证用户身份的有效性，否则要求用户登录。另外，允许用户对自己的密码进行修改。系统应提供客房的分类管理功能， 可分类制订客房面积、 价格、是否配备空调等客房类型，对不同标准的客房进行有效管理。 系统可实现对客房信息的添加、删除以及修改。5在进行入住 / 退房管理时，系统可以根据客房当前的状态自动提示可用服务( 入住 / 退房 ) 。如果客房没有客人入住，则该客房的可用服务为“入住”；否则，可用服务为“退房”。系统的客户端在 Wind

11、ows平台下运行，服务器端可在 Windows平台或 UNIX 平台下运行。系统还需要有较好的安全性和可扩展性 8 。需求分析是从客户的需求中提取出软件系统能够帮助用户解决的业务问题，通过对用户业务问题的分析，规划出系统的功能模块， 即定义用例。 这个步骤是对理解需求的升华，直接关系到该系统的质量。整个系统可以分为 2 大部分。酒店网站部分 （客户服务网站） 和酒店管理部分（管理员部分）。本系统只做了有关酒店管理的一部分。酒店管理部分1. 客房管理 : 预订客房管理、客房查询、退房管理。前台服务员的主要职能是负责订房和退房， 以及查询入住的客户信息。 所有该角色只可以使用部分功能，包括预定管理

12、、客户信息查询，入住管理，退房管理功能。第四章数据库设计4.1 数据库设计截图64.2 权限设置4.3 客户信息表4.4 房态表74.5 结算表第 5章系统实现5.1 登陆分别用三种身份登陆，所得到的权限也就不同8老板经理员工5.2 客户入住（通过添加客户信息，自动计算应付房费）5.3 客户结算退房95.4 以“老板”为例，展示系统功能（1）查询房态住着人的房间有：10通过房间号查某间房的房态（ 2）职工管理添加职工设置权限第 6章主要代码11登陆Public Class LoginPrivate Sub Btn_Login_Click( ByVal sender As System.Obje

13、ct, ByVal e As System.EventArgs)Handles Btn_Login.ClickIf s = 1 ThenMsgBox(" 欢迎使用假日酒店管理系统 ", MsgBoxStyle .Information + MsgBoxStyle .OkOnly)Main_Form.Show()Me.Close()ElseIf s = -1 ThenMsgBox(" 用户名错误！ ", MsgBoxStyle .Information + MsgBoxStyle .OkOnly)ElseMsgBox(" 密码错误！ "

14、 , MsgBoxStyle .Information + MsgBoxStyle .OkOnly)End IfEnd IfEnd SubPrivate Sub Btn_Cancel_Click( ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Btn_Cancel.ClickMe .Close()End SubPrivate Sub Login_Load( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.L

15、oadEnd SubEnd Class主界面Public Class Main_FormPrivate Sub Main_Form_Load( ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.LoadCall Init_Tree()End SubPublic Sub Init_Tree()12Dim s As Strings = "select * from gg_Menu where isStop='0'"Dim dr As SqlClient.SqlDat

16、aReaderdr = myCommon. getData.get_dr(s)Dim myNode As TreeNodeWhile dr.ReadmyNode = New TreeNodemyNode.Text = dr.Item( "MenuName")End IfmyNode.Name = dr.Item("Typeid" )If dr.Item("isGroup" ) = "0" ThenmyNode.Tag = dr.Item("Form" )ElsemyNode.Tag = &quo

17、t;"End IfIf dr.Item("Parid" ) = "0" ThenElseEnd IfEnd IfEnd Whiledr.Close()End SubDim formName As StringDim f As Form'f = CType(Activator .CreateInstance(Type.GetType(formName), Form)f.Show()f.MdiParent = Mef.WindowState = FormWindowState.MaximizedEnd SubPrivate Sub 退出 T

18、oolStripMenuItem_Click( ByVal sender As System.Object, ByVal e As13System.EventArgs) Handles 注á?é销¨2ToolStripMenuItem.ClickLogin .Show()Me .Close()End SubPrivate Sub Timer1_Tick( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.TickMe .Tool_lb_name.Text = &qu

19、ot; 登陆者日期 " & Format(Now, "yyyy-MM-dd" )Me .Tool_lb_time.Text = "时间 " & Format(Now, "long time" )End SubPrivate Sub 退出 ToolStripMenuItem1_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出 ToolStripMenuItem1.ClickMe .Close()End Su

20、bEnd Class入住Public Class Ruzhu_loginPrivate Sub Ruzhu_login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.LoadMe .Txt_no.Text = myCommon. getNewCode.get_NewCodeCall Init_Cbox()End SubPrivate Sub Cbox_type_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As

21、 System.EventArgs) Handles Cbox_type.SelectedIndexChangedDim s As Strings = "select * from Fang where Fang_state='空Dim dr As SqlClient.SqlDataReaderdr = myCommon. getData.get_dr(s)While dr.ReadTxt_yajin.Text = dr!Fang_yajinTxt_danjia.Text = dr!Fang_priceEnd Whiledr.Close()End Sub14Private S

22、ub Btn_ok_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_ok.ClickDim s As StringDim ID_Card As StringID_Card = Me .Txt_ID.TextDim cAge As IntegercAge = myCommon. getAge.get_age(ID_Card)Dim stoptime As Stringstoptime = "0000/00/00 00:00:00"s = "insert in

23、to Customer values ('" & Txt_no.Text &"','" & Txt_name.Text & "','" &Cbox_sex.Text & "','" & cAge.ToString & "','" & Txt_ID.Text _& "','" & Cbox_type.Text &a

24、mp; "','" & Cbox_fang_no.Text & "','" & Now &"','" & stoptime &"','" & Txt_yajin.Text _& "','" & Txt_days.Text & "','" & Txt_yingjiao.Text &&quo

25、t;','" & Txt_yijiao.Text &"')"Dim s2 As Strings2 = "update Fang set Fang_state='满 ' where Fang_num='" & Cbox_fang_no.Text & "'"TryMsgBox(" 添加成功！ ", MsgBoxStyle .Information + MsgBoxStyle .OkOnly)Catch ex As Exce

26、ptionMsgBox(" 添加失败！ " & ex.Message, MsgBoxStyle .Information + MsgBoxStyle .OkOnly)End TryEnd SubPrivate Sub Btn_jisuan_Click( ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Btn_jisuan.ClickMe .Txt_yingjiao.Text = Txt_danjia.Text * Txt_days.Text + Txt_yajin.Text End

27、 SubPrivate Sub Btn_add_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_add.ClickMe .Txt_no.Text = myCommon. getNewCode.get_NewCodeTxt_name.Text = ""Txt_ID.Text = ""Txt_yajin.Text = ""Txt_days.Text = ""Txt_yingjiao.Text = "&

28、quot;Txt_yijiao.Text = ""15Txt_address.Text = ""Txt_danjia.Text = ""Call Init_Cbox()End SubSub Init_Cbox() '为性别和房间类型进行添加男 ")女 ")单人间 ")双人间 ")End SubEnd Class结算Public Class JiesuanDim str As StringPrivate Sub Jiesuan_Load(ByVal sender As System.Obj

29、ect, ByVal e As System.EventArgs) Handles MyBase.LoadCall Btn_show_Click(sender, e)End SubPrivate Sub Btn_jiesuan_Click( ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Btn_jiesuan.ClickDim s As StringDim yajin As StringDim yijiao As StringDim str As Stringstr = Nowstr = Mid(str,

30、1, 10)s = "select yajin,yijiao from Customer where Start_time like '" & str & "%' "Dim dr As SqlClient.SqlDataReaderdr = myCommon. getData.get_dr(s)While dr.Readyajin = dr!yajin + yajinyijiao = dr!yijiao + yijiaoEnd Whiledr.Close()s = "select count(*) from Ji

31、esuan where Riqi like '" & str & "%' "Dim conn As New SqlClient. SqlConnectionDim cmd As New SqlClient.SqlCommandcmd.Connection = conncmd.CommandType = CommandType.Textcmd.CommandText = sconn.Open()If CType(cmd.ExecuteScalar(), Integer) = 0 Then16Trys = "insert in

32、to Jiesuan values ('" & str & "','" & yijiao & "','" & yajin & "','" & yijiao - yajin & "', '待审核 ' , '待审核 ') where Riqi='" & str & "'"Catch ex As Exc

33、eptionMsgBox(" 结算时出现错误！ " & ex.Message)End TryElseIf CType(cmd.ExecuteScalar(), Integer) > 0 ThenTrys = "update Jiesuan set All_money='" & yijiao & "',All_yajin='" & yajin & "',Shouru='" & yijiao - yajin & &qu

34、ot;' where Riqi='" & str & "'"Catch ex As ExceptionMsgBox( "结算时出错误！ " )End TryEnd IfEnd Ifs = "select * from Jiesuan where Riqi='" & str & "'"Dim ds As DataSetDGView_jiesuan.DataSource = ds.Tables(0)End SubPrivate Sub B

35、tn_show_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_show.ClickDim s As Strings = "select * from Jiesuan"Dim ds As DataSetDGView_jiesuan.DataSource = ds.Tables(0)End SubPrivate Sub Btn_jingli_Click( ByVal sender As System.Object, ByVal e As System.EventArg

36、s) Handles Btn_jingli.ClickDim str As Stringstr = Nowstr = Mid(str, 1, 10)经理 " Then Dim s As String& "' where Riqi='" & str & "'" Try17Call Btn_show_Click(sender, e)Catch ex As ExceptionMsgBox(" 审核失败！ " )End TryElseMsgBox(" 你没有权限！ "

37、; )End IfEnd SubPrivate Sub Btn_laoban_Click( ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Btn_laoban.ClickDim str As Stringstr = Nowstr = Mid(str, 1, 10)老板 " Then Dim s As Strings = "update Jiesuan set laobanshenhe='"&TryCall Btn_show_Click(sender, e)Cat

38、ch ex As ExceptionMsgBox(" 审|核失败！ " )End TryElseMsgBox(" 你没有权限！ " )End IfEnd SubEnd Class退房Public Class Tuifang_loginDim dv As DataViewPrivate Sub Btn_chaxun_Click( ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Btn_chaxun.ClickDim str As StringDim ds As DataS

39、etdv = ds.Tables("temp" ).DefaultViewDGView_tuifang.DataSource = dvEnd Sub18Private Sub Btn_Tuifang_Click( ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Btn_Tuifang.ClickDim s As Strings = "update Fang set Fang_state='空 ?' where Fang_num='" &

40、dv.Item(0).Item( "Fang_no" ).ToString & "'"Dim s2 As Strings2 = "update Customer setyingjiao='" & dv.Item(0).Item( "yingjiao" ) - dv.Item(0).Item( "yajin" )& "',stop_time='" & Now _& "',yajin=

41、9;0',yijiao='" & dv.Item(0).Item( "yijiao" ) - dv.Item(0).Item( "yajin" ) & "' whereCustomer_no='" & dv.Item(0).Item( "Customer_no") & "'"TryMsgBox(" 退房成功！ ", MsgBoxStyle .Information + MsgBoxStyle .

42、OkOnly)Catch ex As ExceptionMsgBox(" 退房失败！ " & ex.Message, MsgBoxStyle .Information + MsgBoxStyle .OkOnly)End TryEnd SubEnd Sub查询Private Sub Btn_Customer_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Customer.ClickShow_all_coustomer()End SubPrivate Sub

43、Btn_Chaxun_Click( ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Btn_Chaxun.ClickDim str As StringIf Chaxun_Fang.Text <> "" And Chaxun_name.Text <> "" Thenstr = "Fang_no='" & Chaxun_Fang.Text & "' and Customer_name=&#

44、39;" & Chaxun_name.Text& "'"ElseIf Chaxun_Fang.Text <> "" And Chaxun_name.Text = "" Then str = "Fang_no='" & Chaxun_Fang.Text & "'"ElseIf Chaxun_Fang.Text = "" And Chaxun_name.Text <> ""

45、; Then str = " Customer_name='" & Chaxun_name.Text & "'"End If19Call Show_all(str)End SubPrivate Sub Panel2_Paint(ByVal sender As System.Object, ByVal e AsEnd SubEnd Class管理Public Class cManagerSub show_Role_Auth()Dim s As Strings = "select * from Role_Auth_V

46、 where Role_Name<>' 老板 '"Dim ds As DataSetDGView_Role_Auth.DataSource = ds.Tables("temp" )End SubPrivate Sub cManager_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadDim s As Strings = "select * from Role_Auth_V where Role_Name<

47、;>' 老板 '"Dim ds As DataSetDGView_Role_Auth.DataSource = ds.Tables("temp" )Dim dr As SqlClient.SqlDataReaders = "select * from gg_Menu where MenuName<>' 权限 T'and MenuName<>'权限管理 '"dr = myCommon. getData.get_dr(s)While dr.ReadEnd Whiledr.

48、Close()s = "select * from Role where Role_Name<>' 老板 '"dr = myCommon. getData.get_dr(s)While dr.ReadEnd Whiledr.Close()End Sub20End SubPrivate Sub Btn_add_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_add.ClickDim s As StringDim RoleID As Stri

49、ngDim TypeID As Strings = "select Role_id from Role where Role_name='" & Cbox_Role.Text & "'"Dim dr As SqlClient.SqlDataReaderdr = myCommon. getData.get_dr(s)While dr.ReadRoleID = dr!Role_IDEnd Whiledr.Close()s = "select TypeId from gg_Menu where MenuName=

50、9;" & Cbox_Auth.Text &"'"dr = myCommon. getData.get_dr(s)While dr.ReadTypeID = dr!TypeIdEnd Whiledr.Close()s = "insert into Role_Auth values ('" & RoleID &"','" & TypeID &"')"TryMsgBox(" 添加成功！ ", MsgBo

51、xStyle .Information + MsgBoxStyle .OkOnly)Catch ex As ExceptionMsgBox(" 添加失败！ " & ex.Message, MsgBoxStyle .Information + MsgBoxStyle .OkOnly)End TryCall show_Role_Auth()End SubPrivate Sub Btn_del_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_del.ClickDi

52、m s As StringDim RoleID As StringDim TypeID As Strings = "select Role_id from Role where Role_name='" & Cbox_Role.Text & "'"Dim dr As SqlClient.SqlDataReaderdr = myCommon. getData.get_dr(s)While dr.ReadRoleID = dr!Role_idEnd While21dr.Close()s = "select TypeI

53、d from gg_Menu where MenuName='" & Cbox_Auth.Text &"'"dr = myCommon. getData.get_dr(s)While dr.ReadTypeID = dr!TypeIdEnd Whiledr.Close()s = "delete from Role_Auth where Role_ID='" & RoleID & "'and Type_Id='" & TypeID & &q

54、uot;' "TryMsgBox(" 删除成功！ ", MsgBoxStyle .Information + MsgBoxStyle .OkOnly)Catch ex As ExceptionMsgBox(" 删除失败！ " & ex.Message, MsgBoxStyle .Information + MsgBoxStyle .OkOnly)End TryCall show_Role_Auth()End SubEnd SubEnd Class员工管理Public Class Staff_ManagerPrivate Sub Btn_show_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_show.ClickDim s As Strings =