【正文】
密碼!) else//選擇數(shù)據(jù) select pwd into :pwd100 from czy_tab where czy=:czy99。 pwd200=trim(pwd100) if pwd200=pwd99 then czyvar=trim(czy99) open(main_win) close(parent) else messagebox(,密碼有誤!) = () end if end ifend if登錄成功后顯示賓館客房管理信息系統(tǒng)主界面如下圖,主窗口為main_win,主界面上所鏈接菜單為menu_menu。 基礎(chǔ)信息設(shè)置(包括客房信息、員工信息、掛賬單位信息)(由于結(jié)構(gòu)相似,在此以客房信息設(shè)置為例進(jìn)行解說(shuō)。)單擊主菜單“基礎(chǔ)信息設(shè)置”下的“設(shè)置客房信息”子菜單,進(jìn)入客房信息設(shè)置窗體,主要實(shí)現(xiàn)客房基本信息的添加、修改、刪除等功能:本窗口主要由兩個(gè)單行編輯框、三個(gè)掩碼框、一個(gè)多行編輯框、兩個(gè)下拉單選框、一個(gè)數(shù)據(jù)窗口以及十個(gè)命令按鈕組成,其中營(yíng)業(yè)日期可自動(dòng)提取系統(tǒng)時(shí)間。點(diǎn)擊“添加”按鈕,可生成新的房間信息,在添加房間信息的過(guò)程中,“添加”按鈕不可用,“保存”按鈕可用。在此窗口還可以對(duì)已保存的房間信息進(jìn)行修改,并可刪除已保存的房間信息?!疤砑印卑粹ocb_3的代碼如下://窗口kflxxx_win的“添加”按鈕的clicked()事件,清空文本控件的內(nèi)容,自動(dòng)生成房間號(hào)碼=string(today())=======string lbbh,lbbh1,lbbh2int lbbh3//選擇數(shù)據(jù)select fjh into :lbbh from kfxxlx_tab。if lbbh= then =0001else //生成房間號(hào) declare cursor1 cursor for select fjh from kfxxlx_tab。 open cursor1。 fetch cursor1 into :lbbh1。 lbbh2=0001 do while =0 if lbbh1lbbh2 then lbbh2=lbbh1 else lbbh2=lbbh2 end if fetch cursor1 into :lbbh1。 loop close cursor1。 lbbh3=integer(lbbh2) + 1 lbbh2=string(lbbh3) =lbbh2end iflbbh=lbbh1=lbbh2=lbbh3=0()=true=false 客房預(yù)訂單擊主菜單“客房前臺(tái)管理”下的“客房預(yù)訂”子菜單,進(jìn)入客房預(yù)訂窗體。本窗口主要由九個(gè)單行編輯框、三個(gè)下拉單選框以及四個(gè)命令按鈕組成,其中操作員為自動(dòng)填入,預(yù)付金額在登記預(yù)住天數(shù)、選擇客房?jī)r(jià)格后點(diǎn)擊編輯框可自動(dòng)生成。點(diǎn)擊“添加”按鈕,可生成新的客房預(yù)訂信息。窗口open事件的部分代碼如下://窗口kfyd_win的open()事件,初始給控件,分別把不同的房間類型和價(jià)格添加到組合框ddlb_2和ddlb_3中……//把不同的房間類型添加到組合框ddlb_2中declare cursor1 cursor for select distinct fjlx from kfxxlx_tab。open cursor1。fetch cursor1 into :kflb。do while =0 (kflb) fetch cursor1 into :kflb。 loopclose cursor1。string jg//把不同的價(jià)格添加到組合框ddlb_3中declare cursor2 cursor for select distinct jg from kfxxlx_tab。open cursor2。fetch cursor2 into :jg。do while =0 (jg) fetch cursor2 into :jg。 loopclose cursor2。住宿登記 單擊主菜單“客房前臺(tái)管理”下的“住宿登記”子菜單,進(jìn)入住宿登記窗體。本窗口主要由五個(gè)單行編輯框、十四個(gè)編輯框、一個(gè)多行編輯框、三個(gè)下拉單選框以及四個(gè)命令按鈕組成,其中有十二個(gè)編輯框自動(dòng)生成數(shù)據(jù)(住宿編號(hào)可更改,其他不可更改)。房間號(hào)碼可選擇已登記的房間,如果選中房態(tài)為“入住”的房間則提示“該客房已住人!”,房態(tài)為“維修”時(shí)則提示“該客房正在維修!”。在登記過(guò)程中“登記”按鈕enabled屬性為false。窗口open事件的部分代碼如下://窗口zxdj_win的open()事件,初始化控件,并把不同的房間號(hào)添加到組合框ddlb_3中string fjh//把不同的房間號(hào)添加到組合框ddlb_3中declare cursor1 cursor for select fjh from kfxxlx_tab。open cursor1。fetch cursor1 into :fjh。do while =0 (fjh) fetch cursor1 into :fjh。loop close cursor1。//得到當(dāng)前系統(tǒng)的日期=string(today())//得到當(dāng)前系統(tǒng)的時(shí)間=string(now())(3) …… 宿費(fèi)提醒 單擊主菜單“客房前臺(tái)管理”下的“宿費(fèi)提醒”子菜單,進(jìn)入宿費(fèi)提醒窗體。本窗口主要由一個(gè)掩碼框、一個(gè)數(shù)據(jù)窗口以及三個(gè)命令按鈕組成。掩碼框em_1自動(dòng)提取當(dāng)前日期,可進(jìn)行更改。點(diǎn)擊“到時(shí)提醒”按鈕,系統(tǒng)從zxdj_tab表中提取退宿時(shí)間在em_1所輸入時(shí)間一天后的相關(guān)數(shù)據(jù)。點(diǎn)擊“所有被提醒”按鈕,顯示所有需要提醒的客人信息?!暗綍r(shí)提醒”按鈕cb_1的代碼如下://窗口xftx_win的“到時(shí)提醒”按鈕的clicked()事件,提醒客人還差一天就到期了string sql,tixrq1tixrq1=trim()(sqlca)sql=select zxno,xm,zj,zjh,dwordz,zxsy,fjhm,kfbz,kfjg,zxrq,zxsj,zxts,zqxf,dzfs,dzds,sjxf,txrq,txsj,ysyj,bz,czy,tixrq,tixsj,isor from zxdj_tab where tixrq=39。+tixrq1+39。//檢索數(shù)據(jù)(sql)() 退宿結(jié)賬 單擊主菜單“客房前臺(tái)管理”下的“退宿結(jié)賬”子菜單,進(jìn)入退宿結(jié)賬窗體。本窗口實(shí)現(xiàn)功能為客人的退房結(jié)賬。在下拉菜單中選擇憑證號(hào)碼,其他信息自動(dòng)從數(shù)據(jù)庫(kù)中提取,退宿編號(hào)為自動(dòng)分配。在附加費(fèi)處選擇附加費(fèi)項(xiàng)目,然后在后面的單行編輯框中輸入數(shù)目,提示欄中顯示對(duì)應(yīng)的消費(fèi),并自動(dòng)計(jì)算到應(yīng)收金額及退還金額中。掩碼框“附加費(fèi)”金額em_8的代碼如下://窗口txjz_win的掩碼框em_8的modified()事件,統(tǒng)計(jì)總計(jì)金額if =電話費(fèi) then =elseif =會(huì)議費(fèi) then =elseif =雜費(fèi) then =elseif =停車費(fèi) then =elseif =賠償費(fèi) then =end if=string(real()+(real()+real(