vf實(shí)踐——酒店客房管理系統(tǒng)(編輯修改稿)
2024-09-03 09:22 本頁面
【文章內(nèi)容簡介】 dif客戶查詢表單該表單功能為管理員管理客戶信息，通過姓名、客房號、入住時間幫助客戶確定客房。（1）查詢代碼如下：getid=alltrim()getname=alltrim()getdepart=alltrim()flag1=flag2=flag3=if flag1=0 and flag2=0 and flag3=0 messagebox(請輸入查詢條件,48,錯誤)endifif flag1=1 and flag2=0 and flag3=0 select * from 客戶信息表 where 客房號=getidendifif flag1=0 and flag2=1 and flag3=0 select * from 客戶信息表 where 姓名=getnameendifif flag1=0 and flag2=0 and flag3=1 select * from 客戶信息表 where 入住時間=getdepartendifif flag1=1 and flag2=1 and flag3=0 select * from 客戶信息表 where 客房號=getid and 姓名=getnameendifif flag1=1 and flag2=0 and flag3=1 select * from 客戶信息表 where 客房號=getid and 入住時間=getdepartendifif flag1=0 and flag2=1 and flag3=1 select * from 客戶信息表 where 姓名=getname and 入住時間=getdepartendifif flag1=1 and flag2=1 and flag3=1 select * from 客戶信息表 where 客房號=getid and 姓名=getname and 入住時間=getdepartendif （2）客房總體情況按鈕代碼如下：select * from 客戶信息表客戶信息維護(hù)表單客戶信息維護(hù)表單主要用于酒店客戶各類信息的更正或者修改。如下圖（1）查找按鈕代碼：set order to 客房號seek alltrim()if !found() messagebox(該客房號不存在,48,錯誤) go topendif=39。39。（2）修改按鈕代碼messagebox(確定要修改這條信息嗎？,12,信息) =39。客戶信息表39。（3）刪除按鈕代碼nAnswer=messagebox(確定要刪除嗎？,36,信息)if nAnswer=6 (39?？蛻粜畔⒈?9。) use 客戶信息表 exclusive delete from 客戶信息表 where =alltrim() pack use (39?？蛻粜畔⒈?9。) =39?？蛻粜畔⒈?9。endif （4）導(dǎo)航條代碼第一條記錄代碼goto top=.f.=.f.=.t.=.t.上一條記錄代碼skip 1if bof() messagebox(已是第一條記錄,48,信息窗口) =.f. =.f.else =.t. =.t.endif=.t.=.t.下一條記錄代碼skipif eof() messagebox(已是最后一條記錄,48,信息窗口) skip 1 =.f. =.f.else =.t. =.t.endif=.t.=.t.最后一條記錄代碼goto bottom=.t.=.t.=.f.=.f.報表查詢表單報表查詢表單主要通過對當(dāng)日或者當(dāng)月的客戶情況進(jìn)
研究報告相關(guān)推薦
鄂ICP備17016276號-1