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 50  用户名
'2 Pwd Varchar 50  密码
'3 EmpName Varchar 50  员工姓名

Public UserName As String
Public Pwd As String
Public EmpName As String

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

'删除Users数据
Public Sub Delete(ByVal TmpUser As String)
  If TmpUser = "Admin" Then
    Exit Sub
  End If
  
  DB_Connect
  SqlStmt = "DELETE FROM Users WHERE UserName='" _
          + Trim(TmpUser) + "'"
  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(400, 0)
    Rc = SQLGetData(Hstmt, 3, 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
  '设置SQL语句，读取指定的用户名
  SqlStmt = "SELECT * FROM Users WHERE UserName='" _
          + Trim(TmpUser) + "'"
  '执行SQL语句
  OdbcExt (SqlStmt)
  '如果结果集中有数据，则返回True；否则返回False
  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(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) _
          + "',EmpName='" + Trim(EmpName) _
          + "' WHERE UserName='" + Trim(TmpUser) + "'"
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub