【正文】 靠性。 后臺數(shù)據(jù)庫則選擇 SQL Server，是因為 SQL 語言集數(shù)據(jù)查詢、數(shù)據(jù)操縱、數(shù)據(jù)定義和數(shù)據(jù)控制 功能于一體，是作為關(guān)系數(shù)據(jù)庫管理系統(tǒng)中的一種通用的結(jié)構(gòu)化查詢語言。 2． 4 開發(fā)系統(tǒng)所需的實用技術(shù) 開發(fā)此數(shù)據(jù)庫管理信息系統(tǒng) 所需實用技術(shù)有： 1．所選開發(fā)工具的基本編程方法。 3．常用 SQL語句的使用。該系統(tǒng)融入酒店科學(xué)、規(guī)范的現(xiàn)代管理思想，為提高各業(yè)務(wù) 部門本身的工作效率，自動完成各業(yè)務(wù)部門之間的各種營業(yè)信息、帳務(wù)、報表的自動化傳輸與匯總，使各項業(yè)務(wù)工作制度化，科學(xué)化。 本文介紹了課題相關(guān)內(nèi)容，并通過設(shè)計分析，劃分?jǐn)?shù)據(jù)庫，將系統(tǒng)劃分為四個主要功能模塊：前臺管理、系統(tǒng)維護(hù)、經(jīng)理查詢、賓客系統(tǒng)。如對客房、員工的設(shè)置修改，相關(guān)的顧客服務(wù)等?？呻S著酒店業(yè)務(wù)的發(fā)展對系統(tǒng)進(jìn)行擴(kuò)展升級 第三章 賓館管理的總體設(shè)計???????????????? 7 使用計算機(jī)管理賓館的意義?????????????? 隨著酒店管理系統(tǒng)的不斷完善，酒店上網(wǎng)業(yè)務(wù)必將成為今后的熱門話題?？腿丝梢栽诰频晟?Inter進(jìn)行工作和商務(wù)活動，也可以通過 Inter 查詢酒店情況，進(jìn)行酒店的預(yù)定、結(jié) 帳等活動，極大地方便了顧客。因此，采用全新的計算機(jī)網(wǎng)絡(luò)和賓館管理系統(tǒng)，已成為提高賓館管理效率、改善服務(wù)水準(zhǔn)的重要手段之一。另外， 隨著信息技術(shù)的發(fā)展和人們對賓館酒店的要求越來越高，賓館已明顯覺得手工管理已經(jīng)不能適應(yīng)當(dāng)前賓館高速發(fā)展的需要。 （ 1）、客戶信息表 Customer， 包括 custld（編號，主鍵）、 ldtype（證件類型）、 custname（客戶姓名）、 name（客戶單位）、 custtype（客戶類型） 、 custfrom（國籍戶籍）、 sex（性別）、 job（職務(wù)）、 office（辦公電話）、 mobile（移動電話）、 home（住宅電話）、 custlevel（客戶等級）、 address（家庭地址）、 postcode（郵政編碼）。 （ 3）、客房信息表 Room， 包括 roomno（客房編號，主鍵）、 typeld（客房類型編號）、 position（房間朝向）、 objlist（客房中所有物品的列表）、 price（標(biāo)準(zhǔn)價格）、 status（房間當(dāng)前狀態(tài)）。 （ 6）、預(yù)定客房登記表 OrderList， 包 括 listld（記錄編號，主鍵）、 orderld（客戶編號）、 roomno（客房編號）、 indate（計劃入住日期）、 days（入住天數(shù)）、 price（預(yù)定單價）、 rate（預(yù)定折扣）、 otherfee（其它收費(fèi)金額）、 memo（備注）。 （ 8）、實結(jié)房款信息表 PayforRoom， 包括 regld（登記編號）、 amount（結(jié)款金額：如果結(jié)款金額為負(fù)，則表示退款）、 username（經(jīng)辦人）、 opttime（結(jié)款日期）。 登錄窗體及系統(tǒng)主界面設(shè)計 當(dāng)系統(tǒng)運(yùn)行時，首先打開登錄窗體，只有有權(quán)限的用戶才能進(jìn)入系統(tǒng)。其界面布局如下圖所示： 登錄窗體名稱為 FrmLogin,其代碼如下所示： Public PasswordKey As String Public NameKey As String Public Try_times As Intege Private Sub Cmd_Cancel_Click() End End Sub Private Sub Cmd_OK_Click() Dim j As Single 39。判斷用戶是否存在 If (NameKey) = False Then MsgBox 用戶名不存在 Try_times = Try_times + 1 If Try_times = 3 Then MsgBox 您已經(jīng)三次嘗試進(jìn)入本系統(tǒng)，均不成功，系統(tǒng)將關(guān)閉 DBapi_Disconnect End Else Exit Sub End If End If 39。登錄成功，將當(dāng)前用戶的信息保存在 CurUser 中 (NameKey) 39。主窗體名稱為 FrmMain。在主窗體 FrmMain 中添加如下代碼： Private Sub Form_Load() 1 End Sub 當(dāng)主窗體啟動時，首先打開“登錄”對話框。系統(tǒng)主界面如下圖所示。 設(shè)計客戶信息編輯窗體 客戶信息編輯窗體可以用來添加和修改客戶的基本信息，窗體名稱為 FrmCustEdit,窗體的布局如下圖所示。檢查用戶錄入的數(shù)據(jù)是否完全有效 39。把用戶錄入的數(shù)據(jù)賦值到 MyRoomType 對象中，并保存到數(shù)據(jù)庫 With MyRoomType .TypeName = MakeStr() 39。==房間數(shù)量 .Bednum = Val(txtBnum) 39。==空調(diào) .AirConditioning = 1 Else .AirConditioning = 0 End If If = True Then 39。==電視 .Tv = 1 Else .Tv = 0 End If If = True Then 39。==冰箱 .IceBox = 1 Else .IceBox = 0 End If 39。判斷當(dāng)前房間類型是否存在 If .In_DB(.TypeName) = True Then MsgBox 當(dāng)前房間類型已經(jīng)存在 Exit Sub End If .Insert Else If .TypeName OriType Then 39。讀取客戶類別到數(shù)組 Arr_CustType()中 39。設(shè)置 ComboType 的顯示值， If OriType = Then 39。將顯示值恢復(fù)為原有數(shù)據(jù) If InCombo(OriType, ComboType) = True Then = OriType Else If 0 Then = 0 End If End If End If End Sub 5． 1． 5 客房信息編輯 Public Sub Refresh_Room() 39。保存客房類型的查詢條件 Dim sql2 As String 39。設(shè)置客戶類型的查詢條件，選擇全部時沒有查詢條件 If 0 Then sql1 = And =39。 Else sql1 = End If 39。返回查詢條件 sqlStr = sql1 + sql2 39。空房 39。預(yù)定 39。入住 39。退房 39。維修 39。房間編號 (1).Width = 1200 39。房間個數(shù) (3).Width = 1000 39。朝向 (5).Width = 1400 39。狀態(tài) (7).Width = 2021 39。判斷 ComboRtype 組合框 listindex，在數(shù)組 Arr_RoomType()得到對應(yīng)的類別編號 Dim sql1 As String 39。保存客房狀態(tài)的查詢條件 Dim sqlStr As String 39。 + Trim() + 39。設(shè)置客戶狀態(tài)的查詢條件，選擇全部時沒有查詢條件 If 0 Then sql2 = And = + Trim( 1) Else sql2 = End If 39。strSql 表示設(shè)置的查詢條件 = Conn = SELECT As 房間編號 , as 房間類型 , _ + as 房間個數(shù) , as 床位數(shù)量 , as 朝向 , _ + as 價格 , (CASE When 0 Then 39。 _ + When 1 Then 39。 When 2 Then 39。 When 3 Then 39。 Else 39。 End) As 狀態(tài) , _ + as 物品清單 FROM Room r, RoomType t WHERE = _ + sqlStr + ORDER BY Set = Adodc2 (0).Width = 1000 39。房間類型 (2).Width = 1000 39。床位個數(shù) (4).Width = 800 39。價格 (6).Width = 800 39。物品清單 End Sub 5． 1． 7 客房狀態(tài)信息編輯窗體 Private Sub Cmd_Change_Click() 39。如果狀態(tài)被選中，則其值為 true For i = 0 To 1 If Option1(i).Value Then iStatus = i Exit For End If Next 39。判斷主要域是否為空，其中客房編號、客房類型、價格必須輸入 If Trim() = Then MsgBox 請輸入客房編號 Exit Sub End If If Trim() = Then MsgBox 請輸入客房類型 Exit Sub End If If Trim() = Then MsgBox 請輸入客房價格 Exit Sub End If With MyRoom .RoomNo = MakeStr() 39?？辗?、入住、預(yù)留、退房、維修 If Trim() = 空房 Then .Status = 0 ElseIf Trim() = 預(yù)留 Then .Status = 1 ElseIf Trim() = 入住 Then .Status = 2 ElseIf Trim() = 退房 Then .Status = 3 Els