第一篇：酒店管理系統課程設計

軟件開發環境與工具

課程設計

實驗題目：酒店管理系統 指導老師：南麗麗

專業班級：計算機科學與技術系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 Class Login

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

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

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

Dim s As Integer

s = Business_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 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 Class

主界面

Public Class 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 Business_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 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 注á?é銷¨2ToolStripMenuItem.Click

Data_Access.User_info.LoginUser_info.User_id = ”“

Data_Access.User_info.LoginUser_info.User_name = ”“

Data_Access.User_info.LoginUser_info.User_pwd = ”“

Login.Show()

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_Access.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 Class 入住

Public Class 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.Message, 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_address.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 Class 結算

Public Class 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

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_Access.User_info.LoginUser_info.User_job = ”經理“ Then

Dim s As String

s = ”update Jiesuan set jinglishenhe='“ & Data_Access.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_Access.User_info.LoginUser_info.User_job = ”老板“ Then

Dim s As String

s = ”update Jiesuan set laobanshenhe='“ & Data_Access.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 Class

退房

Public Class 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.Message, 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 Class

管理

Public Class 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.Message, 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.Message, 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 Class 22

員工管理

Public Class 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_address.Text & ”','“ & Txt_tel_no.Text & ”')“

Try

myCommon.getData.cmd_ex(s)

MsgBox(”添加成功！“)

Catch ex As Exception

MsgBox(”添加失敗“ & ex.Message)

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.Message)

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_address.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 Class

第7章 總 結

經過這段時間的精心設計，系統的基本功能已經實現，并能實踐于一些業務管理過程中，但酒店業務管理系統是一個龐大的工程，要使網絡交互功能的實現，腳本的設計，網頁的構架，網頁的美工，文字的編輯，非一朝一夕可盡善盡美的，這需要一個長期的摸索與完善過程，同時還要在實踐中發現與操作者使用要求不相符合的 地方還要修改。子系統功能雖已基本實現，但仍有諸多地方需要修改。隨著酒店業務的擴展，服務的增加，酒店業務管理系統也逐漸發展、完善。如果沒有一套可靠的酒店業務管理系統,但憑手工操作,不僅效率低下,而且會極大地形象到酒店的服務質量。要在酒店服務中選擇好適合自己酒店實際情況的業務管理系統不僅 要考慮該系統在酒店的實用性，還要考慮酒店對該系統所能夠承擔費用的能力，以及這個系統對操作員來說的操作難易程度。通過本次課程設計中，我們掌握了VB.NET編程技能，SQL以及JDBC連接數據庫和動態頁面的用法。比較全面的鞏固了下面向對象的編程思想。在本次課程設計中，我們懂得了謹慎和團結的重要性，明確分工也使我們提高了實驗的效率，這對我們以后的學習工作都有很大的幫助。

第二篇：酒店管理系統課程設計報告

課程設計報告

課程名稱： 項目名稱： 院 系： 專 業： 姓 名： 班 級： 學 號： 指導教師： 設計地點：

基于ASP.net 2.0的Web應用開發

酒店管理系統

計算機科學與工程學院

計算機科學與技術

王晨光 計科121 090312114 王劍

九章樓 N6-109

開課時間： 2014 至 2015 學年第 1 學期

常熟理工學院計算機科學與工程學院 制

目錄

一、前言.........................................................................................................................1 1.1、系統開發背景...................................................................................................1 1.2、研究目的及意義................................................................................................1 1.3、系統開發工具...................................................................................................1

二、系統分析..................................................................................................................1 2.1、需求分析..........................................................................................................1 2.1.1、系統主要功能.........................................................................................1 2.1.2、系統實現目標.........................................................................................2 2.1.3、系統性能需求.........................................................................................2 2.2、可行性分析......................................................................................................2 2.2.1、技術可行性............................................................................................2 2.2.2、經濟可行性............................................................................................2 2.2.3、操作可行性............................................................................................2

三、系統設計..................................................................................................................2 3.1、系統功能結構設計............................................................................................2 3.2、數據庫設計......................................................................................................3 3.2.1、數據庫E-R圖設計..................................................................................3 3.2.2、數據庫的邏輯設計..................................................................................5

四、系統詳細設計與實現..................................................................................................7 4.1、用戶登錄..........................................................................................................7 4.2、系統主界面......................................................................................................7 4.3、客房類型管理...................................................................................................8 4.4、客房經營管理...................................................................................................9 4.5、客戶信息檢索.................................................................................................12 4.6、客房經營狀況分析..........................................................................................12

五、課程設計小結..........................................................................................................13

