【正文】 )事件中， 編寫如下代碼： close(parentwindow) （詳細(xì)程序請(qǐng)見附錄 “程序 2”） 入住登記模塊的程序設(shè)計(jì) 實(shí)現(xiàn)系統(tǒng)的入住登記功能，界面如圖 43 所示。入住登記模塊主要 17 涉及到 guest 表、 room 表和 lodging 表。 2）用戶在客人信息部分中輸入客人名稱和客人出 生日期。在查詢客人記錄的時(shí)候?qū)⒖腿说木幪?hào)和姓名設(shè)置到入住信息中。如果用戶在房間記錄中選擇某個(gè)房間記錄，則將該記錄信息自動(dòng)顯示到入住信息中。 6）最后將入住記 錄提交到數(shù)據(jù)庫(kù)，并對(duì) room 表的入住數(shù)目進(jìn)行相應(yīng)的修改?？梢圆樵?nèi)胱∮涗?，退房時(shí)間，入宿費(fèi)用，退還押金情況，鑰匙或憑證退還情況，物品損壞情況 及賠償情況。退房結(jié)帳模塊主要涉及到 room 表和 lodging 表，主要功能如下： 1）把系統(tǒng)的當(dāng)前日期和當(dāng)前時(shí)間設(shè)置為退房日期和退房時(shí)間。 3）依據(jù)用戶輸入的客人姓名和房間號(hào)，檢索符合條件的尚未退房的入住記錄。 5）如 果檢索到了符合條件的記錄，顯示記錄內(nèi)容。 圖 44 退房結(jié)帳模塊 在 cb_query（瀏覽）的 clicked( )事件中，編寫如下代碼： 19 string ls_name integer li_roomid,li_days date ld_in decimal lde_charge,lde_price ls_name=( 1,姓名 ) li_roomid=( 1,房間號(hào) ) ( ) (ls_name,li_roomid) if ( )=0 then messagebox(錯(cuò)誤！ ,依據(jù)姓名： +ls_name+和房間號(hào)： +string(li_roomid)+amp。 li_days=Day(Date(Now()))day(ld_in)+1 ( 1,實(shí)際天數(shù) ,li_days) select 房?jī)r(jià) into :lde_price from room where 房間號(hào) =:li_roomid。可以對(duì)入住記錄、客人信息、客房信息、進(jìn)行綜合操作。對(duì)入住記錄、客人情況、客房信息可以進(jìn)行添加、刪除、修改、查詢等操作。通過(guò)綜合操作模塊，用戶對(duì)數(shù)據(jù)庫(kù)的 guest 表、 room 表、 lodging 表直接進(jìn)行操作，而且?guī)缀蹩梢詫?duì)這些表進(jìn)行所有的操作。由于綜合操作模塊有此功能，所以用戶可以通過(guò)綜合操作模塊進(jìn)行。綜合操作模塊的主要功能如下： 1）顯示客人信息表、房間信息表和入住信息表的內(nèi)容。 3）添加、刪除、查詢、修改房間信息表（ room 表）。 5）查看每個(gè)房間每天的營(yíng)業(yè)情況及其統(tǒng)計(jì)信息。+trim()+~39。主要是對(duì)系統(tǒng)用戶的操作。 系統(tǒng)維護(hù)模塊數(shù)據(jù)超級(jí)權(quán)限模塊，即只有超級(jí)用戶才能使用的模塊。通過(guò)該模塊，超級(jí)用戶可以實(shí)現(xiàn)對(duì)系統(tǒng)用戶維護(hù)的可能。 2）查詢系統(tǒng)用戶的資料。 4）刪除系統(tǒng)用戶。 6）更改系 統(tǒng)用戶的權(quán)限。從最初的茫然，到慢慢的進(jìn)入狀態(tài)，再到對(duì)思路逐漸的清 晰，整個(gè)寫作過(guò)程難以用語(yǔ)言來(lái)表達(dá)。 畢業(yè)論文是本科學(xué)習(xí)階段一次非常難得的理論與實(shí)際相結(jié)合的機(jī)會(huì)，通過(guò)這次比較完整的客房管理系統(tǒng)設(shè)計(jì)，我擺脫了單純的理論知識(shí)學(xué)習(xí)狀態(tài)，和實(shí)際設(shè)計(jì)的結(jié)合鍛煉了我的綜合運(yùn)用所學(xué)的專業(yè)基礎(chǔ)知識(shí)，解決實(shí)際工程問(wèn)題的能力，同時(shí)也提高我查閱文獻(xiàn)資料、設(shè)計(jì)手冊(cè)、設(shè)計(jì)規(guī)范以及電腦制圖等其他專業(yè)能力水平，而且通過(guò)對(duì)整體的掌控，對(duì)局部的取舍，以及對(duì)細(xì)節(jié)的 斟酌處理，都使我的能力得到了鍛煉，經(jīng)驗(yàn)得到了豐富，并且意志品質(zhì)力，抗壓能力及耐力也都得到了不同程度的提升。 雖然畢業(yè)設(shè)計(jì)內(nèi)容繁多，過(guò)程繁瑣但我的收獲卻更加豐富。一些本是我工作后才會(huì)意識(shí)到的問(wèn)題，通過(guò)這次畢業(yè)設(shè)計(jì)讓我提前了解了這些知識(shí)，這是很珍貴的。 順利如期的完成本次畢業(yè)設(shè)計(jì)給了我很大的信心，讓我了解專業(yè)知識(shí)的同時(shí)也對(duì)本專業(yè)的發(fā)展前景充滿信心，只有發(fā)現(xiàn)問(wèn)題面對(duì)問(wèn)題才有可能解決問(wèn)題，不足和遺憾不會(huì)給我打擊只會(huì)更好的鞭策我前行，今后我更會(huì)爭(zhēng)取盡快的掌握先進(jìn)的知識(shí)，更好的為祖國(guó)的四化服務(wù)。 if (not (=0)) then ii_errortime+=1 if ii_errortime=3 then messagebox(登錄錯(cuò)誤 ,錯(cuò)誤次數(shù)太多， ~n 系統(tǒng)自動(dòng)退出！ ) close(parent) else messagebox(登錄錯(cuò)誤 ,用戶名或密碼錯(cuò)誤！ ) end if else if gi_level=0 then messagebox(警告！ ,用戶已被鎖定！ ~n 請(qǐng)找管理員解鎖！ ) halt else open(w_main) close(parent) end if end if （ 3） 在 cb_cancel 的 clicked( )事件中，編寫如下代碼： halt 27 程序 2 主窗口模塊的程序設(shè)計(jì) 對(duì)各個(gè)菜單項(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）】視圖。 （ 3）在【 Function】視圖的代碼編輯窗口，編寫如下代碼： if gi_level=1 then =false =false end if 程序 3 入住登記模塊的程序設(shè)計(jì) 編寫 w_in 窗口的代碼 在 w_in 的 open()事件中，編寫如下代碼： () =3080 =1796 ( sqlca) (( 0)) 28 () (sqlca) ( (0)) ( 1,入住日期 ,Date(Now())) ( 1,入住時(shí)間 ,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,計(jì)劃天數(shù) ) li_price=integer() if li_depositli_price*li_temp1 then messagebox(錯(cuò)誤！ ,押金太少，不能登記！ ) return end if if isNull(( 1,編號(hào) )) then select max(編號(hào) ) into :li_temp1 from guest。 return end if //處理 room 表 select 入住 , 床位數(shù) into :li_temp1,:li_temp2 from room where 房間號(hào)=:。 return。 if 0 then messagebox(錯(cuò)誤！ ,房間表提交失??！ ,stopSign!) rollback。 return end if mit。+trim()+~39。 ( li_row,編號(hào) ,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。 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è)計(jì) （ 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。 end if （ 5）編寫 cb_exit（退出）按鈕的代碼 在 cb_exit 的 clicked( )事件中，編寫如下代碼： close(parent)