users.cls

我只是个对编程有着浓厚兴趣的初学者

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 UserName  Varchar 40  用户名
'2 EmpId int 员工编号
'3 UserPwd Varchar 40  密码
'4 UserType Varchar 2000 用户类型
'用户类型为：系统管理员、人事专员、
'培训管理员、车辆管理员、会议室管理员、
'资料管理员、客户管理员、客户代表、库存管理员
'订单管理员、采购管理员
Public UserName As String
Public EmpId As Integer
Public UserPwd As String
Public UserType As String

Public Sub Init()
  UserName = ""
  EmpId = 0
  UserPwd = ""
  UserType = ""
End Sub

'删除Users数据
Public Sub Delete(ByVal TmpUser As String)
  SQLstmt = "DELETE FROM Users WHERE UserName='" _
          + Trim(TmpUser) + "'"
  SQLExt (SQLstmt)
End Sub

Public Function GetInfo(ByVal TmpUser As String) As Boolean
  UserName = TmpUser
  Dim rs As New ADODB.Recordset
  
  SQLstmt = "SELECT * FROM Users WHERE UserName='" _
          + Trim(TmpUser) + "'"
  Set rs = QueryExt(SQLstmt)
  If rs.EOF Then
    GetInfo = False
    Exit Function
  Else
    If IsNull(rs.Fields(1)) Then
      EmpId = 0
    Else
      EmpId = rs.Fields(1)
    End If
    If IsNull(rs.Fields(2)) Then
      UserPwd = ""
    Else
      UserPwd = Trim(rs.Fields(2))
    End If
    If IsNull(rs.Fields(3)) Then
      UserType = ""
    Else
      UserType = Trim(rs.Fields(3))
    End If
  End If

  GetInfo = True
End Function
'判断用户名是否存在
Public Function In_DB(ByVal TmpUser As String) As Boolean
  Dim rs As New ADODB.Recordset
  SQLstmt = "SELECT * FROM Users WHERE UserName='" _
          + Trim(TmpUser) + "'"
  Set rs = QueryExt(SQLstmt)
  If Not rs.EOF Then
    In_DB = True
  Else
    In_DB = False
  End If
End Function

'判断此员工是否存在用户名
Public Function EmpIn_DB(ByVal TmpEmpId As Integer) As Boolean
  Dim rs As New ADODB.Recordset
  SQLstmt = "SELECT * FROM Users WHERE EmpId=" _
          + Trim(TmpEmpId)
  Set rs = QueryExt(SQLstmt)
  If Not rs.EOF Then
    EmpIn_DB = True
  Else
    EmpIn_DB = False
  End If
End Function

Public Sub Insert()
  SQLstmt = "INSERT INTO Users Values('" _
     + Trim(UserName) + "'," + Trim(EmpId) + ",'" _
     + Trim(UserPwd) + "','" + Trim(UserType) + "')"
  SQLExt (SQLstmt)
End Sub

'将用户密码初始化为111111
Public Sub ResetPassword(ByVal TmpUser As String)
  SQLstmt = "Update Users Set UserPwd='111111' WHERE UserName='" + Trim(TmpUser) + "'"
  SQLExt (SQLstmt)
End Sub

Public Sub Update(ByVal TmpUser As String)
  SQLstmt = "Update Users Set UserName='" + Trim(UserName) _
          + "',UserPwd='" + Trim(UserPwd) _
          + "',EmpId=" + Trim(EmpId) + ",UserType='" + Trim(UserType) _
          + "' WHERE UserName='" + Trim(TmpUser) + "'"
  SQLExt (SQLstmt)
End Sub

Public Sub UpdatePassword(ByVal TmpUser As String)
  SQLstmt = "Update Users Set UserPwd='" + Trim(UserPwd) _
          + "' WHERE UserName='" + Trim(TmpUser) + "'"
  SQLExt (SQLstmt)
End Sub

'根据用户名取得此员工的姓名
Public Function GetEmpName(ByVal TmpUser As String) As String
  Dim rs As New ADODB.Recordset
  SQLstmt = "SELECT e.EmpName FROM Users u,Employees e " _
      + " WHERE u.UserName='" + Trim(TmpUser) _
      + "' AND u.EmpId=e.EmpId"
  Set rs = QueryExt(SQLstmt)
  If Not rs.EOF Then
    GetEmpName = Trim(rs.Fields(0))
  Else
    GetEmpName = ""
  End If
End Function

'根据用户名取得此员工的部门名称
Public Function GetDepName(ByVal TmpUser As String) As String
  Dim rs As New ADODB.Recordset
  SQLstmt = "SELECT d.DepName FROM Users u,Employees e,Departments d " _
      + " WHERE u.UserName='" + Trim(TmpUser) _
      + "' AND u.EmpId=e.EmpId AND e.DepId=d.DepId"
  Set rs = QueryExt(SQLstmt)
  If Not rs.EOF Then
    GetDepName = Trim(rs.Fields(0))
  Else
    GetDepName = ""
  End If
End Function