【正文】 的進(jìn)一步發(fā)展，它包含了數(shù)百條語句、函數(shù)及其關(guān)鍵詞，其中很 多與 Windows GUI 有直接的聯(lián)系?？梢暬挠脩艚缑嬖O(shè)計功能，把程序設(shè)計人員從繁瑣復(fù)雜的界面設(shè)計中解脫出來：可視化編程環(huán)境的“所見即所的”功能，使界面設(shè)計如積木游戲一般，編程變成了一種享受；強(qiáng)大的多媒體功能可輕而易舉地開發(fā)出集聲音、動畫、影象和圖片與 一體的多媒體應(yīng)用程序；新增的網(wǎng)絡(luò)功能提供了編寫 Inter 程序的能力。 Visual Basic 特點(diǎn) Visual Basic 的特點(diǎn)非常突出，那就是具有快速的程序開發(fā)環(huán)境，編制程序界面簡單，代碼的編寫量小，用戶可以很方便的直接改動界面，所見即所的。當(dāng)然它也有它的缺點(diǎn)，那就是運(yùn)行速度較慢，由于它的內(nèi)核仍然是 Basic[4]，因此這個缺點(diǎn)不可避免。 數(shù)據(jù)庫訪問 一、如何來訪問 數(shù)據(jù)庫。在這兩種方法中，都涉及到數(shù)據(jù)庫的屬性：connect， databasename， exclusive， options， readonly， recordsoure。 二、書簽指針即 bookmark 屬性。但 VB 提供了 bookmark 屬性來記錄當(dāng)前訪問記錄的記錄指針。 三、要注意變量類型的匹配。其中 是子符串類型。所以需要加入類型的判斷，將 null 數(shù)據(jù)項賦于空格子符串，這樣就可以解 4 決類似的問題。VB 本身對于訪問機(jī)器硬件等操作比較困難。同時， VB也可以調(diào)用任何語言所編寫的DLL[5]。數(shù)據(jù)綁定控件是任何具有“數(shù)據(jù)源”屬性的控件。如圖21 所示的 Ado Data 控件有作為一個圖形控件的優(yōu)勢（具有“向前”和“向后”按鈕），以及一個易于使用的界面，使可以用最少的代碼創(chuàng)建數(shù)據(jù)庫應(yīng)用程序。引入之后就可以在窗體中的任意位置添加 Ado Data 控件。主要事件為 Error 事件。其中 UpdateControls 方法將綁定控件的內(nèi)容恢復(fù)為其初始值，而且不會調(diào)用任何事件。 Ado Data 控件直接操縱數(shù)據(jù)庫 使用 Ado Data 控件訪問數(shù)據(jù)庫，可以完全不用編寫 代碼，只需通過簡單設(shè)置和操縱其屬性就可以實現(xiàn)與數(shù)據(jù)庫的連接，通過綁定數(shù)據(jù)感知控件就能提供一個訪問數(shù)據(jù)庫的界面，用來對數(shù)據(jù)庫數(shù)據(jù)的瀏覽、添加、刪除、修改等操作。 圖 21 Ado Data 控件 5 第 3 章 需求及可行性分析 由于在賓館管理方面，注重的是結(jié)帳準(zhǔn)確，經(jīng)營的狀況，而運(yùn)算主要以數(shù)字為主，這樣就使得涉及的計算并不是很復(fù)雜，因此是比較適合于采用數(shù)據(jù)庫進(jìn)行管理的。在技術(shù)方面，由于有相關(guān)的指導(dǎo) 和相關(guān)資料的參考，特別是網(wǎng)上資料提供的各種要求與幫助，基本可以實現(xiàn)設(shè)計中所要求的模塊及功能。開發(fā)的系統(tǒng)目標(biāo)應(yīng)充分體現(xiàn)賓館的戰(zhàn)略目標(biāo)、發(fā)展方向和基本特點(diǎn)，直接為賓館的管理服務(wù)，同時，系統(tǒng)目標(biāo)應(yīng)該和其他賓館的管理系統(tǒng)的各項基本功能相似相關(guān)，并且可以分期分批實現(xiàn)。而系統(tǒng)目標(biāo)初步為以下幾點(diǎn)： 1) 提高賓館客房信息的處理速度和準(zhǔn)確性； 2) 提高員工工作效率，減少工作人員勞動強(qiáng)度； 3) 為賓館客房管理提供更方便的服務(wù) 功能需求 通過對巨化賓館及新宇假日酒店客房管理系統(tǒng)的調(diào)查和分析，由于系統(tǒng)面對的對象類似，都是中小型賓館客房管理系統(tǒng)，因此要求設(shè)計出的系統(tǒng)具備以下的功能 [6]： 9) 簡潔明了的操作界面。 11) 客房數(shù)據(jù)修改簡單方便，可以修改 12) 原始數(shù)據(jù)修改簡單方便，可以修改 13) 在相應(yīng)的權(quán)限下，刪除數(shù)據(jù)方便簡單，數(shù)據(jù)穩(wěn)定性好 14) 數(shù) 據(jù)計算自動完成，盡量減少人工干預(yù) 15) 退出系統(tǒng)。 外部接口需求分析 1) 用戶界面 采用目前非常流行的 GUI，即諸如窗口、菜單、對話框等。 3) 硬件接口 支持一般 x86 系列微機(jī)和 Windows CE。開發(fā)的系統(tǒng)針對的是中小型賓館，因此需要考慮電腦運(yùn)行要求，設(shè)計出來的系統(tǒng)應(yīng)該要滿足賓館使用的需求，而且要適應(yīng)賓館的電腦運(yùn)行環(huán)境。 2) 可靠性 在一般條件下，應(yīng)不出故障。 4) 完整性 要求能在發(fā)生意外時，保證數(shù)據(jù)不丟失。 6) 可維護(hù)性 要求系統(tǒng)在運(yùn)行時發(fā)現(xiàn)錯誤時，能快速、 準(zhǔn)確對其進(jìn)行定位、診斷和修改。 8) 可理解性 [7] 對于設(shè)計出來的系統(tǒng)界面所提供的各種菜單命令、各種信息提示，應(yīng)該簡介明了，便于用戶理解。在個人計算機(jī)上也能方便的運(yùn)行 VB程序，對計算機(jī)硬件要求不高。同時， Access 的報表功能，也能實現(xiàn)客房管理中對于客房信息的查詢，管理功能 [8]。而且 提供的客房結(jié)算功能，也能避免人工結(jié)算產(chǎn)生的誤差，減少人為的參與因素，降低賓館管理中的風(fēng)險。 3) 運(yùn)行可行性 中小型的酒店客房管理系統(tǒng)相對大型或者三星以上的賓館來說，計算機(jī)配置及數(shù)據(jù)庫要求相對較低，對客房管理系統(tǒng)的要求也不是很高。中小型賓館的服務(wù)人員相對其他高級酒店，學(xué)歷也相對較低，對于計算機(jī)操作能力也有一定的限制，因為系統(tǒng)設(shè)計 出來的界面應(yīng)該簡介明了，且系統(tǒng)操作應(yīng)該方便易學(xué)。 9 第 4 章 系統(tǒng)設(shè)計 總體設(shè)計 項目規(guī)劃 賓館管理系統(tǒng)是一個數(shù)據(jù)庫應(yīng)用程序，主要用來賓館的日常營業(yè)工作和進(jìn)行房間的基本管理、客人預(yù)定、帳單結(jié)算及客戶查詢等管理工作 [9]。 賓館信息管理主要 包括訂房與結(jié)算和客戶查詢，提供三種查詢方式，分別是按房號查詢、按姓名查詢、按證件查詢，這個模塊是系統(tǒng)的主模塊。 更改登陸信息是用來添加管理員使用的模塊。這不僅使賓館管理的日常工作日趨復(fù)雜繁重，而且，對它提出了更高的要求。賓館管理系統(tǒng)的使用，可以大大減少了管理者的手工勞動，是賓館管理的得力助手。建好數(shù)據(jù)庫的結(jié)構(gòu)后，數(shù)據(jù)庫就能在紀(jì)錄里存儲數(shù)據(jù)。 數(shù)據(jù)庫設(shè)計 本系統(tǒng)采用了 ACESS 數(shù)據(jù)庫，下面對在本系統(tǒng)中使用的數(shù)據(jù)庫表格建立做一下介紹。 數(shù)據(jù)庫中包含若干個表，表是數(shù)據(jù) 庫中用來存放數(shù)據(jù)的地方。 幾個主要表的結(jié)構(gòu)： 表 41 customer 表的結(jié)構(gòu) 字段名稱 字段類型 字段大小 name 文本 50 sex 文本 50 idcard 文本 50 housestyle 文本 50 housenum 數(shù)字 長整型 begintimey 數(shù)字 長整型 begintimem 數(shù)字 長整型 begintimed 數(shù)字 長整型 endtimey 數(shù)字 長整型 endtimem 數(shù)字 長整型 endtimed 數(shù)字 長整型 money 數(shù)字 長整型 employee 文本 50 表 42 enter表的結(jié)構(gòu) 字段名稱 字段類型 字段大小 user 文本 50 password 文本 50 11 表 43 house表的結(jié)構(gòu) 字段名稱 字段類型 字段大小 num 數(shù)字 長整型 style 文本 50 price 數(shù)字 長整型 things 文本 100 human 文本 2 功能模塊設(shè)計 本系統(tǒng)主要設(shè)計有以下幾個模塊： 賓館房間介紹模塊：主要是查看賓館房間價格、所查看房間剩余空房、以及房間中的配置信息。 賓館設(shè)施設(shè)置模塊：是對賓館的房間進(jìn)行添加、更改和刪除使用的模塊，主要包括添加新房間，更改房間類型、類型配置，刪除已有房間。 系統(tǒng)結(jié)構(gòu)圖 該賓館管理系統(tǒng)的編程思想是模塊化編程。功能 主要分為四大模塊：賓館房間介紹、賓館信息管理、賓館設(shè)施設(shè)置、更改登陸信息。更改登陸信息是用來添加管理員使用模塊。雙擊系統(tǒng)的執(zhí)行程序，系統(tǒng)顯示登陸窗口。 圖 51 登陸窗口 登陸窗口主要設(shè)計編碼如下： Dim rt As Recordset Private Sub Command1_Click() Set db = OpenDatabase( + /) Set rt = (enter) Do Until If (user) Like And (password) Like Then Else MsgBox 用戶名或密碼不對 , vbCritical + vbOKOnly, 消息提示 End If Loop 15 End Sub Private Sub Command2_Click() End End Sub Private Sub judge() If And Then = True End If End Sub Private Sub Text1_Change() Call judge End Sub Private Sub Text2_Change() Call judge End Sub 用戶登陸信息準(zhǔn)確之后跳轉(zhuǎn)進(jìn)入主操作界面 圖 52 管理主界面 房間介紹模塊 賓館房間介紹主要是查看賓館房間價格、所查看房間剩余空房、以及房間中的配置信息。選擇所要查詢的房間類型，然后點(diǎn)擊下面的房間配置，即可顯示出所查詢的房間中包含的設(shè)施情況。 圖 53 房間介紹窗口 此模塊的主要設(shè)計編碼如下所示： Dim a As Integer Dim b As Integer Dim c As Integer Dim db As Database Dim rs As Recordset Dim rr As Recordset Private Sub Command1_Click() = True Set rs = (house) Do Until 17 If (style) = 標(biāo)準(zhǔn)間 Then = (things) Label3(1).Caption = (style) Exit Sub Else End If Loop End Sub Private Sub Command2_Click() Set rs = (house) Do Until If (style)= 雙人間 Then = (things) Label3(1).Caption = (style) Exit Sub Else End If Loop End Sub Private Sub Command3_Click() Set rs = (house) Do Until If (style) = 豪華間 Then = (things) Label3(1).Caption = (style) Exit Sub Else 18 End If Loop End Sub Private Sub Command4_Click() Unload allhouse End Sub Private Sub Command5_Click() Unload allhouse End Sub Private Sub Form_Load() a = 0 b = 0 c = 0 Set db = OpenDatabase( + /) Set rs = (house) Do Until If (style)= 標(biāo)準(zhǔn)間 Then = (price) If (human) = n Then a = a + 1 End If If (style) = 雙人間 Then = (price) If (human) = n Then b = b + 1 End If If (style) = 豪華間 Then = (price) If (human) = n Then c = c + 1 19 End If Loop If a = 0 Then Label4(0).Caption = 客滿 Else Label4(0).Caption = 有 amp。 間空房 End If If b = 0 Then Label4(1).Caption = 客滿 Else Label4(1).Caption = 有 amp。 間空房 End If If c = 0 Then Label4(2).Caption = 客滿 Else Label4(2).Caption = 有 amp。 間空房 End If End Sub Private Sub Label1_Click() End Sub 信息管理模塊 賓館信息管理主要包括訂房與結(jié)算和客戶查詢，提供三種查詢方式，分別是按房號查詢、按姓名查詢、按證件查詢，這個模塊是系統(tǒng)的主模塊，是整個系統(tǒng)的重要管理部 分。窗體設(shè)計采用索引指針，采用 if語句，當(dāng) Index = 不同值時分別進(jìn)入 style、 endlive、 housenum、 names、citizennum、 functionshow 的窗體，同時關(guān)閉 hotelmanage 窗體。 圖 55 選擇預(yù)定房間類型窗口 主要編