基于VB的賓館客房管理系統(tǒng)

1、基于 VB 的賓館客房管理系統(tǒng) 摘要：摘要：隨著計算機網(wǎng)絡(luò)通信技術(shù)、微電子技術(shù)的快速發(fā)展，使得賓館客房管理與 其結(jié)合是樓宇智能化技術(shù)中的一個重要課題。目前國內(nèi)許多賓館考慮到設(shè)計成本 原因,采用的客房管理系統(tǒng)可靠性不高,故障監(jiān)測困難,給客戶和賓館管理人員帶來 了不便;另一方面,部分賓館雖然采用國外先進的管理系統(tǒng),但價格較為昂貴。因此, 我們設(shè)計了一套基于 VB 的賓館客房管理系統(tǒng),不僅大大節(jié)省了開發(fā)成本,而且對已 有系統(tǒng)的功能進行了改進和擴展,實用性較強。本文通過對 Visual Basic 開發(fā)工具 特點、VB 對數(shù)據(jù)庫管理的說明來論述了基于 VB 的賓館客房管理系統(tǒng)的設(shè)計與 實現(xiàn)。 關(guān)鍵字：

2、關(guān)鍵字：賓館客房管理系統(tǒng) Visual Basic 數(shù)據(jù)庫 The Modern Hotel Room Management System Based on Visual Basic Abstract：With the fast development of the technologies of computer communication and micro-electronics, the modern hotel room management system which applies the above technologies is one important topic of i

3、ntelligent building technology. Nowadays,in view of designs cost,the reliability of these systems in our country is low. The data can not be collected by the host computer in time and the survey of fault is difficult;on the other hand,some hotel room management systems are quite high- cost.Hence,we

4、designed a hotel room management system which not only saved the cost,but also improved the function of the existed systems,and the designed system has strong practicality. Through elucidating the characteristics, the database management of Visual Basic, the thesis discusses a designs whole thought

5、and realization of the control interface of the hotel room management system based on VB. Keywords: hotel room management system Visual Basic system,database 目錄目錄 第一章第一章 緒論緒論.4 1.1 賓館計算機管理發(fā)展概述.4 1.1.1賓館計算機管理發(fā)展歷程.4 1.1.2 賓館計算機管理技術(shù)發(fā)展.4 1.1.3 賓館客房管理的智能化趨勢.4 1.2 本文的講究工作和內(nèi)容安排 .5 第二章第二章 開發(fā)工具的介紹開發(fā)工具的介紹.5 2

6、.1 系統(tǒng)控制界面軟件設(shè)計 .5 2.1.1 VB 功能特點.6 2.1.2 VB 數(shù)據(jù)訪問技術(shù).6 2.2 Access 數(shù)據(jù)庫簡介 .7 第三章第三章系統(tǒng)的相關(guān)分析系統(tǒng)的相關(guān)分析 .8 3.1 系統(tǒng)的可行性分析 .8 3.2 賓館客房系統(tǒng)控制界面軟件流程 .9 第四章第四章賓館客房系統(tǒng)詳細(xì)設(shè)計賓館客房系統(tǒng)詳細(xì)設(shè)計 .9 4.1 系統(tǒng)控制界面組成結(jié)構(gòu) .9 4.2 系統(tǒng)登錄 .10 4.3主界面 .10 4.4 開房登記 .13 4.5 追加押金 .15 4.6 退宿結(jié)賬.15 4.7 客房設(shè)置 .16 4.8 客房查詢 .18 4.9 住宿查詢 .19 5.1 退宿查詢 .20 5.2 操

7、作員設(shè)置 .21 第五章第五章總結(jié)總結(jié) .22 致謝致謝.23 參考文獻參考文獻.23 第一章 緒論 1.1 賓館計算機管理發(fā)展概述 1.1.1賓館計算機管理發(fā)展歷程 賓館計算機管理發(fā)展階段主要是以電腦系統(tǒng)的運用為標(biāo)志的，電話通信 系統(tǒng)實際上也是從程控交換技術(shù)出現(xiàn)后才獲得質(zhì)的飛躍。與其它行業(yè)相比， IT 在賓館業(yè)應(yīng)用的起步晚了十多年。賓館電腦系統(tǒng)從 NCR 的主機/終端形式， 到 90 年代代表性的 HITS 基于 AS400 和 DB2 小型機解決方案及 fidelio 基于 Clipper 的微機數(shù)據(jù)庫解決方案，直到最近的數(shù)據(jù)庫/應(yīng)用服務(wù)器/瘦客戶方式； 從單一的前后臺 PMS，演變成為覆

