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

1、<p>　　管理信息系統(tǒng)課程設(shè)計(jì)報(bào)告</p><p><b>　　目錄</b></p><p>　　第1章 現(xiàn)行系統(tǒng)概述1</p><p>　　第2章 系統(tǒng)分析1</p><p>　　2.1 需求分析1</p><p>　　2.1.1 系統(tǒng)功能需求之管理員2</p>

2、;<p>　　2.1.2 系統(tǒng)功能需求之用戶2</p><p>　　2.2 可行性研究3</p><p>　　2.2.1 技術(shù)可行性3</p><p>　　2.2.2經(jīng)濟(jì)可行性3</p><p>　　2.2.3 法律上的可行性3</p><p>　　2.3系統(tǒng)開(kāi)發(fā)方法的選擇4</p>

3、;<p><b>　　2.4數(shù)據(jù)結(jié)構(gòu)4</b></p><p>　　第3章 系統(tǒng)設(shè)計(jì)5</p><p>　　3.1 總體設(shè)計(jì)結(jié)構(gòu)5</p><p>　　3.2 代碼設(shè)計(jì)6</p><p>　　第四部分 系統(tǒng)實(shí)施過(guò)程及其流程圖12</p><p>　　4.1 基礎(chǔ)信息設(shè)置

4、12</p><p>　　4.2 客房前臺(tái)管理13</p><p>　　4.3 查詢統(tǒng)計(jì)管理15</p><p>　　4.4 掛賬管理16</p><p>　　4.5 系統(tǒng)初始設(shè)計(jì)16</p><p>　　4.6 系統(tǒng)維護(hù)16</p><p>　　第5章 系統(tǒng)使用說(shuō)明16<

5、/p><p>　　第1章 現(xiàn)行系統(tǒng)概述</p><p>　　隨著社會(huì)經(jīng)濟(jì)的發(fā)展，人們對(duì)生活質(zhì)量的要求越來(lái)越高，作為服務(wù)之一的賓館業(yè)也在不斷的完善服務(wù)體制。它是集餐飲、住宿、娛樂(lè)于一體的立體化服務(wù)體系，其中顧客可以隨意消費(fèi)并統(tǒng)一結(jié)賬；賓館管理者可及時(shí)了解賓館的全部運(yùn)營(yíng)情況及經(jīng)營(yíng)走勢(shì)，找出運(yùn)轉(zhuǎn)成本，作為經(jīng)營(yíng)決策的依據(jù)。只有運(yùn)用先進(jìn)的科學(xué)管理手段，利用計(jì)算機(jī)管理系統(tǒng)才能更好實(shí)現(xiàn)這一管理模式。<

6、;/p><p>　　賓館客房管理信息系統(tǒng)是用來(lái)收集、處理、存貯和傳播客房、顧客、結(jié)算信息，以信息管理為核心的計(jì)算機(jī)應(yīng)用系統(tǒng)。利用賓館客房管理信息系統(tǒng)中合理的數(shù)據(jù)庫(kù)結(jié)構(gòu)來(lái)保存數(shù)據(jù)信息，及時(shí)了解各個(gè)環(huán)節(jié)中信息的變更，通過(guò)有效的程序結(jié)構(gòu)來(lái)支持各種數(shù)據(jù)操作的執(zhí)行，以提高管理效率，實(shí)現(xiàn)賓館服務(wù)的系統(tǒng)化、規(guī)范化、自動(dòng)化。通過(guò)該項(xiàng)目的開(kāi)發(fā)與使用，可實(shí)現(xiàn)以下功能：</p><p>　?。?）：快速實(shí)現(xiàn)客人入住

7、登記和賬務(wù)處理，減少客人住店及離店時(shí)的等待時(shí)間</p><p>　?。?）：準(zhǔn)確實(shí)現(xiàn)客人預(yù)訂入住的要求，實(shí)現(xiàn)有效及有保障的前臺(tái)系統(tǒng)作業(yè)</p><p>　?。?）：快速響應(yīng)住宿客人的有關(guān)項(xiàng)目查詢要求</p><p>　?。?）：實(shí)現(xiàn)入住、消費(fèi)、結(jié)賬一條龍服務(wù)，方便客人在店內(nèi)的各類消費(fèi)要求</p><p><b>　　第2章 系統(tǒng)

