賓館管理系統(tǒng)說明書

1、第一章：系統(tǒng)分析1.1 公司簡介都市商務(wù)賓館簡介：者E市商務(wù)賓館坐落于美麗的海濱城市大連，處于市區(qū)繁華中心地段，據(jù)地鐵站 400米，距水文化廣場500米，距夜啤酒文化長廊700米，距中心客運站1.7公 里， 距輕軌2. 5公里，交通便利。賓館內(nèi)有會議室、觀光茶樓、咖啡廳、各種檔次客房 100間，是集會議接待，團隊旅游，散客接待的理想場所。賓館裝修典雅，并具有一 支高水平的專業(yè)管理隊伍，隨時歡迎入住，為您提供高品位的服務(wù)，讓 您在旅途中 住得舒適，真正體味到賓至如歸的感覺。1.2 組織結(jié)構(gòu)圖酒店總經(jīng)理1.3 功能結(jié)構(gòu)圖賓館客房管理系統(tǒng)基礎(chǔ)新信息設(shè)置掛賬管理查詢計客房管理 前臺管理1.4 業(yè)務(wù)流程

2、圖 業(yè)務(wù)流程總圖：客戶入住登記業(yè)務(wù)流程圖:1.5數(shù)據(jù)流程圖頂層財務(wù)部退房處理P6入住登記P5退房登記第1層客戶入住過程數(shù)據(jù)流程圖前臺接待數(shù)據(jù)流程圖:客房部處理數(shù)據(jù)流程圖財務(wù)部財務(wù)處理數(shù)據(jù)流程圖:1.6數(shù)據(jù)字典1、數(shù)據(jù)流條目r11數(shù)據(jù)流名：入住單組成：客房號+客房標(biāo)準(zhǔn)+已入住客房信息+入住時間+客戶名來源：前臺去向：財務(wù)部2、文件條目文件名：前臺賬目組成：客房號+客房標(biāo)準(zhǔn)+單價+已入住客房+備注 存儲方式：順序存儲頻率：1次/天3、數(shù)據(jù)項條目數(shù)據(jù)項名：客房號類型：字符長度：10取值范圍：00000999994、加工條目加工名：金額合計輸入數(shù)據(jù)：客房價目表輸出數(shù)據(jù)：前臺賬目加工邏輯：根據(jù)入住天數(shù)客

3、房信息，檢索客戶文件，確定該用戶入住客房標(biāo)準(zhǔn)、類 別，檢索價格，以確定該客戶入住客房收費標(biāo)準(zhǔn)，得到單價，用單價和入住天數(shù)相 乘，得到客戶應(yīng)繳納金額。第二章：數(shù)據(jù)庫設(shè)計和代碼設(shè)計2.1數(shù)據(jù)庫設(shè)計2.1.1E-R圖賓館（賓館名，電話,地址）客戶（客戶編號，姓名,性別，年齡，國籍）客房（房號，級別,單價）員工（員工編號，姓名,性別，年齡，業(yè)績）住宿（融號，客戶編號，天和釉M影賓鶴月薪,硝期2.1.2表設(shè)計利用項目管理器，在數(shù)據(jù)項創(chuàng)建一個數(shù)據(jù)庫（數(shù)據(jù)庫名為“客房管理數(shù)據(jù)庫”）保存在DATA子目錄下，并按下列要求在該數(shù)據(jù)庫中創(chuàng)建個表保存在DATA子目錄下。1）房間供需情況表字段名數(shù)據(jù)類型寬度R 一方方字

4、符型3客房級別字符型1用房標(biāo)志字符型12）客房信息數(shù)據(jù)表字段名數(shù)據(jù)類型寬度由口房號字符型10姓名字符型10性別字符型2年齡整型4國籍字符型10客房級別字符型1住房天數(shù)整型4標(biāo)準(zhǔn)價格貨幣型8預(yù)收費用貨幣型8結(jié)算費用貨幣型8住店日期日期型8離店日期日期型83）密碼表字段名數(shù)據(jù)類型寬度姓名字符型10密碼字符型62.2代碼設(shè)計2.2.1設(shè)計原則惟一性：一個對象只有賦予它一個惟一的代碼。合理性：代碼與相應(yīng)的分類體系相對應(yīng)?？蓴U充性：應(yīng)留有充分的余地，以備將來不斷擴充的需要。簡單性：結(jié)構(gòu)盡可能簡單，盡可能短，以減少各種差錯。適用性：代碼盡可能反映對象的特點，以助于記憶，便于填寫。A00#,員工描述為前臺2

