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

上傳人：奔*** IP屬地：河北更新時(shí)間：2024-03-01 格式：doc 頁(yè)數(shù)：14 大小：316.00KB 人氣指數(shù)：12 舉報(bào) 版權(quán)申訴

2023年全國(guó)碩士研究生考試考研英語(yǔ)一試題真題（含答案詳解+作文范文）_第1頁(yè)

已閱讀1頁(yè)，還剩13頁(yè)未讀，繼續(xù)免費(fèi)閱讀

版權(quán)說(shuō)明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡(jiǎn)介

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

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

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

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

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

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

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

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

9、　?、?預(yù)訂（房間編號(hào)、客戶信息、預(yù)訂時(shí)間）　　⑷.客戶登記（客戶編號(hào)、客戶名字、客戶單位、客戶性別、客戶住址、身份證號(hào)、房間編號(hào)、備注、入住時(shí)間）　　系統(tǒng)運(yùn)行后的部分界面以及代碼：　　代碼：　　Private

10、Sub Command1_Click()　　frmdenglu.Show　　End Sub　　Private Sub Command2_Click()　　Unload Me

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

12、　　MsgBox "no"　　End If　　End Sub　　Private Sub Timer1_Timer()

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

14、; And txtkouling = "123" Then　　midguanli.Show　　Else　　MsgBox "輸入ID或密碼錯(cuò)誤"　　End If

15、;　　Unload frmtupian　　Unload Me　　End Sub　　Private Sub Command2_Click()

16、;　　Unload Me　　End Sub　　代碼：　　Private Sub mnukehubianhao_Click()　　frmchaxun.Show

17、　　End Sub　　Private Sub mnukehudengji_Click()　　frmdengji.Show　　End Sub　　Private Sub mnuk

18、ehuname_Click()　　frmfangjianmohuchaxun.Show　　End Sub　　Private Sub mnukehunianling_Click()　　frmfangjianmohuchaxun1.Sho

19、w　　End Sub　　Private Sub mnukehuzhuzhi_Click()　　frmchaxun.Show　　End Sub　　Priva

20、te Sub mnushanchu_Click()　　frmshanchuguanliyuan.Show　　End Sub　　Private Sub mnushenfenzhenghao_Click()　　frmchaxun.Show

21、　　End Sub　　Private Sub mnutianjia_Click()　　frmtianjiafangjian.Show　　End Sub

22、Private Sub mnutuichu_Click()　　Unload Me　　End Sub　　Private Sub mnutuifangjiesuan_Click()　　frmtuifa

23、ng.Show　　End Sub　　Private Sub mnuzengjia_Click()　　frmtianjiaguanliyuan.Show　　End Sub&l

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

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

26、gt;　　Call mnutuifangjiesuan_Click　　Case "精細(xì)查詢"　　Call mnukehuzhuzhi_Click　　Case "姓名查詢"　　Call mnu

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

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

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

30、t;　　代碼：　　Private Sub cmdbaocun_Click()　　Dim str As String　　If txtxingming.Text = Empty Then　　MsgBox "你的輸入無(wú)效請(qǐng)重新輸入"<

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

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

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

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

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

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

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

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

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

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

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

42、s = 1　　flxzhuangtai.Cols = 2　　flxzhuangtai.Row = 0　　flxzhuangtai.Col = 1　　flxzhuangtai.Text = "房間編號(hào)"　　Set

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

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

45、ngtai.CellBackColor = &HFF00&　　Else　　flxzhuangtai.CellBackColor = &HFF&　　End If　　r

46、ct.MoveNext　　Wend　　End Sub　　代碼：　　Private Sub Form_Load()

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

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

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

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

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

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

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

54、t;　　msfchaxunjieguo.CellAlignment = flexAlignCenterCenter　　msfchaxunjieguo.Col = 9　　msfchaxunjieguo.Text = "房間編號(hào)"　　msfchaxunjieguo.ColWi

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

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

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

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

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

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

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

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

眾賞文庫(kù)> 全部分類> 畢業(yè)設(shè)計(jì)

溫馨提示

1. 本站所有資源如無(wú)特殊說(shuō)明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 眾賞文庫(kù)僅提供信息存儲(chǔ)空間，僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理，對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請(qǐng)與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。

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

文檔簡(jiǎn)介

溫馨提示

最新文檔

評(píng)論

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

文檔簡(jiǎn)介

溫馨提示

最新文檔

評(píng)論

免費(fèi)下載