酒店管理系統(tǒng)設(shè)計(jì)

1、.工作總結(jié) 規(guī)章制度 情況匯報(bào) 教學(xué)教案 辦公應(yīng)用酒店管理系統(tǒng)設(shè)計(jì)一 課程設(shè)計(jì)題目：酒店管理系統(tǒng)蘇曉冬 20064250 楊 宇 20064270 宣張敏 20064236二.背景：現(xiàn)代化的酒店是集客房、餐飲、通訊及其他各種服務(wù)與設(shè)施為一體化的消費(fèi)場所，酒店組織龐大，服務(wù)項(xiàng)目多，信息量大，要想提高勞動(dòng)生產(chǎn)，降低成本，提高服務(wù)質(zhì)量和管理水平，促進(jìn)經(jīng)濟(jì)效益，必須借助計(jì)算機(jī)來進(jìn)行現(xiàn)代化的信息管理。該系統(tǒng)是運(yùn)用Microsoft SQL server2000數(shù)據(jù)庫和Microsoft Visual Basic6.0編程工具開發(fā)實(shí)現(xiàn)的。酒店管理系統(tǒng)要實(shí)現(xiàn)住宿登記、退房、客房標(biāo)準(zhǔn)管理、客房狀態(tài)信息管理等。

2、各個(gè)模塊不同的表實(shí)現(xiàn)添加記錄、修改記錄、刪除記錄、以及查詢顯示記錄等功能。全面系統(tǒng)地實(shí)現(xiàn)了酒店管理信息系統(tǒng)的各項(xiàng)功能。 三.系統(tǒng)需求功能分析 酒店管理子系統(tǒng)由客戶管理、房間管理、客戶查詢、管理員等功能模塊組成。酒店管理系統(tǒng)主要實(shí)現(xiàn)的功能：（1）客戶管理此系統(tǒng)可以完成客戶登記，退房結(jié)算的功能。（2）房間管理 此系統(tǒng)具有對房間的管理的功能。包括房間狀態(tài)、添加房間等。（3）客戶查詢 此系統(tǒng)可完成管理員對客戶的信息的查詢。包括客戶住址、客戶編號(hào)、身份證號(hào)、房間編號(hào)等功能。（4）管理員 此系統(tǒng)實(shí)現(xiàn)對管理員的功能有：添加和刪除。（5）房間編號(hào) 此系統(tǒng)可對房間的信息進(jìn)行查詢。包括房間編號(hào)、房間狀態(tài)、房間種類

3、、房間價(jià)格等。（6）預(yù)訂 客戶可通過此系統(tǒng)進(jìn)行房間預(yù)訂。包括客戶信息、預(yù)訂時(shí)間、房間編號(hào)等。四.酒店管理系統(tǒng)數(shù)據(jù)流圖如下：五.酒店客房管理系統(tǒng)的系統(tǒng)模塊示意圖如下：酒店管理系統(tǒng)客戶管理房間管理客戶查詢退房結(jié)算客戶登記房間狀態(tài)登陸窗體模塊添加房間退出客戶住址管理員客戶編號(hào)身份證號(hào)房間編號(hào)刪除管理員添加管理員六.數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計(jì)1. 房間編號(hào)實(shí)體E-R圖如下：房間編號(hào)房間編號(hào)房間狀態(tài)房間種類價(jià)格2. 管理員實(shí)體E-R圖如下：管理員管理員帳號(hào)密碼3. 客戶登記實(shí)體E-R圖如下：客戶登記備注身份證號(hào)客戶住址客戶性別入住時(shí)間客戶單位房間編號(hào)客戶編號(hào)客戶名字4. 預(yù)訂實(shí)體E-R圖如下：預(yù) 訂預(yù)訂時(shí)間房間

