payforfood.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 = "PayforFood"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1   OrderNo Number  预定编号
'2   TableNo Varchar2 20 餐桌编号
'3   Amount  Number 8,2  结款金额
'4   UserId  Number  收款人
'5   OptTime Varchar2 20 收款日期时间

Public OrderNo As String
Public TableNo As String
Public Amount As Single
Public UserId As Integer
Public OptTime As String

Public Sub Init()
  OrderNo = ""
  TableNo = ""
  Amount = 0
  UserId = 0
  OptTime = ""
End Sub

'删除
Public Sub Delete(ByVal TmpNo As String)
  SqlStmt = "DELETE FROM PayforFood WHERE OrderNo='" + Trim(TmpNo) + "'"
  SQLExt (SqlStmt)
End Sub

Public Sub Insert()
  SqlStmt = "INSERT INTO PayforFood VALUES('" + Trim(OrderNo) + "'," _
          + Trim(Amount) + "," + Trim(UserId) + ",'" + Trim(OptTime) + "')"
  SQLExt (SqlStmt)
End Sub