8、分析</b></p><p><b>　　2.1 需求分析</b></p><p>　　電子計(jì)算機(jī)科學(xué)的飛速發(fā)展，給酒店計(jì)算機(jī)應(yīng)用帶來(lái)了蓬勃生機(jī)，出現(xiàn)了酒店計(jì)算機(jī)管理信息系統(tǒng)、安全保衛(wèi)系統(tǒng)、電子門鎖系統(tǒng)、酒店信息服務(wù)系統(tǒng)、客房電腦保險(xiǎn)系統(tǒng)以及計(jì)算機(jī)娛樂(lè)系統(tǒng)。計(jì)算機(jī)在酒店中的應(yīng)用，已深入到酒店的各個(gè)部門，特別在信息處理領(lǐng)域，計(jì)算機(jī)已成為最重要的工具。在酒店現(xiàn)

9、代管理理論中，酒店管理信息系統(tǒng)已成為酒店現(xiàn)代科學(xué)管理的重要內(nèi)容，是酒店經(jīng)營(yíng)必不可缺少的現(xiàn)代科學(xué)工具。近年來(lái)，隨著我國(guó)改革開(kāi)放的發(fā)展，國(guó)內(nèi)的酒店服務(wù)業(yè)得到了日新月異的發(fā)展?，F(xiàn)代酒店作為一體化的接待場(chǎng)所，是一個(gè)旅游城市的窗口，也可以說(shuō)是一個(gè)小型社會(huì)。作為一種以服務(wù)為主的無(wú)煙工業(yè)，世界各國(guó)對(duì)此行業(yè)的重視程度并不亞于其它工業(yè)。我設(shè)計(jì)的酒店管理系統(tǒng)主要是針對(duì)酒店各種信息的管理以實(shí)現(xiàn)對(duì)酒店的管理</p><p>　　2.1.

10、1 系統(tǒng)功能需求之管理員</p><p>　　1.對(duì)客房信息進(jìn)行查詢、更新、刪除，添加客房信息；</p><p>　　對(duì)客房類型信息進(jìn)行查詢、更新、刪除，添加客房類型；</p><p>　　對(duì)用顧客入住信息進(jìn)行查詢、更新、刪除，添加顧客入住離開(kāi)信息；</p><p><b>　　對(duì)客戶留言的管理。</b></p&g

11、t;<p>　　2.1.2 系統(tǒng)功能需求之用戶</p><p>　　利用本系統(tǒng)用戶在注冊(cè)或登錄后可實(shí)現(xiàn)：</p><p>　　1、客房遠(yuǎn)程網(wǎng)上預(yù)訂， 使客戶不在當(dāng)?shù)匾部梢杂嗁?gòu)酒店的客房；</p><p>　　2、利用本系統(tǒng)可查詢、掌握全酒店客房的運(yùn)營(yíng)狀況；</p><p>　　3、利用本系統(tǒng) 可發(fā)布酒店相關(guān)信息， 讓客戶了解酒店

12、的服務(wù)理念；</p><p>　　4、 提高酒店的知名度；</p><p>　　5、 利用本系統(tǒng)實(shí)現(xiàn)客戶意見(jiàn)反饋，客戶通過(guò)留言板對(duì)酒店服務(wù)提出意見(jiàn)，拉近了酒店和客戶之間的距離；</p><p>　　6、 增加客戶的回頭率。</p><p><b>　　2.2 可行性研究</b></p><p>　

13、　2.2.1 技術(shù)可行性</p><p>　　此次信息系統(tǒng)開(kāi)發(fā)是對(duì)我們所學(xué)的管理信息系統(tǒng)的實(shí)踐,我們?cè)谖C(jī)室完成系統(tǒng)開(kāi)發(fā)。我們小組可以選定兩三臺(tái)計(jì)算機(jī)或者用自己的筆記本進(jìn)行開(kāi)發(fā)，建立系統(tǒng)開(kāi)發(fā)環(huán)境，主要是安裝ACCESS機(jī)，小組成員之間可以通過(guò)一起討論，協(xié)調(diào)開(kāi)發(fā)工作，解決開(kāi)發(fā)工作中出現(xiàn)的問(wèn)題。</p><p>　　就技術(shù)力量來(lái)說(shuō)，該學(xué)期，我們小組各成員已經(jīng)學(xué)習(xí)了管理信息系統(tǒng)，并且對(duì)網(wǎng)絡(luò)技術(shù)和

