users.cls

Visual Basic + Oracle 9i数据库应用系统开发与实例（企业购销存管理系统）界面简洁,数据库完整,还不错~适合学生利用和使用!

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 50  用户名
'2   Pwd Varchar 50  密码
'3   UserType    Tinyint 用户类型，1－系统管理员，2－采购管理员，3－销售管理员，4－库存管理员，5－财务管理员
'4   EmpName Varchar 50  员工姓名

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

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

'删除Users数据
Public Sub Delete(ByVal TmpUser As String)
  '不允许删除Admin用户
  If TmpUser = "Admin" Then
    Exit Sub
  End If
  '连接数据库
  DB_Connect
  '设置SQL语句，删除指定的记录
  SqlStmt = "DELETE FROM Users WHERE UserName='" _
          + Trim(TmpUser) + "'"
  '执行SQL语句
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  '断开与数据库的连接
  DB_Disconnect
End Sub

Public Function GetInfo(ByVal TmpUser As String) As Boolean
  UserName = TmpUser
  
  DB_Connect
  
  SqlStmt = "SELECT * FROM Users WHERE UserName='" _
          + Trim(TmpUser) + "'"
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) = SQL_NO_DATA_FOUND Then
    GetInfo = False
    Exit Function
  Else
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 2, 1, ColVal, Lench(ColVal), pcblen)
    Pwd = TrimStr(ColVal)
    
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 3, 1, ColVal, Lench(ColVal), pcblen)
    UserType = Val(ColVal)
    
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 4, 1, ColVal, Lench(ColVal), pcblen)
    EmpName = TrimStr(ColVal)
  End If
    
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  GetInfo = True
  DB_Disconnect
End Function

Public Function In_DB(ByVal TmpUser As String) As Boolean
  DB_Connect
  
  SqlStmt = "SELECT * FROM Users WHERE UserName='" _
          + Trim(TmpUser) + "'"
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) = SQL_NO_DATA_FOUND Then
    In_DB = False
  Else
    In_DB = True
  End If
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)

  DB_Disconnect
End Function

Public Sub Insert()
  DB_Connect
  
  SqlStmt = "INSERT INTO Users Values('" _
     + Trim(UserName) + "','" + Trim(Pwd) _
     + "'," + Trim(UserType) + ",'" + Trim(EmpName) + "')"
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub

Public Sub Update(ByVal TmpUser As String)
  DB_Connect
  
  SqlStmt = "Update Users Set UserName='" + Trim(UserName) _
          + "',Pwd='" + Trim(Pwd) + "',UserType=" + Trim(UserType) _
          + ",EmpName='" + Trim(EmpName) _
          + "' WHERE UserName='" + Trim(TmpUser) + "'"
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub