酒店管理系统课程设计_课程设计酒店管理系统

2020-02-26 其他范文下载本文

酒店管理系统课程设计由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“课程设计酒店管理系统”。

软件开发环境与工具

课程设计

实验题目：酒店管理系统指导老师：南丽丽

专业班级：计算机科学与技术系1105班姓名：陈阿艳（2011100516）

王媛（2011100529）

闫丽颖（2011100503）樊建红（2011100515）2013年 12月13日

第一章…………………………………前言

1.1…………………………………………………选题背景

1.2…………………………………………………课题研究的目的和意义

1.3…………………………………………………本文的研究内容

1.4…………………………………………………国内外现状

第二章…………………………………开发环境及工具介绍 2.1………………………………………………..Visual Basic.NET简介

2.2…………………………………………............SQL Server2005 第三章…………………………………系统分析

3.1…………………………………………………..可行性分析

3.2…………………………………………………...需求分析

3.2.1…………………….酒店管理部分

3.2.1.1……………..客户管理

第四章…………………………………数据库设计

4.1…………………………………………………..数据库设计截图 4.2………………………………………………….权限设置 4.3………………………………………………….客户信息表 4.4………………………………………………….房态表 4.5………………………………………………….结算表

第五章…………………………………系统实现

5.1…………………………………………………登陆

5.2…………………………………………………客户入住

5.3…………………………………………………客户结算退房

5.4…………………………………………………以“老板”为例，展示系统功能

第六章…………………………………主要代码第七章…………………………………总结

第1章前言

1.1 选题背景

酒店业是一个前景广阔而又竞争激烈的行业。改革开放以来，我国的酒店业迅速发展，已经成为一个具有相当规模的产业。由于我国的旅游业迅速发展，通过调查，我国在2020年将成为世界上第四大旅游国家；同时我国加入世界贸易组织，酒店业将完全开放，这个时候，我国的酒店业将面临着前所未有的机遇和挑战。但是，现在甚至还有一些酒店还停留在由人工操作和管理阶段，这样已经无法适应当前的发展趋势。因此，要想使酒店的工作质量和效率提高，采用先进的计算机网络通信技术改变酒店业务模式，实现酒店业务管理的自动化已经成为一种必然。

酒店管理系统采用B/S结构。按照按国家星级宾馆标准化业务程序流式设计，会采用主流开发工具来开发，搭建比较稳定可靠安全的服务端来辅佐客户管理，并且还采用数据库mysql，会通过测试用例来达到测试效果，技术支持会采用轻量级框架struts和hibernate持久化来完成，服务器采用tomcat，通过powerdesigner来设计数据模型为最初业务流程的概念设计阶段和详细设计阶段打好基础［1］。

1.2 课题研究的目的和意义

对酒店整个来说，对酒店经营状况起决定作用的是酒店的服务管理水平。如何利用先进的管理手段来提高酒店的管理水平成为酒店业务发展的当务之急。面对信息时代的机遇和挑战，利用科技手段提高酒店的管理无疑是一条行之有效的途径。虽然计算机管理并不是酒店管理走向成功的关键元素，但它可以最大限度地发挥准确、快捷、高效等作用，对酒店的业务管理提供强有力的支持。因此，采用全新的计算机网络和酒店业务管理系统，已成为提高酒店的管理效率，使作业人员与管理系统之间灵活互动，实现流畅的工作流衔接，帮助酒店有效地进行 3 业务管理，释放最大价值。酒店业务管理系统在达到在节省人力资源成本的同时，可以提高业务效率，并能够及时、准确、迅速地满足顾客服务的需求［2］。

1.3 本文的研究内容

课程设计选题《酒店管理系统》主要研究了：酒店业务的管理（划分为，登陆界面部分，查询界面部分，入住界面部分，退房界面部分）。

1.4 国内外现状