4、編號(hào)客戶信息酒店管理系統(tǒng)的實(shí)體關(guān)系模型（ER模型）圖如下：客戶登記表管理管理員表住宿預(yù)訂客房分配住宿登記表房間編號(hào)表客房分配NNN111N1七、邏輯設(shè)計(jì)：將以上的E-R圖轉(zhuǎn)換為關(guān)系數(shù)據(jù)模型。該E-R圖有4個(gè)實(shí)體類型，其屬性如下所述。.房間編號(hào)（編號(hào)、房間狀態(tài)、房間種類、價(jià)格）.管理員（管理員帳號(hào)、密碼）.預(yù)訂（房間編號(hào)、客戶信息、預(yù)訂時(shí)間）.客戶登記（客戶編號(hào)、客戶名字、客戶單位、客戶性別、客戶住址、身份證號(hào)、房間編號(hào)、備注、入住時(shí)間）系統(tǒng)運(yùn)行后的部分界面以及代碼：代碼：Private Sub Command1_Click() frmdenglu.ShowEnd SubPrivate Sub

5、Command2_Click() Unload MeEnd SubPrivate Sub Form_Load() If connecttoserver = True Then MsgBox "連接數(shù)據(jù)完畢" Else MsgBox "no" End IfEnd SubPrivate Sub Timer1_Timer() Unload Me midguanli.ShowEnd SubPrivate Sub Command1_Click() If txtid.Text = "dd" And txtkouling = "123&q

6、uot; Then midguanli.Show Else MsgBox "輸入ID或密碼錯(cuò)誤" End If Unload frmtupian Unload MeEnd SubPrivate Sub Command2_Click() Unload MeEnd Sub代碼： Private Sub mnukehubianhao_Click() frmchaxun.ShowEnd SubPrivate Sub mnukehudengji_Click() frmdengji.ShowEnd SubPrivate Sub mnukehuname_Click() frmfangji

7、anmohuchaxun.ShowEnd SubPrivate Sub mnukehunianling_Click() frmfangjianmohuchaxun1.ShowEnd SubPrivate Sub mnukehuzhuzhi_Click() frmchaxun.ShowEnd SubPrivate Sub mnushanchu_Click() frmshanchuguanliyuan.ShowEnd SubPrivate Sub mnushenfenzhenghao_Click() frmchaxun.ShowEnd SubPrivate Sub mnutianjia_Click

8、() frmtianjiafangjian.ShowEnd SubPrivate Sub mnutuichu_Click() Unload MeEnd SubPrivate Sub mnutuifangjiesuan_Click() frmtuifang.ShowEnd SubPrivate Sub mnuzengjia_Click() frmtianjiaguanliyuan.ShowEnd SubPrivate Sub mnuzhuangtai_Click() frmfangjianzhuangtai.ShowEnd SubPrivate Sub Toolbar1_ButtonClick(

9、ByVal Button As MSComctlLib.Button) Select Case Button.Key Case "登記" Call mnukehudengji_Click Case "退房" Call mnutuifangjiesuan_Click Case "精細(xì)查詢" Call mnukehuzhuzhi_Click Case "姓名查詢" Call mnukehuname_Click Case "年齡查詢" Call mnukehunianling_Click Case &

10、quot;增加房間" Call mnutianjia_Click Case "房間狀態(tài)" Call mnuzhuangtai_Click Case "增加管理員" Call mnuzengjia_Click Case "刪除管理員" Call mnushanchu_Click Case "退出系統(tǒng)" Call mnutuichu_Click End SelectEnd Sub代碼： Private Sub cmdbaocun_Click() Dim str As String If txtxingming

11、.Text = Empty Then MsgBox "你的輸入無效請重新輸入" Else str = "select * from kehudengji" If querydata(str) = True Then rct.AddNew rct.Fields("kehuID").Value = Val(txtid.Text) rct.Fields("kehuname").Value = txtxingming.Text rct.Fields("kehudanwei").Value = txtda

