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

1、<p><b>　　酒店管理系統(tǒng)設(shè)計</b></p><p>　　課程設(shè)計題目：酒店管理系統(tǒng)</p><p>　　蘇曉冬 20064250 楊 宇 20064270 宣張敏 20064236</p><p><b>　　二.背景：</b></p><p>　　現(xiàn)代化的酒

2、店是集客房、餐飲、通訊及其他各種服務與設(shè)施為一體化的消費</p><p>　　場所，酒店組織龐大，服務項目多，信息量大，要想提高勞動生產(chǎn)，降低成本，提高服務質(zhì)量和管理水平，促進經(jīng)濟效益，必須借助計算機來進行現(xiàn)代化的信息管理。該系統(tǒng)是運用Microsoft SQL server2000數(shù)據(jù)庫和Microsoft Visual Basic6.0編程工具開發(fā)實現(xiàn)的。</p><p>　　酒店管理

3、系統(tǒng)要實現(xiàn)住宿登記、退房、客房標準管理、客房狀態(tài)信息管理等。各個模塊不同的表實現(xiàn)添加記錄、修改記錄、刪除記錄、以及查詢顯示記錄等功能。全面系統(tǒng)地實現(xiàn)了酒店管理信息系統(tǒng)的各項功能。</p><p>　　三.系統(tǒng)需求功能分析 </p><p>　　酒店管理子系統(tǒng)由客戶管理、房間管理、客戶查詢、管理員等功能模塊組成。</p><p>　　酒店管理系統(tǒng)主要實現(xiàn)的功能：<

4、;/p><p><b>　?。?）客戶管理</b></p><p>　　此系統(tǒng)可以完成客戶登記，退房結(jié)算的功能。</p><p><b>　?。?）房間管理</b></p><p>　　此系統(tǒng)具有對房間的管理的功能。包括房間狀態(tài)、添加房間等。</p><p><b>　

5、?。?）客戶查詢</b></p><p>　　此系統(tǒng)可完成管理員對客戶的信息的查詢。包括客戶住址、客戶編號、身份證號、房間編號等功能。</p><p><b>　　（4）管理員</b></p><p>　　此系統(tǒng)實現(xiàn)對管理員的功能有：添加和刪除。</p><p><b>　?。?）房間編號</

6、b></p><p>　　此系統(tǒng)可對房間的信息進行查詢。包括房間編號、房間狀態(tài)、房間種類、房間價格等。</p><p><b>　　（6）預訂</b></p><p>　　客戶可通過此系統(tǒng)進行房間預訂。包括客戶信息、預訂時間、房間編號等。</p><p>　　四.酒店管理系統(tǒng)數(shù)據(jù)流圖如下：</p>&

7、lt;p>　　五.酒店客房管理系統(tǒng)的系統(tǒng)模塊示意圖如下：</p><p>　　六.數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計</p><p>　　房間編號實體E-R圖如下：</p><p>　　管理員實體E-R圖如下：</p><p>　　客戶登記實體E-R圖如下：</p><p>　　預訂實體E-R圖如下：</p>&l

8、t;p>　　酒店管理系統(tǒng)的實體—關(guān)系模型（E—R模型）圖如下：</p><p>　　七、邏輯設(shè)計：將以上的E-R圖轉(zhuǎn)換為關(guān)系數(shù)據(jù)模型。</p><p>　　該E-R圖有4個實體類型，其屬性如下所述。</p><p>　?、?房間編號（編號、房間狀態(tài)、房間種類、價格）</p><p>　?、?管理員（管理員帳號、密碼）</p>

9、<p>　?、?預訂（房間編號、客戶信息、預訂時間）</p><p>　?、?客戶登記（客戶編號、客戶名字、客戶單位、客戶性別、客戶住址、身份證號、房間編號、備注、入住時間）</p><p>　　系統(tǒng)運行后的部分界面以及代碼：</p><p><b>　　代碼：</b></p><p>　　Private

10、Sub Command1_Click()</p><p>　　frmdenglu.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p><b>　　Unload Me</b></p>

11、<p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　If connecttoserver = True Then</p><p>　　MsgBox "連接數(shù)據(jù)完畢"</p><p><b>　　Else

12、</b></p><p>　　MsgBox "no"</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Timer1_Timer()</p><p>

13、;<b>　　Unload Me</b></p><p>　　midguanli.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub Command1_Click()</p><p>　　If txtid.Text = "dd"

14、; And txtkouling = "123" Then</p><p>　　midguanli.Show</p><p><b>　　Else</b></p><p>　　MsgBox "輸入ID或密碼錯誤"</p><p><b>　　End If</b>

15、;</p><p>　　Unload frmtupian</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p><b>

16、;　　Unload Me</b></p><p><b>　　End Sub</b></p><p><b>　　代碼：</b></p><p>　　Private Sub mnukehubianhao_Click()</p><p>　　frmchaxun.Show</p>

17、<p><b>　　End Sub</b></p><p>　　Private Sub mnukehudengji_Click()</p><p>　　frmdengji.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub mnuk

18、ehuname_Click()</p><p>　　frmfangjianmohuchaxun.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub mnukehunianling_Click()</p><p>　　frmfangjianmohuchaxun1.Sho

