畢業論文：基于vb的賓館客房管理系統-文庫吧

【正文】 流向，每個事件都能驅動一段程序的運行。程序員只需編寫相應用戶動作的代碼，而各個動作之間不一定有聯系。使得應用程序代碼一般較短，所以程序既易于編寫又易于維護。 （ 3） 提供了易學易用的應用程序集成開發環境 在 VB 集成開發環境中，用戶設計界面、編寫代碼、調試程序，直至把應用程序編譯成可執行文件在 Windows 中運行，使用戶在友好的開發環境中工作。 （ 4） 結構化的程序設計語言 VB 具有豐富的數據類 型和結構化的程序結構，而且簡單易學。 VB 有強大的數值和字符串處理功能；豐富的圖形指令，可方便地繪制各種圖形；提供靜態和動態數組，有利于簡化內存管理 。 （ 5）支持多種數據庫系統的訪問 利用數據控件可訪問的數據庫系統有： Microsoft Access、 Btrieve、 dBASE、Microsoft FoxPro 和 Paradox 等，也可訪問 Microsoft Excel、 Lotusl23 等多種電子表格。 VB 數據訪問技術 Visual Basic 作為一種面向對象的可視化編程工具， 越來越多地用作數據庫應用程序的前端開發工具。 VB 數據訪問技術，采用 Visual 作為前端控制基于 VB 的賓館客房管理系統 7 界面， Microsoft Access 2020 作為后臺數據庫，并采用最新的 ActiveX 數據訪問對象 (ADO)數據庫訪問技術。 Visual Basic 使用的數據訪問技術示意圖如圖 所示。 圖 Access 數據庫簡介 AAccess 數據庫是微軟公司發布的 Office 軟件包的關系型數據庫軟件， 不但 具 有一般數據庫的特征， 更具有自己獨特、強大 的功能 。 圖 例如：用戶不用再去記憶那一大堆的文件名稱，或者為數據庫文件管理大費周章，通過 Access 人性化 管接口 ，如圖 所示，把數據庫的管理整理，便于維護。因Microsoft 可視化數據工具 ActiveX. 數 據 源 編碼 報表 DHTML 窗體 類模塊用戶控件 Microsoft Transaction Server 遠 端 DCOM，遠端ADO 數據集，遠端 UDTS 數 據 訪 問 基于 VB 的賓館客房管理系統 8 此， Access 特別適宜客房管理系統的中小型數據庫開發與管理，且便于 Visual Basic的數據庫編程。 (1) 表 表是數據庫中最常用的數據存儲單元，它包括所有用戶可以訪問的數據。 Access 的表是二維結構的，由行和列兩部分組成。列也叫字段，它可以定義表的結構；行也叫記錄，保存表中 的一段數據。在設計表結構時，需要定義表中的字段名和數據類型。表生成后 可以添加、修改和刪除數據。 如圖 所示 ： 圖 (2) 查詢 查詢用于在一個或多個表中查找滿足指定條件的數據， Access 提供以下的查詢方式： 匯總查詢 : 對表中數據進行統計，例如求平均值、統計記錄數量、求和等。 動作查詢 : 對表進行生成、替換和刪除等操作。 選擇查詢 : 找到符合特定條件的記錄。 SQL 查詢 : 使用 SQL 語句進行查詢。 第三章 系統的相關分析 系統的可行性分析 現代社會是信息社會。隨著計算機網絡技術、數據庫技 術、管理技術的發展，對信息的處理 也就成了掌握成敗的關鍵 。 因此，若想使你所經營的賓館客房業在競爭中 占領市場、鎖定客戶，只有通過加快內部管理信息化、電子化建設，提高工作效率，降低經營成本，從而 來 提高企業的競爭力。 基于 VB 的賓館客房管理系統 9 賓館客房系統 控制界面軟件流程 根據 賓館 客房管理系統的功能要求和界面顯示，我們把系統控制界面功能劃分為如圖 所示的模塊。 圖 第四章 賓館客房系統詳細設計 系統控制界面組 成結構 系統界面顯示部分具體組織結構如圖 所示： 系統設置推出 圖 登陸界面 客房管理界面 住宿管理 客房管理 查詢統計 系統設置 退出 開房登記 追加押金 退宿結賬 客房查詢 客房設置 宿費提醒 退宿查詢 住宿查詢 初始化 操作員設置 控制界面 系統設置模塊 狀態查詢模塊 記錄查詢模塊 工程設置模塊 基于 VB 的賓館客房管理系統 10 系統登錄 登陸管理界面如圖 所示。客房管理控制界面啟動后，會出現一個用戶登陸的窗口，要求操作員輸入正確的用戶名和密碼才能進入管理界面的主窗體，連續三次輸入錯誤密碼， 系統退出運行。 圖 主界面 用戶登陸后，顯示運行的 界面為 主界面。界面的可視化編程中采用 事 件 觸發機制，程序的功能通過點擊菜單、按鈕等 觸發的方式得以運行 。主界面的功能從圖 可以看出，包括：住宿管理、客房管理、查詢統計、系統設置、退出。 點擊按鈕組中的任何一個按鈕，都會彈出相應的子窗口，而其他窗口將會關閉 。 圖 基于 VB 的賓館客房管理系統 11 其響應程序如下： Private Sub label1_Click() 39。調入開房登記 zsdj_Click End Sub Private Sub label2_Click() 39。調入退宿結帳 tsjz_Click End Sub Private Sub Label3_Click() 39。調入住宿查詢 zscx_Click End Sub Private Sub Label5_Click() 39。調入宿費提醒 sftx_Click End Sub Private Sub label6_Click() End End Sub Private Sub zsdj_Click() 39。調入開房登記 = False End Sub Private Sub zjyj_Click() 39。調入追加押金 Load main_zjyj 基于 VB 的賓館客房管理系統 12 = False End Sub Private Sub tsjz_Click() 39。調入退宿結帳 = False End Sub Private Sub kfsz_Click() 39。調入客房 設置 = False End Sub Private Sub kfcx_Click() 39。調入客房查詢 = False End Sub Private Sub zscx_Click() 39。調入住宿查詢 Load main_zscx = False End Sub Private Sub tfcx_Click() 39。調入退宿查詢 Load main_tfcx = False End Sub 基于 VB 的賓館客房管理系統 13 Private Sub sftx_Click() 39。調入宿費提醒 Load main_xftx = False End Sub Private Sub czysz_Click() 39。調入操作員設置 Load main_czysz = False End Sub Private Sub csh_Click() 39。調入初始化 = False End Sub Private Sub tc_Click() ‘退出 End End Sub 開房登記 開房登記界面如圖 所示。點擊登陸按鈕，出現閃爍標簽，則要求填寫住宿者的相關信息以及預付款，等待信息填完整之后，點擊確定，保存住宿者的相關信息。 基于 VB 的賓館客房管理系統 14 圖 圖 其程序代碼如下： 39。查詢空閑房間信息 = select * from kf where 房態 =39。空房 39。 = select * from kf where 房態 =39。空房 39。 39。生成憑證號碼 = select * from djb order by 憑證號碼 If Not Then If = Then = Date amp。 d amp。 Format(1, 000) If Then = Month(Date) = Month(Left(, 6)) If = Then = Date amp。 d amp。 Format(Val(Right(, 3)) + 1, 000) End If If Then = Date amp。 d amp。 Format(1, 000) End If 基于 VB 的賓館客房管理系統 15 End If 39。清空數據 For i = 0 To 6 ZSDJ(i).Text = ZSDJ(i).Enabled = True Next i ZSDJ(10).Text = : ZSDJ(11).Text = : = : = 追加押金 追加押金的窗口如圖 所示。其功能是根據開房登記時保存的記錄，通過開房登記時生成的憑證號碼選擇不同的住宿者，進行追加押金設置。 圖 退宿結賬 退宿結賬的窗口如圖 所示。它的功能是根據開房登記時保存的相關信息，計算出實住天數以及宿費，在根據預付金額情況，確定余額。最后將退宿者的信息保留在表 tfd 中。 基于 VB 的賓館客房管理系統 16 圖 客房設置 客 房設置窗口如圖 所示。 從圖中可以看出客房設置包括：房間號 設置、房間類型設置、房態設置、價格設置、使用設置及配置設置。 圖 其程序代碼如下： Private Sub save_Click() 39。查找客房信息 房間號 like + Chr(34) + + Chr(34) + If Then 基于 VB 的賓館客房管理系統 17 39。添加客房 If Then (房間號 ) = If Then (房間類型 ) = If Then (房態 ) = If Then (價格 ) = If Then (營業日期 ) = If Then (使用設置 ) = If Then (配置 ) = If Then (備注 ) = If Then (標志 ) = 0 39。更新記錄 Else 39。編輯客房信息 If Then (房間號 ) = If Then (房態 ) = If Then (房間類型 ) = If Then (價格 ) = If Then (營業日期 ) = If Then (使用設置 ) = If Then (配置 ) = If Then (備注 ) = If Then (標志 ) = 0 39。更新記錄 End If 39。設置控件有效或無效 = False: = False 基于 VB 的賓館客房管理系統 18 = True: = True End Sub 客房查 詢 客房查詢窗口如圖 所示。客房查詢窗口中的查詢設置直觀的顯示了利用VB 中強大的控件功能來實現。本論文中使用了 DBGrid 控件。該控件可以顯示網格數據，也可以對其操作。 圖 其操作程序如下： Private Sub Text1_Change() 39。查詢客房信息 = select * from kf where