【文章內(nèi)容簡介】 rue Then 39。==獨(dú)立衛(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 MeEnd Sub5．1．4客房類型管理窗體設(shè)計(jì)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 IfEnd Sub5．1．5客房信息編輯Public Sub Refresh_Room() 39。判斷ComboRtype組合框listindex，在數(shù)組Arr_RoomType()得到對應(yīng)的類別編號(hào) Dim sql1 As String 39。保存客房類型的查詢條件 Dim sql2 As String 39。保存客房狀態(tài)的查詢條件 Dim sqlStr As String 39。設(shè)置客戶類型的查詢條件，選擇全部時(shí)沒有查詢條件 If 0 Then sql1 = And =39。 + Trim() + 39。 Else sql1 = End If 39。設(shè)置客戶狀態(tài)的查詢條件，選擇全部時(shí)沒有查詢條件 If 0 Then sql2 = And = + Trim( 1) Else sql2 = End If 39。返回查詢條件 sqlStr = sql1 + sql2 39。strSql表示設(shè)置的查詢條件 = Conn = SELECT As 房間編號(hào), as 房間類型, _ + as 房間個(gè)數(shù), as 床位數(shù)量, as 朝向, _ + as 價(jià)格, (CASE When 0 Then 39?？辗?9。 _ + 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。房間編號(hào) (1).Width = 1200 39。房間類型 (2).Width = 1000 39。房間個(gè)數(shù) (3).Width = 1000 39。床位個(gè)數(shù) (4).Width = 800 39。朝向 (5).Width = 1400 39。價(jià)格 (6).Width = 800 39。狀態(tài) (7).Width = 2000 39。物品清單End Sub5．1．6客房信息管理窗體Public Sub Refresh_Room() 39。判斷ComboRtype組合框listindex，在數(shù)組Arr_RoomType()得到對應(yīng)的類別編號(hào) Dim sql1 As String 39。保存客房類型的查詢條件 Dim sql2 As String 39。保存客房狀態(tài)的查詢條件 Dim sqlStr As String 39。設(shè)置客戶類型的查詢條件，選擇全部時(shí)沒有查詢條件 If 0 Then sql1 = And =39。 + Trim() + 39。 Else sql1 = End If 39。設(shè)置客戶狀態(tài)的查詢條件，選擇全部時(shí)沒有查詢條件 If 0 Then sql2 = And = + Trim( 1) Else sql2 = End If 39。返回查詢條件 sqlStr = sql1 + sql2 39。strSql表示設(shè)置的查詢條件 = Conn = SELECT As 房間編號(hào), as 房間類型, _ + as 房間個(gè)數(shù), as 床位數(shù)量, as 朝向, _ + as 價(jià)格, (CASE When 0 Then 39?？辗?9。 _ + 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。房間編號(hào) (1).Width = 1200 39。房間類型 (2).Width = 1000 39。房間個(gè)數(shù) (3).Width = 1000 39。床位個(gè)數(shù) (4).Width = 800 39。朝向 (5).Width = 1400 39。價(jià)格 (6).Width = 800 39。狀態(tài) (7).Width = 2000 39。物品清單End Sub5．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 MeEnd Sub5．1．8客房信息編輯窗體Private Sub Cmd_OK_Click() 39。判斷主要域是否為空，其中客房編號(hào)、客房類型、價(jià)格必須輸入 If Trim() = Then MsgBox 請輸入客房編號(hào) Exit Sub End If If Trim() = Then MsgBox 請輸入客房類型 Exit Sub End If If Trim() = Then MsgBox 請輸入客房價(jià)格 Exit Sub End If With MyRoom .RoomNo = MakeStr() 39。 .TypeId = Val() .Position = MakeStr() .ObjList = MakeStr() .Price = Val() 39?？辗?、入住、預(yù)留、退房、維修 If Trim() = 空房 Then .Status = 0 ElseIf Trim() = 預(yù)留 Then .Status = 1 ElseIf Trim() = 入住 Then .Status = 2 ElseIf Trim() = 退房 T