随着我国经济体制改革的不断深化和我国经济的快速发展，我国人民的收入不断提高，消费观念也有提高，对服务质量的要求也有很大的提高。各地把旅游业当作本地经济发展的重要支柱之一。酒店作为人们食宿、娱乐、休闲的场所而得到了快速的发展。社会上也成立了各种类型，不同规模的酒店服务企业。如何为客户提供更加准确及时的服务，成为各个酒店竞争关键。所以酒店业务信息化建设就成为了客户衡量酒店提供商服务标准的一个准则，信息系统成为了基础。

随着Internet技术的进一步发展和普及，不能很好的适应世界经济发展的形式和我国国民经济建设的需要，市场现有的产品化的酒店业务软件系统在不断发展中的酒店的需求。基于WEB的酒店管理系统的总体设计目标能够建立完善、高效、可靠的酒店业务信息系统，为酒店提供良好的信息环境［3］。

第2章开发环境及工具介绍

2．1Visual Basic.NET简介

Visual Basic.NET通常缩写为VB.NET,在某些特定情况下也直接简称VB，比如在.NET这个大话题下或者与其他.NET语言一起讨论的时候。

Visual Basic.NET属Basic系语言，其语法特点是以极具亲和力的英文单词为基础标识，以及与自然语言极其相近的逻辑表达，有时候你会觉得写VB.NET代码就好像在写英文句子一样，从这个角度来说，VB.NET似乎是最高级的一门编程语言，当然在Basic系语言中VB.NET也确实是迄今为止最强大的一门编程语言。

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

Microsoft SQL Server 2005 是一个全面的数据库平台，使用集成的商业智能(BI)工具提供了企业级的数据管理。Microsoft SQL Server 2005数据库引擎为关系型数据和结构化数据提供了更安全可靠的存储功能，使您可以构建和管理用于业务的高可用和高性能的数据应用程序。

第3章

系统分析

3.1 可行性分析

随着旅游业的发展，酒店、餐饮娱乐行业日趋发达，引入全方位的电脑服务和电脑管理日益流行。同时，酒店和餐厅娱乐业引入电脑服务和管理也取得了优良的经济效益和社会效益。为此，国家建设部已于最近作出明确规定：凡星级酒店在项目审批时，其设计方案必须包括电脑管理系统，否则不予立项。可见，酒店管理电脑化势在必行。酒店管理系统将先进的电脑技术与现代酒店服务管理完美地结合起来，实现了住宿、餐饮、娱乐全新概念的服务和管理方式。

一个成熟的酒店管理系统不仅仅是记录酒店客人的信息，提供查询，报表打印等一系列简单的工作，它能让工作人员从烦琐的手工操作中解脱，并且酒店管理系统本身就代表着一种管理方法。随着它的深入，将带动企业的运做，为管理和决策提供支持。为了达到这个要求，它必须依靠高起点的硬件环境和软件开发工具来保证系统的稳定和正常运行。酒店电脑系统要求24小时连续运行，数据量大，可靠性要求高，因此整个电脑系统供电采用专线方式，加配UPS（不间断供电系统），并合理接地，以便保障整套系统的正常运行［7］。

3.2 需求分析

系统需对用户登录进行管理。使用各功能模块时，系统应验证用户身份的有效性，否则要求用户登录。另外，允许用户对自己的密码进行修改。系统应提供客房的分类管理功能，可分类制订客房面积、价格、是否配备空调等客房类型，对不同标准的客房进行有效管理。系统可实现对客房信息的添加、删除以及修改。

在进行入住/退房管理时，系统可以根据客房当前的状态自动提示可用服务(入住/退房)。如果客房没有客人入住，则该客房的可用服务为“入住”；否则，可用服务为“退房”。

系统的客户端在Windows平台下运行，服务器端可在Windows平台或UNIX平台下运行。系统还需要有较好的安全性和可扩展性［8］。

需求分析是从客户的需求中提取出软件系统能够帮助用户解决的业务问题，通过对用户业务问题的分析，规划出系统的功能模块，即定义用例。这个步骤是对理解需求的升华，直接关系到该系统的质量。

