【正文】 7).Width = 2021 39。朝向 (5).Width = 1400 39。房間個數(shù) (3).Width = 1000 39。房間編號 (1).Width = 1200 39。維修 39。退房 39。入住 39。預定 39?？辗?39。返回查詢條件 sqlStr = sql1 + sql2 39。 Else sql1 = End If 39。設(shè)置客戶類型的查詢條件，選擇全部時沒有查詢條件 If 0 Then sql1 = And =39。保存客房類型的查詢條件 Dim sql2 As String 39。物品清單 End Sub 5． 1． 6 客房信息管理窗體 Public Sub Refresh_Room() 39。價格 (6).Width = 800 39。床位個數(shù) (4).Width = 800 39。房間類型 (2).Width = 1000 39。 End) As 狀態(tài) , + as 物品清單 FROM Room r, RoomType t WHERE = _ + sqlStr + ORDER BY Set = Adodc2 (0).Width = 1000 39。 Else 39。 When 3 Then 39。 When 2 Then 39。 _ + When 1 Then 39。strSql 表示設(shè)置的查詢條件 = Conn = SELECT As 房間編號 , as 房間類型 , _ + as 房間個數(shù) , as 床位數(shù)量 , as 朝向 , _ + as 價格 , (CASE When 0 Then 39。設(shè)置客戶狀態(tài)的查詢條件，選擇全部時沒有查詢條件 If 0 Then sql2 = And = + Trim( 1) Else sql2 = End If 39。 + Trim() + 39。保存客房狀態(tài)的查詢條件 Dim sqlStr As String 39。判斷 ComboRtype 組合框 listindex，在數(shù)組 Arr_RoomType()得到對應(yīng)的類別編號 Dim sql1 As String 39。如果沒有原值，則顯示第 1 條記錄值 If 0 Then = 0 End If Else 39。依次把數(shù)組 Arr_CustType()中的數(shù)據(jù)添加到 ComboType 組合框中 i = 0 Do While Arr_CustType(i) Arr_CustType(i) i = i + 1 Loop 39。判斷當前客戶是否存在 If .In_DB(.TypeName) = True Then MsgBox 當前房間類型已經(jīng)存在 Exit Sub End If End If .Update (OriTypeId) End If End With Unload Me End Sub Private Sub Loadtype() Dim i As Integer i = 0 39。Modify=False 表示當前為插入新數(shù)據(jù)狀態(tài)；否則為修改數(shù)據(jù)狀態(tài) If Modify = False Then 39。==獨立衛(wèi)生間 .Toilet = 1 Else .Toilet = 0 End If If = True Then 39。==電話 .Tel = 1 Else .Tel = 0 End If If = True Then 39。==床位數(shù)量 If = True Then 39。==客房類型 .RoomNum = Val(txtRnum) 39?？头款愋汀⒎块g數(shù)量、床位數(shù)量是必須輸入的 If Trim(txtRtype) = Then MsgBox 請輸入客房類型 Exit Sub End If If Trim(txtRnum) = Then MsgBox 請輸入房間數(shù)量 Exit Sub End If If Trim(txtBnum) = Then MsgBox 請輸入床位數(shù)量 Exit Sub End If 39。 客戶信息管理窗體 5． 1． 3 客房類型信息編輯窗體 Private Sub Cmd_OK_Click() 39。 基本信息模塊設(shè)計 基本信息模塊管理模塊包括客戶信息管理，客房類型管理和客房信息管理。如果不能通過身份驗證，則不能進入系統(tǒng)。打開主窗體的設(shè)計窗口，選擇“工具“菜單”項中的“菜單編輯器”，對菜單內(nèi)容進行編輯，設(shè)置菜單項的屬性。關(guān)閉登錄對話框 Unload Me End Sub Private Sub Form_Load() End Sub 主界面設(shè)計 主窗體是工程的啟動對象，可以在系統(tǒng)菜單中選擇“工程” /“屬性”，打開屬性窗口設(shè)置啟動對象。判斷密碼是否正確 (NameKey) If PasswordKey Then MsgBox 密碼錯誤 Try_times = Try_times + 1 If Try_times = 3 Then MsgBox 您已經(jīng)三次嘗試進入本系統(tǒng)，均不成功，系統(tǒng)將關(guān)閉 DBapi_Disconnect End Else Exit Sub End If End If 39。數(shù)據(jù)有效性檢查 If txtUser = Then MsgBox 請輸入用戶名 Exit Sub End If If txtPwd = Then MsgBox 請輸入密碼 Exit Sub End If NameKey = MakeStr(txtUser) PasswordKey = MakeStr(txtPwd) 39。登錄成功后將顯示系統(tǒng)主界面。 （ 9）、用戶信息表 Users， 包括 username（用戶名，主鍵）、 empname（員工姓名）、 userpwd（密碼）、 usertype（用戶類 型： 1 表示領(lǐng)班用戶， 2 表示普通用戶）。 （ 7）、入住登記信息表 Registration， 包括 regld（記錄編號，主鍵）、 cultld（客戶編號）、 roomno（客房編號）、 indate（入住日期）、 leavedate（退房日期）、 days（入住天數(shù)）、 price（單價）、 rate（折扣）、 otherfee（其他收費金額）、 firstfee（押金）、 memo（其它說明）、 status（入住登記記錄的狀態(tài)：1 表示入住， 2 表示退房， 3 表示結(jié)款）、 username（經(jīng)辦人）。 （ 4）、客房預定信息表 OrderRoom， 包括 orderld（記錄編號，主鍵）、 custld（入住客戶編號）、 firstpay（押金）、 orderdate（預定日期）、 username（經(jīng)辦人）。 （ 2）、客房類型表 RoomType， 包括 typeld（類型編號，主鍵）、 typename（類型名稱）、 roomnum（房間數(shù)量）、 bednum（床位數(shù)量）、 airconditioning（是否有空調(diào)）、 tel（是否有電話）、 tv（是否有電視）、 toilet（是否有獨立衛(wèi)生間） 、 icebox（是否有冰箱）。 系統(tǒng)流程分析如圖 第四章 數(shù)據(jù)庫系統(tǒng)功能模塊設(shè)計????? ????????? 16 4． 1 數(shù)據(jù)庫結(jié)構(gòu)設(shè)計 A dm i n 用戶 普通用戶 1 系統(tǒng)的所有其他功能 用戶登錄 開 始 讀取用戶類型 成功 失敗 失敗超過 3 次 是 退出程序 否 重試 領(lǐng)班用戶 ① 管理自己的用戶信息 ② 管理領(lǐng)班用戶的用戶信息 ③ 管理普通用戶的用戶信息 3 普通用戶管理模塊 ① 管理自己的用戶信息 ② 管理普通用戶的用戶信息 管理自己的用戶信息 用戶管理模塊 賓館酒店管理模塊 2 領(lǐng)班用戶管理模塊 賓館酒店管理系統(tǒng)數(shù)據(jù)庫包含 8 個表，即客戶信息表 Customer、客房類型表RoomType、客房信息表 Room、客房預定信息表 OrderRoom、預定客房登記表 OrderList、入住登記信息表 Registration、實結(jié)房款信息表 PayforRoom 和用戶信息表 Users。在某種意義上，賓館客房管理方面的信息化已成為現(xiàn)代化賓館的重要標志。 雖然計算機管理并不是賓館管理走向成功的關(guān)鍵元素，但它可以最大限度地發(fā)揮準確、快捷、高效等作用，對賓館的服務(wù)管理提供強有力的支持。酒店上網(wǎng)業(yè)務(wù)提高了賓館酒店的知名度以及服務(wù)檔次，在為顧客提供優(yōu)質(zhì)服務(wù)的同時，在增加了其自身的效益。系統(tǒng)中的各業(yè)務(wù)管 理模塊既可單機獨立運行，也可在服務(wù)器 /工作站組成的局域網(wǎng)絡(luò)平臺上聯(lián)網(wǎng)運行。著重敘述了前臺管理和系統(tǒng)維護這兩個功能模塊的功能實現(xiàn)，這些模塊基本上滿足了用戶（酒店）在客房管理，餐飲管理等方面的需求。結(jié)合先進的計算機技術(shù)，采用 VISUAL BASIC 和 SQL Server2021開發(fā)而成。 客房信息管理 基本信息管理 預定客房管理 入住登記管理 續(xù)住登記管理 退房登記管理 系統(tǒng)用戶管理 用戶信息管理 前臺接待管理 實收房款管理 前臺接待管理 客戶消費統(tǒng)計 實收款統(tǒng)計 切換用戶