一、前言 1.1、系統開發背景 隨著當今世界經濟和計算機的飛速發展，酒店在內部實現用戶通過電話預約或親自前往酒店預訂客房，服務員人工填寫客房預訂表進行客房預訂的傳統模式已經十分落后，滿足不了現代人的需要。一個成功的酒店，其經營者不僅要提供高質量的服務水平和服務質量，還要提供最完善的設備和先進的技術。從而提高客房的占有率和回頭率，還要有好的工作效率，并嚴格的控制住成本。在現如今的信息化時代，更重要的是還必須要有一個完善的管理信息系統，便于方便客人和更好的管理酒店。1.2、研究目的及意義 隨著計算機網絡的發展，Internet技術越來越廣泛的應用，網絡覆蓋的區域不斷擴大，給酒店業計算機應用帶來了蓬勃發展的機遇。采用全新的計算機網絡和管理系統將成為提高酒店管理效率，改善服務水準的重要手段之一。所以酒店入住信息管理系統是酒店經營不可或缺的現代工具。而本系統就是為了實現酒店高效管理而設計的。1.3、系統開發工具 Visual Studio 2013、SQL Server2008、PhotoShop CC Visual Studio 2013是一套完整的開發工具集，用于生成ASP.NET Web應用程序、XML Web Services、桌面應用程序和移動應用程序。Visual Basic、Visual C++和Visual C#全部都是用相同的集成開發環境（IDE）。SQL Server 2008是一個分布式的關系數據庫管理系統，具有客戶機/服務器體系結構，具有易用性、適合分布式組織的可伸縮性、用于決策支持的數據庫倉庫功能、與許多其他服務器軟件緊密關聯的集成性、良好的性價比等優點，是一種應用廣泛的數據庫管理系統。PhotoShop CC是Adobe公司出品的一個二維圖像處理軟件，主要用于對圖像進行編輯和繪制，對用到的圖片進行美工，使系統界面更加美觀友好。

二、系統分析 2.1、需求分析 2.1.1、系統主要功能 該系統以酒店訂房業務為基礎，提供科學有效的管理模式。系統主要功能設計有客房類型管理、客房信息管理、客房經營管理、客房信息檢索、經營狀況分析等五個部分。1 2.1.2、系統實現目標 ? 系統界面友好美觀，操作簡單易行； ? 業務管理信息化，可隨時掌握客戶入住、客戶退租、客房信息等情況； ? 采用流行的C/S方式，響應速度快，安全性高，擴充方便； ? 該軟件應盡可能地降低使用者的勞動強度，同時提高工作質量和效率。2.1.3、系統性能需求 ? 本著“簡單易用”的原則，方便各層次人員的使用； ? 系統必須穩定可靠，保證營業高峰期時不出現故障。2.2、可行性分析 2.2.1、技術可行性 系統采用了C/S技術結構，使用Microsoft Visual Studio 2013開發軟件，數據庫服務器使用Microsoft SQL Server 2008數據庫，該數據庫是目前最方便的流行數據庫，能夠處理大量的數據。它的活動性、安全性和易用性為數據庫編程提供了良好的條件。2.2.2、經濟可行性 對于酒店這樣的企業來說，開發一個這樣的系統是非常必要的，他們完全有能力和資金來負擔系統的開發成本。而且，系統開發完成投入使用之后，將大大提高工作效率，減少成本，增加收益。2.2.3、操作可行性 該系統擁有非常簡潔的圖形界面，并且在某些操作中附有操作說明，即使是對系統毫不了解的人來說，也是很容易接受的。因此，該酒店管理系統在技術、經濟、技術上都是可行的。

三、系統設計 3.1、系統功能結構設計 采用本系統可大大減少前臺服務人員（系統管理人員）的人數，前臺服務員直接掌控整個系統。由于采用計算機操作，可以大大提高操作速度。本酒店管理系統主要包括以下五個模塊，分別是：客房類型管理、客房信息管理、客房經營管理、客房信息檢索、經營狀況分析。圖3.1為酒店管理系統功能結構： 2

圖3.1 酒店管理系統功能結構

3.2、數據庫設計 關系模型是目前應用最廣泛、技術最成熟的一種數據庫模型，其特點是概念簡單清晰、易于被用戶掌握和接受，有嚴格的數學基礎和關系數據理論，能極大的簡化數據庫開發和維護工作，深受廣大用戶的歡迎，是現代計算機信息系統和計算機應用系統的基礎和核心。3.2.1、數據庫E-R圖設計 酒店管理系統的核心功能主要設計7個表，分別是：RoomsCategory(客房類型表)、RoomsInfo(客房信息表)、CustomerInfo（客戶信息表）、RoomOperation（客房操作表）、RoomsStatus（客房狀態表）、History（歷史記錄表）、UserInfo（用戶信息表）。RoomsCategory（客房類型）：主要存儲房間編號、房間名、大小、床的數量、價格、空調數、電視數。其E-R圖設計如圖3.2所示： 圖3.2 客房類型E-R圖

RoomsInfo（客房信息）： 主要存儲房間編號、房間類型、房間位置、房間描述。其E-R圖設計3 如圖3.3所示： 圖3.3 客房信息E-R圖 圖設計如圖3.4所示：

CustomerInfo（客戶信息）：主要存儲客戶身份證號、客戶姓名、客戶電話、客戶住址。其E-R圖3.4 客戶信息E-R圖

RoomsStatus（客房狀態）：主要存儲房間編號、房間狀態。其E-R圖設計如圖3.5所示： 圖3.5 客房狀態E-R圖 E-R圖設計如圖3.5所示：

History（歷史記錄）：主要存儲入住時間、退租時間、房間編號、總消費、客戶身份證號。其

圖3.5 歷史記錄E-R圖

RoomOperation（客房操作）：主要存儲房間編號、入住時間、客戶身份證號、房間狀態標記。其E-R圖設計如圖3.6所示：

圖3.6 客房操作E-R圖

UserInfo（用戶信息）：主要存儲用戶編號、姓名、密碼、郵箱、地址、電話。其E-R圖設計如圖3.7所示：

圖3.7 用戶信息E-R圖 3.2.2、數據庫的邏輯設計 RoomsCategory(客房類型表)如表1所示:

表1 客房類型表

RoomsInfo(客房信息表)如表2所示: 5

表2 客房信息表 CustomerInfo（客戶信息表）如表3所示:

