【文章內(nèi)容簡介】 美地結(jié)合起來，實(shí)現(xiàn)了住宿、餐飲、娛樂全新概念的服務(wù)和管理方式。一個(gè)成熟的酒店管理系統(tǒng)不僅僅是記錄酒店客人的信息，提供查詢，報(bào)表打印等一系列簡單的工作，它能讓工作人員從煩瑣的手工操作中解脫，并且酒店管理系統(tǒng)本 身就代表著一種管理方法。隨著它的深入，將帶動(dòng)企業(yè)的運(yùn)做，為管理和決策提供支持。為了達(dá)到這個(gè)要求，它必須依靠高起點(diǎn)的硬件環(huán)境和軟件開發(fā)工具來保證系 統(tǒng)的穩(wěn)定和正常運(yùn)行。酒店電腦系統(tǒng)要求24小時(shí)連續(xù)運(yùn)行，數(shù)據(jù)量大，可靠性要求高，因此整個(gè)電腦系統(tǒng)供電采用專線方式，加配UPS（不間斷供電系統(tǒng)），并合理接地，以便保障整套系統(tǒng)的正常運(yùn)行［7］。 需求分析系統(tǒng)需對用戶登錄進(jìn)行管理。使用各功能模塊時(shí)，系統(tǒng)應(yīng)驗(yàn)證用戶身份的有效性，否則要求用戶登錄。另外，允許用戶對自己的密碼進(jìn)行修改。系統(tǒng)應(yīng)提供客房的分類管理功能，可分類制訂客房面積、價(jià)格、是否配備空調(diào)等客房類型，對不同標(biāo)準(zhǔn)的客房進(jìn)行有效管理。系統(tǒng)可實(shí)現(xiàn)對客房信息的添加、刪除以及修改。在進(jìn)行入住/退房管理時(shí)，系統(tǒng)可以根據(jù)客房當(dāng)前的狀態(tài)自動(dòng)提示可用服務(wù)(入住/退房)。如果客房沒有客人入住，則該客房的可用服務(wù)為“入住”；否則，可用服務(wù)為“退房”。系統(tǒng)的客戶端在Windows平臺下運(yùn)行，服務(wù)器端可在Windows平臺或UNIX平臺下運(yùn)行。系統(tǒng)還需要有較好的安全性和可擴(kuò)展性［8］。需求分析是從客戶的需求中提取出軟件系統(tǒng)能夠幫助用戶解決的業(yè)務(wù)問題，通過對用戶業(yè)務(wù)問題的分析，規(guī)劃出系統(tǒng)的功能模塊，即定義用例。這個(gè)步驟是對理解需求的升華，直接關(guān)系到該系統(tǒng)的質(zhì)量。整個(gè)系統(tǒng)可以分為2大部分。酒店網(wǎng)站部分（客戶服務(wù)網(wǎng)站）和酒店管理部分（管理員部分）。本系統(tǒng)只做了有關(guān)酒店管理的一部分。 酒店管理部分: 預(yù)訂客房管理、客房查詢、退房管理。前臺服務(wù)員的主要職能是負(fù)責(zé)訂房和退房，以及查詢?nèi)胱〉目蛻粜畔?。所有該角色只可以使用部分功能，包括預(yù)定管理、客戶信息查詢，入住管理，退房管理功能。第四章 數(shù)據(jù)庫設(shè)計(jì) 數(shù)據(jù)庫設(shè)計(jì)截圖第5章 系統(tǒng)實(shí)現(xiàn)分別用三種身份登陸，所得到的權(quán)限也就不同老板經(jīng)理員工（通過添加客戶信息，自動(dòng)計(jì)算應(yīng)付房費(fèi)）“老板”為例，展示系統(tǒng)功能（1）查詢房態(tài)住著人的房間有：通過房間號查某間房的房態(tài)（2）職工管理添加職工設(shè)置權(quán)限第登陸Public Class LoginPrivate Sub Btn_Login_Click(ByVal sender As , ByVal e As )Handles = = Dim s As Integers = If s = 1 ThenMsgBox(“歡迎使用假日酒店管理系統(tǒng)”, + )()()ElseIf s =1 ThenMsgBox(“用戶名錯(cuò)誤！”, + )ElseMsgBox(“密碼錯(cuò)誤！”, + )End IfEnd IfEnd Sub6章 主要代碼Private Sub Btn_Cancel_Click(ByVal sender As , ByVal e As )Handles ()End SubPrivate Sub Login_Load(ByVal sender As , ByVal e As )Handles End Sub End Class主界面Public Class Main_FormPrivate Sub Main_Form_Load(ByVal sender As , ByVal e As )Handles Call Init_Tree()End SubPublic Sub Init_Tree()()Dim s As Strings = “select * from gg_Menu where isStop=39。039?！盌im dr As dr = (s)Dim myNode As TreeNodeWhile myNode = New TreeNode = (“MenuName”)If ((“Typeid”))= False ThenContinue WhileEnd If = (“Typeid”)If (“isGroup”)= “0” Then = (“Form”)Else = “End IfIf (”Parid“)= ”0“ Then(myNode)ElseIf ((”Parid“), True).Length 0 Then((”Parid“), True)(0).(myNode)End IfEnd IfEnd While()End SubPrivate Sub TreeV_AfterSelect(ByVal sender As , ByVal e As )Handles If = ”“ Then Exit SubDim formName As StringformName = ”Hotel_Manager.“ amp。 Dim f As Form39。f = CType(((formName)), Form)() = Me = End SubPrivate Sub 退出ToolStripMenuItem_Click(ByVal sender As , ByVal e As )Handles 注193。161。233。銷168。178。 = ”“ = ”“ = ”“()()End SubPrivate Sub Timer1_Tick(ByVal sender As , ByVal e As )Handles = ”登陸者“ amp。 = ”日期“ amp。 Format(Now, ”yyyyMMdd“) = ”時(shí)間“ amp。 Format(Now, ”long time“)End SubPrivate Sub 退出ToolStripMenuItem1_Click(ByVal sender As , ByVal e As )Handles ()End Sub End Class 入住Public Class Ruzhu_loginPrivate Sub Ruzhu_login_Load(ByVal sender As , ByVal e As )Handles = Call Init_Cbox()End SubPrivate Sub Cbox_type_SelectedIndexChanged(ByVal sender As , ByVal e As )Handles Dim s As Strings = ”select * from Fang where Fang_state=39?？?9。 and Fang_type=39。“ amp。 amp。 ”39。“Dim dr As dr = (s)()While (dr!Fang_num) = dr!Fang_yajin = dr!Fang_priceEnd While()End SubPrivate Sub Btn_ok_Click(ByVal sender As , ByVal e As )Handles Dim s As StringDim ID_Card As StringID_Card = Dim cAge As IntegercAge = (ID_Card)Dim stoptime As Stringstoptime = ”0000/00/00 00:00:00“s = ”insert into Customer values(39?！?amp。 amp。 ”39。,39。“ amp。 amp。 ”39。,39?！?amp。 amp。 ”39。,39?！?amp。 amp。 ”39。,39?！?amp。 _amp。 ”39。,39?！?amp。 amp。 ”39。,39?！?amp。 amp。 ”39。,39?！?amp。 Now amp。 ”39。,39?！?amp。 stoptime amp。 ”39。,39?！?amp。 _amp。 ”39。,39?！?amp。 amp。 ”39。,39?！?amp。 amp。 ”39。,39。“ amp。 amp。 ”39。)“Dim s2 As Strings2 = ”update Fang set Fang_state=39。滿39。 where Fang_num=39?！?amp。 amp。 ”39?！癟ry(s)(s2)MsgBox(”添加成功！“, + )()Catch ex As ExceptionMsgBox(”添加失??！“ amp。 , + )15End TryEnd SubPrivate Sub Btn_jisuan_Click(ByVal sender As , ByVal e As )Handles = * + End SubPrivate Sub Btn_add_Click(ByVal sender As , ByVal e As )Handles = = ”“() = ”“()() = ”“ = ”“ = ”“ = ”“ = ”“ = ”“Call Init_Cbox()End SubSub Init_Cbox()39。為性別和房間類型進(jìn)行添加(”男“)(”女“)(”單人間“)(”雙人間“)End Sub End Class 結(jié)算Public Class JiesuanDim str As StringPrivate Sub Jiesuan_Load(ByVal sender As , ByVal e As )Handles Call Btn_show_Cli