整个系统可以分为2大部分。酒店网站部分（客户服务网站）和酒店管理部分（管理员部分）。本系统只做了有关酒店管理的一部分。3.2.1 酒店管理部分

1.客房管理: 预订客房管理、客房查询、退房管理。

前台服务员的主要职能是负责订房和退房，以及查询入住的客户信息。所有该角色只可以使用部分功能，包括预定管理、客户信息查询，入住管理，退房管理功能。

第四章数据库设计

4.1 数据库设计截图

4.2权限设置

4.3客户信息表

4.4房态表

4.5结算表

第5章系统实现

5.1登陆

分别用三种身份登陆，所得到的权限也就不同

老板经理员工

5.2客户入住（通过添加客户信息，自动计算应付房费）

5.3客户结算退房

5.4以“老板”为例，展示系统功能

（1）查询房态

住着人的房间有：

通过房间号查某间房的房态

（2）职工管理

添加职工

设置权限

第登陆

Public Cla Login

Private Sub Btn_Login_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Btn_Login.Click

Data_Acce.User_info.LoginUser_info.User_id = Me.Txt_Name.Text

Data_Acce.User_info.LoginUser_info.User_pwd = Me.Txt_pwd.Text

Dim s As Integer

s = Busine_Logic_Layer.Data_Check.User_Check

If s = 1 Then

MsgBox(“欢迎使用假日酒店管理系统”, MsgBoxStyle.Information + MsgBoxStyle.OkOnly)

Main_Form.Show()

Me.Close()

Else

If s =-1 Then

MsgBox(“用户名错误！”, MsgBoxStyle.Information + MsgBoxStyle.OkOnly)

Else

MsgBox(“密码错误！”, MsgBoxStyle.Information + MsgBoxStyle.OkOnly)

End If

End Sub

6章主要代码

Private Sub Btn_Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Btn_Cancel.Click

Me.Close()

End Sub

Private Sub Login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load

End Sub End Cla

主界面

Public Cla Main_Form

Private Sub Main_Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load

Call Init_Tree()

End Sub

Public Sub Init_Tree()

Me.TreeV.Nodes.Clear()

Dim s As String

s = “select * from gg_Menu where isStop='0'”

Dim dr As SqlClient.SqlDataReader

dr = myCommon.getData.get_dr(s)

Dim myNode As TreeNode

While dr.Read

myNode = New TreeNode

myNode.Text = dr.Item(“MenuName”)

If Busine_logic_layer.Judge.Judge_Auth(dr.Item(“Typeid”))= False Then

Continue While

End If

myNode.Name = dr.Item(“Typeid”)

If dr.Item(“isGroup”)= “0” Then

myNode.Tag = dr.Item(“Form”)

Else

myNode.Tag = “”

End If

If dr.Item(“Parid”)= “0” Then

Me.TreeV.Nodes.Add(myNode)

Else

If Me.TreeV.Nodes.Find(dr.Item(“Parid”), True).Length > 0 Then

Me.TreeV.Nodes.Find(dr.Item(“Parid”), True)(0).Nodes.Add(myNode)

End If

End While

dr.Close()

End Sub

Private Sub TreeV_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs)Handles TreeV.AfterSelect

If e.Node.Tag = “” Then Exit Sub

Dim formName As String

formName = “Hotel_Manager.” & e.Node.Tag

Dim f As Form

f = CType(Activator.CreateInstance(Type.GetType(formName)), Form)

f.Show()

f.MdiParent = Me

f.WindowState = FormWindowState.Maximized

End Sub

Private Sub 退出ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles 注Á¡é销¨²ToolStripMenuItem.Click

Data_Acce.User_info.LoginUser_info.User_id = “”

Data_Acce.User_info.LoginUser_info.User_name = “”

Data_Acce.User_info.LoginUser_info.User_pwd = “”

Me.Close()

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Timer1.Tick

Me.Tool_lb_name.Text = “登陆者” & Data_Acce.User_info.LoginUser_info.User_name

Me.Tool_lb_date.Text = “日期” & Format(Now, “yyyy-MM-dd”)