表3 客戶信息表

RoomOperation（客房操作表）如表4所示: 表4 客房操作表

RoomsStatus（客房狀態表）如表5所示: 表5 客房狀態表 History（歷史記錄表）如表6所示:

表6 歷史記錄表 UserInfo（用戶信息表）如表7所示:

表7用戶信息表 6

四、系統詳細設計與實現 4.1、用戶登錄 用戶通過輸入用戶編號和密碼登錄系統，如果密碼不正確，則不允許用戶登錄到系統。圖4.1為用戶登錄流程圖，圖4.2為用戶登錄界面。

圖4.1 用戶登錄流程圖

圖4.2 用戶登錄主界面

4.2、系統主界面 用戶登錄成功后，進入系統主界面，主界面分為三個部分：頂端酒店照片頁面、左側導航欄和右側顯示操作界面。當點擊左側導航欄名稱的時候，不需要重新打開新的窗口，而是在右側的顯示欄中顯示內容。圖4.3為系統主界面。7

圖4.3 系統主界面

4.3、客房類型管理 用戶在成功登錄系統后，點擊【客房經營管理】，在右側顯示欄中就會顯示客房的信息和對客房進行修改的操作，有添加、編輯和刪除客房信息的操作。點擊【編輯】按鈕，可以對客房的信息進行修改；點擊【刪除】按鈕，可以將選中的客房從數據庫中刪除掉；點擊【添加房間】可以添加數據庫中不存在的客房類型。圖4.4為客房類型管理流程圖，圖4.5為客房類型管理界面，圖4.6為添加客房界面。圖4.4 客房類型管理流程圖

圖4.5 客房類型管理界面

圖4.6 添加客房界面

4.4、客房經營管理 系統登錄成功后，點擊導航欄中的【客房經營管理】，根據客戶的需求，查詢相應的客房是否有入住信息。如果有，則告知客戶本客房已滿，請選擇其它的客房；如果沒有，則進行訂房操作。當用戶接收到客戶的退房申請時，用戶根據客戶的信息查找入住的客房，登記結算并進行退房。圖4.7為客房經營管理流程圖，圖4.8為客房經營管理界面，圖4.9為訂房界面，圖4.10為退房界面。

圖4.7 客房經營管理流程圖

圖4.8 客房經營管理界面

圖4.9 訂房界面 10

圖4.10 退房界面

當用戶點擊【退房】時，系統會彈出【確定要退房？】對話框進行驗證，點擊【取消】則不會執行退房操作；點擊【確定】后，則執行退房操作，系統彈出【退房成功】對話框，點擊【確定】，則退房成功，并顯示消費總金額。圖4.11為【確定要退房】對話框，圖4.12為【退房成功】對話框，圖4.12為退房信息結算界面。圖4.11 【確定要退房】對話框 圖4.12 【退房成功】對話框

圖4.12 退房信息結算界面 11

4.5、客戶信息檢索 系統登錄成功后，點擊左側導航欄中的【客戶信息檢索】，右側顯示出檢索客戶信息界面，可以利用“姓名”、“房間號”、“時間段”等關鍵字對客戶入住的信息進行查詢。圖4.13為客戶信息檢索流程圖，圖4.14為按姓名查詢客戶信息，圖4.15為按時間段查詢客戶信息。圖4.13為客戶信息檢索流程圖

圖4.14 按姓名查詢客戶信息

圖4.15 按時間段查詢客戶信息

4.6、客房經營狀況分析 系統登錄成功后，點擊左側導航欄中的【客房經營狀況分析】，右側顯示出客房經營狀況的界面，選擇相應的時間段，點擊【總收入】按鈕，就可以顯示出選定時間段內的收入，點擊【客流量】按鈕，12 就可以顯示出選定時間段內的入住人數。點擊【收入顯示】按鈕，可以顯示出【標準間】、【商務套房】、【情侶套房】三種客房類型各自的收入和在總收入所占的比例。圖4.16為客房經營狀況分析流程圖，圖4.17為客房經營狀況分析界面。圖4.16 客房經營狀況分析流程圖

圖4.17 客房經營狀況分析界面

五、課程設計小結 本次課程設計是基于ASP.net進行Web程序開發，開發的項目系統是酒店管理系統。本次的課程設計，由于自身能力有限，難免會有一些遺漏和疏忽的地方，系統有時也不穩定，有些功能還沒有真正的實現，測試運行的時候也有一些問題的存在。通過這次對酒店管理系統的設計與開發，讓發更加認識到了自身學習的不足之處，但也讓我對Web編程語言的了理解和應用有了更深的認識。課程設計之后，感受到了動手能力有所提高，并能夠結合實際存在的問題在專業領域內進行更深人的學習。同時，通過本次的課程設計讓我了解到，僅學習書本上的知識是不夠的，還要有較強的實踐動手能力。因為我們學習知識就是為了實踐。而只有多實踐，多編寫程序，才能更好地理解與掌握書本上的知識。

第三篇：酒店管理系統 (數據庫課程設計)

數據庫 酒店管理系統 課程設計（基于 SQL server 2000）

實現過程

1.1 通過查詢分析器實現建立數據庫、數據表

------------------------------創建數據庫和數據表---（1）創建酒店管理系統數據庫

CREATE DATABASE 酒店管理系統（2）創建客房信息表

CREATE TABLE 客房

(客房編號 CHAR(8)PRIMARY KEY，客房類型 CHAR(8)NOT NULL，價格 SMALLMONEY NOT NULL，床位數 INT NOT NULL，使用狀態 CHAR(8)NOT NULL)