14、操作系統(tǒng)也有系統(tǒng)的了解，有些成員熟悉計(jì)算機(jī)原理，能解決常見(jiàn)的硬件故障和硬件選擇。目前，教材管理信息系統(tǒng)已得到了大量應(yīng)用，有許多可供參考的成功系統(tǒng)。從技術(shù)角度考慮，此信息系統(tǒng)開(kāi)發(fā)可行。</p><p>　　2.2.2經(jīng)濟(jì)可行性</p><p>　　目標(biāo)系統(tǒng)開(kāi)發(fā)需求比較低，加上具有成熟的軟硬件環(huán)境，所以在軟硬件的支出上十分有限。而且，目標(biāo)系統(tǒng)并不是十分的復(fù)雜，開(kāi)發(fā)的周期較短，人員經(jīng)濟(jì)支出有限。

15、當(dāng)系統(tǒng)開(kāi)發(fā)完實(shí)際運(yùn)行后，將很大程度上提高計(jì)算機(jī)的功能，在為使用者帶來(lái)便利的同時(shí)，也為系統(tǒng)的進(jìn)一步推廣創(chuàng)造了條件。這帶來(lái)的經(jīng)濟(jì)回報(bào)將遠(yuǎn)超過(guò)支出，并且最重要的一點(diǎn)是該軟件的開(kāi)發(fā)可以給我們對(duì)系統(tǒng)的開(kāi)發(fā)有個(gè)全面的認(rèn)識(shí)。從經(jīng)濟(jì)角度考慮，此信息系統(tǒng)開(kāi)發(fā)可行。</p><p>　　2.2.3 法律上的可行性</p><p>　　整個(gè)系統(tǒng)由于是自行開(kāi)發(fā)，自行使用，所以系統(tǒng)本身不存在法律上的版權(quán)爭(zhēng)議信息系統(tǒng)

16、規(guī)劃</p><p>　　在需求分析的基礎(chǔ)上，我們提出了教材管理系統(tǒng)的總體結(jié)構(gòu)方案，并根據(jù)發(fā)展戰(zhàn)略和總體結(jié)構(gòu)方案，確定了系統(tǒng)的開(kāi)發(fā)次序及時(shí)間安排。</p><p>　　2.3系統(tǒng)開(kāi)發(fā)方法的選擇</p><p>　　本次課程設(shè)計(jì)我們選擇結(jié)構(gòu)化開(kāi)發(fā)方法，即用系統(tǒng)工程的思想和工程化的方法，按照用戶至上的原則，自頂向下整體分析與設(shè)計(jì)和自底向上逐步實(shí)施的系統(tǒng)開(kāi)發(fā)過(guò)程。是組織、

17、管理和控制信息系統(tǒng)開(kāi)發(fā)過(guò)程的一種基本框架。</p><p>　　其基本思想：在系統(tǒng)分析時(shí)，采用自頂向下、逐層分解，由抽象到具體的逐步認(rèn)識(shí)問(wèn)題的過(guò)程；在系統(tǒng)設(shè)計(jì)的時(shí)候，先考慮系統(tǒng)整體的優(yōu)化，再考慮局部的優(yōu)化問(wèn)題；在系統(tǒng)實(shí)施的時(shí)候，則堅(jiān)持自底向上，先局部后整體，通過(guò)標(biāo)準(zhǔn)化模塊的連接形成完整的系統(tǒng)。</p><p><b>　　2.4數(shù)據(jù)結(jié)構(gòu)</b></p>

