syslog.cls

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

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "SysLog"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1   LogId   number  日志编号
'2   LogDate char 10 事件发生日期
'3   LogTime char 10 事件发生时间
'4   LogType number  事件类型
'5   Title   varchar2 100    事件标题
'6   Body    varchar2 500    事件内容
'7   UserId  number  操作用户编号
Private LogId As Long
Private LogDate As String
Private LogTime As String
Public LogType As Integer
Public Title As String
Public Body As String
Public UserId As Integer

Public Sub DeleteById(ByVal TmpId As Long)
  SQLstmt = "DELETE FROM SysLog WHERE LogId=" + Trim(Str(TmpId))
  SQLExt (SQLstmt)
End Sub

Public Sub DeleteAll()
  SQLstmt = "DELETE FROM SysLog WHERE LogId>0"
  SQLExt (SQLstmt)
End Sub

Public Sub Save()
  '读取系统日期和时间,并使用Format函数定义日期和时间的格式
  LogDate = Format(Date, "yyyy-mm-dd")
  LogTime = Format(Time, "hh:mm:ss")
  '用户编号自动设置为当前用户的编号
  UserId = CurUser.UserId
  '使用LOGID.NEXTVAL为字段LogId自动生成值
  SQLstmt = "INSERT INTO SysLog Values( LOGID.NEXTVAL, '" + Trim(LogDate) _
          + "','" + Trim(LogTime) + "'," + Trim(Str(LogType)) _
          + ",'" + Trim(Title) + "','" + Trim(Body) + "'," _
          + Trim(UserId) + ")"
  SQLExt (SQLstmt)
End Sub