VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Users"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1   UserId  Number  用戶編號
'2   UserName    Varchar2 40 用戶名
'3   UserType    Number 1    用戶類型（1  表示管理員用戶，2  表示普通用戶）
'4   Pwd Varchar2 40 密碼
'5   EmpName Varchar2 40 使用用戶的員工姓名

Public UserId As Integer
Public UserName As String
Public UserType As Integer
Public Pwd As String
Public EmpName As String

Public Sub Init()
  UserId = 0
  UserName = ""
  UserType = 0
  Pwd = ""
  EmpName = ""
End Sub

'刪除Users數據
Public Sub Delete(ByVal TmpId As Integer)
  '如果編號為1，則不能刪除Admin用戶
  If TmpId = 1 Then
    Exit Sub
  End If
  
  SQLstmt = "DELETE FROM Users WHERE UserId=" + Trim(TmpId)
  SQLExt (SQLstmt)
End Sub

Public Function GetInfo(ByVal TmpUser As String) As Boolean
  Dim rs As New ADODB.Recordset
  
  '設置SELECT語句，讀取編號為TmpId的記錄
  SQLstmt = "SELECT * FROM Users WHERE UserName='" + Trim(TmpUser) + "'"
  '將結果集讀取到rs中
  Set rs = QueryExt(SQLstmt)

  If rs.EOF = True Then
    '如果結果集為空，則初始化
    Init
    GetInfo = False
  Else
    '將結果集中的數據賦值到成員變量中
    '用戶編號
    If IsNull(rs.Fields(0)) Then
      UserId = 0
    Else
      UserId = rs.Fields(0)
    End If
    '用戶名
    If IsNull(rs.Fields(1)) Then
      UserName = ""
    Else
      UserName = rs.Fields(1)
    End If
    '用戶類型
    If IsNull(rs.Fields(2)) Then
      UserType = 0
    Else
      UserType = rs.Fields(2)
    End If
    '密碼
    If IsNull(rs.Fields(3)) Then
      Pwd = ""
    Else
      Pwd = rs.Fields(3)
    End If
    '員工姓名
    If IsNull(rs.Fields(4)) Then
      EmpName = ""
    Else
      EmpName = rs.Fields(4)
    End If
    GetInfo = True
  End If
End Function

Public Function In_DB(ByVal TmpUser As String) As Boolean
  Dim rs As New ADODB.Recordset
  '設置SELECT語句，讀取用戶名為TmpUser的記錄
  SQLstmt = "SELECT * FROM Users WHERE UserName='" + Trim(TmpUser) + "'"
  '將結果集讀取到rs中
  Set rs = QueryExt(SQLstmt)
  If rs.EOF = True Then
    '如果結果集為空，則表示用戶名為TmpUser的記錄不存在
    In_DB = False
  Else
    '否則，則表示用戶名為TmpUser的記錄存在
    In_DB = True
  End If
End Function

Public Sub Insert()
  SQLstmt = "INSERT INTO Users Values(USERID.NEXTVAL, '" _
          + Trim(UserName) + "'," + Trim(UserType) + ",'" _
          + Trim(Pwd) + "','" + Trim(EmpName) + "')"
  SQLExt (SQLstmt)
End Sub

Public Sub Update(ByVal TmpId As Integer)
  SQLstmt = "Update Users Set UserName='" + Trim(UserName) _
          + "',  UserType=" + Trim(UserType) + ", Pwd='" _
          + Trim(Pwd) + "', EmpName='" + Trim(EmpName) _
          + "' WHERE UserId=" + Trim(TmpId)
  SQLExt (SQLstmt)
End Sub