users.cls

酒店管理系统 基于VB和SQL的一个很好的程序 可以实现酒店的日常管理工作

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   EmpName Varchar 40 员工姓名
'3   UserType   tinyint    用户类型（0  表示领班用户，1  表示普通用户）
'4   UserPwd Varchar 40 密码

Public UserName As String
Public EmpName As String
Public UserType As Integer
Public UserPwd As String

Public Sub Init()
  UserName = ""
  EmpName = ""
  UserType = 1
  UserPwd = ""
End Sub

'删除Users数据
Public Sub Delete(ByVal TmpUserName As String)
  If TmpUserName = "Admin" Then
    Exit Sub
  End If
  
  SqlStmt = "DELETE FROM Users WHERE UserName='" + Trim(TmpUserName) + "'"
  SQLExt (SqlStmt)
End Sub

Public Function GetInfo(ByVal TmpUserName As String) As Boolean
  Dim rs As New ADODB.Recordset
  
  '设置SELECT语句，读取编号为TmpId的记录
  SqlStmt = "SELECT * FROM Users WHERE UserName='" + Trim(TmpUserName) + "'"
  '将结果集读取到rs中
  Set rs = QueryExt(SqlStmt)

  If rs.EOF = True Then
    '如果结果集为空，则初始化
    Init
    GetInfo = False
  Else
    '将结果集中的数据赋值到成员变量中
    UserName = TmpUserName
    If IsNull(rs.Fields(1)) Then
      EmpName = ""
    Else
      EmpName = rs.Fields(1)
    End If
    If IsNull(rs.Fields(2)) Then
      UserPwd = ""
    Else
      UserPwd = rs.Fields(2)
    End If
    UserType = rs.Fields(3)
    GetInfo = True
  End If
End Function

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

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

Public Sub Update(ByVal TmpUserName As String)
  SqlStmt = "Update Users Set EmpName='" + Trim(EmpName) _
          + "',UserType=" + Trim(UserType) _
          + " WHERE UserName='" + Trim(TmpUserName) + "'"
  SQLExt (SqlStmt)
End Sub
Public Sub UpdatePwd(ByVal TmpUserName As String)
  SqlStmt = "Update Users Set UserPwd='111111' WHERE UserName='" + Trim(TmpUserName) + "'"
  SQLExt (SqlStmt)
End Sub