Me.Tool_lb_time.Text = “时间” & Format(Now, “long time”)

End Sub

Private Sub 退出ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles 退出ToolStripMenuItem1.Click

Me.Close()

End Sub End Cla 入住

Public Cla Ruzhu_login

Private Sub Ruzhu_login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load

Me.Txt_no.Text = myCommon.getNewCode.get_NewCode

Call Init_Cbox()

End Sub

Private Sub Cbox_type_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Cbox_type.SelectedIndexChanged

Dim s As String

s = “select * from Fang where Fang_state='空' and Fang_type='” & Me.Cbox_type.Text & “'”

Dim dr As SqlClient.SqlDataReader

dr = myCommon.getData.get_dr(s)

Cbox_fang_no.Items.Clear()

While dr.Read

Cbox_fang_no.Items.Add(dr!Fang_num)

Txt_yajin.Text = dr!Fang_yajin

Txt_danjia.Text = dr!Fang_price

End While

dr.Close()

End Sub

Private Sub Btn_ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Btn_ok.Click

Dim s As String

Dim ID_Card As String

ID_Card = Me.Txt_ID.Text

Dim cAge As Integer

cAge = myCommon.getAge.get_age(ID_Card)

Dim stoptime As String

stoptime = “0000/00/00 00:00:00”

s = “insert into Customer values('” & Txt_no.Text & “','” & Txt_name.Text & “','” & Cbox_sex.Text & “','” & cAge.ToString & “','” & Txt_ID.Text _

& “','” & Cbox_type.Text & “','” & Cbox_fang_no.Text & “','” & Now & “','” & stoptime & “','” & Txt_yajin.Text _

& “','” & Txt_days.Text & “','” & Txt_yingjiao.Text & “','” & Txt_yijiao.Text & “')”

Dim s2 As String

s2 = “update Fang set Fang_state='满' where Fang_num='” & Cbox_fang_no.Text & “'”

Try

myCommon.getData.cmd_ex(s)

myCommon.getData.cmd_ex(s2)

MsgBox(“添加成功！”, MsgBoxStyle.Information + MsgBoxStyle.OkOnly)

myCommon.getNewCode.getNewSaveCode()

Catch ex As Exception

MsgBox(“添加失败！” & ex.Meage, MsgBoxStyle.Information + MsgBoxStyle.OkOnly)15

End Try

End Sub

Private Sub Btn_jisuan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Btn_jisuan.Click

Me.Txt_yingjiao.Text = Txt_danjia.Text * Txt_days.Text + Txt_yajin.Text

End Sub

Private Sub Btn_add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Btn_add.Click

Me.Txt_no.Text = myCommon.getNewCode.get_NewCode

Txt_name.Text = “”

Cbox_sex.Items.Clear()

Txt_ID.Text = “”

Cbox_type.Items.Clear()

Cbox_fang_no.Items.Clear()

Txt_yajin.Text = “”

Txt_days.Text = “”

Txt_yingjiao.Text = “”

Txt_yijiao.Text = “”

Txt_addre.Text = “”

Txt_danjia.Text = “”

Call Init_Cbox()

End Sub

Sub Init_Cbox()'为性别和房间类型进行添加

Cbox_sex.Items.Add(“男”)

Cbox_sex.Items.Add(“女”)

Cbox_type.Items.Add(“单人间”)

Cbox_type.Items.Add(“双人间”)

End Sub End Cla 结算

Public Cla Jiesuan

Dim str As String

Private Sub Jiesuan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load

Call Btn_show_Click(sender, e)

End Sub

Private Sub Btn_jiesuan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Btn_jiesuan.Click

Dim s As String

Dim yajin As String

Dim yijiao As String

Dim str As String

str = Now

str = Mid(str, 1, 10)

s = “select yajin,yijiao from Customer where Start_time like '” & str & “%' ”

Dim dr As SqlClient.SqlDataReader

dr = myCommon.getData.get_dr(s)

While dr.Read

yajin = dr!yajin + yajin

yijiao = dr!yijiao + yijiao

End While

dr.Close()

s = “select count(*)from Jiesuan where Riqi like '” & str & “%' ”

Dim conn As New SqlClient.SqlConnection

conn.ConnectionString = myCommon.getstrconn.get_strconn

Dim cmd As New SqlClient.SqlCommand

cmd.Connection = conn

cmd.CommandType = CommandType.Text

cmd.CommandText = s

conn.Open()

If CType(cmd.ExecuteScalar(), Integer)= 0 Then

Try

s = “insert into Jiesuan values('” & str & “','” & yijiao & “','” & yajin & “','” & yijiaoyajin & “' where Riqi='” & str & “'”

myCommon.getData.cmd_ex(s)

Catch ex As Exception

MsgBox(“结算时出错误！”)

End Try

End If

s = “select * from Jiesuan where Riqi='” & str & “'”

Dim ds As DataSet

ds = myCommon.getData.get_ds(s)

DGView_jiesuan.DataSource = ds.Tables(0)

End Sub

Private Sub Btn_show_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Btn_show.Click

Dim s As String

s = “select * from Jiesuan”

Dim ds As DataSet

ds = myCommon.getData.get_ds(s)

DGView_jiesuan.DataSource = ds.Tables(0)

End Sub

Private Sub Btn_jingli_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Btn_jingli.Click

Dim str As String

str = Now

str = Mid(str, 1, 10)

If Data_Acce.User_info.LoginUser_info.User_job = “经理” Then

Dim s As String

s = “update Jiesuan set jinglishenhe='” & Data_Acce.User_info.LoginUser_info.User_name & “' where Riqi='” & str & “'”

Try

myCommon.getData.cmd_ex(s)

Call Btn_show_Click(sender, e)

Catch ex As Exception

MsgBox(“审核失败！”)

End Try

Else

MsgBox(“你没有权限！”)

End If

End Sub

Private Sub Btn_laoban_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Btn_laoban.Click

Dim str As String

str = Now

str = Mid(str, 1, 10)

If Data_Acce.User_info.LoginUser_info.User_job = “老板” Then

Dim s As String

s = “update Jiesuan set laobanshenhe='” & Data_Acce.User_info.LoginUser_info.User_name & “' where Riqi='” & str & “'”

Try

myCommon.getData.cmd_ex(s)

Call Btn_show_Click(sender, e)

Catch ex As Exception

MsgBox(“审¦核失败！”)

End Try

Else

MsgBox(“你没有权限！”)

End If

End Sub End Cla

退房

Public Cla Tuifang_login

Dim dv As DataView

Private Sub Btn_chaxun_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Btn_chaxun.Click

Dim str As String

str = “select * from Customer_Fang where Fang_no='” & Me.Txt_fang_no.Text & “'”

Dim ds As DataSet

ds = myCommon.getData.get_ds(str)

dv = ds.Tables(“temp”).DefaultView

DGView_tuifang.DataSource = dv

End Sub

Private Sub Btn_Tuifang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Btn_Tuifang.Click

Dim s As String

s = “update Fang set Fang_state='空?' where Fang_num='” & dv.Item(0).Item(“Fang_no”).ToString & “'”

Dim s2 As String

s2 = “update Customer set yingjiao='” & dv.Item(0).Item(“yingjiao”)dv.Item(0).Item(“yajin”)& “' where Customer_no='” & dv.Item(0).Item(“Customer_no”)& “'”

Try

myCommon.getData.cmd_ex(s)

myCommon.getData.cmd_ex(s2)

MsgBox(“退房成功！”, MsgBoxStyle.Information + MsgBoxStyle.OkOnly)

Catch ex As Exception

MsgBox(“退房失败！” & ex.Meage, MsgBoxStyle.Information + MsgBoxStyle.OkOnly)

End Try

End Sub

Private Sub Panel2_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs)Handles Panel2.Paint

End Sub

查询

Private Sub Btn_Customer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Btn_Customer.Click

Show_all_coustomer()

End Sub

Private Sub Btn_Chaxun_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Btn_Chaxun.Click

Dim str As String

If Chaxun_Fang.Text “” And Chaxun_name.Text “” Then

str = “Fang_no='” & Chaxun_Fang.Text & “' and Customer_name='” & 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 “” Then

str = “ Customer_name='” & Chaxun_name.Text & “'”

End If

Call Show_all(str)

End Sub

Private Sub Panel2_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs)Handles Panel2.Paint