18、<p>　　本程序定義了五個(gè)結(jié)構(gòu)體：date，easy，easy*create，easy*head，ptr分別用于存放日期與時(shí)間信息，房間入住狀態(tài)，當(dāng)日時(shí)間，住房費(fèi)用信息 </p><p>　　1、定義入住信息結(jié)構(gòu)體</p><p>　　struct easy</p><p><b>　　{</b></p><p&

19、gt;　　int number;</p><p>　　int price;</p><p>　　struct date past; </p><p>　　char name[8],id[18];</p><p><b>　　int x;</b></p><p>　　struct easy *nex

20、t;</p><p><b>　　}</b></p><p>　　其中各字段意義如下：</p><p>　　int number; 表示房號(hào)</p><p>　　int price; 表示價(jià)格</p><p>　　struct date past; 表示入住日期和時(shí)間 </p>

21、<p>　　char name[8],id[18]; 表示等級(jí)客戶姓名和地址</p><p>　　int x;表示房間入住狀態(tài)</p><p><b>　　第3章 系統(tǒng)設(shè)計(jì)</b></p><p>　　3.1 總體設(shè)計(jì)結(jié)構(gòu)</p><p>　　該管理系統(tǒng)適用于各類中小型酒店的客房資源和客戶信息的管理，實(shí)現(xiàn)了酒

22、店的信息化管理，該系統(tǒng)主要包括基礎(chǔ)信息設(shè)置、客房前臺(tái)管理、查詢統(tǒng)計(jì)管理、掛賬管理、系統(tǒng)初始設(shè)計(jì)、系統(tǒng)維護(hù)等功能。</p><p><b>　　功能結(jié)構(gòu)圖3-1</b></p><p><b>　　3.2 代碼設(shè)計(jì)</b></p><p>　　Private Sub Form_Current()</p><

23、;p>　　On Error GoTo Err_Form_Current</p><p>　　'把子窗體中當(dāng)前記錄值賦予主窗體對(duì)應(yīng)的文本框內(nèi)</p><p>　　Forms![職員資料管理]![職員ID] = Me![職員ID]</p><p>　　Forms![職員資料管理]![姓名] = Me![姓名]</p><p>　　F

24、orms![職員資料管理]![職位] = Me![職位]</p><p>　　Forms![職員資料管理]![性別] = Me![性別]</p><p>　　Forms![職員資料管理]![籍貫] = Me![籍貫]</p><p>　　Forms![職員資料管理]![年齡] = Me![年齡]</p><p>　　Forms![職員資料管理

25、]![民族] = Me![民族]</p><p>　　Forms![職員資料管理]![健康狀況] = Me![健康狀況]</p><p>　　Forms![職員資料管理]![身份證號(hào)] = Me![身份證號(hào)]</p><p>　　Forms![職員資料管理]![婚姻狀況] = Me![婚姻狀況]</p><p>　　Forms![職員資料管理

26、]![家庭地址] = Me![家庭地址]</p><p>　　Forms![職員資料管理]![家庭電話] = Me![家庭電話]</p><p>　　Forms![職員資料管理]![備注] = Me![備注]</p><p>　　Exit_Form_Current:</p><p><b>　　Exit Sub</b>&

27、lt;/p><p>　　Err_Form_Current:</p><p>　　MsgBox Err.Description</p><p>　　Resume Exit_Form_Current</p><p><b>　　End Sub</b></p><p>　　Option Compare Da

28、tabase</p><p>　　Private Sub 查詢_Click()</p><p>　　On Error GoTo Err_查詢_Click</p><p>　　Me![入住記錄查詢 子窗體].Requery</p><p>　　Exit_查詢_Click:</p><p><b>　　Exit

29、Sub</b></p><p>　　Err_查詢_Click:</p><p>　　MsgBox Err.Description</p><p>　　Resume Exit_查詢_Click</p><p><b>　　End Sub</b></p><p>　　Private Sub

30、 關(guān)閉_Click()</p><p>　　On Error GoTo Err_關(guān)閉_Click</p><p>　　DoCmd.Close</p><p>　　Exit_關(guān)閉_Click:</p><p><b>　　Exit Sub</b></p><p>　　Err_關(guān)閉_Click:<

