VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "OrderRoom"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 OrderId int  預(yù)定編號(hào)，作為表OrderRoom的主鍵
'2 CustId Varchar 40 客戶編號(hào)
'3 FirstPay  int  押金
'4 OrderDate date  預(yù)定日期
'5 UserName  varchar(40)  經(jīng)辦人的用戶名

Public OrderId As Integer
Public CustId As String
Public FirstPay As Single
Public OrderDate As String
Public UserName As String

Public Sub Init()
  OrderId = 0
  CustId = ""
  FirstPay = 0
  InDate = ""
  OrderDate = ""
  UserName = ""
End Sub

'生成新的預(yù)定編號(hào)，規(guī)則是最大的編號(hào)加1
Public Function CreateNewId() As Long
  Dim rs As New ADODB.Recordset
  
  '設(shè)置SELECT語(yǔ)句
  SqlStmt = "Select Max(OrderId) FROM OrderRoom"
  '將結(jié)果集讀取到rs中
  Set rs = QueryExt(SqlStmt)

  If IsNull(rs.Fields(0)) Then
    '如果結(jié)果集為空，則初始化
    CreateNewId = 1
  Else
    CreateNewId = rs.Fields(0) + 1
  End If
End Function

'取消預(yù)定
Public Sub Delete(ByVal TmpId As Integer)
  '取消預(yù)定信息的同時(shí)刪除其詳細(xì)預(yù)定信息
  SqlStmt = "DELETE FROM OrderRoom WHERE OrderId=" + Trim(TmpId)
  SQLExt (SqlStmt)
End Sub

Public Function GetInfo(ByVal TmpId As Integer) As Boolean
  Dim rs As New ADODB.Recordset
  
  If TmpId <= 0 Then
    Init
    GetInfo = False
    Exit Function
  End If
  '設(shè)置SELECT語(yǔ)句
  SqlStmt = "SELECT * FROM OrderRoom WHERE OrderId='" + Trim(TmpId) + "'"
  '將結(jié)果集讀取到rs中
  Set rs = QueryExt(SqlStmt)

  If rs.EOF = True Then
    '如果結(jié)果集為空，則初始化
    Init
    GetInfo = False
  Else
    '將結(jié)果集中的數(shù)據(jù)賦值到成員變量中
    OrderId = rs.Fields(0)
    If IsNull(rs.Fields(1)) Then
      CustId = ""
    Else
      CustId = rs.Fields(1)
    End If
    If IsNull(rs.Fields(2)) Then
      FirstPay = 0
    Else
      FirstPay = rs.Fields(2)
    End If

    If IsNull(rs.Fields(3)) Then
      OrderDate = ""
    Else
      OrderDate = rs.Fields(3)
    End If
    UserName = Trim(rs.Fields(4))
    
    GetInfo = True
  End If
End Function

'插入新的記錄編號(hào)，其他記錄的保存為update
Public Sub Insert()
  SqlStmt = "INSERT INTO OrderRoom(OrderId, UserName) VALUES(" _
          + Trim(OrderId) + ",'" + Trim(UserName) + "')"
  SQLExt (SqlStmt)
End Sub

'更新預(yù)定信息
Public Sub Update(ByVal TmpId As Integer)
  SqlStmt = "UPDATE OrderRoom SET CustId='" + Trim(CustId) + "', FirstPay=" _
          + Trim(FirstPay) + ", OrderDate='" + Trim(OrderDate) _
          + "',UserName='" + Trim(UserName) + "' WHERE OrderId=" + Trim(TmpId)
  SQLExt (SqlStmt)
End Sub