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)
End Sub

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