【文章內(nèi)容簡介】 Then MsgBox 請輸入房間數(shù)量 Exit Sub End If If Trim(txtBnum) = Then MsgBox 請輸入床位數(shù)量 Exit Sub End If 39。把用戶錄入的數(shù)據(jù)賦值到 MyRoomType 對象中，并保存到數(shù)據(jù)庫 With MyRoomType .TypeName = MakeStr() 39。==客房類型 .RoomNum = Val(txtRnum) 39。==房間數(shù)量 .Bednum = Val(txtBnum) 39。==床位數(shù)量 If = True Then 39。==空調(diào) .AirConditioning = 1 Else .AirConditioning = 0 End If If = True Then 39。==電話 .Tel = 1 Else .Tel = 0 End If If = True Then 39。==電視 .Tv = 1 Else .Tv = 0 End If If = True Then 39。==獨立衛(wèi)生間 .Toilet = 1 Else .Toilet = 0 End If If = True Then 39。==冰箱 .IceBox = 1 Else .IceBox = 0 End If 39。Modify=False 表示當(dāng)前為插入新數(shù)據(jù)狀態(tài)；否則為修改數(shù)據(jù)狀態(tài) If Modify = False Then 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。判斷當(dāng)前客戶是否存在 If .In_DB(.TypeName) = True Then MsgBox 當(dāng)前房間類型已經(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。讀取客戶類別到數(shù)組 Arr_CustType()中 39。依次把數(shù)組 Arr_CustType()中的數(shù)據(jù)添加到 ComboType 組合框中 i = 0 Do While Arr_CustType(i) Arr_CustType(i) i = i + 1 Loop 39。設(shè)置 ComboType 的顯示值， If OriType = Then 39。如果沒有原值，則顯示第 1 條記錄值 If 0 Then = 0 End If Else 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。判斷 ComboRtype 組合框 listindex，在數(shù)組 Arr_RoomType()得到對應(yīng)的類別編號 Dim sql1 As String 39。保存客房類型的查詢條件 Dim sql2 As String 39。保存客房狀態(tài)的查詢條件 Dim sqlStr As String 39。設(shè)置客戶類型的查詢條件，選擇全部時沒有查詢條件 If 0 Then sql1 = And =39。 + Trim() + 39。 Else sql1 = End If 39。設(shè)置客戶狀態(tài)的查詢條件，選擇全部時沒有查詢條件 If 0 Then sql2 = And = + Trim( 1) Else sql2 = End If 39。返回查詢條件 sqlStr = sql1 + sql2 39。strSql 表示設(shè)置的查詢條件 = Conn = SELECT As 房間編號 , as 房間類型 , _ + as 房間個數(shù) , as 床位數(shù)量 , as 朝向 , _ + as 價格 , (CASE When 0 Then 39。空房 39。 _ + When 1 Then 39。預(yù)定 39。 When 2 Then 39。入住 39。 When 3 Then 39。退房 39。 Else 39。維修 39。 End) As 狀態(tài) , + as 物品清單 FROM Room r, RoomType t WHERE = _ + sqlStr + ORDER BY Set = Adodc2 (0).Width = 1000 39。房間編號 (1).Width = 1200 39。房間類型 (2).Width = 1000 39。房間個數(shù) (3).Width = 1000 39。床位個數(shù) (4).Width = 800 39。朝向 (5).Width = 1400 39。價格 (6).Width = 800 39。狀態(tài) (7).Width = 2021 39。物品清單 End Sub 5． 1． 6 客房信息管理窗體 Public Sub Refresh_Room() 39。判斷 ComboRtype 組合框 listindex，在數(shù)組 Arr_RoomType()得到對應(yīng)的類別編號 Dim sql1 As String 39。保存客房類型的查詢條件 Dim sql2 As String 39。保存客房狀態(tài)的查詢條件 Dim sqlStr As String 39。設(shè)置客戶類型的查詢條件，選擇全部時沒有查詢條件 If 0 Then sql1 = And =39。 + Trim() + 39。 Else sql1 = End If 39。設(shè)置客戶狀態(tài)的查詢條件，選擇全部時沒有查詢條件 If 0 Then sql2 = And = + Trim( 1) Else sql2 = End If 39。返回查詢條件 sqlStr = sql1 + sql2 39。strSql 表示設(shè)置的查詢條件 = Conn = SELECT As 房間編號 , as 房間類型 , _ + as 房間個數(shù) , as 床位數(shù)量 , as 朝向 , _ + as 價格 , (CASE When 0 Then 39?？辗?39。 _ + When 1 Then 39。預(yù)定 39。 When 2 Then 39。入住 39。 When 3 Then 39。退房 39。 Else 39。維修 39。 End) As 狀態(tài) , _ + as 物品清單 FROM Room r, RoomType t WHERE = _ + sqlStr + ORDER BY Set = Adodc2 (0).Width = 1000 39。房間編號 (1).Width = 1200 39。房間類型 (2).Width = 1000 39。房間個數(shù) (3).Width = 1000 39。床位個數(shù) (4).Width = 800 39。朝向 (5).Width = 1400 39。價格 (6).Width = 800 39。狀態(tài) (7).Width = 2021 39。物品清單 End Sub 5． 1． 7 客房狀態(tài)信息編輯窗體 Private Sub Cmd_Change_Click() 39。更改狀態(tài) Dim iStatus As Integer 39。如果狀態(tài)被選中，則其值為 true For i = 0 To 1 If Option1(i).Value Then iStatus = i Exit For End If Next 39。更改狀態(tài)值 = iStatus (Trim()) Unload Me End Sub 5． 1． 8 客房信息編輯窗體 Private Sub Cmd_OK_Click() 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。 是當(dāng)前選擇房間類型的 TypeId 字段值 .TypeId = Val() .