INSERT INTO 客房 VALUES('101','一',100,1,'在使用')INSERT INTO 客房 VALUES('102','二',200,2,'在使用')INSERT INTO 客房 VALUES('103','二',200,1,'在使用')INSERT INTO 客房 VALUES('104','三',300,2,'在使用')INSERT INTO 客房 VALUES('105','三',300,1,'未使用')

（3）創建客戶信息表

CREATE TABLE 客戶

(客戶編號 CHAR(8)PRIMARY KEY, 客戶名稱 CHAR(10)NOT NULL，身份證號 CHAR(18)NOT NULL，聯系地址 CHAR(25)，聯系電話 CHAR(10))INSERT INTO 客戶 VALUES('1001','王一',12234,'江西','3245354')INSERT INTO 客戶 VALUES('1002','張三',34234,'江西','2442442')INSERT INTO 客戶 VALUES('1003','李四',56465,'江西','5654645')INSERT INTO 客戶 VALUES('1004','王錢',65435,'江西','5676577')INSERT INTO 客戶 VALUES('1005','孫志',11464,'江西','4234343')

（4）創建入住登記表

CREATE TABLE 入住登記

(客房編號 CHAR(8)FOREIGN KEY REFERENCES 客房(客房編號)，客戶編號 CHAR(8)FOREIGN KEY REFERENCES 客戶(客戶編號)，預定日期 DATETIME，預定數量 INT, PRIMARY KEY(客房編號,客戶編號))

INSERT INTO 入住登記 VALUES('101','1001',2010-10-10,1)INSERT INTO 入住登記 VALUES('102','1002',2010-12-10,1)INSERT INTO 入住登記 VALUES('103','1003',2010-12-26,1)INSERT INTO 入住登記 VALUES('104','1004',2010-12-9,1)--------創建查詢視圖---------1.2系統功能相應的查詢視圖：

（1）客戶信息查詢視圖

CREATE VIEW 客戶信息查詢

AS SELECT * FROM 客戶

（2）客房信息查詢

CREATE VIEW 客房信息查詢

AS SELECT

* FROM 客房

(3)入住信息查詢

CREATE VIEW 入住登記信息查詢 AS SELECT

* FROM 入住登記

（4）入住信息查詢

CREATE VIEW 入住信息查詢

AS SELECT入住登記.客房編號,客戶名稱,入住登記.客戶編號,客房.客房類型,價格,使用狀態

FROM 客房,客戶,入住登記

WHERE 客房.客房編號=入住登記.客房編號 AND 入住登記.客戶編號=客戶.客戶編號

---------------建立索引-----------------------1.3建立索引及數據入庫

1.建立客房編號，價格，客戶編號，客戶名稱的索引 創建客房表索引：

CREATE UNIQUE INDEX UKF ON 客房(客房編號,價格)

創建客戶表索引：

CREATE UNIQUE INDEX UKH ON 客戶(客戶編號,客戶名稱)

創建入住表索引：

CREATE UNIQUE INDEX URZ ON 入住登記(客戶編號,客房編號)2.數據入庫

方法一 酒店管理系統包括客房信息表，客戶信息表，入住登記信息表。采用Excel中錄入數據，然后使用SQL Server 2000數據導入、導出功能直接將數據導入到相應的基本表。

方法二 在查詢分析器中插入相關數據，用SQL語句插入。

----------創建存儲過程----------------------1.4建立存儲過程

1.4.1客房信息存儲過程

插入客房信息存儲過程：

CREATE PROCEDURE 插入客房信息(@KFB CHAR(8), @KFL CHAR(8), @JG SMALLMONEY, @CWS INT, @SYZT CHAR(8))AS INSERT INTO 客房 VALUES(@KFB,@KFL,@JG,@CWS,@SYZT)

修改客房信息存儲過程：

CREATE PROCEDURE 修改客房信息(@KFB CHAR(8), @KFL CHAR(8), @JG SMALLMONEY, @CWS INT, @SYZT CHAR(8))AS UPDATE 客房

SET 客房類型=@KFL,價格=@JG,床位數=@CWS,使用狀態=@SYZT WHERE 客房編號=@KFB 刪除客房信息存儲過程：

CREATE PROCEDURE 刪除客房信息(@KFB CHAR(8))AS DELETE FROM 客房 WHERE 客房編號=@KFB

1.4.2客戶信息存儲過程

插入客戶信息

CREATE PROCEDURE 插入客戶信息(@KHB CHAR(8), @KFM CHAR(10), @SFZ CHAR(18), @LXDZ CHAR(25), @LXDH CHAR(10))AS INSERT INTO 客戶 VALUES(@KHB,@KFM,@SFZ,@LXDZ,@LXDH)修改客戶信息

CREATE PROCEDURE 修改客戶信息(@KHB CHAR(8), @KFM CHAR(10), @SFZ CHAR(18), @LXDZ CHAR(25), @LXDH CHAR(10))AS UPDATE 客戶

SET 客戶名稱=@KFM,身份證號=@SFZ,聯系地址=@LXDZ,聯系電話=@LXDH WHERE 客戶編號=@KHB

刪除客戶信息

CREATE PROCEDURE 刪除客戶信息(@KHB CHAR(8))AS DELETE FROM 客戶

WHERE 客戶編號=@KHB

EXEC 刪除客戶信息 @KHB='10009'

3.4.3創建入住信息存儲過程 插入入住信息

