syslog.cls

Oracle 10g数据库Java开发 源码

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)
   '连接数据库的Connection对象
  Dim cnn1 As ADODB.Connection
  '创建Command对象cmd
  Dim cmd As New ADODB.Command
  '创建Parameter对象prm
  Dim prm As New ADODB.Parameter
  '========连接到数据库========
  '关键New用于创建新对象cnn
  Set cnn1 = New ADODB.Connection
  '设置连接字符串ConnectionString属性
  cnn1.ConnectionString = "DSN=" + DSN + ";UID=" + DB_USER_NAME _
                       + ";PWD=" + DB_PASSWORD + ";"
  '打开到数据库的连接
  cnn1.Open
  '判断连接的状态
  If cnn1.State <> adStateOpen Then
    '如果连接不成功，则显示提示信息，退出程序
    MsgBox "数据库连接失败"
    End
  End If
  '设置参数类型
  prm.Type = adInteger
  '设置参数长度
  prm.Size = 3
  '设置参数方向，输入或输出
  prm.Direction = adParamInput
  '设置参数值
  prm.Value = TmpId
  '设置cmd的ActiveConnection属性，指定与其关联的数据库连接
  Set cmd.ActiveConnection = cnn1
  '设置命令的类型为存储过程
  cmd.CommandType = adCmdStoredProc
  '设置要执行的存储过程
  cmd.CommandText = "DeleteById"
  '添加参数
  cmd.Parameters.Append prm
  '执行命令
  cmd.Execute
  '断开连接
  cnn1.Close
  '清空cnn1对象
  Set cnn1 = Nothing
  '清空cmd对象
  Set cmd = Nothing
End Sub

Public Sub DeleteAll()
   '连接数据库的Connection对象
  Dim cnn1 As ADODB.Connection
  '创建Command对象cmd
  Dim cmd As New ADODB.Command
  '========连接到数据库========
  '关键New用于创建新对象cnn
  Set cnn1 = New ADODB.Connection
  '设置连接字符串ConnectionString属性
  cnn1.ConnectionString = "DSN=" + DSN + ";UID=" + DB_USER_NAME _
                       + ";PWD=" + DB_PASSWORD + ";"
  '打开到数据库的连接
  cnn1.Open
  '判断连接的状态
  If cnn1.State <> adStateOpen Then
    '如果连接不成功，则显示提示信息，退出程序
    MsgBox "数据库连接失败"
    End
  End If
  '设置cmd的ActiveConnection属性，指定与其关联的数据库连接
  Set cmd.ActiveConnection = cnn1
  '设置命令的类型为存储过程
  cmd.CommandType = adCmdStoredProc
  '设置要执行的存储过程
  cmd.CommandText = "DeleteAll"
  '执行命令
  cmd.Execute
  '断开连接
  cnn1.Close
  '清空cnn1对象
  Set cnn1 = Nothing
  '清空cmd对象
  Set cmd = Nothing
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