31、;/p><p>　　MsgBox Err.Description</p><p>　　Resume Exit_關(guān)閉_Click</p><p><b>　　End Sub</b></p><p>　　Option Compare Database</p><p>　　Private Sub 新添會(huì)員_

32、Click()</p><p>　　On Error GoTo Err_新添會(huì)員_Click</p><p>　　'為窗體中“會(huì)員ID”等文本框控件設(shè)置初值</p><p>　　Me![會(huì)員ID] = Year(Now) & Month(Now) & Day(Now) & _</p><p>　　Hour(No

33、w) & Minute(Now) & Second(Now)</p><p>　　Me![會(huì)員姓名] = Null</p><p>　　Me![會(huì)員級(jí)別] = "一級(jí)"</p><p>　　Me![會(huì)員折扣] = 9.5</p><p>　　Me![累計(jì)消費(fèi)] = 0</p><p>

34、;　　Me![操作人員] = Null</p><p>　　Me![身份證ID] = Null</p><p>　　Me![所在單位] = Null</p><p>　　Me![入會(huì)日期] = Now</p><p>　　Me![備注] = Null</p><p>　　Exit_新添會(huì)員_Click:</p&g

35、t;<p><b>　　Exit Sub</b></p><p>　　Err_新添會(huì)員_Click:</p><p>　　MsgBox Err.Description</p><p>　　Resume Exit_新添會(huì)員_Click</p><p><b>　　End Sub</b>&

36、lt;/p><p>　　Private Sub 保存會(huì)員_Click()</p><p>　　On Error GoTo Err_保存會(huì)員_Click</p><p>　　Dim i As Integer</p><p>　　Dim STemp As String</p><p>　　Dim rs As ADODB.Rec

37、ordset</p><p>　　Set rs = New ADODB.Recordset</p><p>　　'為打開(kāi)數(shù)據(jù)表“查詢語(yǔ)句”字符變量賦值</p><p>　　STemp = "Select * From 會(huì)員資料"</p><p>　　'打開(kāi)“會(huì)員資料”數(shù)據(jù)表</p><p

38、>　　rs.Open STemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic</p><p>　　'判斷“會(huì)員ID”等文本框是否為空</p><p>　　If IsNull(Me![會(huì)員ID]) = True Then</p><p>　　'彈出提示“會(huì)員ID”文本框不可

39、以為空信息</p><p>　　MsgBox "請(qǐng)輸入“會(huì)員ID”，它不可以為空!", vbOKOnly, "輸入“會(huì)員ID”"</p><p>　　'把光標(biāo)置于“會(huì)員ID”文本框內(nèi)</p><p>　　Me![會(huì)員ID].SetFocus</p><p><b>　　'退出子

40、過(guò)程</b></p><p><b>　　Exit Sub</b></p><p>　　ElseIf IsNull(Me![會(huì)員姓名]) = True Then</p><p>　　MsgBox "請(qǐng)輸入“會(huì)員姓名”，它不可以為空!", vbOKOnly, "輸入“會(huì)員姓名”"</p&g

41、t;<p>　　Me![會(huì)員姓名].SetFocus</p><p><b>　　Exit Sub</b></p><p>　　ElseIf IsNull(Me![身份證ID]) = True Then</p><p>　　MsgBox "請(qǐng)輸入“身份證ID”，它不可以為空!", vbOKOnly, "

42、;輸入“身份證ID”"</p><p>　　Me![身份證ID].SetFocus</p><p><b>　　Exit Sub</b></p><p>　　ElseIf IsNull(Me![入會(huì)日期]) = True Then</p><p>　　MsgBox "請(qǐng)輸入“入會(huì)日期”，它不可以為空!

43、", vbOKOnly, "輸入“入會(huì)日期”"</p><p>　　Me![入會(huì)日期].SetFocus</p><p><b>　　Exit Sub</b></p><p>　　ElseIf IsNull(Me![會(huì)員級(jí)別]) = True Then</p><p>　　MsgBox &q

44、uot;請(qǐng)輸入“會(huì)員級(jí)別”，它不可以為空!", vbOKOnly, "輸入“會(huì)員級(jí)別”"</p><p>　　Me![會(huì)員級(jí)別].SetFocus</p><p><b>　　Exit Sub</b></p><p>　　ElseIf IsNull(Me![會(huì)員折扣]) = True Then</p>

