【文章內(nèi)容簡(jiǎn)介】 釋放，同時(shí)執(zhí)行主菜單。 （登陸 .scx）。 管理表單 這個(gè)表單由入住管理表單和入住后臺(tái)管理表單組成，用來(lái)添加、修改和刪除客房信息。點(diǎn)入住后臺(tái)管理表單中的‘添加客房信息’‘修改客房信息’‘刪除客房信息’都可以轉(zhuǎn)到入住管理表單上對(duì)客房信息進(jìn)行添加、修改和刪除。 1. 建立入住管理表單（入住管理 .scx） ,表單顯示結(jié)果如下 表單代碼主要有 （ 1） “添加”按鈕的 Click 事件代碼 APPEND BLANK SELECT 入住管理 GO BOTTOM REPLACE 入住單號(hào) WITH REPLACE 抵店時(shí)間 WITH REPLACE 客房編號(hào) WITH REPLACE 入住人數(shù) WITH REPLACE 客房類(lèi)型 WITH （ 2） “修改”按鈕的 Click 事件代碼 =.T. =.T. =.T. =.T. =.T. （ 3） “刪除”按鈕的 Click 事件代碼 DELETE PACK （ 4）“確定”按鈕的 Click 事件代碼 REPLACE 入住單號(hào) WITH REPLACE 抵店時(shí)間 WITH REPLACE 客房編號(hào) WITH REPLACE 入住人數(shù) WITH REPLACE 客房類(lèi)型 WITH 2. 建立入住后臺(tái)管理表單（入住后臺(tái)管理 .scx） ,表單顯示結(jié)果如下 表單代碼主要有 （ 1）“確定”按鈕的 Click 事件代碼 =.F. =.F. XH=ALLTRIM() DO FORM 入住管理 （ 2）“添加客房信息”按鈕的 Click 事件代碼 = COM_BT=APPEND_FORM DO FORM 入住管理 （ 3）“修改客房信息”按鈕的 Click 事件代碼 =.T. =.T. MESSAGEBOX(請(qǐng)輸入客房編號(hào)！ ) COM_BT=DELETE_FORM （ 4）“刪除客房信息”按鈕的 Click 事件代碼 =.T. =.T. MESSAGEBOX(請(qǐng)輸入客房編號(hào)！ ) COM_BT=MODIFY_FORM 空房的查詢(xún)可以更加快捷的幫助客戶(hù)查找到想要的房間 1. 建立空房查詢(xún)表單（空房查詢(xún) .scx） ,表單顯示結(jié)果如下 2. 表單主要代碼有 （ 1）“查詢(xún)”按鈕的 Click 的事件代碼 IF EMPTY(ALLTRIM()) MESSAGEBOX(請(qǐng)輸入查詢(xún)條件！ ) ELSE USE 客房信息 .DBF SET FILTER TO IF VAL(alltrim())0 SET FILTER TO ALLTRIM(客房編號(hào) )=ALLTRIM() =.f. ELSE SET FILTER TO AT(alltrim(),狀態(tài) )0 =.t. endif GO TOP GO TOP IF VAL(客房 編號(hào) )0 =客房編號(hào) =額定人數(shù) =樓層編號(hào) =床數(shù) =類(lèi)型編號(hào) =狀態(tài) ELSE MESSAGEBOX(對(duì)不起，沒(méi)有您查詢(xún)的房間！ ) ENDIF ENDIF （ 2）“下一個(gè)”按鈕的 Click 事件代碼 skip amp。amp。執(zhí)行表單的 Activate 事件 =客房編號(hào) =額定人數(shù) =樓層編號(hào) =床數(shù) =類(lèi)型編號(hào) =狀態(tài) 這一項(xiàng)主要由客房類(lèi)型一覽和客房信息一覽?？头款?lèi)型一覽主要是用來(lái)看酒店客房的種類(lèi)、價(jià)格。 而客房信息一覽主要用來(lái)看每個(gè)房間的類(lèi)型、人數(shù)、床數(shù)和現(xiàn)在的狀態(tài)。 （客房類(lèi)型一覽 .scx） ,表單顯示結(jié)果如下 3. 建立客房信息一覽表單（客房信息一覽 .scx），表單顯示結(jié)果如下 這個(gè)表單主要用于在客戶(hù)要離店結(jié)帳時(shí)使用，通過(guò)對(duì)離店客人客房編號(hào)的查詢(xún)，可以查找到客戶(hù)住店的時(shí)間、房間類(lèi)型、房間價(jià)格，從而可以進(jìn)行結(jié)帳金額的計(jì)算，還可以根據(jù)客戶(hù)要求對(duì)表單進(jìn)行打印。 （離店結(jié)帳管理 .scx） ,表單顯示結(jié)果如下 表單主要代碼有 （ 1）“查詢(xún)”按鈕的 Click 事件代碼 IF EMPTY(ALLTRIM()) MESSAGEBOX(請(qǐng)輸入查詢(xún)條件！ ) ELSE USE 收銀退房 .DBF SET FILTER TO IF VAL(alltrim())0 SET FILTER TO ALLTRIM(客房編號(hào) )=ALLTRIM() endif GO TOP GO TOP IF VAL(客房編號(hào) )0 =客房編號(hào) =客房類(lèi)型 =客房?jī)r(jià)格 =抵店時(shí)間 =結(jié)帳日期 =結(jié)帳金額 ELSE MESSAGEBOX(對(duì)不起，沒(méi)有您查詢(xún)的房間！ ) ENDIF ENDIF （ 2）“打印”按鈕的 Click 事件代碼 messagebox(39。確定打印 !39。,16,39。提示信息 39。) REPORT FORM 收銀退房 .frx NOEJECT NOCONSOLE TO PRINTER 這個(gè)表單主要用來(lái)對(duì)登陸用戶(hù)名的添加、查找、修改和刪除用的，可以隨時(shí)對(duì)用戶(hù)名、密碼進(jìn)行修改、添加和刪除。相應(yīng)的添加、查找、修改、刪除按鈕都對(duì)應(yīng)不同功能的“確定”或“查找”按鈕功能。 （用戶(hù)管理 .scx） ,表單顯示結(jié)果 如下 表單主要代碼有 （ 1）“添加”按鈕的 Click 事件代碼 = = *設(shè)置按鈕狀態(tài) =.T. =.T. *設(shè)置標(biāo)簽狀態(tài) =.T. =.T. *設(shè)置文本框狀況 =.T. =.T. *設(shè) Text1 為輸入框 點(diǎn)擊“添加”按鈕同時(shí)會(huì)出現(xiàn)左上的“確定”按鈕 Click 事件代碼 USE 用戶(hù)名 .DBF *插入新記錄 APPEND BLANK *將用戶(hù)的輸入信息保存到用戶(hù)信息庫(kù)中 REPLACE 用戶(hù)名 WITH ALLTRIM() REPLACE 密碼 WITH ALLTRIM() USE *將表單設(shè)置成初始狀態(tài) = = =.F. =.F. =.F. =.F. =.F. （ 2）“查找”按鈕的 Click 事件代碼 =.T. =.T. *將 Text1 控件設(shè)置成可用 =.T. *將查找按鈕設(shè)置成可用和可見(jiàn) =.T. =.T. *將兩個(gè) Text 控件的值設(shè)置為空值 = = 點(diǎn)擊“查找”按鈕同時(shí)會(huì)出現(xiàn)左圖的“查找”按鈕 Click 事件代碼 USE 用戶(hù)名 .DBF *查找用戶(hù)輸入的信息 LOCATE FOR ALLTRIM(用戶(hù)名 )==ALLTRIM() IF FOUND() *如果找到在表單中顯示 =用戶(hù)名 =密碼 ELSE *如果沒(méi)有找到提示用戶(hù) MESSAGEBOX(查無(wú)此用戶(hù)！ ) = = ENDIF USE *恢復(fù)表單的初始化狀態(tài) =.F. =.F. =.F. =.F. =.F. （ 3）“修改”按鈕的 Click 事件代碼 USE 用戶(hù)名 .DBF *在用戶(hù)信息庫(kù)中查找用戶(hù)輸入的信息 TEMP1=ALLTRIM() TEMP2=ALLTRIM() LOCATE FOR ALLTRIM(用戶(hù)名 )==(密碼 )==TEMP2 *如果找到，保存修改的信息 IF FOUND() REPLACE 用戶(hù)名 WITH ALLTRIM() REPLACE 密碼 WITH ALLTRIM() ENDIF USE *恢復(fù)表單的初始化設(shè)置 = = =.F. =.F. =.F. 點(diǎn)擊“修改”按鈕同時(shí)會(huì)出現(xiàn)左圖左下的“確定”按鈕 Click 事件代碼 USE 用戶(hù)名 .DBF *在用戶(hù)信息庫(kù)中查找用戶(hù)輸入的信息 TEMP1=ALLTRIM() TEMP2=ALLTRIM() LOCATE FOR ALLTRIM(用戶(hù)名 )==(密碼 )==TEMP2 *如果找到，保存修改的信息 IF FOUND() REPLACE 用戶(hù)名 WITH ALLTRIM() REPLACE 密碼 WITH ALLTRIM() ENDIF USE *恢復(fù)表單的初始化設(shè)置 = = =.F. =.F. =.F. （ 4）“刪除”按鈕的 Click 事件代碼 =.T. 點(diǎn)擊“刪除”按鈕同時(shí)會(huì)出現(xiàn)左圖右下的“確定”按鈕 Click 事件代碼 USE 用戶(hù)名 .DBF LOCATE FOR ALLTRIM(用戶(hù)名 )==ALLTRIM() *如果找到制定的用戶(hù)，將其刪除 IF FOUND() DELETE PACK ENDIF USE *恢復(fù)表單的初始化狀態(tài) = = =.F. (5)在表單背景上控制“確定”和“查找”按鈕的 Click 事件代碼 =.F. =.F. =.F. =.F. =.F. =.F. =.F. =.F. =.F. =.F. =.F. 根據(jù)需要報(bào)表表單設(shè)計(jì)一個(gè)收銀退房的報(bào)表，用來(lái)打印客戶(hù)結(jié)帳資料，并可以提供給客戶(hù) 1. 收銀退房報(bào)表如下圖 打印效果如下圖 主菜單的建立編寫(xiě) 這個(gè)菜單是一個(gè)在全屏幕下顯示的表單，是系統(tǒng)的主界面數(shù)據(jù)來(lái)源。主菜單做為整個(gè)系統(tǒng)的綜合管理。 點(diǎn)擊新建菜單，命名為“主菜單”在其目錄下插入 菜單名稱(chēng) 結(jié)果 選項(xiàng) 菜單名稱(chēng) 結(jié)果 選項(xiàng) 基本信息管理 子菜單 編輯 入住管理 命令 do form [入住后臺(tái)管理 ] 基本信息查詢(xún) 子菜單 編輯 空房查詢(xún) 命令 do form [空房查詢(xún) ] 基本信息一覽 子菜單 編輯 客房信息一覽 命令 do form [客房信息一覽 ] 客房類(lèi)型一覽 命令 do form [客房類(lèi)型一覽 ] 離店結(jié)帳管理 子菜單 編輯 離店結(jié)帳管理 命令 do form [離店結(jié)帳管理 ] 用戶(hù)管理 子菜單 編輯 用戶(hù)管理 命令 do form [用戶(hù)管理 ] 幫助 子菜單 編輯 關(guān)于 命令 do form [關(guān)于 ] 退出系統(tǒng) 命令 QUIT 主程序代碼的建立編寫(xiě) 這個(gè)程序代碼是一個(gè)支持主菜單的代碼，用來(lái)生成系統(tǒng)主界面對(duì)其進(jìn)行各方面調(diào)整，還可以用于美化系統(tǒng)主界面。 在代碼欄新建程序，命名 mail。代碼如下 SET SCORE OFF amp。amp。關(guān)閉分值欄 SET SAFETY OFF amp。amp。關(guān)閉安全提示 SET STATUS BAR OFF amp。amp。關(guān)閉系統(tǒng)提示欄 SET CENTURY ON amp。amp。打開(kāi)世紀(jì)開(kāi)關(guān) SET DELETED ON amp。amp。屏閉刪除項(xiàng) SET SYSMENU OFF amp。amp。關(guān)閉系統(tǒng)菜單 SET NOTIFY OFF amp。amp。關(guān)閉提示 amp。amp。設(shè)置系統(tǒng)窗口屬性 = .F. amp。amp。取消最大化按鈕 = 700 amp。amp。設(shè)置最大寬度 = 600 amp。amp。設(shè)置最大高度 = 白云酒店管理系統(tǒng) amp。amp。設(shè)置窗口標(biāo)題 = 39。39。 amp。amp。設(shè)置窗口背景圖片 = .T. amp。amp。指定表單初次顯示時(shí)，自動(dòng)位于主窗口中央 amp。amp。公共變量 PUBLIC FindRecordNo PUBLIC UserName Do 主菜單 .mpr amp。amp。打開(kāi)菜單 amp。amp。打開(kāi)登錄表單 Do Form [登陸 .scx] READ EVENTS Procedure OnQuit CLEAR EVENTS CLOSE ALL QUIT Endproc 系統(tǒng)連編 在項(xiàng)目管理器酒店管理系統(tǒng)中對(duì)系統(tǒng)進(jìn)行連編。 連編完成后，整個(gè)白云酒店管理系統(tǒng)的設(shè)計(jì)實(shí)現(xiàn)以全部完成。開(kāi)發(fā)工作至此結(jié)束。 系統(tǒng)主界面如下圖 第六章 結(jié)論 通過(guò)前文所述，系統(tǒng)開(kāi)發(fā)的全過(guò)程已經(jīng)完成，系統(tǒng)已經(jīng)產(chǎn)生。本酒店管理系統(tǒng)的優(yōu)點(diǎn)是：采用全新的計(jì)算機(jī)信息管理系統(tǒng)為客人提 供快捷、細(xì)致、周到的服務(wù)，以顧客為中心，了解顧客需求，細(xì)分目標(biāo)市場(chǎng)，以合理的價(jià)格在相應(yīng)的時(shí)間將客房銷(xiāo)售出去。 與此同時(shí)，實(shí)現(xiàn)各模塊功能的相關(guān)代碼語(yǔ)言簡(jiǎn)練，功能完善，避免了過(guò)于復(fù)雜的代碼給系統(tǒng)的調(diào)試與運(yùn)行帶來(lái)不便。也正基于上述原因，在功能模塊的設(shè)計(jì)過(guò)程中，本系統(tǒng)應(yīng)用了相關(guān)的向?qū)c生成器來(lái)完成功能模塊的初步設(shè)計(jì)，以此來(lái)減少一些簡(jiǎn)單而復(fù)雜的代碼輸入，從而提高了系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)的效率。但此系統(tǒng)也有一些瑕疵與不足之處，具體有以下幾點(diǎn)： (1) 報(bào)表打印效果圖不能在系統(tǒng)運(yùn)行中查看，只能在開(kāi)發(fā)過(guò)程中通過(guò)開(kāi)發(fā)平臺(tái) 來(lái)預(yù)覽。 （ 2）本系統(tǒng)在 VISUAL FOXPRO ，本系統(tǒng)僅能生成可執(zhí)行的文件，系統(tǒng)在連編過(guò)程中還存在一些連編不成功的問(wèn)題，因此系統(tǒng)還有待于以后的改進(jìn)與完善。也正居于上述系統(tǒng)的不足之處，今后系統(tǒng)的改進(jìn)方向?qū)⒁鉀Q上述的問(wèn)題。 與此同時(shí)，系統(tǒng)的可擴(kuò)充性較強(qiáng)，可將此系統(tǒng)進(jìn)行必要的修改與添加，將其擴(kuò)充成為一個(gè)其它的檔案管理系統(tǒng)。 第七章 總結(jié)和體會(huì) 在系統(tǒng)的整個(gè)設(shè)計(jì)過(guò)程中，使我體會(huì)最深的是 VISUAL FOXPRO 對(duì)象的程序設(shè)計(jì)語(yǔ)言，因?yàn)樵诒?單的設(shè)計(jì)制作過(guò)程中，對(duì)于表單的每一個(gè)控件對(duì)象都是以可視化的方式對(duì)其進(jìn)行過(guò)程代碼的編輯與錄入，而控件本身又通過(guò)自己獨(dú)有的代碼來(lái)使自己實(shí)現(xiàn)特定的功能操作。 與此同時(shí)，在程序設(shè)計(jì)的過(guò)程中，可運(yùn)用大量 VISUAL FOXPRO 具來(lái)自動(dòng)直接產(chǎn)生運(yùn)用程序的界面與程序代碼，這樣一來(lái)使得只有少量關(guān)鍵的代碼需要用戶(hù)自己手工編寫(xiě)，這更加明顯的體現(xiàn)出了 VISUAL FOXPRO 所表現(xiàn)出來(lái)的特點(diǎn)與優(yōu)越性。 其次，通過(guò)本次設(shè)計(jì)鞏固了我原有所學(xué)的知識(shí)。在開(kāi)發(fā)過(guò)程中通過(guò)