End Sub End Cla

管理

Public Cla cManager

Sub show_Role_Auth()

Dim s As String

s = “select * from Role_Auth_V where Role_Name'老板'”

Dim ds As DataSet

ds = myCommon.getData.get_ds(s)

DGView_Role_Auth.DataSource = ds.Tables(“temp”)

End Sub

Private Sub cManager_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load

Dim s As String

s = “select * from Role_Auth_V where Role_Name'老板'”

Dim ds As DataSet

ds = myCommon.getData.get_ds(s)

DGView_Role_Auth.DataSource = ds.Tables(“temp”)

Dim dr As SqlClient.SqlDataReader

s = “select * from gg_Menu where MenuName'权限T'and MenuName'权限管理'”

dr = myCommon.getData.get_dr(s)

While dr.Read

Cbox_Auth.Items.Add(dr.Item(“MenuName”))

End While

dr.Close()

s = “select * from Role where Role_Name'老板'”

dr = myCommon.getData.get_dr(s)

While dr.Read

Cbox_Role.Items.Add(dr.Item(“Role_Name”))

End While

dr.Close()

End Sub

Private Sub DGView_Role_Auth_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs)Handles DGView_Role_Auth.CellClick

Me.Cbox_Role.Text = DGView_Role_Auth.CurrentRow.Cells.Item(0).Value.ToString

