【正文】 .value=住址 .value=工作單位 .value=入住時間 .value=預(yù)住天數(shù) .value=折扣率 .value=付款方式 .value=實收金額 .value=應(yīng)收金額 else messagebox(39。 .value=1 else .value=2 endif .value=種族 .value=籍貫 .value=出生日期 .value=證件類別 .value=證件號 .value=住址 位 .value=工作單位 .value=入住時間 .value=預(yù)住天數(shù) .value=折扣率 .value=付款方式 .value=實收金額 .value=應(yīng)收金額 : (39。) .readonly=.t. .readonly=.t. .readonly=.t. .readonly=.t. .enabled=.t. .readonly=.f. .readonly=.t. .value=39。 .value=1 .value=39。 .value=39。 .value=0 .value=0 =1 amp。,.f.,39。,292,39。, 5, 39。 : set hour to 24 set cent on set date ansi public memin,memout,memtday,memcday,memovertime,clientname amp。判斷是否超時 memovertime=int((memoutmemin)/3600(( 預(yù) 住 天數(shù) .value+ .value)*24)) .value=memovertime messagebox( 該 +allt( 房 間 號 )+ 房 客 戶 入 住 超 時 +allt(str(memovertime))+ 小時！ ,0+48+0,超時警告 ) amp。) =.t. =.f. =.f. =.t. =.t. return else =.f. =.t. 論途網(wǎng) ――免費論文、畢業(yè)設(shè)計、源碼下載 =.t. =.f. =.f. endif 應(yīng)收余額 .value= 應(yīng)收金額 . 實收金額 .value else return endif =.f. : =.f. =.t. =.t. =.t. =.f. sele rmregister repl 退房時間 with .value * .value= .value 應(yīng)收余額 .value= 應(yīng)收金額 . 實收金額 .value if messagebox(打印否？ ,4+32+0,打印提示 )=6 do report form 結(jié)帳明細(xì) preview endif =.t. mem4=房間號 sele room loca for 房間號 =mem4 repl 占用 with .f. =.t. =.f. =.t. 論途網(wǎng) ――免費論文、畢業(yè)設(shè)計、源碼下載 sele checkout dele all : *repl 服務(wù)費 with 0 *repl 附加費 with 0 *repl 應(yīng)收金額 with 0 repl 應(yīng)收余額 with 0 *repl 實收金額 with 0 repl 退房時間 with {} .value= repl 超時 with 0 repl 超時金額 with 0 repl 結(jié)帳天數(shù) with 0 =.t. =.t. =.f. =.f. =.t. =.t. =.t. : 4． 4住宿查詢 模塊 ： 論途網(wǎng) ――免費論文、畢業(yè)設(shè)計、源碼下載 對本酒店的房間狀況和客人狀況進(jìn)行查詢。 : set hour to 24 set cent on set date ansi set dele on : 論途網(wǎng) ――免費論文、畢業(yè)設(shè)計、源碼下載 sele rmgrade appe blan =.t. =reo() (readonly,.f.,textbox) =.f. =.f. =.f. =.f. =.t. =.t. =.f. =.f. : sele rmgrade (readonly,.f.,textbox) =.f. =.f. =.f. =.f. =.t. =.t. =.f. =.f. : sele rmgrade pack : sele rmgrade if empty() =messagebox(房間類型不能為空！ ,0+48+0,警告 ) return endif =.f. =0 論途網(wǎng) ――免費論文、畢業(yè)設(shè)計、源碼下載 (readonly,.t.,textbox) =.t. =.t. =.f. =.f. =.t. =.t. =.t. =.t. : sele rmgrade if and =reo() dele pack =.f. =0 endif (readonly,.t.,textbox) =.t. =.t. =.f. =.f. =.t. =.t. =.t. =.t. go top : sele rmgrade if messagebox(確認(rèn)刪除？ ,4+32+0,提示 )=6 dele go top else return endif 論途網(wǎng) ――免費論文、畢業(yè)設(shè)計、源碼下載 系統(tǒng)的實現(xiàn) 5． 1 系統(tǒng)開發(fā)環(huán)境： 系統(tǒng)開發(fā)環(huán)境包括硬件平臺和軟件平臺兩種。大量統(tǒng)計資料表明，系統(tǒng)測試的工作量往往占 MIS 開發(fā)總工作量的 40%以上。 (1)單元測試： 單元測試也稱模塊測試或程序測試，單元測試是對每個模塊單獨進(jìn)行的，驗證模塊接口與設(shè)計說明書是否一致，對模塊的所有主要處理路徑進(jìn)行測試且與預(yù)期的結(jié)構(gòu)進(jìn)行對照，還要對所有錯誤處理路徑進(jìn)行測試。 (4)系統(tǒng)測試 系統(tǒng)測試是對整體性能的測試，主要解決各子系統(tǒng)之間的數(shù)據(jù)通信和數(shù)據(jù)共享問題以及檢測系統(tǒng)不否達(dá)到用戶的實際要求，系統(tǒng)測試的依據(jù)是系統(tǒng)分析報告。例如：在客房 管理模塊中，我首先對 客房 類型進(jìn)行設(shè)定，然后在添加模塊中進(jìn)行數(shù)據(jù)操作，隨時觀察這兩個模塊之間是否有沖突產(chǎn)生，配合得是否正確，再然后在 入住情況 瀏覽模塊中進(jìn)行驗證，說明該功能完全正常，對其它的功能模塊也進(jìn)行了類似的設(shè)置。 （ 3）代碼的維護(hù)：隨著系統(tǒng)的發(fā)展和變化，可能會出現(xiàn)舊代碼不能適應(yīng)新要求的問題，因此，有必要變更代碼，予以維護(hù)。因為對 酒店 管理的整個流程不夠熟悉，在需求分析時未能做到完全滿足用戶的需求。斯庫塞斯等 ，時間：2020 年 10 月 1 日。另外，在系統(tǒng)開發(fā)過程中還有同組的同學(xué) 也 給 了 我不少幫助，這里一并表示感謝。另外，在整個開發(fā)的過程中，時間也比較倉促。 系統(tǒng)的維護(hù)主要包括四個方面： （ 1）程序的維護(hù)：指的是修改部分或全部程序，這種維護(hù)往往是在條件發(fā)生變化或原論途網(wǎng) ――免費論文、畢業(yè)設(shè)計、源碼下載 系統(tǒng)的效率低的情況下進(jìn)行的。 在開發(fā)本系統(tǒng)時，為了使系統(tǒng)能夠穩(wěn)定運行，對本系統(tǒng)進(jìn)行了有針對性的全面測試，采取的方式是： 菜單項測試：為了保證每一項下拉菜單能夠正確實現(xiàn)系統(tǒng)設(shè)計的功能，我把相關(guān)的基礎(chǔ)數(shù)據(jù)，基本上全部輸入到本系 統(tǒng)中，并對每一個菜單項反復(fù)進(jìn)行了增加、刪除、修改等操作，從而保證了菜單級功能的正確實現(xiàn)。確認(rèn)測試是按照這些要求定出的“確認(rèn)測 試計劃”進(jìn)行的。 從產(chǎn)品角度看，測試計劃中的測試項目包括軟件結(jié)構(gòu)中的分系統(tǒng)層、子系統(tǒng)層、功能模塊層、程序模塊層中的各類模塊，從測試本身看，分為單元測試，組合測試，確認(rèn)測試等。 本系統(tǒng)在單機上運行。按房間號排列顯示 (些命令需要表中建有索引 ) go top : : do report form 結(jié)帳明細(xì) preview sele checkout dele all 房間狀態(tài)設(shè)置 模塊： 設(shè)置房間目前的使用狀態(tài)。,64,39。按房間號排列顯示 (些命令需要表中建有索引 ) *go top : sele rmregister if messagebox(是否退房？ ,4+32+0,Warning)=6 =.f. =.f. =.t. =.f. =.f. =.t. * .readonly=.f. 論途網(wǎng) ――免費論文、畢業(yè)設(shè)計、源碼下載 =.f. .readonly=.f. .readonly=.f. .readonly=.f. .value=datetime() memin= .value memout= .value memtday=(memoutmemin)/3600/24 if memtday( .value+ .value) amp。將房間號改為占用