VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Room"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1   RoomNo  Varchar 10 房間編號
'2   TypeId  int  房間類型編號
'3   Position    Varchar 100    房間朝向
'4   ObjList Varchar 400    房間中所有物品的列表
'5   Price   int 8,2  標準價格（會員可在此基礎上打折）
'6   Status  int 1    房間當前狀態（0  空房，1  預定，2  入住，3 退房，4 維修）

Public RoomNo As String
Public TypeId As Integer
Public Position As String
Public ObjList As String
Public Price As Single
Public Status As Integer

Public Sub Init()
  RoomNo = 0
  BookName = ""
  TypeId = 0
  Position = 0
  ObjList = ""
  Ptimes = ""
  Price = 0
  Status = 0
  BStatus = 0
End Sub

'刪除Room數據
Public Sub Delete(ByVal TmpRoomNo As String)
  SqlStmt = "Delete FROM Room WHERE RoomNo='" + Trim(TmpRoomNo) + "'"
  SQLExt (SqlStmt)
End Sub

'得到當前房間狀態
Public Function GetStatus(ByVal TmpRoomNo As String) As String
  Dim rs As New ADODB.Recordset
  
  '設置SELECT語句
  SqlStmt = "SELECT Status FROM Room WHERE RoomNo='" + Trim(TmpRoomNo) + "'"
  '將結果集讀取到rs中
  Set rs = QueryExt(SqlStmt)

  If rs.EOF = True Then
    '如果結果集為空，則初始化
    Init
    GetStatus = -1
  Else
    '將結果集中的數據賦值到成員變量中
    GetStatus = rs.Fields(0)
  End If
End Function

Public Function GetInfo(ByVal TmpRoomNo As String) As Boolean
  Dim rs As New ADODB.Recordset
  
  If TmpRoomNo = "" Then
    Init
    GetInfo = False
    Exit Function
  End If
  '設置SELECT語句
  SqlStmt = "SELECT * FROM Room WHERE RoomNo='" + Trim(TmpRoomNo) + "'"
  '將結果集讀取到rs中
  Set rs = QueryExt(SqlStmt)

  If rs.EOF = True Then
    '如果結果集為空，則初始化
    Init
    GetInfo = False
  Else
    '將結果集中的數據賦值到成員變量中
    If IsNull(rs.Fields(0)) Then
      RoomNo = ""
    Else
      RoomNo = rs.Fields(0)
    End If
    If IsNull(rs.Fields(1)) Then
      TypeId = 1
    Else
      TypeId = rs.Fields(1)
    End If
    If IsNull(rs.Fields(2)) Then
      Position = ""
    Else
      Position = rs.Fields(2)
    End If
    If IsNull(rs.Fields(3)) Then
      ObjList = ""
    Else
      ObjList = rs.Fields(3)
    End If
    If IsNull(rs.Fields(4)) Then
      Price = 0
    Else
      Price = rs.Fields(4)
    End If
     
    Status = rs.Fields(5)
    
    GetInfo = True
  End If
End Function

'判斷指定的房間類型中是否包含具體的房間
Public Function HaveRoom(ByVal TmpTypeId As Long) As Boolean
  Dim rs As New ADODB.Recordset
  
  SqlStmt = "SELECT RoomNo FROM Room WHERE TypeId=" _
          + Trim(Str(TmpTypeId))
  Set rs = QueryExt(SqlStmt)
  If rs.EOF = True Then
    HaveRoom = False
  Else
    HaveRoom = True
  End If
End Function

Public Function In_DB(ByVal TmpRoomNo As String) As Boolean
  Dim rs As New ADODB.Recordset
  
  SqlStmt = "SELECT RoomNo FROM Room WHERE RoomNo='" + Trim(TmpRoomNo) + "'"
  Set rs = QueryExt(SqlStmt)
  If rs.EOF = True Then
    In_DB = False
  Else
    In_DB = True
  End If
End Function

Public Sub Insert()
  '設置INSERT語句
  SqlStmt = "INSERT INTO Room Values('" + Trim(RoomNo) + "'," _
     + Trim(TypeId) + ",'" + Trim(Position) + "','" + Trim(ObjList) _
     + "'," + Trim(Price) + "," + Trim(Status) + ")"
  '執行SQL語句
  SQLExt (SqlStmt)
End Sub

Public Sub Update(ByVal OriRoomNo As String)
  '設置UPDATE語句
  SqlStmt = "Update Room Set RoomNo='" + Trim(RoomNo) _
          + "', TypeId=" + Trim(TypeId) + ",ObjList='" _
          + Trim(ObjList) + "',Position='" + Trim(Position) _
          + "', Price=" + Trim(Price) + ",Status=" + Trim(Status) + " WHERE RoomNo='" _
          + Trim(OriRoomNo) + "'"
  '執行SQL語句
  SQLExt (SqlStmt)
End Sub

'更新當前的房間狀態
Public Sub UpdateStatus(ByVal OriRoomNo As String)
  '設置UPDATE語句
  SqlStmt = "Update Room Set Status=" + Trim(Status) _
          + " WHERE RoomNo='" + Trim(OriRoomNo) + "'"
  '執行SQL語句
  SQLExt (SqlStmt)
End Sub

'批量更新房間狀態，根據預定編號（入住編號）
Public Sub UpdateListStatus(ByVal OrderId As Integer)
  '設置UPDATE語句，從表OrderList中選出OrderId等于此OrderId的所有客房編號
  SqlStmt = "Update Room Set Status=" + Trim(Status) _
          + " WHERE RoomNo IN (SELECT RoomNo FROM OrderList WHERE OrderId=" _
          + Trim(OrderId) + ")"
  '執行SQL語句
  SQLExt (SqlStmt)
End Sub