CREATE PROCEDURE 插入入住信息(@KFB CHAR(8), @KHB CHAR(8), @YDRQ DATETIME, @YDSL INT)AS INSERT INTO 入住登記 VALUES(@KFB,@KHB,@YDRQ,@YDSL)

修改入住信息

CREATE PROCEDURE 修改入住信息(@KFB CHAR(8), @KHB CHAR(8), @YDRQ DATETIME, @YDSL INT)AS UPDATE 入住登記

SET 客房編號=@KFB,預定日期=@YDRQ ,預定數量=@YDSL WHERE 客戶編號=@KHB

刪除入住信息

CREATE PROCEDURE 刪除入住信息(@KHB CHAR(8))AS DELETE

FROM 入住登記

WHERE 客戶編號=@KHB

1.5查詢存儲過程的創建

客房編號查詢

CREATE PROCEDURE 客房編號查詢(@KFB CHAR(8), @KFL CHAR(8)OUTPUT, @JG SMALLMONEY OUTPUT, @CWS INT OUTPUT, @SYZT CHAR(8)OUTPUT)AS SELECT @KFL=客房類型,@JG=價格,@CWS=床位數,@SYZT=使用狀態 FROM 客房

WHERE 客房編號=@KFB

客戶編號查詢

CREATE PROCEDURE 客戶編號查詢(@KHB CHAR(8), @KFM CHAR(10)OUTPUT , @SFZ CHAR(18)OUTPUT, @LXDZ CHAR(25)OUTPUT, @LXDH CHAR(10)OUTPUT)AS SELECT @KFM=客戶名稱,@SFZ=身份證號,@LXDZ=聯系地址,@LXDH=聯系電話 FROM 客戶

WHERE 客戶編號=@KHB

入住客戶編號查詢

CREATE PROCEDURE 入住客戶編號查詢(@KFB CHAR(8)OUTPUT, @KHB CHAR(8), @YDRQ DATETIME OUTPUT, @YDSL INT OUTPUT)AS SELECT @KFB=客房編號,@YDRQ=預定日期,@YDSL=預定數量 FROM 入住登記

WHERE 客戶編號=@KHB

--------建立觸發器--------------1.6、建立觸發器保證數據的一致性

客房使用狀態的控制

CREATE TRIGGER 控制觸發器

ON 入住登記 FOR INSERT AS

UPDATE 客房

SET 使用狀態='使用中' WHERE 客房編號=ANY(SELECT 客房編號 FROM INSERTED)

控制入住信息刪除的觸發器

CREATE TRIGGER 入住刪除觸發器

ON 入住登記 FOR DELETE AS BEGIN DELETE FROM 客戶 WHERE 客戶編號=ANY(SELECT 客戶編號 FROM DELETED)

UPDATE 客房

SET 使用狀態='未使用' WHERE 客房編號=ANY(SELECT 客房編號 FROM DELETED)END 客戶信息刪除的控制

CREATE TRIGGER 客戶刪除觸發器

ON 客戶

FOR DELETE AS BEGIN DELETE FROM 入住

WHERE 客戶編號=ANY(SELECT 客戶編號 FROM DELETED)

UPDATE 客房

SET 使用狀態='未使用' WHERE 客房編號=ANY(SELECT 客房編號 FROM DELETED)END

客房刪除觸發器

CREATE TRIGGER 客房刪除觸發器

ON 客房

FOR DELETE AS

DELETE FROM 入住

WHERE 客戶編號=ANY(SELECT 客戶編號 FROM DELETED)

酒店管理系統數據庫腳本

------------------------數據庫初始化------set nocount on set dateformat mdy go

use master

go if exists(select * from sysdatabases where name='酒店管理系統')

/*刪除在master中已存*/ /*在的名為酒店管理系統的數據庫*/ drop database 酒店管理系統 go--------------------------酒店管理系統的建立-create database 酒店管理系統 on primary /*設定系統主文件*/(name='酒店管理系統_data', filename='d:酒店管理系統.mdf', size=10, maxsize=50, filegrowth=5)

log on

/*創建事務日志文件*/(name='酒店管理系統_log', filename='d:酒店管理系統.ldf', size=5, maxsize=25, filegrowth=5)go

---------（注：刪除查詢分析器中的以上代碼后，運行以下代碼）-----------------建立信息表----------use 酒店管理系統

if exists(select * from sysobjects where name='客戶')drop table 客戶 go print 'drop table 客戶' print 'create table 客戶' go /*客戶信息表*/ CREATE TABLE 客戶

/*創建客戶信息表*/(客戶編號 CHAR(8)PRIMARY KEY, 客戶名稱 CHAR(10)NOT NULL, 身份證號 CHAR(18)NOT NULL, 聯系地址 CHAR(25), 聯系電話 CHAR(10))go--------------------------插入客戶數據-----------------------INSERT INTO 客戶 VALUES('1001','王一',12234,'江西','3245354')INSERT INTO 客戶 VALUES('1002','張三',34234,'江西','2442442')INSERT INTO 客戶 VALUES('1003','李四',56465,'江西','5654645')INSERT INTO 客戶 VALUES('1004','王錢',65435,'江西','5676577')INSERT INTO 客戶 VALUES('1005','孫志',11464,'江西','4234343')if exists(select * from sysobjects where name='客房')drop table 客房 go print 'drop table 客房' print 'create table 客房' go /*客房信息表*/ CREATE TABLE 客房