Me.Cbox_Auth.Text = DGView_Role_Auth.CurrentRow.Cells.Item(1).Value.ToString

End Sub

Private Sub Btn_add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Btn_add.Click

Dim s As String

Dim RoleID As String

Dim TypeID As String

s = “select Role_id from Role where Role_name='” & Cbox_Role.Text & “'”

Dim dr As SqlClient.SqlDataReader

dr = myCommon.getData.get_dr(s)

While dr.Read

RoleID = dr!Role_ID

End While

dr.Close()

s = “select TypeId from gg_Menu where MenuName='” & Cbox_Auth.Text & “'”

dr = myCommon.getData.get_dr(s)

While dr.Read

TypeID = dr!TypeId

End While

dr.Close()

s = “insert into Role_Auth values('” & RoleID & “','” & TypeID & “')”

Try

myCommon.getData.cmd_ex(s)

MsgBox(“添加成功！”, MsgBoxStyle.Information + MsgBoxStyle.OkOnly)

Catch ex As Exception

MsgBox(“添加失败！” & ex.Meage, MsgBoxStyle.Information + MsgBoxStyle.OkOnly)

End Try

Call show_Role_Auth()

End Sub

Private Sub Btn_del_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Btn_del.Click

Dim s As String

Dim RoleID As String

Dim TypeID As String

s = “select Role_id from Role where Role_name='” & Cbox_Role.Text & “'”

Dim dr As SqlClient.SqlDataReader

dr = myCommon.getData.get_dr(s)

While dr.Read

RoleID = dr!Role_id

End While

dr.Close()

s = “select TypeId from gg_Menu where MenuName='” & Cbox_Auth.Text & “'”

dr = myCommon.getData.get_dr(s)

While dr.Read

TypeID = dr!TypeId

End While

dr.Close()

s = “delete from Role_Auth where Role_ID='” & RoleID & “'and Type_Id='” & TypeID & “' ”

Try

myCommon.getData.cmd_ex(s)

MsgBox(“删除成功！”, MsgBoxStyle.Information + MsgBoxStyle.OkOnly)

Catch ex As Exception

MsgBox(“删除失败！” & ex.Meage, MsgBoxStyle.Information + MsgBoxStyle.OkOnly)

