VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "PayforRoom"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 RegId int  登記編號
'2 Amount  int  結款金額（如果結款金額為負，則表示退款）
'3 UserName  varchar(40)  收款人
'4 OptTime Varchar 20 收款日期時間

Public RegId As Integer
Public Amount As Single
Public UserName As String
Public OptTime As String

Public Sub Init()
  RegId = 0
  Amount = 0
  UserName = ""
  OptTime = ""
End Sub

'刪除
Public Sub Delete(ByVal TmpId As String)
  SqlStmt = "DELETE FROM PayforRoom WHERE RegId=" + Trim(TmpId)
  SQLExt (SqlStmt)
End Sub

'插入結款記錄
Public Sub Insert()
  SqlStmt = "INSERT INTO PayforRoom VALUES(" + Trim(RegId) + "," _
          + Trim(Amount) + ",'" + Trim(UserName) + "','" + Trim(OptTime) _
          + "')"
  SQLExt (SqlStmt)
End Sub