/*創建客房信息表*/(客房編號 CHAR(8)PRIMARY KEY, 客房類型 CHAR(8)NOT NULL, 價格 SMALLMONEY NOT NULL, 床位數 INT NOT NULL, 使用狀態 CHAR(8)NOT NULL)go-----------------------插入客房數據----------------------INSERT INTO 客房 VALUES('101','一',100,1,'使用中')INSERT INTO 客房 VALUES('102','二',200,2,'使用中')INSERT INTO 客房 VALUES('103','二',200,1,'使用中')INSERT INTO 客房 VALUES('104','三',300,2,'使用中')INSERT INTO 客房 VALUES('105','三',300,1,'使用中')if exists(select * from sysobjects where name='入住登記')drop table 入住登記 go print 'drop table 入住登記' print 'create table 入住登記' go /*入住登記信息表*/ CREATE TABLE 入住登記

/*創建入住登記信息表*/(客房編號 CHAR(8)FOREIGN KEY REFERENCES 客房(客房編號)，客戶編號 CHAR(8)FOREIGN KEY REFERENCES 客戶(客戶編號)，預定日期 DATETIME，預定數量 INT, PRIMARY KEY(客房編號,客戶編號))go

---------------插入入住登記信息數據----------------------INSERT INTO 入住登記 VALUES('101','1001',2010-10-10,1)INSERT INTO 入住登記 VALUES('102','1002',2010-12-10,1)INSERT INTO 入住登記 VALUES('103','1003',2010-12-26,1)INSERT INTO 入住登記 VALUES('104','1004',2010-12-9,1)go

-----建立索引-------------------

CREATE UNIQUE INDEX UKF ON 客房(客房編號,價格)go CREATE UNIQUE INDEX UKH ON 客戶(客戶編號,客戶名稱)go CREATE UNIQUE INDEX URZ ON 入住登記(客戶編號,客房編號)go

----建立觸發器-------------------------建立控制觸發器（保證在客房使用狀態的一致性）------if exists(select * from sysobjects where name='控制觸發器')drop trigger 控制觸發器 GO CREATE TRIGGER 控制觸發器

ON 入住登記 FOR INSERT AS

UPDATE 客房

SET 使用狀態='使用中' WHERE 客房編號=ANY(SELECT 客房編號 FROM INSERTED)go

--------建立入住刪除觸發器（保證信息刪除的一致性）----------if exists(select * from sysobjects where name='入住刪除觸發器')drop trigger 入住刪除觸發器 GO CREATE TRIGGER 入住刪除觸發器

ON 入住登記 FOR DELETE AS BEGIN DELETE FROM 客戶

WHERE 客戶編號=ANY(SELECT 客戶編號 FROM DELETED)

UPDATE 客房

SET 使用狀態='未使用' WHERE 客房編號=ANY(SELECT 客房編號 FROM DELETED)END go-------建立客房刪除觸發器（保證刪除的一致性）---------if exists(select * from sysobjects where name='客房刪除觸發器')drop trigger 客房刪除觸發器 GO CREATE TRIGGER 客房刪除觸發器

ON 客房

FOR DELETE AS

DELETE FROM 入住

WHERE 客戶編號=ANY(SELECT 客戶編號 FROM DELETED)go---------創建查詢視圖----------------

CREATE VIEW 入住信息查詢

AS SELECT 入住登記.客房編號,客戶名稱,入住登記.客戶編號,客房.客房類型,價格,使用狀態

FROM 客房,客戶,入住登記

WHERE 客房.客房編號=入住登記.客房編號 AND 入住登記.客戶編號=客戶.客戶編號 go

---------建立存儲過程------------------------------客房信息插入存儲過程--------------------------CREATE PROCEDURE 插入客房信息(@KFB CHAR(8), @KFL CHAR(8), @JG SMALLMONEY, @CWS INT, @SYZT CHAR(8))AS INSERT INTO 客房 VALUES(@KFB,@KFL,@JG,@CWS,@SYZT)GO

--------------------客房信息修改的存儲過程---------------------CREATE PROCEDURE 修改客房信息(@KFB CHAR(8), @KFL CHAR(8), @JG SMALLMONEY, @CWS INT, @SYZT CHAR(8))AS UPDATE 客房

SET 客房類型=@KFL,價格=@JG,床位數=@CWS,使用狀態=@SYZT WHERE 客房編號=@KFB go--------------------客房信息刪除的存儲過程---------------------CREATE PROCEDURE 刪除客房信息(@KFB CHAR(8))AS DELETE FROM 客房 WHERE 客房編號=@KFB GO--------------------客戶信息插入的存儲過程---------------------CREATE PROCEDURE 插入客戶信息(@KHB CHAR(8), @KFM CHAR(10), @SFZ CHAR(18), @LXDZ CHAR(25), @LXDH CHAR(10))AS INSERT INTO 客戶 VALUES(@KHB,@KFM,@SFZ,@LXDZ,@LXDH)go--------------------客戶信息修改的存儲過程---------------------CREATE PROCEDURE 修改客戶信息(@KHB CHAR(8), @KFM CHAR(10), @SFZ CHAR(18), @LXDZ CHAR(25), @LXDH CHAR(10))AS UPDATE 客戶

SET 客戶名稱=@KFM,身份證號=@SFZ,聯系地址=@LXDZ,聯系電話=@LXDH WHERE 客戶編號=@KHB GO--------------------客戶信息刪除的存儲過程---------------------CREATE PROCEDURE 刪除客戶信息(@KHB CHAR(8))AS DELETE FROM 客戶

