【正文】 選擇 “屬性 ”。設置索引為 1 的窗格的樣式為 6sbrDate；設置索引為 2 的窗格的樣式為 5sbrTime；設置索引為 3 的窗格的樣式為 0sbrtext,并輸入文本 “置索引為 4 的窗格的樣式為 0sbrtexto4)單擊 “工具 ”菜單下的 “菜單編輯器 ”，在菜單編輯器中設置程序的菜單。在系統(tǒng)登錄模 塊中主要實現如下功能： 可選擇操作員，支持鼠標和鍵盤操作。 操作員錯誤或密碼錯誤提醒并返回錯誤點。 系統(tǒng)登錄界面如圖 62 所示 圖 62 登錄界面 實現過程 “客房管理系統(tǒng) ”工程中，添加一個新窗體，命名為 maIn－ nllma。 2 個 Data 控件、 1 個 DBC0mbo 控件、 2 個 Label 控件、 1個 Text 控件、 2 個 Conunand 控件。畢業(yè)論文 16 在住宿登記模塊中主要實現如下功能： 自動生成住宿登記憑證號碼。 實現客人住宿登記，收取客人預交宿費。 打印住宿登記單據。 圖 63 住宿登記界面 2．實現過程 （ l） 在 “客房管理系統(tǒng) ”工程中，添加一個新窗體，命名為 main_kfdj。計算折前宿費 ZSDJ(9).Text = ZSDJ(7).Text 39。計算退宿日期 Case 8 ZSDJ(9).Text=Format(Val(ZSDJ(7).Text) * Val(ZSDJ(8).Text) / 100, ) 39。用 val 函數將字符串轉換為數字 =+Int(Val(ZSDJ(10).Text)/ If (Val(ZSDJ(10).Text) Int(Val(ZSDJ(10).Text) / Val(ZSDJ(5).Text))) * Val(ZSDJ(5).Text) Then = 6:00:00 PM 畢業(yè)論文 17 Else = 12:00:00 AM End If End If End Select End Sub 追加押金模塊設計 追加押金界面如圖 64 所示 圖 64 追加押金界面 實現目標 程序啟動后，選擇 “住宿管理 ”菜單下的 “追加押金 ”項，將進入追加押金模塊。 收取客人的續(xù)交押金，自動計算宿費提醒日期和宿費提醒時間。 6． 5 調房登記模塊設計 實現目標 程序啟動后，選擇 “住宿管理 ”菜單下的 “調房登記 ”項，將進入調房登記模塊。 實現客戶調房登記（系統(tǒng)只允許調換等價客房）。 圖 65 調房登記界面 實現過程 “客房管理系統(tǒng) ”工程中，添加一個新窗體，命名為 mainesjdj。 調房的實現方法 由于客人的住宿習慣不同，有些客人會在住宿過程中要求調房，例如客人要求換一個朝陽的房間或空調房等，這就要求客房管理系統(tǒng)有調房的功能。調房后，應對原客房、目標客房的狀態(tài)進行編輯，再對住宿登記表中的信息進行編輯?！罢{到目標房 ”amp。在退宿結賬模塊中主要實現如下功能： 提供需結賬客人的憑證號碼供用戶選擇。 自動計算住宿費用（宿費、電話費、雜費、會議費、停車費、賠償費等）和退還費用。 退宿結賬界面如圖 66 所示。 ： 本部分為該系統(tǒng)的關鍵： 在開發(fā)酒店客房管理系統(tǒng)過程中，從客人入住到客人退宿涉及到客房管理的方方面面，如處理不當，便會給酒店造成很大的損失。如果使用程序計算宿費，那么既方便又規(guī)范，同時也避免了運算錯誤。 如果客人退宿結賬時間不在住宿當天，可以按如下算法（定義 A 為天數）： 如客人退宿結賬時間在中午 12:00 之前，住宿天數為（退宿日期一住宿日期）+ 天； 如客人退宿結賬時間在中 午 12:00 之后，住宿天數為（退宿日期一住宿日期）+1 天。Text） 一 Val（ Texssje在客房設置模塊中主要實現如下功能： 完成客房基本信息的錄入、保存、修改。 客房設置界面如圖 67 所示。在客房查詢模塊中主要實現如下功能： 按房間號檢索 所需的客房基本信息?？头坎樵兘缑嫒鐖D 68 所示 畢業(yè)論文 22 圖 68 客房查詢 2．實現過程 (1)在 “客房管理系統(tǒng) ”工程中，添加一個新窗體，命名為 mainwekrcxa (2)程序代碼： = amp。查詢客房信息 = select * from kf where like + Chr(34) + + * + Chr(34) + End Sub Private Sub Command1_Click() 39。刪除客房信息 If 0 Then End If End Sub Private Sub Command3_Click() = True Unload Me End Sub 畢業(yè)論文 23 房態(tài)查看模塊設計 1．實現目標 程序啟動后，選擇 “客房管理 ”菜單下的 “房態(tài)查看 ”項，將進入房態(tài)查看模塊。 計算當前客房入住數、空閑數、維修數、客房的使用率。 房態(tài)查看界面如圖 69 所示 圖 69 房態(tài)查看界面 2．實現過程 （ 1）在 “客房管理系統(tǒng) ”工程中，添加一個新窗體，命名為 mainftcx. （ 2）在窗體中添加 1 個 Commandl 數組 (125)、 2 個 Image 控件、 1 個 Text控件等。在掛賬查詢模塊中主要實現如下功能： 選擇掛賬單位（單位或個人），檢索符合條件的掛賬信息、還款信息。 畢業(yè)論文 24 掛賬查詢界面如圖 610 所示。在客戶結款模塊中主要實現如下功能： 選擇掛賬單位 （單位或個人），檢索符合條件的掛賬信息、還款信息。 統(tǒng)計尚欠余額。 圖 611“客戶結款 ”界面 畢業(yè)論文 25 查詢統(tǒng)計設計 住宿查詢模塊設計 1．實現目標 程序啟動后，選擇 “查詢統(tǒng)計 ”菜單下的 “住宿查詢 ”項，將進入住宿查詢模塊。 住宿查詢界面如圖 612 所示。如果客人住宿了 10 天，而只交付了 5 天的宿費，入住時間超過 5 天后，如果沒有及時催要住宿費，很容易造成客人未交宿費便離宿，這樣便會給酒店造成損失。例如，本例根據押金的多少計算提醒日期。便于酒店對于業(yè)務進行管理。 在客房銷售報表模塊中主要實現按任意時間匯總客人結賬后所需費用的總額的功能。 圖613 登記預收報表界面 畢業(yè)論文 27 圖 614 客房銷售報表界面 圖 615 客房銷售統(tǒng)計界面 系統(tǒng)設置設計 操作員設置模塊設計 程序啟動后，選擇 “系統(tǒng)設置 ”菜單 下的 “操作員設置 ”項，將進入操作員設置模塊。 支持鼠標和鍵盤操作。 畢業(yè)論文 28 圖 616 操作員設置界面 密碼設置模塊設計 程序啟動后，選擇 “系統(tǒng)設置 ”菜單下的 “密碼設置 ”項，將進入密碼設置模塊。 支持鼠標和鍵盤操作。 圖 617 密碼設置界面 程序代碼： Private Sub label1_Click() 39。 amp。 39。 圖 618 初始化界面 權限設置模塊設計 在權限設置模塊中主要實現刪除操作員信息及設置操作員權限的功能。學以致用，學用結合，這既是學習理論知識目的，也是檢驗學習的最好方法。 另外，由于本人能力有限致使該系統(tǒng)仍存在一些問題，存在系統(tǒng)的安全性、穩(wěn)定性不強，仍需認真學習，繼續(xù)改進。 畢業(yè)論文 31 參考文獻 [1]王春才、高春燕、李俊民， Visual Basic 數據庫系統(tǒng)開發(fā)完全手冊，人民郵電出版社， 2021 [2]韓亞萍， Visual 基礎培訓百例，機械工業(yè)出版社， 2021 [3]金英姿、鄧少鹍， Visual Basic 實用培訓教程，人民郵電出版社， 2021 [4]伍俊良， Visual Basic 課程設計與系統(tǒng)開發(fā)案例，清華大學出版社， 2021 [5]張勇等， Visual Basic 課程設計案例精編，水利水電出版社， 2021 [6]王道榮、林信成 ， Visual Basic6 數據庫處理 從入門到精通，中國鐵道出版社，2021 [7]常曉波， Visual Basic 高級編程，清華大學出版社， 2021 [8]張朝昆、施麗娜， Visual Basic 數據庫開發(fā)基礎與應用，人民郵電出版社， 2021 [9]郭瑞軍 ,唐邦民 ,謝晗昕， Visual Basic 數據庫開發(fā)實例精粹，電子工業(yè)出版社，2021 [10]王泰峰，軟件項目開發(fā)綜合實訓 Visual Basic 篇，人民郵電出版社， 2021 [11]溫小敏， Visual Basic 數據庫系統(tǒng)項目開發(fā)實踐，科學出版社， 2021 [12]賽奎春， Access 數據庫開發(fā)實例解析，機械工業(yè)出版社， 2021 [13]劉遠東 ,何思文 ,吳斌新，數據庫基礎及 Access 應用，機械工業(yè)出版社， 2021 [14]蘇瑞、曹斌， Access 數據庫系統(tǒng)項目開發(fā)實踐，科學出版社， 2021 [15]李淑馨，深入淺出 Access 數據庫程序設計理論與實務，中國鐵道工業(yè)出版社，2021 [16]鄭小玲、王學軍， Access 項目案例導航，科學出版社， 2021 [17]Raghu Ramakrishnan,Johannes， Database Management Systems， Gehrke，清華畢業(yè)論文 32 大學出版社， 2021 畢業(yè)論文 33 54 Of Vainglory It was prettily devised of Aesop。s really a pleasure now and then to bee a mere nothing, especially when a man is as highly placed as I am. And then to think that we all, even with patent lacquer, are nothing more than insects of a moment on that anthill the earth, though we may be insects with stars and garters, places and offices! One feels quite a novice beside these venerable millionyearold boulders. On last New Year39。s diversion, namely, the wild hunt to Amack. Ah, you don39。s eve, to the Brocken。s night through the air to Amack. They sit backwards on their painting b all lapse of time, and had bee a cipher and a nothing. Then three alone, or moveth upon greater means, if they have never so little hand in it, they think it is they that carry it They that are glorious, must needs be factious。 but according to die French proverb。 there are sometimes great effects of cross lies。 for as iron sharpens iron, so by glory one courage sharpeh another. In cases of great enterprise, upon charge and adventure, a position of glorious natures doth put life into business。s memory。 omnium, quae cHxerat jeceratque, arte quadam ostentator: for that proceeds not of vanity, but of natural magnanimity, and discretion: and in some persons is not only ely, but gracious. For excusations, cessions, modesty itself well governed, are but arts of ostentation. And amongst those arts there is none better, than that which Plinius Secundus speaketh o