passwdinfo.cls

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 = "PasswdInfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 User 文本，主键，字段长度：20，标题：用户名，必填字段：是，允许空字符串：否
'2 Passwd 文本，字段大小：50，标题：密码，必填字段：否
'3 UserType 数字，字段大小：整型，标题：用户类型，默认值：2，说明：1－超级用户，2－普通用户
Public User As String
Public Passwd As String
Public UserType As Integer

'初始化
Public Sub Init()
  User = ""
  Passwd = ""
  UserType = 0
End Sub

'判断是否存在此用户
Public Function IsExistUser(ByVal paraUser As String) As Boolean
  Dim rs As New ADODB.Recordset
  
  SQLStmt = "SELECT * FROM PasswdInfo WHERE User = '" + Trim(StrReplace(paraUser)) + "'"
  Set rs = SQLQuery(SQLStmt)
  If rs.EOF Then
    IsExistUser = False
  Else
    IsExistUser = True
  End If

  '断开连接
  DBDisconnect
End Function

'根据用户名得到其他信息
Public Function GetInfo(ByVal paraUser As String) As Boolean
  Dim rs As New ADODB.Recordset
  SQLStmt = "SELECT * FROM PasswdInfo WHERE User = '" + Trim(StrReplace(paraUser)) + "'"
  Set rs = SQLQuery(SQLStmt)
  If rs.EOF Then
    Init
    GetInfo = False
    Exit Function
  Else
    User = Trim(paraUser)
    Passwd = Trim(rs.Fields(1))
    UserType = rs.Fields(2)
    GetInfo = True
  End If

  '断开连接
  DBDisconnect
End Function

'增加一项
Public Function Insert() As Boolean
  '插入操作
  SQLStmt = "INSERT INTO PasswdInfo Values('" + Trim(StrReplace(User)) + "','" + Passwd _
     + "'," + Trim(Str(UserType)) + ")"
  SQLExt SQLStmt
End Function

'修改一项
Public Sub Update(ByVal paraUser As String)
  '修改操作
  SQLStmt = "Update PasswdInfo Set Passwd = '" + StrReplace(Passwd) + "',UserType = " _
          + Trim(Str(UserType)) + " WHERE User = '" + Trim(StrReplace(paraUser)) + "'"
  SQLExt SQLStmt
End Sub

'删除一项
Public Function Delete(ByVal paraUser As String) As Boolean
  '删除操作
  SQLStmt = "DELETE FROM PasswdInfo WHERE User = '" + Trim(StrReplace(paraUser)) + "'"
  SQLExt SQLStmt
End Function