8、蓋賓館各部門各環(huán)節(jié)并對賓館外部輻射的 復(fù)雜系統(tǒng)；從財務(wù)/業(yè)務(wù)為核心到一顧客服務(wù)為核心，總體發(fā)展速度呈上升勢 頭。在賓館計算機管理系統(tǒng)的幾十年發(fā)展過程中，該領(lǐng)域在世界范圍內(nèi)發(fā)生 了巨大的變化。在國外，擁有 OPERA、Fidelio、Xpress 品牌的 MICRO- Fidelio 和擁有 HIS-Paragon、CLS、LogicTouch 品牌的 MAI 無疑已經(jīng)形成壟 斷地位的行業(yè)領(lǐng)先者。但他們意識到由于新技術(shù)的不斷涌現(xiàn)，賓館 IT 應(yīng)用行 業(yè)隨時可能出現(xiàn)超越他們的黑馬。 1.1.2 賓館計算機管理技術(shù)發(fā)展 IT 技術(shù)飛速更迭，技術(shù)前沿的敏銳觸角不斷地伸向傳統(tǒng)產(chǎn)業(yè)縱身面。起 自 70 年

9、代的賓館 IT 技術(shù)，歷經(jīng) 30 多年發(fā)展和應(yīng)用，目前已經(jīng)十分龐雜。從 軟件、硬件和服務(wù)三處著眼，現(xiàn)階段賓館的計算機管理可分為： 硬件：網(wǎng)絡(luò)系統(tǒng)、通信系統(tǒng)、POS 機及其專用鍵盤、客房智能設(shè)備、智能卡 系統(tǒng)、無線設(shè)備、計時考勤設(shè)備等。 軟件：電話計時系統(tǒng)、客戶關(guān)系管理系統(tǒng)、?？头?wù)系統(tǒng)、POS 系統(tǒng)、客房 前臺系統(tǒng)、客房后臺系統(tǒng)、人力資源管理系統(tǒng)、數(shù)據(jù)庫、電子商務(wù)等。 1.1.3 賓館客房管理的智能化趨勢 智能化賓館客房管理控制系統(tǒng)代表著一種新的、科學(xué)的管理方式，它是 計算機網(wǎng)絡(luò)化在客房管理上的技術(shù)應(yīng)用，是將客房內(nèi)的專用電器通過智能化 設(shè)計與計算機網(wǎng)絡(luò)運行，實現(xiàn)對客房狀態(tài)、服務(wù)請求的實時監(jiān)控。

10、系統(tǒng)由兩 級網(wǎng)絡(luò)組成，上級網(wǎng)是基于以太網(wǎng)的內(nèi)部局域網(wǎng)，子網(wǎng)是由上位機工作站和 下位機組成的 RS485 總線網(wǎng)絡(luò)，主要包括客房控制系統(tǒng)、樓層工作站、 總臺管理系統(tǒng)以及網(wǎng)絡(luò)通訊等部分內(nèi)容。樓層工作站通過總線網(wǎng)絡(luò)下掛客房 網(wǎng)絡(luò)通訊控制器，總臺工作站、客房部工作站、工程部工作站經(jīng)以太局域網(wǎng) 與各樓層工作站相連接。 1.2 本文的講究工作和內(nèi)容安排 本文在參考了賓館客房管理系統(tǒng)現(xiàn)階段的技術(shù)的基礎(chǔ)上研發(fā)出了一套基 于 Visual Basic 與 Access 的賓館客房管理系統(tǒng)。文中在繼承現(xiàn)有賓館客房管 理系統(tǒng)技術(shù)優(yōu)點的基礎(chǔ)上，詳細(xì)介紹了整個客房系統(tǒng)的構(gòu)成，展示了賓館客 房控制界面的構(gòu)成，并對各子窗口

