privilege.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 = "Privilege"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1   UserId  number  用户编号
'2   PrivAdd number 1    添加房间信息权限标记
'3   PrivModi    number 1    修改房间信息权限标记
'4   PrivDel number 1    删除房间信息权限标记

Public UserId As Integer
Public PrivAdd As Integer
Public PrivModi As Integer
Public PrivDel As Integer

Public Sub Init()
  UserId = 0
  PrivAdd = 0
  PrivModi = 0
  PrivDel = 0
End Sub

Public Sub GetInfo(ByVal TmpId As Integer)
  Dim rs As New ADODB.Recordset
  If TmpId <= 0 Then
    Init
    Exit Sub
  End If
  
  SQLstmt = "SELECT * FROM Privilege WHERE UserId=" + Trim(TmpId)
  Set rs = QueryExt(SQLstmt)
  If rs.EOF = True Then
    Init
  Else
    UserId = rs.Fields(0)
    PrivAdd = rs.Fields(1)
    PrivModi = rs.Fields(2)
    PrivDel = rs.Fields(3)
  End If
End Sub

Public Function In_DB(ByVal TmpId As Integer) As Boolean
  Dim rs As New ADODB.Recordset
  
  SQLstmt = "SELECT * FROM Privilege WHERE UserId=" + Trim(TmpId)
  Set rs = QueryExt(SQLstmt)
  If rs.EOF = False Then
    In_DB = True
  Else
    In_DB = False
  End If
End Function

Public Sub Insert()
  SQLstmt = "INSERT INTO Privilege VALUES(" + Trim(UserId) + "," _
            + Trim(Str(PrivAdd)) + "," + Trim(Str(PrivModi)) + "," _
            + Trim(Str(PrivDel)) + ")"
  SQLExt (SQLstmt)
  
  '记录日志
  With MyLog
  .Title = "插入权限记录"
  .Body = "用户编号:" + Trim(UserId)
  .LogType = 3
  .Save
  End With
End Sub

'更新地域数据
Public Sub Update(ByVal TmpUser As Integer)
  SQLstmt = "UPDATE Privilege SET PrivAdd=" + Trim(Str(PrivAdd)) _
          + ",PrivModi=" + Trim(Str(PrivModi)) + ",PrivDel=" + Trim(Str(PrivDel)) _
          + " WHERE UserId=" + Trim(TmpUser)
  SQLExt (SQLstmt)

  '记录日志
  With MyLog
  .Title = "修改权限记录"
  .Body = "用户编号:" + Trim(TmpUser)
  .LogType = 3
  .Save
  End With
End Sub