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

2、圖 頂層第1層客戶入住過程數(shù)據(jù)流程圖前臺接待數(shù)據(jù)流程圖:客房部處理數(shù)據(jù)流程圖i11住房計(jì)- m丿i財(cái)務(wù)部財(cái)務(wù)處理數(shù)據(jù)流程圖:1.6數(shù)據(jù)字典1、數(shù)據(jù)流條目數(shù)據(jù)流名：入住單組成：客房號+客房標(biāo)準(zhǔn)+已入住客房信息+入住時(shí)間+客戶名 來源：前臺去向：財(cái)務(wù)部2、文件條目文件名：前臺賬目組成：客房號+客房標(biāo)準(zhǔn)+單價(jià)+已入住客房+備注 存儲方式：順序存儲頻率：1次/天3、數(shù)據(jù)項(xiàng)條目數(shù)據(jù)項(xiàng)名：客房號類型：字符長度：10取值范圍：00000999994、加工條目加工名：金額合計(jì)輸入數(shù)據(jù)：客房價(jià)目表輸出數(shù)據(jù)：前臺賬目加工邏輯：根據(jù)入住天數(shù)客房信息，檢索客戶文件，確定該用戶入住客房標(biāo)準(zhǔn)、 類別，檢索價(jià)格，以確定該客

3、戶入住客房收費(fèi)標(biāo)準(zhǔn)，得到單價(jià)，用單價(jià)和入住天 數(shù)相乘，得到客戶應(yīng)繳納金額。第二章：數(shù)據(jù)庫設(shè)計(jì)和代碼設(shè)計(jì)2.1數(shù)據(jù)庫設(shè)計(jì)2.1.1E-R圖賓館（賓館名，電話，地址）客戶（客戶編號，姓名，性別，年齡，國籍）客房（房號，級別，單價(jià)）員工（員工編號，姓名，性別，年齡，業(yè)績）住宿（欵號，客戶編號,天如釉謁瑚軌郎見購，聘娜2.1.2表設(shè)計(jì)利用項(xiàng)目管理器，在數(shù)據(jù)項(xiàng)創(chuàng)建一個(gè)數(shù)據(jù)庫（數(shù)據(jù)庫名為“客房管理數(shù)據(jù)庫”）保存在DATA 子目錄下，并按下列要求在該數(shù)據(jù)庫中創(chuàng)建個(gè)表保存在DATA子目錄下。1）房間供需情況表字段名數(shù)據(jù)類型寬度由口 房號字符型3客房級別字符型1用房標(biāo)志字符型12）客房信息數(shù)據(jù)表字段名數(shù)據(jù)類型寬

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

5、前臺接待員工。BOO#，員工描述為：客房部工作人員。C00#,員工描述為財(cái)務(wù)部工作人員。2） 客戶編號：利用混合碼來設(shè)計(jì)該代碼。例如：客戶編號代碼為：g0001，客戶描述為尊貴 客戶，y0001，描述為一般客戶。3）客房編號代碼設(shè)計(jì)：利用混合碼來設(shè)計(jì)該代碼。例如001A，描述為高級客房。001B，描述為中等客房。001C描述為一般客房。4） 繳費(fèi)編號代碼設(shè)計(jì)：利用助記碼來設(shè)計(jì)該代碼。例如：繳費(fèi)編號代碼為：101g0001，繳 費(fèi)描述為最貴客戶繳費(fèi)。102 y0001，描述為一般客戶繳費(fèi)。第三章：程序設(shè)計(jì)3.1.1封面表單界面及程序設(shè)計(jì)3.1.2權(quán)限認(rèn)證表單確認(rèn)權(quán)限click事件程序：Locat

6、e 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)+對不起，你無權(quán)使用,48,登陸信息)Release thisformelseM

7、essagebox( 口令不正確！請重新輸入！,48,登陸信息)Tbo1.setfocusThisform.text1.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=100do form系統(tǒng)總控表單thisform.release en dif3.1.4系統(tǒng)總控表單Tsxt2Txt1客尸入

8、性客戶查詢與退房收入統(tǒng)計(jì)丟統(tǒng)初始牝用戶權(quán)限錐護(hù)表單返出裂充系統(tǒng)總控表單客戶入住click事件程序:do form客戶登陸表單客戶查詢與退房click事件程序: do form客戶查詢退房結(jié)算表單收入統(tǒng)計(jì)click事件程序： do form賓館收入統(tǒng)計(jì)表單系統(tǒng)初始化click事件程序: do form賓館房間設(shè)置表單用戶權(quán)限與維護(hù)表單click事件程序:do form用戶權(quán)限維護(hù)表單退出系統(tǒng)click事件程序：this.pare nt.pare nt.release 3.1.5客戶登錄表單Ttl.標(biāo)淮t貉聲費(fèi)月新客戶龍錄修改新客戶記錄退出客戶龍錄窗口貢收費(fèi).xt匡藉客戶登陸窗口新客戶記錄clic