11、進行了說明，詮釋了控制界面設(shè)計中需要 注意的關(guān)鍵問題；闡述了基于 Visual Basic+Access 的 C/S 雙層數(shù)據(jù)庫管理系 統(tǒng)；最后，驗證了系統(tǒng)運行的可行性，并對論文做出了總結(jié)。 全文共分為五各部分： 第一章 緒論 介紹了賓館客房管理的現(xiàn)狀和發(fā)展趨勢 第二章 開發(fā)工具介紹 介紹了 Visual Basic 開發(fā)工具的特點、VB 訪問數(shù)據(jù)庫 技術(shù)，論述了基于 VB 的賓館管理系統(tǒng)控制界面的模塊化設(shè)計思想。 第三章 系統(tǒng)分析 論述了基于 VB 的賓管客房管理系統(tǒng)的設(shè)計方案及具體流程。 第四章 詳細(xì)設(shè)計 本章重點論述了基于 VB 的賓館客房管理系統(tǒng)的設(shè)計。針對 各個窗體的功能及其設(shè)計都做

12、了詳細(xì)的闡述。 第五章 結(jié)論 總結(jié)了本文研究的內(nèi)容，系統(tǒng)設(shè)計的優(yōu)點。 第二章 開發(fā)工具的介紹 2.1 系統(tǒng)控制界面軟件設(shè)計 控制界面設(shè)計使用 Visual Basic 6.0 程序設(shè)計語言。Visual Basic 6.0 是基于 Basic 的可視化的程序設(shè)計語言，一方面它繼承了早期 Basic 所具有的程序設(shè)計語 言簡單易用的特點，另一方面在其編程中采用了面向?qū)ο?、事件?qū)動的編程機構(gòu)， 用一種巧妙的方法把 windows 的編程復(fù)雜性封裝起來，提供了一種所見即所得的 可視化的程序設(shè)計方法。它將代碼和數(shù)據(jù)集成到一個獨立的對象中，由對象來完 成功能的實現(xiàn)，程序員在應(yīng)用程序中只需要說明要求對象完

13、成的任務(wù)，符合軟件 發(fā)展的趨勢；類似于人們習(xí)慣的思維方法，可自然地按照現(xiàn)實世界中處理實體的 方法來處理對象，軟件開發(fā)者可以方便地與問題提出者進行溝通和交流；易于軟 件的維護和功能的增減；加上繼承的方法，極大提高了軟件發(fā)開的效率；與可視 化技術(shù)相結(jié)合，改善了工作界面。 2.1.1 VB 功能特點 （1） 具有面向?qū)ο蟮目梢暬O(shè)計工具 在 VB 中，應(yīng)用面向?qū)ο蟮某绦蛟O(shè)計方法，把程序和數(shù)據(jù)封裝起來視為一個 對象，每個對象都是可視的。程序員在設(shè)計時只需要用現(xiàn)有工具根據(jù)界面設(shè)計的 要求，直接在屏幕上放置窗口、菜單、按鈕、滾動條等不同類型的對象，并為每 個對象設(shè)計屬性。程序員的編程工作僅限于編寫相關(guān)對象

14、完成的功能程序，提高 了程序設(shè)計的效率。 （2） 事件驅(qū)動的編程機制 事件驅(qū)動是非常適合圖形用戶界面的編程方式。傳統(tǒng)的程序設(shè)計是一種面向 過程的方式，程序按事先設(shè)計的流程運行。但在圖形用戶界面的應(yīng)用程序中，是 由用戶的動作即事件掌握著程序運行的流向，每個事件都能驅(qū)動一段程序的運行。 程序員只需編寫相應(yīng)用戶動作的代碼，而各個動作之間不一定有聯(lián)系。使得應(yīng)用 程序代碼一般較短，所以程序既易于編寫又易于維護。 （3） 提供了易學(xué)易用的應(yīng)用程序集成開發(fā)環(huán)境 在 VB 集成開發(fā)環(huán)境中，用戶設(shè)計界面、編寫代碼、調(diào)試程序，直至把應(yīng)用 程序編譯成可執(zhí)行文件在 Windows 中運行，使用戶在友好的開發(fā)環(huán)境中工作