5、22設(shè)計舉例1）員工編號：利用混合碼來設(shè)計該代碼。例如：員工編號代碼為：接待員工。BOO#,員工描述為：客房部工作人員。C00#,員工描述為財務(wù)部工作人員。2）客戶編號：利用混合碼來設(shè)計該代碼。例如：客戶編號代碼為：g0001,客戶描述為尊貴客戶，y0001,描述為一般客戶。3）客房編號代碼設(shè)計：利用混合碼來設(shè)計該代碼。例如001A,描述為高級客房。001B,描述為中等客房。001C描述為一般客房。4）繳費編號代碼設(shè)計：利用助記碼來設(shè)計該代碼。例如：繳費編號代碼為：101g0001,繳 費描述為最貴客戶繳費。102y0001,描述為一般客戶繳費。第三章：程序設(shè)計3.1.1 封面表單界面及程序設(shè)

6、計3.1.2 權(quán)限認(rèn)證表單確認(rèn)權(quán)限click事件程序：Locate all for alltrim(密碼表.姓名)=alltrim(thisform.Combo1 .value) If found ()If alltrim(thisform.text1.value)=alltrim(密碼表.密碼)Thisform.releaseDo form系統(tǒng)總控表單ElseThisform.spi nn er1 .value=thisform.spi nn er1 .value+1If thisform.spi nn er1.value=3Messagebox(*' 口令不正確!”+chr(13)

7、+”對不起，你無權(quán)使用48,”登陸信息”) Release thisform elseMessagebox(*' 口令不正確！請重新輸入！”,48,“登陸信息”)Tbol .setfocusThisform.textl .value=""Thisform.refreshEndifEndifEndif取消click事件程序：thisform.release3.1.3系統(tǒng)啟動表單Timer程序:thisform.spi nn er1 .value=thisform.spi nn er1 .value+1 if thisform.spi nn er1.value=100

8、do form系統(tǒng)總控表單thisform.release en dif3.1.4系統(tǒng)總控表單客戶入住click事件程序：do form客戶登陸表單客戶查詢與退房click事件程序：do form客戶查詢退房結(jié)算表單收入統(tǒng)計click事件程序：do form賓館收入統(tǒng)計表單系統(tǒng)初始化click事件程序：do form賓館房間設(shè)置表單用戶權(quán)限與維護表單click事件程序：d。form用戶權(quán)限維護表單退出系統(tǒng)click事件程序：this.pare nt.pare nt.release 3.1.5 客戶登錄表單V客戶登陸窗口新客戶記錄click事件程序：This.pare nt.pare bol.e

9、 nabled=.t.This.parent.parent.txt 姓名.enabled=.t.This.parent.parent.txt ”性另 U .enabled=.t.This.parent.parent.txt 年齡.enabled=tThis.parent.parent.txt 國籍.enabled=tThis.parent.parent.txt 客房級另 U .enabled=.t.This.parent.parent.txt 主房天數(shù).enabled=t This.parent.parent.txt 標(biāo)準(zhǔn)價格.enabled=t This.parent.parent.txt

10、預(yù)收費用.enabled=.t. This.parent.parent.txt 結(jié)算費用.enabled=t This.parent.parent.txt 住店日期.enabled.t.This.parent.parent.txt 離店日期.enabled=.t. sele 客戶信息數(shù)據(jù)表 If this.caption="新客戶記錄”This.captionJ保存新客戶記錄”This.pare nt.pare nt.tag=str(rec no()Appe nd bla nkElseThis.caption="新客戶記錄”Tmand2.caption="修改新客

11、戶記錄” EndifThis.pare nt.pare nt.textl .value=H*HThis.pare nt.pare nt.refresh修改新客戶記錄click事件程序:If this.caption'修改新客戶記錄”This.caption="取消修改”Tmandl.caption="保存修改”This.pare nt.pare nt.tag=str(rec no()ElseThis.caption="修改新客戶記錄”This. mandl.caption="新客戶記錄”Tablerevert()This.pare nt.pare

12、 nt.refreshEndifGo val(this.pare nt.pare nt.tag)this.pare nt.pare nt.refresh退出客戶記錄窗口 click事件程序: thisform.release3.1.6客戶查詢退房結(jié)算表單查找客戶click事件程序:thisform.grd客戶信息數(shù)據(jù)表.setfocusDo caseCase thisform.opti on groupl .value=1Locate all for alltrim(客戶信息數(shù)據(jù)表.房號)=alltrim(this.parent.parent.text1 .value)If fou nd()y

13、=rec no()Go y”)Messagebox(“客戶已經(jīng)找到，提示客戶請先在登記處辦理完相關(guān)手續(xù)，否則不能退房! ElseMessagebox("未找到該客戶，請確認(rèn)！”)EndifCase thisform.optiongroupl .value=2Locate all for alltrim(客戶信息數(shù)據(jù)表.姓名)=alltrim(this.parent.parent.textl .value) If found() y=recno()Go yMessagebox("客戶已經(jīng)找至ij,提示客戶請先在登記處辦理完相關(guān)手續(xù)，否則不能退房！”)ElseMessagebo

14、x("未找到該客戶，請確認(rèn)！”)EndifEndcase確認(rèn)退房click事件程序：sele客戶信息數(shù)據(jù)表if thisform.optiongroupl .value=1sele房間供需情況表locate all for alltrim(房間供需情況表.房號)=alltrim(this.parent.parent.text1 .value)If found()Sele客戶信息數(shù)據(jù)表messagebox("住店日期：”+dtoc(住店日期)+chr(13)+”標(biāo)準(zhǔn)價格：“+str(標(biāo)準(zhǔn)價格)+“元/天”+chr(13)+“住房 天數(shù)：”+str(住房天數(shù))+“天”+chr(

15、13)+”預(yù)收費用：”+str(預(yù)收費用)+“元”+chr(13)+”找零：”+str(預(yù)收費用-標(biāo) 準(zhǔn)價格*住房天數(shù))+”元”)X=recno()Go xIf messagebox("當(dāng)前客戶確實要退房嗎？ ！”,32+4+256,“開戶確認(rèn)")=6This.parent.parent.text2.value='H,locate all for alltrim(客戶信息數(shù)據(jù)表.房號)=alltrim(this.parent.parent.text1 .value) y=recno()go y this.tag=this.parent.parent.grd 客戶信息

16、數(shù)據(jù)表.recordsource delete next 1pack this.parent.parent.grd 客戶信息數(shù)據(jù)表.recordsource=this.tag release x release ythisform.refreshelsemessagebox("當(dāng)前客戶未退房，房間仍被占用！”)thisform.refreshendifelsemessageboxC對不起，無查找的房間號，請確認(rèn)！”)endifelseif thisform.optiongroupl .value=2sele客戶信息數(shù)據(jù)表locate all for alltrim(客戶信息數(shù)據(jù)表.姓

17、名)=alltrim(this.parent.parent.text1 .value) if found() y=recno()goy thisform.textl .value=alltrim(客戶信息數(shù)據(jù)表.房號)if messagebox("當(dāng)前客戶確實要退房嗎？ ！”,32+4+256,“開戶確認(rèn)")=6this.tag= this.parent.parent.grd 客戶信息數(shù)據(jù)表.recordsource delete next 1packthis.parent.parent.grd 客戶信息數(shù)據(jù)表.recordsource=this.tag thisform.

18、refreshrelease ysele房間供需情況表locate all for alltrim(房間供需情況表.房號)=alltrim(this.parent.parent.text1 .value) x=recno() go xthis.parent.parent.text2.value=,H, release xthisform.refreshendifelse”)messagebox("對不起，房間未找到，請確認(rèn)!endifendifendif結(jié)束操作click事件程序：thisform.release 3.1.7賓館收入統(tǒng)計表單請選擇統(tǒng)計方式給算費用為:|Text1請輸入

19、欲統(tǒng)計的年月日Text2：/賓館枚入統(tǒng)計表單執(zhí)行統(tǒng)計click事件程序:執(zhí)行統(tǒng)計取消統(tǒng)計Sele客戶信息數(shù)據(jù)表Do caseCase thisform.opti on groupl .value=1Set filter to day(住店日期)=day(thisform.text1 .value)Sum結(jié)算費用to xThisform.text2.value=xCase thisform.opti on groupl .value=2Set filter to month(住店日期)=month(thisform.text1 .value) Sum 結(jié)算費用 to xThisform.text

20、2.value=xCase thisform.opti on groupl .value=3Set filter to year (住店日期)=year(thisform.text1 .value)Sum結(jié)算費用to xThisform.text2.value=xEndcaseThisform.refresh取消統(tǒng)計click事件程序：sele客戶信息數(shù)據(jù)表set filter tothisform.release3.1.8賓館房間設(shè)置表單該表單用于為賓館房間謹(jǐn)行編號J ,沒置皴別” *法用尸不譚修改7E用戶姓名兩而1用戶密碼：丁胡確認(rèn)權(quán)限確認(rèn)設(shè)置確認(rèn)權(quán)限click事件程序：Locate all for alltrim(密碼表.姓名)=alltrim(thisform.Combo1 .value)If found ()If alltrim(thisform.text1 .value)=alltrim(密碼表.密碼)Messagebox("你是系統(tǒng)使用的合法用戶，可以對賓館的房間進行重新