45、<p>　　MsgBox "請(qǐng)輸入“會(huì)員折扣”，它不可以為空!", vbOKOnly, "輸入“會(huì)員折扣”"</p><p>　　Me![會(huì)員折扣].SetFocus</p><p><b>　　Exit Sub</b></p><p>　　ElseIf IsNull(Me![累計(jì)消費(fèi)]) =

46、 True Then</p><p>　　MsgBox "請(qǐng)輸入“累計(jì)消費(fèi)”，它不可以為空!", vbOKOnly, "輸入“累計(jì)消費(fèi)”"</p><p>　　Me![累計(jì)消費(fèi)].SetFocus</p><p><b>　　Exit Sub</b></p><p>　　ElseI

47、f IsNull(Me![操作人員]) = True Then</p><p>　　MsgBox "請(qǐng)輸入“操作人員”，它不可以為空!", vbOKOnly, "輸入“操作人員”"</p><p>　　Me![操作人員].SetFocus</p><p><b>　　Exit Sub</b></p&

48、gt;<p><b>　　Else</b></p><p>　　'循環(huán)判斷該編號(hào)的會(huì)員是否存在</p><p>　　If rs.RecordCount > 0 Then</p><p>　　rs.MoveFirst</p><p>　　For i = 1 To rs.RecordCount&l

49、t;/p><p>　　'如果存在，彈出信息并退出子過(guò)程</p><p>　　If rs("會(huì)員ID") = Me![會(huì)員ID] Then</p><p>　　MsgBox "該編號(hào)的會(huì)員已經(jīng)存在，請(qǐng)核實(shí)!", vbCritical, "記錄已經(jīng)存在"</p><p><b&

50、gt;　　Exit Sub</b></p><p><b>　　Else</b></p><p>　　rs.MoveNext</p><p><b>　　End If</b></p><p><b>　　Next i</b></p><p>

51、<b>　　End If</b></p><p><b>　　End If</b></p><p>　　'為保存會(huì)員資料“查詢語(yǔ)句”字符變量賦值</p><p>　　STemp = "INSERT INTO 會(huì)員資料 "</p><p>　　STemp = STemp &

52、amp; "( 會(huì)員ID,會(huì)員姓名,會(huì)員折扣,累計(jì)消費(fèi),會(huì)員級(jí)別,"</p><p>　　STemp = STemp & "操作人員,身份證ID,入會(huì)日期,所在單位,備注)"</p><p>　　STemp = STemp & "VALUES ('" & Me![會(huì)員ID] & "

53、','" & Me![會(huì)員姓名] & "',"</p><p>　　STemp = STemp & "'" & Me![會(huì)員折扣] & "','" & Me![累計(jì)消費(fèi)] & "',"</p><

54、;p>　　STemp = STemp & "'" & Me![會(huì)員級(jí)別] & "','" & Me![操作人員] & "',"</p><p>　　STemp = STemp & "'" & Me![身份證ID] & &quo

55、t;','" & Me![入會(huì)日期] & "',"</p><p>　　STemp = STemp & "'" & Me![所在單位] & "','" & Me![備注] & "')"</p><

56、;p>　　'使用DoCmd對(duì)象的RunSQL方法執(zhí)行查詢</p><p>　　DoCmd.RunSQL STemp</p><p>　　'刷新“會(huì)員資料管理 子窗體”子窗體</p><p>　　Me![會(huì)員資料管理 子窗體].Requery</p><p>　　'釋放系統(tǒng)為Rs數(shù)據(jù)集分配的空間</p>

57、<p>　　Set rs = Nothing</p><p>　　Exit_保存會(huì)員_Click:</p><p>　　'釋放系統(tǒng)為Rs數(shù)據(jù)集分配的空間</p><p>　　Set rs = Nothing</p><p><b>　　Exit Sub</b></p><p>

58、;　　Err_保存會(huì)員_Click:</p><p>　　MsgBox Err.Description</p><p>　　Resume Exit_保存會(huì)員_Click</p><p><b>　　End Sub</b></p><p>　　Private Sub 修改會(huì)員_Click()</p><