15、。 （4） 結(jié)構(gòu)化的程序設(shè)計語言 VB 具有豐富的數(shù)據(jù)類型和結(jié)構(gòu)化的程序結(jié)構(gòu)，而且簡單易學(xué)。VB 有強大 的數(shù)值和字符串處理功能；豐富的圖形指令，可方便地繪制各種圖形；提供靜態(tài) 和動態(tài)數(shù)組，有利于簡化內(nèi)存管理。 （5）支持多種數(shù)據(jù)庫系統(tǒng)的訪問 利用數(shù)據(jù)控件可訪問的數(shù)據(jù)庫系統(tǒng)有：Microsoft Access、Btrieve、dBASE、Microsoft FoxPro 和 Paradox 等，也可訪問 Microsoft Excel、Lotusl-2-3 等多種電子表格。 2.1.2 VB 數(shù)據(jù)訪問技術(shù) Visual Basic 作為一種面向?qū)ο蟮目梢暬幊坦ぞ?，越來越多地用作?shù)據(jù)庫 應(yīng)用程

16、序的前端開發(fā)工具。VB 數(shù)據(jù)訪問技術(shù)，采用 Visual Basic6.0 作為前端控 制界面，Microsoft Access 2003 作為后臺數(shù)據(jù)庫，并采用最新的 ActiveX 數(shù)據(jù)訪 問對象(ADO)數(shù)據(jù)庫訪問技術(shù)。Visual Basic 使用的數(shù)據(jù)訪問技術(shù)示意圖如圖 2.1 所示。 Microsoft 可視化數(shù) 據(jù)工具 ActiveX. Exe.DLL 數(shù) 據(jù) 源 編碼 報表 DHTML 窗體 類模塊用 戶控件 Microsoft Transaction Server 遠(yuǎn)端 DCOM，遠(yuǎn)端 ADO 數(shù)據(jù)集， 遠(yuǎn)端UDTS 數(shù) 據(jù) 訪 問 圖 2.1 2.2 Access 數(shù)據(jù)庫簡

17、介 AAccess 數(shù)據(jù)庫是微軟公司發(fā)布的 Office 軟件包的關(guān)系型數(shù)據(jù)庫軟件，不但具有一般數(shù)據(jù)庫的特征，更具有自己獨 特、強大 的功能。 圖 2.2.1 例如：用戶不用再去記憶那一大堆的文件名稱，或者為數(shù)據(jù)庫文件管理大費周章， 通過 Access 人性化管接口，如圖 2.2.1 所示，把數(shù)據(jù)庫的管理整理，便于維護。 因此，Access 特別適宜客房管理系統(tǒng)的中小型數(shù)據(jù)庫開發(fā)與管理，且便于 Visual Basic 的數(shù)據(jù)庫編程。 (1) 表 表是數(shù)據(jù)庫中最常用的數(shù)據(jù)存儲單元，它包括所有用戶可以訪問的數(shù)據(jù)。 Access 的表是二維結(jié)構(gòu)的，由行和列兩部分組成。列也叫字段，它可以定義 表的結(jié)

18、構(gòu)；行也叫記錄，保存表中的一段數(shù)據(jù)。在設(shè)計表結(jié)構(gòu)時，需要定義 表中的字段名和數(shù)據(jù)類型。表生成后可以添加、修改和刪除數(shù)據(jù)。如圖 2.2.2 所示： 圖 2.2.2 (2) 查詢 查詢用于在一個或多個表中查找滿足指定條件的數(shù)據(jù)，Access 提供以下的查 詢方式： 匯總查詢: 對表中數(shù)據(jù)進行統(tǒng)計，例如求平均值、統(tǒng)計記錄數(shù)量、求和等。 動作查詢: 對表進行生成、替換和刪除等操作。 選擇查詢: 找到符合特定條件的記錄。 SQL 查詢: 使用 SQL 語句進行查詢。 第三章 系統(tǒng)的相關(guān)分析 3.1 系統(tǒng)的可行性分析 現(xiàn)代社會是信息社會。隨著計算機網(wǎng)絡(luò)技術(shù)、數(shù)據(jù)庫技術(shù)、管理技術(shù)的發(fā) 展，對信息的處理也就成

