payforroom.cls

来自「Oracle 10g数据库Java开发 源码」· CLS 代码 · 共 45 行

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 number  登记编号
'2 Amount  number  结款金额（如果结款金额为负，则表示退款）
'3 UserId  number  收款人
'4 OptTime varchar2 20 收款日期时间

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

Public Sub Init()
  RegId = 0
  Amount = 0
  UserId = 0
  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(UserId) + ",'" + Trim(OptTime) _
          + "')"
  SQLExt (SqlStmt)
End Sub