59、p>　　On Error GoTo Err_修改會(huì)員_Click</p><p>　　Dim i As Integer</p><p>　　Dim STemp As String</p><p>　　Dim rs As ADODB.Recordset</p><p>　　Set rs = New ADODB.Recordset</

60、p><p>　　'為打開(kāi)數(shù)據(jù)表“查詢語(yǔ)句”字符變量賦值</p><p>　　STemp = "Select * From 會(huì)員資料"</p><p>　　'打開(kāi)“會(huì)員資料”數(shù)據(jù)表</p><p>　　rs.Open STemp, CurrentProject.Connection, adOpenKeyset,

61、adLockOptimistic</p><p>　　'判斷“會(huì)員ID”等文本框是否為空</p><p>　　If IsNull(Me![會(huì)員ID]) = True Then</p><p>　　'彈出提示“會(huì)員ID”文本框不可以為空信息</p><p>　　MsgBox "請(qǐng)輸入“會(huì)員ID”，它不可以為空!&quo

62、t;, vbOKOnly, "輸入“會(huì)員ID”"</p><p>　　'把光標(biāo)置于“會(huì)員ID”文本框內(nèi)</p><p>　　Me![會(huì)員ID].SetFocus</p><p><b>　　Exit Sub</b></p><p>　　ElseIf IsNull(Me![會(huì)員姓名]) = Tr

63、ue Then</p><p>　　MsgBox "請(qǐng)輸入“會(huì)員姓名”，它不可以為空!", vbOKOnly, "輸入“會(huì)員姓名”"</p><p>　　Me![會(huì)員姓名].SetFocus</p><p><b>　　Exit Sub</b></p><p>　　ElseIf I

64、sNull(Me![身份證ID]) = True Then</p><p>　　MsgBox "請(qǐng)輸入“身份證ID”，它不可以為空!", vbOKOnly, "輸入“身份證ID”"</p><p>　　Me![身份證ID].SetFocus</p><p><b>　　Exit Sub</b></p

65、><p>　　ElseIf IsNull(Me![入會(huì)日期]) = True Then</p><p>　　MsgBox "請(qǐng)輸入“入會(huì)日期”，它不可以為空!", vbOKOnly, "輸入“入會(huì)日期”"</p><p>　　Me![入會(huì)日期].SetFocus</p><p>　　第四部分 系統(tǒng)實(shí)施過(guò)程

66、及其流程圖</p><p>　　4.1 基礎(chǔ)信息設(shè)置</p><p>　　1、設(shè)置客房信息：對(duì)客房的基本信息進(jìn)行增加、修改、刪除。</p><p>　　2、設(shè)置員工信息：對(duì)員工的基本信息進(jìn)行增加、修改、刪除。</p><p>　　3、設(shè)置掛賬單位：對(duì)掛賬單位的基本信息進(jìn)行增加、修改、刪除。</p><p><b&

67、gt;　　.</b></p><p><b>　　圖4-1流程圖</b></p><p>　　4.2 客房前臺(tái)管理</p><p>　　1、客房預(yù)訂：可以通過(guò)此窗口實(shí)現(xiàn)客房預(yù)訂。</p><p>　　2、住宿登記:客人入住賓館登記信息，退宿一天前進(jìn)行提醒。</p><p>　　3、宿費(fèi)

68、提醒：查詢某日期的提醒信息或全部提醒信息。</p><p>　　圖4-2住宿登記、修改、查詢程序流程圖</p><p>　　4、退宿結(jié)帳：可以選擇掛賬、打折等多種方式，并可以在此增加其他消費(fèi)項(xiàng)目的費(fèi)用。自動(dòng)提取系統(tǒng)時(shí)間以及當(dāng)前操作員，實(shí)現(xiàn)功能為客人的退房結(jié)賬。在下拉菜單中選擇憑證號(hào)碼，其他信息自動(dòng)從數(shù)據(jù)庫(kù)中提取，退宿編號(hào)為自動(dòng)分配。在附加費(fèi)處選擇附加費(fèi)項(xiàng)目，然后在后面的單行編輯框中輸入數(shù)目