19、了掌握成敗的關(guān)鍵。因此，若想使你所經(jīng)營的賓館客房 業(yè)在競爭中占領(lǐng)市場、鎖定客戶，只有通過加快內(nèi)部管理信息化、電子化建設(shè)， 提高工作效率，降低經(jīng)營成本，從而來提高企業(yè)的競爭力。 3.2 賓館客房系統(tǒng)控制界面軟件流程 根據(jù)賓館客房管理系統(tǒng)的功能要求和界面顯示，我們把系統(tǒng)控制界面功能劃 分為如圖 3.2 所示的模塊。 控制界面 系統(tǒng)設(shè)置 模塊 狀態(tài)查詢 模塊 記錄查詢 模塊 工程設(shè)置 模塊 圖 3.2 第四章 賓館客房系統(tǒng)詳細(xì)設(shè)計 4.1 系統(tǒng)控制界面組成結(jié)構(gòu) 系統(tǒng)界面顯示部分具體組織結(jié)構(gòu)如圖 4.1 所示：系統(tǒng)設(shè)置推出 登陸界面 客房管理界面 住宿管理客房管理查詢統(tǒng)計系統(tǒng)設(shè)置退出 開 房 登 記

20、追 加 押 金 退 宿 結(jié) 賬 客 房 查 詢 客 房 設(shè) 置 宿 費 提 醒 退 宿 查 詢 住 宿 查 詢 初 始 化 操 作 員 設(shè) 置 圖 4.1 4.2 系統(tǒng)登錄 登陸管理界面如圖 4.2 所示。 客房管理控制界面啟動后，會出現(xiàn) 一個用戶登陸的窗口，要求操作員 輸入正確的用戶名和密碼才能進入 管理界面的主窗體，連續(xù)三次輸入 錯誤密碼，系統(tǒng)退出運行。 圖 4.2 4.3 主界面 用戶登陸后，顯示運行的界面為主界面。界面的可視化編程中采用事件觸發(fā) 機制，程序的功能通過點擊菜單、按鈕等觸發(fā)的方式得以運行。主界面的功能從 圖 4.3 可以看出，包括：住宿管理、客房管理、查詢統(tǒng)計、系統(tǒng)設(shè)置、退

21、出。 點擊按鈕組中的任何一個按鈕，都會彈出相應(yīng)的子窗口，而其他窗口將會關(guān)閉。 圖 4.3 其響應(yīng)程序如下： Private Sub label1_Click() 調(diào)入開房登記 zsdj_Click End Sub Private Sub label2_Click() 調(diào)入退宿結(jié)帳 tsjz_Click End Sub Private Sub Label3_Click() 調(diào)入住宿查詢 zscx_Click End Sub Private Sub Label5_Click() 調(diào)入宿費提醒 sftx_Click End Sub Private Sub label6_Click() End End

22、 Sub Private Sub zsdj_Click() 調(diào)入開房登記 main_kfdj.Show main.Enabled = False End Sub Private Sub zjyj_Click() 調(diào)入追加押金 Load main_zjyj main_zjyj.Show main.Enabled = False End Sub Private Sub tsjz_Click() 調(diào)入退宿結(jié)帳 main_tsjz.Show main.Enabled = False End Sub Private Sub kfsz_Click() 調(diào)入客房設(shè)置 main_kfgl.Show main.

23、Enabled = False End Sub Private Sub kfcx_Click() 調(diào)入客房查詢 main_kfcx.Show main.Enabled = False End Sub Private Sub zscx_Click() 調(diào)入住宿查詢 Load main_zscx main_zscx.Show main.Enabled = False End Sub Private Sub tfcx_Click() 調(diào)入退宿查詢 Load main_tfcx main_tfcx.Show main.Enabled = False End Sub Private Sub sftx_C

24、lick() 調(diào)入宿費提醒 Load main_xftx main_xftx.Show main.Enabled = False End Sub Private Sub czysz_Click() 調(diào)入操作員設(shè)置 Load main_czysz main_czysz.Show main.Enabled = False End Sub Private Sub csh_Click() 調(diào)入初始化 main_csh.Show main.Enabled = False End Sub Private Sub tc_Click() 退出 End End Sub 4.4 開房登記 開房登記界面如圖 4.4

