【導(dǎo)讀】隨著人民生活水平的提高，旅游出行的人越來越多，賓館的客流量不斷增加，傳統(tǒng)的賓館管理方法已經(jīng)不適應(yīng)現(xiàn)代社會的需求。賓館在正常運(yùn)營中需要對客房。息的變更，有利于提高管理的效率。文中闡述了客房管理系統(tǒng)的開發(fā)背景、功能組成、系統(tǒng)開發(fā)條件、可行性分析、需求分析、設(shè)計具體實(shí)現(xiàn)等內(nèi)容。

　　

【正文】 程序 2 主窗口模塊的程序設(shè)計 對各個菜單項(xiàng)的 clicked( )事件進(jìn)行編碼 （ 1）在 “m_入住登記 i”菜單項(xiàng)的 clicked( )事件中 ，編寫如下代碼： opensheet(w_in,w_main,2,Layered!) （ 2）在 “m_退房結(jié)帳 o” 菜單項(xiàng)的 clicked( )事件中，編寫如下代碼： opensheet(w_out,w_main,2,Layered!) （ 3）在 “m_綜合操作 m” 菜單項(xiàng)的 clicked( )事件中，編寫如下代碼： opensheet(w_op,w_main,2,Layered! ) （ 4）在 “m_系統(tǒng)維護(hù) s” 菜單項(xiàng)的 clicked( )事件中，編寫如下代碼： opensheet(w_sysuser,w_main,2,Layered!) （ 5）在 “m_退出 x” 菜單項(xiàng)的 clicked( )事件中，編寫如下代碼： close(parentwindow) 編寫用戶權(quán)限改變菜單項(xiàng)的函數(shù) （ 1）打開 ch3kfgl 應(yīng)用，將【 Script】視圖切換到【（ Function）】視圖。 （ 2）設(shè)置【 Return Type】屬性為： “（ None） ”，設(shè)置【 Function Name】屬性為：uf_setmenu。 （ 3）在【 Function】視圖的代碼編輯窗口，編寫如下代碼： if gi_level=1 then =false =false end if 程序 3 入住登記模塊的程序設(shè)計 編寫 w_in 窗口的代碼 在 w_in 的 open()事件中，編寫如下代碼： () =3080 =1796 ( sqlca) (( 0)) 28 () (sqlca) ( (0)) ( 1,入住日期 ,Date(Now())) ( 1,入住時間 ,time(Now())) 編寫入住信息部分的代碼 （ 1）編寫 dw_2 數(shù)據(jù)窗口控件的代碼 在 dw_2 的 itemerror( )事件中，編寫 如下代碼： return 2 在 dw_2 的 dberror( )事件中，編寫如下代碼： return 1 在 dw_2 的 losefocus( )事件中，編寫如下代碼： ( ) （ 2）編寫 cb_ok（確定）按鈕的代碼 在 cb_ok 的 clicked( )事件中，編寫如下代碼： //處理 guest 表 integer li_temp1,li_temp2 integer li_deposit,li_price li_deposit=( 1,押金 ) li_temp1=( 1,計劃天數(shù) ) li_price=integer() if li_depositli_price*li_temp1 then messagebox(錯誤！ ,押金太少，不能登記！ ) return end if if isNull(( 1,編號 )) then select max(編號 ) into :li_temp1 from guest。 //選出編號的最大值 if isnull(li_temp1) then li_temp1=0 end if ( 1, 編號 ,li_temp1+1) 29 end if if ( )1 then messagebox(錯誤！ ,客人表提交失??！ ,StopSign!) rollback。 return end if //處理 room 表 select 入住 , 床位數(shù) into :li_temp1,:li_temp2 from room where 房間號=:。 if li_temp1+1li_temp2 then messagebox(錯誤！ ,+房間超員！ ,stopSign!) rollback。 return。 else update room set 入住 =:li_temp1+1 where 房間號 =:。 if 0 then messagebox(錯誤！ ,房間表提交失??！ ,stopSign!) rollback。 return end if end if //處理 lodging 表 ( 1,編號 ,(1,編號 )) if ( )1 then messagebox(錯誤！ ,入住登記表提交錯誤！ +,StopSign!) rollback。 return end if mit。 messagebox(提示 ,入住登記成功！ ) 30 //為加入新記錄作準(zhǔn)備 ( ) ( 0) = = = = ( ) ( 0) ( 1,入住日期 ,Date(Now())) ( 1,入住時間 ,time(Now())) （ 3）編寫 cb_lodgingclear（清除）按鈕的代碼 在 cb_lodgingclear 的 clicked( )事件中，編寫如下代碼： ( ) (( 0)) （ 4）編寫 cb_exit（退出）按鈕的代碼 在 cb_exit 的 clicked( )事件中，編寫如下代碼： close(parent) 程序 4 退房結(jié)帳模塊的程序設(shè)計 （ 1）編寫 w_out 窗口的代碼 在 w_out 的 open( )事件中，編寫以下代碼： () =1120 =3099 (sqlca) (0) （ 2）編寫 dw_1 數(shù)據(jù)窗口控件的代碼 在 dw_1 的 itemerror( )事件中，編寫如下代碼： return 2 31 在 dw_1 的 dberror( )事件中，編寫如下代碼： return 1 在 dw_1 的 losefocus( )事件中，編寫如下代碼： ( ) （ 4）編寫 cb_cancel（取消）按鈕的代碼 在 cb_cancel 的 clicked( )事件中，編寫如下代碼： close(parent) 程序 5 綜合操作模塊的程序設(shè)計 編寫客人信息部分的代碼 （ 1）編寫 數(shù)據(jù)窗口控件的代碼 在 的 itemerror( )事件中，編寫如下代碼： return 2 在 的 dberror( )事件中，編寫如下代碼： return 1 的 losefocus( )事件中，編寫如下代碼： accepttext( ) （ 2）編寫 （客人信息查詢字段下拉框）的代碼 在 的 selectionchanged( )事件中，編寫如下代碼： choose case newindex case 1 ( ) case 2 () case 3 () end choose （ 3）編寫 （查詢）按鈕的代碼 在 的 clicked( )事件中，編寫如下代碼： string ls_temp 32 ls_temp= if ls_temp and trim() then if ls_temp=編號 or ls_temp=出生日期 then (+=+trim()) else (+=~39。+trim()+~39。) end if ( ) ( ) =true =true end if （ 4）編寫 （刷新）按鈕的代碼 在 的 clicked( )事件中，編寫如下代碼： ( ) =true =true （ 5）編寫 （添加）按鈕的代碼 在 的 clicked( )事件中，編寫如下代碼： integer li_row,li_maxid li_row=(0) (li_row) ( li_row) select max(編號 ) into :li_maxid from guest。 ( li_row,編號 ,li_maxid+1) (姓名 ) () =false 33 =false 編寫客房信息部分的代碼 （ 1）編寫 數(shù)據(jù)窗口控件的代碼 在 的 itemerror( )事件中，編寫如下代碼： return 2 在 的 dberror( )事件中，編寫如下代碼： return 1 在 的 losefocus( )事件中，編寫如下代碼： accepttext( ) （ 2）編寫 （刷新）按鈕的代碼 在 的 clicked()事件中，編寫如下代碼： ( ) =true =true （ 3）編寫 （保存）按鈕的代碼 在 的 clicked( )事件中，編寫如下代碼： if ()=1 then mit。 () =true =true else messagebox(錯誤！ ,保存失?。?,StopSign!) rollback。 end if 編寫入住信息部分的代碼 （ 1）編寫 （入住信息查詢字段下拉框）的代碼 在 的 selectionchanged( )事件中，編寫如下代碼： choose case index case 2,5,6, 9 (numericmask!,) 34 case 1 (Stringmask!,XXXXXXXXXXXXXXX) case 3,7 ( dateMask!,YYYYMMDD) case 4,8 ( timeMask!,HH:MM:SS) end choose （ 2）編寫 （添加）按鈕的代碼 在 的 clicked( )事件中，編寫如下代碼： integer li_row li_row=(0) (li_row) ( li_row) (姓名 ) () =false =false 程序 6 系統(tǒng)維護(hù)模塊的程序設(shè)計 （ 1）編寫 w_sysuser 窗口的代碼 在 w_sysuser 的 open( )事件中，編寫如下代碼： =1897 =810 ( sqlca) ( ) （ 2）編寫 cb_refresh（刷新）按鈕的代碼 在 cb_refresh 的 clicked( )事件中，編寫如下代碼： () //查詢 =true //設(shè)置按鈕狀態(tài) =true 35 （ 3）編寫 cb_add（ 添加）按鈕的代碼 在 cb_add 的 clicked( )事件中，編寫如下代碼： ((0)) ( ) =false =false （ 4）編寫 cb_save（保存）按鈕的代碼 在 cb_save 的 clicked( )事件中，編寫如下代碼： if ( )=1 then mit。 () =true =true else messagebox(錯誤！ ,保存失??！ ,StopSign!) rollback。 end if （ 5）編寫 cb_exit（退出）按鈕的代碼 在 cb_exit 的 clicked( )事件中，編寫如下代碼： close(parent)