onduty.cls

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

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "OnDuty"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1   Od_Id   Number  值班编号
'2   Od_Date Varchar2 10 值班日期
'3   Od_Time Varchar2 20 值班时间段
'4   Users   varchar2 200    用户编号

Public Od_Id As Integer
Public Od_Date As String
Public Od_Time As String
Public Users As String

Public Sub Init()
  Od_Id = 0
  Od_Date = ""
  Od_Time = ""
  Users = 0
End Sub

'删除
Public Sub Delete(ByVal TmpId As Integer)
  SqlStmt = "DELETE FROM OnDuty WHERE Od_Id=" + Trim(TmpId)
  SQLExt (SqlStmt)
End Sub

Public Sub Insert()
  SqlStmt = "INSERT INTO OnDuty Values( ODID.NEXTVAL,'" + Trim(Od_Date) _
          + "','" + Trim(Od_Time) + "','" + Trim(Users) + "')"
  SQLExt (SqlStmt)
End Sub

Public Sub Update(ByVal OriId As Integer)
  SqlStmt = "Update OnDuty Set Od_Date='" + Trim(Od_Date) + "', Od_Time='" _
          + Trim(Od_Time) + "', Users='" + Trim(Users) + "' WHERE Od_Id=" _
          + Trim(OriId)
  SQLExt (SqlStmt)
End Sub