End Try

Call show_Role_Auth()

End Sub

Private Sub DGView_Role_Auth_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs)Handles DGView_Role_Auth.CellContentClick

End Sub End Cla 22

员工管理

Public Cla Staff_Manager

Private Sub Btn_show_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Btn_show.Click

Dim s As String

s = “select * from Staff where Staff_job='职员”

Dim ds As DataSet

ds = myCommon.getData.get_ds(s)

DGView_staff.DataSource = ds.Tables(0)

End Sub

Private Sub Btn_add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Btn_add.Click

Dim s As String

s = “insert into Staff values('” & Txt_no.Text & “','” & Txt_name.Text & “','” & Cbox_sex.Text & “','” & Txt_pwd.Text _

& “','职员'” & Txt_addre.Text & “','” & Txt_tel_no.Text & “')”

Try

myCommon.getData.cmd_ex(s)

MsgBox(“添加成功！”)

Catch ex As Exception

MsgBox(“添加失败” & ex.Meage)

End Try

End Sub

Private Sub Btn_del_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Btn_del.Click

Dim s As String

s = “delete from Staff where Staff_no='” & Txt_no.Text & “'”

Try

myCommon.getData.cmd_ex(s)

MsgBox(“删除成功！”)

Catch ex As Exception

MsgBox(“删除失败” & ex.Meage)

End Try

End Sub

Private Sub Btn_chaxun_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Btn_chaxun.Click 23

Dim s As String

s = “select * from Staff where Staff_no='” & Txt_chaxun_no.Text & “' and Staff_job='职员'”

Dim ds As DataSet

ds = myCommon.getData.get_ds(s)

DGView_staff.DataSource = ds.Tables(0)

End Sub

Private Sub Staff_Manager_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load

Call Btn_show_Click(sender, e)

End Sub

Private Sub DGView_staff_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs)Handles DGView_staff.CellClick

Txt_no.Text = DGView_staff.CurrentRow.Cells.Item(0).Value.ToString

Txt_name.Text = DGView_staff.CurrentRow.Cells.Item(1).Value.ToString

Cbox_sex.Text = DGView_staff.CurrentRow.Cells.Item(2).Value.ToString

Txt_addre.Text = DGView_staff.CurrentRow.Cells.Item(5).Value.ToString

Txt_tel_no.Text = DGView_staff.CurrentRow.Cells.Item(6).Value.ToString

End Sub

Private Sub Panel2_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs)Handles Panel2.Paint

End Sub End Cla

第7章总结

经过这段时间的精心设计，系统的基本功能已经实现，并能实践于一些业务管理过程中，但酒店业务管理系统是一个庞大的工程，要使网络交互功能的实现，脚本的设计，网页的构架，网页的美工，文字的编辑，非一朝一夕可尽善尽美的，这需要一个长期的摸索与完善过程，同时还要在实践中发现与操作者使用要求不相符合的地方还要修改。子系统功能虽已基本实现，但仍有诸多地方需要修改。随着酒店业务的扩展，服务的增加，酒店业务管理系统也逐渐发展、完善。如果没有一套可靠的酒店业务管理系统,但凭手工操作,不仅效率低下,而且会极大地形象到酒店的服务质量。要在酒店服务中选择好适合自己酒店实际情况的业务管理系统不仅要考虑该系统在酒店的实用性，还要考虑酒店对该系统所能够承担费用的能力，以及这个系统对操作员来说的操作难易程度。通过本次课程设计中，我们掌握了VB.NET编程技能，SQL以及JDBC连接数据库和动态页面的用法。比较全面的巩固了下面向对象的编程思想。在本次课程设计中，我们懂得了谨慎和团结的重要性，明确分工也使我们提高了实验的效率，这对我们以后的学习工作都有很大的帮助。

相关专题课程设计酒店管理系统课程设计酒店管理系统课程设计酒店管理系统课程设计酒店管理系统

[其他范文]相关推荐

[其他范文]热门文章