WHERE 客戶編號=@KHB go--------------------入住信息插入的存儲過程---------------------CREATE PROCEDURE 插入入住信息(@KFB CHAR(8), @KHB CHAR(8), @YDRQ DATETIME, @YDSL INT)AS INSERT INTO 入住登記 VALUES(@KFB,@KHB,@YDRQ,@YDSL)go--------------------入住信息修改的存儲過程---------------------CREATE PROCEDURE 修改入住信息(@KFB CHAR(8), @KHB CHAR(8), @YDRQ DATETIME, @YDSL INT)AS UPDATE 入住登記

SET 客房編號=@KFB,預定日期=@YDRQ ,預定數量=@YDSL WHERE 客戶編號=@KHB go--------------------入住信息刪除的存儲過程---------------------CREATE PROCEDURE 刪除入住信息(@KHB CHAR(8))AS DELETE

FROM 入住登記

WHERE 客戶編號=@KHB go--------------------客房編號查詢的存儲過程-----------------------if exists(select * from sysobjects where name='客房編號查詢')drop procedure 客房編號查詢 GO CREATE PROCEDURE 客房編號查詢(@KFB CHAR(8))AS SELECT 客房類型,價格,床位數,使用狀態 FROM 客房

WHERE 客房編號=@KFB go--------------------客戶編號查詢的存儲過程-----------------------if exists(select * from sysobjects where name='客戶編號查詢')drop procedure 客戶編號查詢 GO CREATE PROCEDURE 客戶編號查詢(@KHB CHAR(8))AS SELECT 客戶編號,客戶名稱,身份證號,聯系地址,聯系電話 FROM 客戶

WHERE 客戶編號=@KHB go--------------------入住信息查詢的存儲過程-----------------------if exists(select * from sysobjects where name='入住客戶編號查詢')drop procedure 入住客戶編號查詢 GO CREATE PROCEDURE 入住客戶編號查詢(@KHB CHAR(8))AS SELECT 客戶編號,客房編號,預定日期,預定數量 FROM 入住登記

WHERE 客戶編號=@KHB

第四篇：庫存管理系統課程設計

庫存管理系統課程設計

一、需求分析...................................................................................................................................2 1.1 編寫目的：.......................................................................................................................2 1.2 項目背景：.......................................................................................................................2 1.3系統使用對象：................................................................................................................3 1.4 功能需求：.......................................................................................................................3 1.4.1 業務流程圖：.......................................................................................................3 1.4.2 功能模塊圖：.......................................................................................................4 1.4.3 功能介紹：...........................................................................................................4 1.4.4問題域描述：........................................................................................................5 1.5 性能要求：.......................................................................................................................5 1.6 運行環境：.......................................................................................................................6

二、系統詳細設計...........................................................................................................................6 2.1系統總體設計....................................................................................................................6 2.1.1 運行環境...............................................................................................................6 2.1.2 系統流程...............................................................................................................6 2.1.3 系統結構...............................................................................................................7 2.2系統接口的概要設計........................................................................................................8 2.2.1 用戶接口...............................................................................................................8 2.3 數據庫概要設計...............................................................................................................9 2.3.1 物理結構設計.......................................................................................................9

三、系統實現.................................................................................................................................10 3.1 系統開發環境.................................................................................................................10 3.2 系統實現.........................................................................................................................11 3.2.1 客戶端系統實現.................................................................................................11

一、需求分析

1.1 編寫目的：

庫存管理工作如由人工完成，主要依靠個人經驗和厚重的資料簿，查詢工作繁瑣而且質量不高，容易出錯。如果利用計算機的高速計算能力和廣泛的普及應用，則能利用判斷條件，更快地找出所要查詢的庫存產品。庫存管理系統是一套對貨品入庫、出庫、庫存進行全面管理的系統。

1.2 項目背景：

由于市場競爭的需要，如何吸引和留住人才，激發員工的創造行、工作責任感和工作熱情已經成為關系企業興衰的重要因素，人才已成為企業最重要的資產之一。“公正、公平、合理”的企業管理理念和企業管理水平的提高，是社會對庫存管理系統有了更高的需求；同時由于個人電腦的普及，數據庫技術、客戶/服務器技術，特別是Internet/Intranet技術的發展，使的三代庫存管理系統的出現才成為必然。庫存管理系統的特點是從物品管理的角度出發，用集中的數據庫將幾乎所有與物品相關的數據統一管理起來，形成了集成的信息源。有好的用戶界面，強有力的報表生成工具、分析工具和信息的共享使得物品管理人員得以擺脫繁重的日常工作，集中精力從戰略的角度來考慮企業物品規劃和政策。

企業的庫存物資管理往往是很復雜、很繁瑣的。由于所掌握的物資種類眾多，訂貨、管理、發放的渠道各有差異，各個企業之間的管理體制不盡相同，各類統計報表繁多，因此倉庫的庫存管理必須編制一套庫存管理信息系統，實現計算機化操作，而且必須根據企業的具體情況制定相應的方案。

1.3系統使用對象：

本軟件提供了完備的銷售業務管理功能，包括銷售管理（銷售訂單、銷售出貨、銷售退貨、收款登記）、基本信息（公司基本資料、客戶資料、貨品資料、員工檔案、其他基礎設置）、單據查詢(訂貨單查詢、收貨單查詢、付款單查詢)、系統維護（操作權限、數據備份及恢復、數據壓縮、數據清理）等功能。

1.4 功能需求：