69、，提中顯示對(duì)應(yīng)的消費(fèi)，并自動(dòng)計(jì)算到應(yīng)收金額及退還金額中。下圖為退宿結(jié)帳、查詢程序流程圖。</p><p>　　圖4-3 查詢流程圖</p><p><b>　　NO</b></p><p><b>　　YES</b></p><p><b>　　NO</b></p>

70、<p><b>　　YES</b></p><p>　　4.3 查詢統(tǒng)計(jì)管理</p><p>　　1、客房查詢：通過(guò)房間號(hào)查詢客房基本信息。</p><p>　　2、房態(tài)查詢：（未實(shí)現(xiàn)）</p><p>　　3、預(yù)訂房查詢：通過(guò)客戶姓名查詢預(yù)訂信息。</p><p>　　4、住宿查詢

71、：通過(guò)客戶姓名查詢住宿信息。</p><p>　　5、退宿查詢：通過(guò)客戶姓名查詢退宿信息。</p><p><b>　　4.4 掛賬管理</b></p><p>　　1、掛賬查詢：通過(guò)掛賬單位或地址以及時(shí)間段查詢掛賬信息。</p><p>　　2、掛賬結(jié)款：登記掛賬單位對(duì)掛賬的還款。</p><p&g

72、t;　　4.5 系統(tǒng)初始設(shè)計(jì)</p><p>　　1、本單位定義：設(shè)置本單位的基本信息。</p><p>　　2、業(yè)務(wù)部門定義：設(shè)置各業(yè)務(wù)部門的相關(guān)信息。</p><p><b>　　4.6 系統(tǒng)維護(hù)</b></p><p>　　1、系統(tǒng)初始化：清空目前的系統(tǒng)數(shù)據(jù)，將系統(tǒng)恢復(fù)為初始狀態(tài)。</p><p

73、>　　2、操作員管理：高級(jí)管理員登錄后可進(jìn)行操作員的添加、刪除以及信息更改。</p><p>　　3、權(quán)限設(shè)置：可以設(shè)定操作員的管理權(quán)限以及具體的可操作功能。</p><p>　　第5章 系統(tǒng)使用說(shuō)明</p><p>　　運(yùn)行程序，出現(xiàn)如下圖示：</p><p>　　圖5-1 登錄界面圖</p><p>　　輸

74、入密碼后進(jìn)入服務(wù)主菜單，如圖：</p><p><b>　　圖5-2 主界面</b></p><p><b>　　3、選擇入住</b></p><p><b>　　圖5-2 入住管理</b></p><p><b>　　登記結(jié)束后保存。</b></p

75、><p><b>　　消費(fèi)結(jié)賬管理：</b></p><p><b>　　圖5-3 消費(fèi)結(jié)賬</b></p><p><b>　　致謝</b></p><p>　　經(jīng)過(guò)一段時(shí)間的努力，酒店管理系統(tǒng)終于完成，在整個(gè)設(shè)計(jì)過(guò)程中，出現(xiàn)過(guò)很多的難題，但都在老師和同學(xué)的幫助下順利解決了，做設(shè)

76、計(jì)是一個(gè)不斷學(xué)習(xí)的過(guò)程，從最初剛做是對(duì)賓館客房管理系統(tǒng)的模糊認(rèn)識(shí)到最后能夠?qū)υ撓到y(tǒng)有深刻的認(rèn)識(shí)，我體會(huì)到實(shí)踐對(duì)于學(xué)習(xí)的重要性，只注重理論，不去實(shí)踐考察，那對(duì)知識(shí)的理解就不夠明確，這次的課程設(shè)計(jì)，真正做到理論與實(shí)踐相結(jié)合。有很多地方自己沒(méi)有想的那么全面，需要有系統(tǒng)的思維方式和正確的方法。我們?cè)诮鉀Q的問(wèn)題的時(shí)候，要耐心、認(rèn)真，仔細(xì)。在對(duì)待新事物時(shí)，要整體考慮，完成一步之后再作下一步，這樣才能更加有效。再此，向指導(dǎo)、幫助過(guò)我的老師和同學(xué)表示感