mima.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 = "mima"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 name  Varchar 40  用户名
'2 passer Varchar 40  密码
'3 User_type Varchar 1-4  权限
Public name As String
Public passer As String
Public User_type As Integer

Public Sub Init()
  name = ""
  passer = ""
  User_type = 0
End Sub

'删除mima数据
Public Sub Delete(ByVal TmpUser As String)
  If TmpUser = "Admin" Then
    Exit Sub
  End If
  
  SqlStmt = "DELETE FROM mima WHERE name='" _
          + Trim(TmpUser) + "'"
  SQLExt (SqlStmt)
  
                           '添加系统日志信息
  MyLog.Title = "成员姓名:" + Trim(FrmUserMan.Caption) 'Trim(name)
  MyLog.Body = "删除用户记录"
  MyLog.LogType = "删除"
  MyLog.UserName = CurUser.name
  MyLog.Save
End Sub

Public Function GetInfo(ByVal TmpUser As String) As Boolean

   Dim rs As New ADODB.Recordset
  name = TmpUser
  
  SqlStmt = "SELECT * FROM mima WHERE name='" + Trim(TmpUser) + "'"
  Set rs = QueryExt(SqlStmt)
  If rs.EOF Then
    Init
    GetInfo = False
    Exit Function
  Else
    passer = Trim(rs.Fields(1))
    User_type = rs.Fields(2)
    GetInfo = True
  End If
End Function

Public Function In_DB(ByVal TmpUser As String) As Boolean
  Dim rs As New ADODB.Recordset
  SqlStmt = "SELECT * FROM mima WHERE name='" _
          + Trim(TmpUser) + "'"
  Set rs = QueryExt(SqlStmt)
  If Not rs.EOF Then
    In_DB = True
  Else
    In_DB = False
  End If
End Function

Public Sub Insert()

  SqlStmt = "INSERT INTO mima Values('" + Trim(name) + "','" + Trim(passer) _
     + "'," + Trim(Str(User_type)) + ")"
  SQLExt (SqlStmt)

End Sub
'更改用户信息
Public Sub Update(ByVal TmpUser As String)

    SqlStmt = "Update mima Set name='" + Trim(name) _
          + "',passer='" + Trim(passer) + "',User_type=" + Trim(Str(User_type)) _
          + " WHERE name='" + Trim(TmpUser) + "'"
  SQLExt (SqlStmt)
End Sub

'更改用户密码
Public Sub UpdatePassword(ByVal TmpUser As String)
  SqlStmt = "Update mima Set passer='" + Trim(passer) _
          + "' WHERE name='" + Trim(TmpUser) + "'"
  SQLExt (SqlStmt)
End Sub
Public Sub LoadUsers()
  Erase Arr_User  '清空数组
  ReDim Arr_User(0) '重新定义数组
   
  Dim rs As New ADODB.Recordset

  SqlStmt = "SELECT name FROM mima ORDER BY name"
  Set rs = QueryExt(SqlStmt)  '读取所有用户名
  i = 0
  Do While Not rs.EOF    '将所有用户名放入数组中
    ReDim Preserve Arr_User(i + 1)
    Arr_User(i) = Trim(rs.Fields(0))
    rs.MoveNext
    i = i + 1
  Loop
End Sub