【導(dǎo)讀】力，有利于賓館提高工作效率和賓館效益。面對(duì)龐大的信息量，賓館在正常運(yùn)營中需要。需要統(tǒng)計(jì)和快速的查詢，從而減少在管理方面的工作量。采用程序來編寫，一。個(gè)系統(tǒng)的開發(fā)建立數(shù)據(jù)庫是至關(guān)重要的。本文從符合操作簡單、界面友好、靈活、2）客房信息管理部分：主要完成對(duì)客房信息及客房標(biāo)準(zhǔn)信息的查詢，論文主要介紹了本課題的開發(fā)背景，所要完成的功能和開發(fā)的過程。的說明了系統(tǒng)設(shè)計(jì)的重點(diǎn)，設(shè)計(jì)思想、難點(diǎn)技術(shù)和解決方案。

　　

【正文】 排序 賓館管理信息系統(tǒng) 29 into cursor lindeping =39。lindeping39。 amp。amp。數(shù)據(jù)源 lkfnumber= select tabkfinfo set order to 房間號(hào) amp。amp。指定控制索引文件 seek lkfnumber amp。amp?？焖俪刹樵? amp。amp。執(zhí)行表單的 Resize 事件 =.f. =.f. l=.f. amp。amp。執(zhí)行表單的 Init 事件 =.t. endif else if =39。like39。 MySQL=cif+ +ccif+ 39。+%+ctext+%39。 else MySQL=cif+ +ccif+ 39。+alltrim()+39。 endif select * from roommanage!tabkfinfo where amp。 cursor lindeping go top if eof() go bottom messagebox(39?？头坎淮嬖?39。,48,39。信息窗口 39。) =.f. =.f. =.f. cx=1 else lkfnumber= select tabkfinfo set order to 房間號(hào) seek lkfnumber amp。amp。執(zhí)行表單的 Resize 事件 陜西科技大學(xué)畢業(yè)論文（設(shè)計(jì)說明書） 30 =.f. =.f. l=.f. amp。amp。執(zhí)行表單的 Init 事件 =.t. endif =39。lindeping39。 endif endif 客房查詢界面 圖 47 客房查詢界面 ◎查詢按鈕實(shí)現(xiàn)功能如下 : cx=0 set exact off amp。amp。字符非精確比較 cif=alltrim() ccif=alltrim() ctext=alltrim() if empty(ccif) messagebox(39。請(qǐng)輸入查詢條件！ 39。,48,39。操作失敗！ 39。) else if empty(ctext) if ccif!=All 賓館管理信息系統(tǒng) 31 messagebox(39。請(qǐng)輸入查詢條件！ 39。,48,39。操作失??！ 39。) else select *。 amp。amp。選擇所有字段 from roommanage!tabkfinfo。 amp。amp。指定查詢的數(shù)據(jù)庫文件 order by 。 amp。amp。查詢結(jié)果升序排序 into cursor lindeping =39。lindeping39。 amp。amp。賦數(shù)據(jù)源 endif else if =39。like39。 MySQL=cif+ +ccif+ 39。+%+ctext+%39。 else MySQL=cif+ +ccif+ 39。+alltrim()+39。 endif select * from roommanage!tabkfinfo where amp。 cursor lindeping go top if eof() go bottom messagebox(39?？头坎淮嬖?39。,48,39。信息窗口 39。) =39。lindeping39。 cx=1 else =39。lindeping39。 endif endif endif 陜西科技大學(xué)畢業(yè)論文（設(shè)計(jì)說明書） 32 客房預(yù)定界面 圖 48 客房預(yù)定 ◎登記按鈕實(shí)現(xiàn)功能如下 *設(shè)置控件有效 =.t. =.t. =.t. =.t. =.t. =.t. =.t. =.t. =.t. =.t. =.t. =date() =39。39。 =39。39。 =time() =manager =39。39。 =39。39。 =0 ={//} 賓館管理信息系統(tǒng) 33 =0 =0 =39。39。 =39。39。 =39。39。 =39。39。 amp。amp。Text2 獲得焦點(diǎn) amp。amp。刷新表單 =.f. =.t. =.t. =.f. ◎保存按鈕的功能實(shí)現(xiàn)如下 : *獲得輸入信息 cdate= ame=alltrim() zjnumber=alltrim() ctime=alltrim() manager=alltrim() workdw=alltrim() area=alltrim() price= yzdate= yzday= yzmoney= tel=alltrim() cmemo=alltrim() kflx=alltrim() zjname=alltrim() cmessagetitle=39。客房預(yù)定 39。 cmessagetext=39。確定要保存嗎？ 39。 ndialogtype=4+32 nAnswer=messagebox(cmessagetext,ndialogtype,cmessagetitle) do case case nAnswer=6 陜西科技大學(xué)畢業(yè)論文（設(shè)計(jì)說明書） 34 if empty(ame) or empty(zjnumber) amp。amp。判斷名稱和證件號(hào)碼是否為空 messagebox(39。名稱和證件號(hào)碼不能為空 39。,48,39。操作失??！ 39。) else select tabkfyd set order to 證件號(hào)碼 amp。amp。指定控制索引文件 seek zjnumber amp。amp?？焖俨樵? *追加新記錄 insert into tabkfyd values(ame,zjname,zjnumber,tel,area,workdw,kflx,price,yzdate,yzday,yzmoney,cmemo,cdate,manager,ctime) amp。amp。將輸入的掛帳單位信息存入表 tabkfyd messagebox(39。數(shù)據(jù)保存完畢 39。,48,39。操作成功！ 39。) =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.t. =.f. =.f. =.t. endif case nanswer=7 cmessagetitle=39。掛帳單位管理系統(tǒng) 39。 cmessagetext=39。返回 39。 nanswer=messagebox(cmessagetext,48,cmessagetitle) = 賓館管理信息系統(tǒng) 35 = = = = = = = = = = = = = = =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.t. =.f. =.f. =.t. endcase ◎取消按鈕的功能實(shí)現(xiàn)如下 : cmessagetitle=39?？头款A(yù)定 39。 cmessagetype=39。數(shù)據(jù)沒 有保存，要取消操作嗎？ 39。 nDialogtype=4+32 陜西科技大學(xué)畢業(yè)論文（設(shè)計(jì)說明書） 36 nAnswer=messagebox(cmessagetype,ndialogtype,cmessagetitle) do case case nAnswer=6 amp。amp。執(zhí)行表單的 Init 事件 =39。39。 =39。39。 =39。39。 =39。39。 =39。39。 =39。39。 =39。39。 =0 ={//} =0 =39。39。 =39。39。 =39。39。 =39。39。 =39。39。 amp。amp。Text2 獲得焦點(diǎn) case nAnswer=7 endcase 住宿提醒界面 圖 49 住宿提醒界面 賓館管理信息系統(tǒng) 37 ◎到時(shí)提醒按鈕的功能實(shí)現(xiàn)如下 : cx=0 set exact off amp。amp。字符非精確比較 ctext= if empty(ctext) messagebox(39。請(qǐng)輸入提醒日期！ 39。,48,39。操作失敗！ 39。) amp。amp。Text1 獲得焦點(diǎn) else select *。 amp。amp。選擇所有字段 from roommanage!tabdjb。 amp。amp。指定查詢的數(shù)據(jù)庫文件 where 提醒日期 = and 是否結(jié)帳 =.f.。 amp。amp。按提醒日期和未結(jié)帳進(jìn)行查詢 order by 。 amp。amp。查詢結(jié)果升序排序 into cursor lindeping =39。lindeping39。