25、 所示。點擊登陸按鈕，出現(xiàn)閃爍標(biāo)簽，則要求填寫住 宿者的相關(guān)信息以及預(yù)付款，等待信息填完整之后，點擊確定，保存住宿者的相 關(guān)信息。 圖 圖 4.4 其程序代碼如下： 查詢空閑房間信息 Data2.RecordSource = select * from kf where 房態(tài)=空房 Data2.Refresh Data3.RecordSource = select * from kf where 房態(tài)=空房 Data3.Refresh 生成憑證號碼 Data1.RecordSource = select * from djb order by 憑證號碼 Data1.Refresh If Not

26、 Data1.Recordset.EOF Then Data1.Recordset.MoveLast If lsph.Text = Then bh.Text = Date & d & Format(1, #000) If lsph.Text Then y1.Text = Month(Date) y2.Text = Month(Left(lsph.Text, 6) If y1.Text = y2.Text Then bh.Text = Date & d & Format(Val(Right(lsph.Text, 3) + 1, #000) End If If y1.Text y2.Text Th

27、en bh.Text = Date & d & Format(1, #000) End If End If 清空數(shù)據(jù) For i = 0 To 6 ZSDJ(i).Text = ZSDJ(i).Enabled = True Next i ZSDJ(10).Text = : ZSDJ(11).Text = : DBCombo1.Text = : DBCombo1.Text = 4.5 追加押金 追加押金的窗口如圖 4.5 所示。其功能是根據(jù)開房登記時保存的記錄，通過 開房登記時生成的憑證號碼選擇不同的住宿者，進行追加押金設(shè)置。 圖 4.5 4.6 退宿結(jié)賬 退宿結(jié)賬的窗口如圖 4.6 所示。它的

28、功能是根據(jù)開房登記時保存的相關(guān)信息， 計算出實住天數(shù)以及宿費，在根據(jù)預(yù)付金額情況，確定余額。最后將退宿者的信 息保留在表 tfd 中。 圖 4.6 4.7 客房設(shè)置 客房設(shè)置窗口如圖 4.7 所示。從圖中可以看出客房設(shè)置包括：房間號設(shè)置、 房間類型設(shè)置、房態(tài)設(shè)置、價格設(shè)置、使用設(shè)置及配置設(shè)置。 圖 4.7 其程序代碼如下： Private Sub comsave_Click() 查找客房信息 Data1.Recordset.FindFirst 房間號 like + Chr(34) + Texfjh.Text + Chr(34) + If Data1.Recordset.NoMatch Then

29、 添加客房 Data1.Recordset.AddNew If Texfjh.Text Then Data1.Recordset.Fields(房間號) = Texfjh.Text If Combo1.Text Then Data1.Recordset.Fields(房間類型) = Combo1.Text If Combo2.Text Then Data1.Recordset.Fields(房態(tài)) = Combo2.Text If Texjg.Text Then Data1.Recordset.Fields(價格) = Texjg.Text If DTP1.Value Then Data1.R

30、ecordset.Fields(營業(yè)日期) = DTP1.Value If Texsz.Text Then Data1.Recordset.Fields(使用設(shè)置) = Texsz.Text If Texpz.Text Then Data1.Recordset.Fields(配置) = Texpz.Text If Texbz.Text Then Data1.Recordset.Fields(備注) = Texbz.Text If Texfjh.Text Then Data1.Recordset.Fields(標(biāo)志) = 0 Data1.Recordset.Update 更新記錄 Data1.R

31、efresh Else 編輯客房信息 Data1.Recordset.Edit If Texfjh.Text Then Data1.Recordset.Fields(房間號) = Texfjh.Text If Combo2.Text Then Data1.Recordset.Fields(房態(tài)) = Combo2.Text If Combo1.Text Then Data1.Recordset.Fields(房間類型) = Combo1.Text If Texjg.Text Then Data1.Recordset.Fields(價格) = Texjg.Text If DTP1.Value T

32、hen Data1.Recordset.Fields(營業(yè)日期) = DTP1.Value If Texsz.Text Then Data1.Recordset.Fields(使用設(shè)置) = Texsz.Text If Texpz.Text Then Data1.Recordset.Fields(配置) = Texpz.Text If Texbz.Text Then Data1.Recordset.Fields(備注) = Texbz.Text If Texfjh.Text Then Data1.Recordset.Fields(標(biāo)志) = 0 Data1.Recordset.Update 更

33、新記錄 Data1.Refresh End If 設(shè)置控件有效或無效 Comsave.Enabled = False: Comcancel.Enabled = False Comend.Enabled = True: Comdj.Enabled = True End Sub 4.8 客房查詢 客房查詢窗口如圖 4.8 所示?？头坎樵兇翱谥械牟樵冊O(shè)置直觀的顯示了利用 VB 中強大的控件功能來實現(xiàn)。本論文中使用了 DBGrid 控件。該控件可以顯示網(wǎng) 格數(shù)據(jù)，也可以對其操作。 圖 4.8 其操作程序如下： Private Sub Text1_Change() 查詢客房信息 Data1.Record

34、Source = select * from kf where kf.房間號 like + Chr(34) + Text1.Text + * + Chr(34) + Data1.Refresh End Sub Private Sub Command1_Click() 允許修改客房信息 DBGrid1.AllowUpdate = True End Sub Private Sub Command2_Click() 刪除客房信息 If Data1.Recordset.RecordCount 0 Then Data1.Recordset.Delete Data1.Refresh End If End

35、Sub 4.9 住宿查詢 住宿查詢窗口如圖 4.9 所示。主要功能是實現(xiàn)對住宿登記的查詢，通過 data 控 件實現(xiàn)對數(shù)據(jù)庫的連接，再通過 DBGrid 這個數(shù)據(jù)感知控件將數(shù)據(jù)庫實時顯示在 窗口上。 圖 4.9 其程序代碼如下： Private Sub Form_Load() Data1.DatabaseName = App.Path & Kfgl.MDB 自動識別數(shù)據(jù)庫路徑 End Sub Private Sub Form_Unload(Cancel As Integer) main.Enabled = True End Sub Private Sub Command1_Click() 查詢

36、住宿信息 Data1.RecordSource = select * from djb where 姓名 like + Chr(34) + Text1.Text + * + Chr(34) + Data1.Refresh End Sub Private Sub Command2_Click() main.Enabled = True Unload Me End Sub 5.1 退宿查詢 退宿查詢窗口如圖 5.1 所示。其功能主要是完成操作員對退宿情況的查詢。 通通過 data 控件實現(xiàn)對數(shù)據(jù)庫的連接，系統(tǒng)已經(jīng)將退宿信息存放在名為 tfd 的表 中，再通過 DBGrid 這個數(shù)據(jù)感知控件將數(shù)據(jù)庫

37、實時顯示在窗口上。 圖 5.1 其程序代碼如下： Private Sub Form_Load() Data1.DatabaseName = App.Path & KFGL.MDB 自動識別數(shù)據(jù)庫路徑 End Sub Private Sub Form_Unload(Cancel As Integer) main.Enabled = True End Sub Private Sub Text1_Change() 按客人姓名查詢退宿信息 Data1.RecordSource = select * from tfd where tfd.姓名 like + Chr(34) + Text1.Text +

38、* + Chr(34) + Data1.Refresh End Sub Private Sub Command1_Click() 允許修改退宿記錄 DBGrid1.AllowUpdate = True End Sub Private Sub Command2_Click() 刪除退宿記錄 If Data1.Recordset.RecordCount 0 Then Data1.Recordset.Delete Data1.Refresh End If End Sub Private Sub Command3_Click() main.Enabled = True Unload Me End Sub 5.2 操作員設(shè)置 操作員設(shè)置窗口如圖 5.2 所示。主要功能是向數(shù)據(jù)庫中寫入新的操作員用戶 名和密碼。 圖 5.2 主要程序如下： Private Sub Command1_Click() 保存操作員及密碼 If Text1.Text Then If Text2.Text Then Data