1.4.1 業務流程圖：

1.4.2 功能模塊圖：

1.4.3 功能介紹： 庫存管理：包括貨品信息管理、貨品庫存管理、短線貨品管理、超儲貨品管理。

入庫管理：包括入庫登記管理、貨品入庫期間統計、供貨單位期間供貨統計和供貨單位期間供貨金額統計。

出庫管理：包括出庫登記管理、貨品期間出庫統計、收貨單位期間收貨統計和收貨單位期間收貨金額統計。

盤存管理：包括盤存數據錄入和盤存表。綜合管理：包括貨品出入庫期間匯總等。

附項分類：包括經辦人員管理、供貨單位管理、倉庫信息管理及數據處理記錄。

歷史數據管理：包括歷史庫存管理、歷史入庫管理和歷史出庫管理等。1.4.4問題域描述：

貨物是否能被管理員找到，貨物必要有唯一的貨號;倉庫對應唯一管理員，管理員必要有唯一工號，性別，姓名等屬性;每個入庫貨物對應一張入庫單，入庫單號碼必須與貨號唯一對應；每個出庫貨物對應一張出庫單，出庫單號碼必須與貨號唯一對應；管理人員存放貨物根據存放規則在倉庫內存放貨物；管理人員根據提貨規則從倉庫內提取貨物。

1.5 性能要求：

全局特征：

系統可用性是：全天候可用、可靠性：除了不可計錯誤，一般不會崩潰。安全性和保密性：只有專業的工作人員才能運行，可以設置權限。

1.6 運行環境：

硬件環境：PentiumⅡ 或同檔次以上微機； 32MB以上內存或更高；4.2G以上硬盤；1.44M

光驅；24速以上光驅；

針打或激光打印機一臺

軟件環境：中文 WINDOWS95 /

二、系統詳細設計

2.1系統總體設計

2.1.1 運行環境 操作系統：Windows All 安裝MySQL Tomcat MyEclipse 2.1.2 系統流程 本課題的系統流程圖如下

/WE/ 2000操作系統。

2.1.3 系統結構

本課題的功能模塊設計圖如下

2.2系統接口的概要設計

2.2.1 用戶接口 首頁（用戶登錄界面）

用戶操作界面（如圖）頭部和其他部位的內容一樣

左側部分為當用戶登錄成功后將顯示用戶操作的功能菜單 右側部分則根據用戶選擇的操作顯示相應內容

2.3 數據庫概要設計

2.3.1 物理結構設計

本課題目前為數據庫建立了9 個表 Category：id，name，description；

Goods：id，name，description，inprice，outprice，category_id，supplier;Instock:id,quantity,intime,price,description,goods_id,uear_id;Outstock:id,quantity,outtime,description,price,user_id,goods_id;Privilege:id,name,description Stock:goods_id,quantity,outprice,inprice Supplier:id,name,linkman,cellphone,description User:id,username,password User_privilege:user_id,privilege_id

三、系統實現

3.1 系統開發環境

系統：Microsoft Windows 7 編程環境：MyEclipse 開發語言：Java 數據庫：MySQL

3.2 系統實現

3.2.1 客戶端系統實現 登錄界面（如下圖）

庫存管理成果信息頁面（如圖）

用戶管理

權限管理

供應商管理

類別管理

商品管理

入庫管理

庫存管理

出庫管理

第五篇：課程設計--成績管理系統

“成績管理系統”課程設計指導書

課題名稱：學生成績管理系統

設計目標：按照軟件工程的規范，以SQL Server或Oracle為后臺數據庫，以Visual C++、Delphi等為前端開發工具，設計并實現一個能模擬高等學校學生成績管理的系統。

需求描述：

學生成績管理系統中：

1．系統用戶

系統的用戶是學校的學生、教師和管理員。學生使用本系統查詢自己的成績。教師使用本系統錄入和查詢自己所授課程的考試成績。教學管理員可以查詢所有課程成績，并使用本系統進行成績的統計和生成報表。

2．系統功能

(1)成績錄入：

教師可以查詢自己本學期所授課程，并錄入學生的考試成績。錄入過

程中，可以暫存已錄入的成績，當錄入完成后提交。

(2)成績維護：

教師在提交前，可以修改已錄入或暫存的學生成績；但提交后，則只

能查詢不能再進行任何修改。

教學管理員可以清除教師已提交的成績。

(3)成績查詢：

教師、教學管理員可以查詢學生考試成績。學生只允許查詢自己的考

試成績，教師只允許查詢自己所授課程的成績。

(4)成績統計：

教學管理員可以按課程、按學生、按班級等進行成績統計。

教學管理員根據核算出的總評成績統計處于優、良、中、及格、不及

格的學生人數以及占總人數的百分比。其中100-90為優，89-80為良，79-70為中，69-60為及格，60分以下為不及格。

按要求輸出成績在優、良、中、及格、不及格各區間的學生學號。

結果形式：

提交課程設計報告、源程序和可演示的軟件

課程設計報告要求：詳見課程設計模板

課程設計參考思路：

(1)熟悉數據庫和開發工具，掌握開發工具與本地數據庫的連接方法。

(2)理解系統的信息需求，進行合理的數據庫設計，建立各數據庫表。

(3)理解系統的功能需求，設計應用軟件。結合Delphi 或VC++進行系統界面

（窗體、菜單以及相應控制按鈕）的設計、連接與操縱數據庫方案的設計，編寫程序。

(4)系統運行、調試并完善。

(5)撰寫設計報告。