19、w</p><p><b>　　End Sub</b></p><p>　　Private Sub mnukehuzhuzhi_Click()</p><p>　　frmchaxun.Show</p><p><b>　　End Sub</b></p><p>　　Priva

20、te Sub mnushanchu_Click()</p><p>　　frmshanchuguanliyuan.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub mnushenfenzhenghao_Click()</p><p>　　frmchaxun.Show

21、</p><p><b>　　End Sub</b></p><p>　　Private Sub mnutianjia_Click()</p><p>　　frmtianjiafangjian.Show</p><p><b>　　End Sub</b></p><p>　　

22、Private Sub mnutuichu_Click()</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　Private Sub mnutuifangjiesuan_Click()</p><p>　　frmtuifa

23、ng.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub mnuzengjia_Click()</p><p>　　frmtianjiaguanliyuan.Show</p><p><b>　　End Sub</b></p>&l

24、t;p>　　Private Sub mnuzhuangtai_Click()</p><p>　　frmfangjianzhuangtai.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLi

25、b.Button)</p><p>　　Select Case Button.Key</p><p><b>　　Case "登記"</b></p><p>　　Call mnukehudengji_Click</p><p><b>　　Case "退房"</b&

26、gt;</p><p>　　Call mnutuifangjiesuan_Click</p><p>　　Case "精細查詢"</p><p>　　Call mnukehuzhuzhi_Click</p><p>　　Case "姓名查詢"</p><p>　　Call mnu

27、kehuname_Click</p><p>　　Case "年齡查詢"</p><p>　　Call mnukehunianling_Click</p><p>　　Case "增加房間"</p><p>　　Call mnutianjia_Click</p><p>　　Ca

28、se "房間狀態(tài)"</p><p>　　Call mnuzhuangtai_Click</p><p>　　Case "增加管理員"</p><p>　　Call mnuzengjia_Click</p><p>　　Case "刪除管理員"</p><p>

29、　　Call mnushanchu_Click</p><p>　　Case "退出系統(tǒng)"</p><p>　　Call mnutuichu_Click</p><p>　　End Select</p><p><b>　　End Sub</b></p><p><b&g

30、t;　　代碼：</b></p><p>　　Private Sub cmdbaocun_Click()</p><p>　　Dim str As String</p><p>　　If txtxingming.Text = Empty Then</p><p>　　MsgBox "你的輸入無效請重新輸入"<

31、;/p><p><b>　　Else</b></p><p>　　str = "select * from kehudengji"</p><p>　　If querydata(str) = True Then</p><p>　　rct.AddNew</p><p>　　rct.

32、Fields("kehuID").Value = Val(txtid.Text)</p><p>　　rct.Fields("kehuname").Value = txtxingming.Text</p><p>　　rct.Fields("kehudanwei").Value = txtdanwei.Text</p>

33、<p>　　rct.Fields("kehunianling").Value = Val(txtnianling.Text)</p><p>　　rct.Fields("kehuxingbie").Value = txtxingbie.Text</p><p>　　rct.Fields("kehuzhuzhi").V

34、alue = txtzhuzhi.Text</p><p>　　rct.Fields("shenfenzhenghao").Value = Val(txtshenfenzhenghao.Text)</p><p>　　rct.Fields("beizhu").Value = txtbeizhu.Text</p><p>　　r

35、ct.Fields("ruzhuriqi").Value = txtruzhuriqi.Text</p><p>　　rct.Fields("fangjianbianhao").Value = Val(txtbianhao.Text)</p><p>　　rct.Update</p><p><b>　　Else&l

36、t;/b></p><p>　　MsgBox "提出數(shù)據(jù)失敗!"</p><p><b>　　End If</b></p><p>　　str = "select * from fangjianbiao where fangjianbianhao=" & txtbianhao.Text<

37、;/p><p>　　If querydata(str) = True Then</p><p>　　rct.MoveFirst</p><p>　　rct.Fields("fangjianzhuangtai").Value = 1</p><p>　　rct.Update</p><p><b&g

38、t;　　Else</b></p><p>　　MsgBox "沒有此房間!"</p><p><b>　　End If</b></p><p><b>　　End If</b></p><p>　　txtxingming.Text = ""<

39、/p><p>　　txtxingbie.Text = ""</p><p>　　txtid.Text = ""</p><p>　　txtshenfenzhenghao.Text = ""</p><p>　　txtnianling.Text = ""</p&g

40、t;<p>　　txtdanwei.Text = ""</p><p>　　txtbianhao.Text = ""</p><p>　　txtzhuzhi.Text = ""</p><p>　　txtruzhuriqi.Text = ""</p><

41、p>　　txtbeizhu.Text = "備注說明："</p><p><b>　　End Sub</b></p><p><b>　　代碼：</b></p><p>　　Private Sub Form_Load()</p><p>　　flxzhuangtai.Row

42、s = 1</p><p>　　flxzhuangtai.Cols = 2</p><p>　　flxzhuangtai.Row = 0</p><p>　　flxzhuangtai.Col = 1</p><p>　　flxzhuangtai.Text = "房間編號"</p><p>　　Set