12、nwei.Text rct.Fields("kehunianling").Value = Val(txtnianling.Text) rct.Fields("kehuxingbie").Value = txtxingbie.Text rct.Fields("kehuzhuzhi").Value = txtzhuzhi.Text rct.Fields("shenfenzhenghao").Value = Val(txtshenfenzhenghao.Text) rct.Fields("beizhu"

13、;).Value = txtbeizhu.Text rct.Fields("ruzhuriqi").Value = txtruzhuriqi.Text rct.Fields("fangjianbianhao").Value = Val(txtbianhao.Text) rct.Update Else MsgBox "提出數(shù)據(jù)失敗!" End If str = "select * from fangjianbiao where fangjianbianhao=" & txtbianhao.Text If qu

14、erydata(str) = True Then rct.MoveFirst rct.Fields("fangjianzhuangtai").Value = 1 rct.Update Else MsgBox "沒有此房間!" End If End If txtxingming.Text = "" txtxingbie.Text = "" txtid.Text = "" txtshenfenzhenghao.Text = "" txtnianling.Text = "

15、" txtdanwei.Text = "" txtbianhao.Text = "" txtzhuzhi.Text = "" txtruzhuriqi.Text = "" txtbeizhu.Text = "備注說明："End Sub代碼： Private Sub Form_Load() flxzhuangtai.Rows = 1 flxzhuangtai.Cols = 2 flxzhuangtai.Row = 0 flxzhuangtai.Col = 1 flxzhuangtai.T

16、ext = "房間編號(hào)" Set rct = New ADODB.Recordset rct.Open "select * from fangjianbiao", con, adOpenDynamic, adLockOptimistic, -1 While Not rct.EOF flxzhuangtai.AddItem (Empty) flxzhuangtai.Row = flxzhuangtai.Rows - 1 flxzhuangtai.Text = rct!fangjianbianhao If rct!fangjianzhuangtai = 0

17、Then flxzhuangtai.CellBackColor = &HFF00& Else flxzhuangtai.CellBackColor = &HFF& End If rct.MoveNext WendEnd Sub代碼： Private Sub Form_Load() txtid.Text = rct.Fields("kehuID").Value txtxingming.Text = rct.Fields("kehuname").Value txtdanwei.Text = rct.Fields("k

18、ehudanwei").Value txtnianling.Text = rct.Fields("kehunianling").Value txtxingbie.Text = rct.Fields("kehuxingbie").Value txtzhuzhi.Text = rct.Fields("kehuzhuzhi").Value txtshenfenzhenghao.Text = rct.Fields("shenfenzhenghao").Value txtbeizhu.Text = rct.Fiel

19、ds("beizhu").Value txtruzhuriqi.Text = rct.Fields("ruzhuriqi").Value txtbianhao.Text = rct.Fields("fangjianbianhao").ValueEnd Sub代碼： msfchaxunjieguo.Col = 6 msfchaxunjieguo.Text = "身份證號(hào)" msfchaxunjieguo.ColWidth(6) = 1600 msfchaxunjieguo.CellAlignment = flexAl

20、ignCenterCenter msfchaxunjieguo.Col = 7 msfchaxunjieguo.Text = "備注" msfchaxunjieguo.ColWidth(7) = 3000 msfchaxunjieguo.CellAlignment = flexAlignCenterCenter msfchaxunjieguo.Col = 8 msfchaxunjieguo.Text = "入住日期" msfchaxunjieguo.ColWidth(8) = 1000 msfchaxunjieguo.CellAlignment = fl

21、exAlignCenterCenter msfchaxunjieguo.Col = 9 msfchaxunjieguo.Text = "房間編號(hào)" msfchaxunjieguo.ColWidth(9) = 800 msfchaxunjieguo.CellAlignment = flexAlignCenterCenter On Error Resume Next rct.MoveFirst If Err.Number > 0 Then Exit Sub Do While Not rct.EOF msfchaxunjieguo.AddItem (Empty) msfchaxunjieguo.Row = msfchaxunjieguo.Rows - 1 msfchaxunjieguo.Col = 0 msfchaxunjieguo.Text = rct.Fields("kehuID").Value msfchaxunjieguo.Col = 1 msfchaxunjieguo.Text = rct.Fields("kehuname").Value msfchaxunjieguo.Col = 2 msfchaxunjiegu