計(jì)算機(jī)本科-vfp賓館管理系統(tǒng)畢業(yè)論文(編輯修改稿)
2025-07-24 23:21 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 表單=.f.=.t.=.t.=.f.3) 客房管理:查詢按鈕的CLICK代碼：cx=0set 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 messagebox(39。請(qǐng)輸入查詢條件！39。,48,39。操作失??！39。) else select *。 amp。amp。選擇所有字段 from roommanage!tabkfinfo。 amp。amp。指定查詢的數(shù)據(jù)庫(kù)文件 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?？头坎淮嬖?9。,48,39。信息窗口39。) =39。lindeping39。 cx=1 else =39。lindeping39。 endif endifendif退出按鈕的CLICK代碼：=.f. amp。amp。隱藏表單4) 查詢統(tǒng)計(jì)按鈕組中”第一個(gè)” 按鈕的CLICK代碼：if cx=1 go top amp。amp。記錄指針定位到第一條記錄 =.f. =.f. =.f. =.f. =.f. =.f.else go top =.f. =.f. =.t. =.t.endif amp。amp。執(zhí)行表單的Resize事件 amp。amp。刷新表單按鈕組中”上一個(gè)” 按鈕的CLICK代碼：if cx=1 messagebox(39。已是第一個(gè)記錄39。,48,39。信息窗口39。) =.f. =.f. =.f. =.f. =.f. =.f. amp。amp。執(zhí)行表單的Resize事件else skip1 amp。amp。記錄指針向上移一條記錄 amp。amp。執(zhí)行表單的Resize事件 if bof() messagebox(39。已是第一個(gè)記錄39。,48,39。信息窗口39。) =.f. =.f. amp。amp。執(zhí)行表單的Resize事件 else =.t. =.t. endif =.t. =.t.endif按鈕組中”下一個(gè)” 按鈕的CLICK代碼：if eof() messagebox(39。已經(jīng)是最后一條記錄39。,48,39。管理窗口39。) skip1 amp。amp。記錄指針向上移動(dòng)一條記錄 amp。amp。執(zhí)行表單的Resize事件 =.f. =.f. =.f. =.f. =.f. =.f.else skip amp。amp。記錄指針向下移一條記錄 amp。amp。執(zhí)行表單的Resize事件 if eof() messagebox(39。已經(jīng)是最后一條記錄39。,48,39。管理窗口39。) skip1 amp。amp。記錄指針向上移動(dòng)一條記錄 amp。amp。執(zhí)行表單的Resize事件 =.f. =.f. else =.t. =.t. endif =.t. =.t.endif按鈕組中”最后一個(gè)” 按鈕的CLICK代碼：go bottom amp。amp。記錄指針移動(dòng)到最后一條記錄if cx=1 =.f. =.f. =.f. =.f. =.f. =.f.else =.f. =.f. =.t. =.t.endif amp。amp。執(zhí)行表單的Resize事件:查詢按鈕的CLICK代碼：do case case =1 select *。 from roommanage!tabdjb。 where 是否結(jié)帳==.t.。 order by 。 into cursor lindeping =39。lindeping39。 amp。amp。賦數(shù)據(jù)源 if reccount()=0 messagebox(39。無(wú)符合條件的記錄！39。,48,39。操作失敗39。) endif case =1 select *。 from roommanage!tabdjb。 where 是否結(jié)帳==.f.。 order by 。 into cursor lindeping =39。lindeping39。 if reccount()=0 messagebox(39。無(wú)符合條件的記錄！39。,48,39。操作失敗39。) endif case =1 select tabdjb select *。 from database\roommanage!tabdjb。 order by 。 into cursor lindeping =39。lindeping39。 if reccount()=0 messagebox(39。無(wú)記錄！39。,48,39。操作失敗39。) endif case =1 cx=0 set exact off amp。amp。設(shè)置字符精確比較 cif=alltrim() ccif=alltrim() ctext=alltrim() if empty(ccif) or empty (ctext) messagebox(39。請(qǐng)輸入查詢條件！39。,48,39。操作失??！39。) else if =39。like39。 MySQL=cif+ +ccif+ 39。+%+ctext+%39。 else MySQL=cif+ +ccif+ 39。+alltrim()+39。 endif select * from roommanage!tabdjb where amp。 cursor lindeping go top if eof() go bottom messagebox(39。無(wú)符合條件的記錄！39。,48,39。信息窗口39。) cx=1 endif =39。lindeping39。 endifendcase amp。amp。刷新表單退出按鈕的CLICK代碼：到時(shí)提醒按鈕的CLICK代碼：cx=0set 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 roomm
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1