43、 rct = New ADODB.Recordset</p><p>　　rct.Open "select * from fangjianbiao", con, adOpenDynamic, adLockOptimistic, -1</p><p>　　While Not rct.EOF</p><p>　　flxzhuangtai.AddIte

44、m (Empty)</p><p>　　flxzhuangtai.Row = flxzhuangtai.Rows - 1</p><p>　　flxzhuangtai.Text = rct!fangjianbianhao</p><p>　　If rct!fangjianzhuangtai = 0 Then</p><p>　　flxzhua

45、ngtai.CellBackColor = &HFF00&</p><p><b>　　Else</b></p><p>　　flxzhuangtai.CellBackColor = &HFF&</p><p><b>　　End If</b></p><p>　　r

46、ct.MoveNext</p><p><b>　　Wend</b></p><p><b>　　End Sub</b></p><p><b>　　代碼：</b></p><p>　　Private Sub Form_Load()</p><p>　　

47、txtid.Text = rct.Fields("kehuID").Value</p><p>　　txtxingming.Text = rct.Fields("kehuname").Value</p><p>　　txtdanwei.Text = rct.Fields("kehudanwei").Value</p>

48、<p>　　txtnianling.Text = rct.Fields("kehunianling").Value</p><p>　　txtxingbie.Text = rct.Fields("kehuxingbie").Value</p><p>　　txtzhuzhi.Text = rct.Fields("kehuzhuz

49、hi").Value</p><p>　　txtshenfenzhenghao.Text = rct.Fields("shenfenzhenghao").Value</p><p>　　txtbeizhu.Text = rct.Fields("beizhu").Value</p><p>　　txtruzhuriqi

50、.Text = rct.Fields("ruzhuriqi").Value</p><p>　　txtbianhao.Text = rct.Fields("fangjianbianhao").Value</p><p><b>　　End Sub</b></p><p><b>　　代碼：<

51、;/b></p><p>　　msfchaxunjieguo.Col = 6</p><p>　　msfchaxunjieguo.Text = "身份證號"</p><p>　　msfchaxunjieguo.ColWidth(6) = 1600</p><p>　　msfchaxunjieguo.CellAlign

52、ment = flexAlignCenterCenter</p><p>　　msfchaxunjieguo.Col = 7</p><p>　　msfchaxunjieguo.Text = "備注"</p><p>　　msfchaxunjieguo.ColWidth(7) = 3000</p><p>　　msfcha

53、xunjieguo.CellAlignment = flexAlignCenterCenter</p><p>　　msfchaxunjieguo.Col = 8</p><p>　　msfchaxunjieguo.Text = "入住日期"</p><p>　　msfchaxunjieguo.ColWidth(8) = 1000</p&g

54、t;<p>　　msfchaxunjieguo.CellAlignment = flexAlignCenterCenter</p><p>　　msfchaxunjieguo.Col = 9</p><p>　　msfchaxunjieguo.Text = "房間編號"</p><p>　　msfchaxunjieguo.ColWi

55、dth(9) = 800</p><p>　　msfchaxunjieguo.CellAlignment = flexAlignCenterCenter</p><p>　　On Error Resume Next</p><p>　　rct.MoveFirst</p><p>　　If Err.Number > 0 Then Exit

56、 Sub</p><p>　　Do While Not rct.EOF</p><p>　　msfchaxunjieguo.AddItem (Empty)</p><p>　　msfchaxunjieguo.Row = msfchaxunjieguo.Rows - 1</p><p>　　msfchaxunjieguo.Col = 0<

57、/p><p>　　msfchaxunjieguo.Text = rct.Fields("kehuID").Value</p><p>　　msfchaxunjieguo.Col = 1</p><p>　　msfchaxunjieguo.Text = rct.Fields("kehuname").Value</p>

58、<p>　　msfchaxunjieguo.Col = 2</p><p>　　msfchaxunjieguo.Text = rct.Fields("kehudanwei").Value</p><p>　　msfchaxunjieguo.Col = 3</p><p>　　msfchaxunjieguo.Text = rct.Fiel

59、ds("kehunianling").Value</p><p>　　msfchaxunjieguo.Col = 4</p><p>　　msfchaxunjieguo.Text = rct.Fields("kehuxingbie").Value</p><p>　　msfchaxunjieguo.Col = 5</p&

60、gt;<p>　　msfchaxunjieguo.Text = rct.Fields("kehuzhuzhi").Value</p><p>　　msfchaxunjieguo.Col = 6</p><p>　　msfchaxunjieguo.Text = rct.Fields("shenfenzhenghao").Value<

61、/p><p>　　msfchaxunjieguo.Col = 7</p><p>　　msfchaxunjieguo.Text = rct.Fields("beizhu").Value</p><p>　　msfchaxunjieguo.Col = 8</p><p>　　msfchaxunjieguo.Text = rct.

62、Fields("ruzhuriqi").Value</p><p>　　msfchaxunjieguo.Col = 9</p><p>　　msfchaxunjieguo.Text = rct.Fields("fangjianbianhao").Value</p><p>　　rct.MoveNext</p>&