酒店管理系統(tǒng)設計.doc

《酒店管理系統(tǒng)設計.doc》由會員分享，可在線閱讀，更多相關《酒店管理系統(tǒng)設計.doc（14頁珍藏版）》請在裝配圖網(wǎng)上搜索。

1、http:/ 課程設計題目：酒店管理系統(tǒng)蘇曉冬 20064250 楊 宇 20064270 宣張敏 20064236二.背景：現(xiàn)代化的酒店是集客房、餐飲、通訊及其他各種服務與設施為一體化的消費場所，酒店組織龐大，服務項目多，信息量大，要想提高勞動生產(chǎn)，降低成本，提高服務質(zhì)量和管理水平，促進經(jīng)濟效益，必須借助計算機來進行現(xiàn)代化的信息管理。該系統(tǒng)是運用Microsoft SQL server2000數(shù)據(jù)庫和Microsoft Visual Basic6.0編程工具開發(fā)實現(xiàn)的。酒店管理系統(tǒng)要實現(xiàn)住宿登記、退房、客房標準管理、客房狀態(tài)信息管理等。各個模塊不同的表實現(xiàn)添加記錄、修改記錄、刪除記錄、以及查

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

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

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

5、d 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 Then midguanli.Show Else MsgBox 輸入ID或密碼錯誤 End If Unload frmtupian Unloa

6、d MeEnd SubPrivate Sub Command2_Click() Unload MeEnd Sub代碼： Private Sub mnukehubianhao_Click() frmchaxun.ShowEnd SubPrivate Sub mnukehudengji_Click() frmdengji.ShowEnd SubPrivate Sub mnukehuname_Click() frmfangjianmohuchaxun.ShowEnd SubPrivate Sub mnukehunianling_Click() frmfangjianmohuchaxun1.ShowE

7、nd SubPrivate Sub mnukehuzhuzhi_Click() frmchaxun.ShowEnd SubPrivate Sub mnushanchu_Click() frmshanchuguanliyuan.ShowEnd SubPrivate Sub mnushenfenzhenghao_Click() frmchaxun.ShowEnd SubPrivate Sub mnutianjia_Click() frmtianjiafangjian.ShowEnd SubPrivate Sub mnutuichu_Click() Unload MeEnd SubPrivate S

8、ub mnutuifangjiesuan_Click() frmtuifang.ShowEnd SubPrivate Sub mnuzengjia_Click() frmtianjiaguanliyuan.ShowEnd SubPrivate Sub mnuzhuangtai_Click() frmfangjianzhuangtai.ShowEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key Case 登記 Call mnukehudengji_Cl

9、ick Case 退房 Call mnutuifangjiesuan_Click Case 精細查詢 Call mnukehuzhuzhi_Click Case 姓名查詢 Call mnukehuname_Click Case 年齡查詢 Call mnukehunianling_Click Case 增加房間 Call mnutianjia_Click Case 房間狀態(tài) Call mnuzhuangtai_Click Case 增加管理員 Call mnuzengjia_Click Case 刪除管理員 Call mnushanchu_Click Case 退出系統(tǒng) Call mnutuic

10、hu_Click End SelectEnd Sub代碼： Private Sub cmdbaocun_Click() Dim str As String If txtxingming.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.

11、Fields(kehudanwei).Value = txtdanwei.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).Value = txtbeizhu.Text rc

12、t.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 querydata(str) = True Then rct.MoveFirst rct.Fields(fangjianzhuangtai).Value = 1 r

13、ct.Update Else MsgBox 沒有此房間! End If End If txtxingming.Text = txtxingbie.Text = txtid.Text = txtshenfenzhenghao.Text = txtnianling.Text = txtdanwei.Text = txtbianhao.Text = txtzhuzhi.Text = txtruzhuriqi.Text = txtbeizhu.Text = 備注說明：End Sub代碼： Private Sub Form_Load() flxzhuangtai.Rows = 1 flxzhuangta

14、i.Cols = 2 flxzhuangtai.Row = 0 flxzhuangtai.Col = 1 flxzhuangtai.Text = 房間編號 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!fa

15、ngjianbianhao If rct!fangjianzhuangtai = 0 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(kehu

16、danwei).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.Fields(beizhu).Value txtruzhuriqi.Text = rct.Fields(ruzhuriqi

17、).Value txtbianhao.Text = rct.Fields(fangjianbianhao).ValueEnd Sub代碼： msfchaxunjieguo.Col = 6 msfchaxunjieguo.Text = 身份證號 msfchaxunjieguo.ColWidth(6) = 1600 msfchaxunjieguo.CellAlignment = flexAlignCenterCenter msfchaxunjieguo.Col = 7 msfchaxunjieguo.Text = 備注 msfchaxunjieguo.ColWidth(7) = 3000 msfc

18、haxunjieguo.CellAlignment = flexAlignCenterCenter msfchaxunjieguo.Col = 8 msfchaxunjieguo.Text = 入住日期 msfchaxunjieguo.ColWidth(8) = 1000 msfchaxunjieguo.CellAlignment = flexAlignCenterCenter msfchaxunjieguo.Col = 9 msfchaxunjieguo.Text = 房間編號 msfchaxunjieguo.ColWidth(9) = 800 msfchaxunjieguo.CellAli

19、gnment = 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 msfchaxu

20、njieguo.Text = rct.Fields(kehuname).Value msfchaxunjieguo.Col = 2 msfchaxunjieguo.Text = rct.Fields(kehudanwei).Value msfchaxunjieguo.Col = 3 msfchaxunjieguo.Text = rct.Fields(kehunianling).Value msfchaxunjieguo.Col = 4 msfchaxunjieguo.Text = rct.Fields(kehuxingbie).Value msfchaxunjieguo.Col = 5 msf

21、chaxunjieguo.Text = rct.Fields(kehuzhuzhi).Value msfchaxunjieguo.Col = 6 msfchaxunjieguo.Text = rct.Fields(shenfenzhenghao).Value msfchaxunjieguo.Col = 7 msfchaxunjieguo.Text = rct.Fields(beizhu).Value msfchaxunjieguo.Col = 8 msfchaxunjieguo.Text = rct.Fields(ruzhuriqi).Value msfchaxunjieguo.Col = 9 msfchaxunjieguo.Text = rct.Fields(fangjianbianhao).Value rct.MoveNext Loop End Sub更多優(yōu)秀文檔盡在 http:/