9、k事件程序:This.pare nt.pare bol.e nabled=.t.This.parent.parent.txt 姓名.enabled=.t.This.parent.parent.txt 性另U .enabled=.t.This.parent.parent.txt 年齡.enabled=.t.This.parent.parent.txt 國籍.enabled=.t.This.parent.parent.txt 客房級另U .enabled=.t.This.parent.parent.txt 住房天數(shù).enabled=.t.This.parent.parent.txt 標(biāo)

10、準(zhǔn)價(jià)格.enabled=.t.This.parent.parent.txt 預(yù)收費(fèi)用.enabled=.t.This.parent.parent.txt 結(jié)算費(fèi)用.enabled=.t.This.parent.parent.txt 住店日期.enabled=.t.This.parent.parent.txt 離店日期.enabled=.t. sele客戶信息數(shù)據(jù)表If this.caption=新客戶記錄This.caption=保存新客戶記錄”This.pare nt.pare nt.tag=str(rec no()Appe nd bla nkElseThis.caption=新客戶記錄Th

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

12、rt()This.pare nt.pare nt.refreshEndifGo val(this.pare nt.pare nt.tag)this.pare nt.pare nt.refresh退出客戶記錄窗口 click事件程序：廣按姓名萱詢Jthisform.release- 1房號姓容性別年滬國藉客房級別住房天數(shù)abTabFaETabiTiu3.1.6客戶查詢退房結(jié)算表單客戶查詢退房結(jié)算表單回金按房間查詢j j ；nTwtl查找客戶click事件程序：thisform.grd客戶信息數(shù)據(jù)表.setfocusDo caseCase thisform.opti on group1.value

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

14、y=recno()Go yMessagebox(客戶已經(jīng)找到，提示客戶請先在登記處辦理完相關(guān)手續(xù)，否則不能退房！”)ElseMessagebox(未找到該客戶，請確認(rèn)！)EndifEndcase確認(rèn)退房 click 事件程序：sele 客戶信息數(shù)據(jù)表 if thisform.optiongroup1.value=1 sele 房間供需情況表locate all for alltrim( 房間供需情況表 .房號)= alltrim(this.parent.parent.text1.value)If found()Sele 客戶信息數(shù)據(jù)表messagebox(住店日期：+dtoc(住店日期)+ch

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

16、g=this.parent.parent.grd 客戶信息數(shù)據(jù)表 .recordsourcedelete next 1packthis.parent.parent.grd 客戶信息數(shù)據(jù)表 .recordsource=this.tag release xrelease y thisform.refresh elsemessagebox(當(dāng)前客戶未退房，房間仍被占用！)thisform.refreshendifelsemessageboxC對不起，無查找的房間號，請確認(rèn)！)endifelseif thisform.optiongroup1.value=2sele 客戶信息數(shù)據(jù)表locate all

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

18、s.tag thisform.refreshrelease ysele 房間供需情況表locate all for alltrim( 房間供需情況表 .房號)= alltrim(this.parent.parent.text1.value) x=recno()go xthis.parent.parent.text2.value=release xthisform.refreshendifelsemessagebox(對不起，房間未找到，請確認(rèn)！”)endifendifendif結(jié)束操作 click 事件程序：thisform.release 3.1.7 賓館收入統(tǒng)計(jì)表單匸賓館籾入統(tǒng)計(jì)表單匚!

19、5執(zhí)行統(tǒng)計(jì)click事件程序:Sele客戶信息數(shù)據(jù)表Do caseCase thisform.opti on group1.value=1Set filter to day(住店日期)=day(thisform.text1.value)Sum結(jié)算費(fèi)用to xThisform.text2.value=xCase thisform.opti on group1.value=2Set filter to month(住店日期)=month(thisform.text1.value) Sum結(jié)算費(fèi)用to xThisform.text2.value=xCase thisform.opti on grou

20、p1.value=3Set filter to year (住店日期 )=year(thisform.text1.value)Sum結(jié)算費(fèi)用to xThisform.text2.value=xEndcaseThisform.refresh取消統(tǒng)計(jì)click事件程序：sele客戶信息數(shù)據(jù)表set filter tothisform.release3.1.8賓館房間設(shè)置表單:/賓館居間設(shè)置表單Tlpn確認(rèn)權(quán)限click事件程序：Locate all for alltrim( 密碼表.姓名)=alltrim(thisform.Combo1.value)If found ()If alltrim(th