clsuser.cls

来自「vb+sqlserver实现的人事管理系统」· CLS 代码 · 共 75 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsUser"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public users As String
Public password As String

Public Sub insert()
    mydb.opendb
    
    SqlStmt = "insert into users(name,password)" + "values('" + Trim(users) + "','" + Trim(password) + "')"
    
    Dim isexe As Boolean
    Dim rsusers As ADODB.Recordset
    isexe = mydb.exesql(SqlStmt, rsusers, True)
    
    mydb.closedb
    
End Sub

Public Sub Update(ByVal oriusers As String)
    mydb.opendb
    
    SqlStmt = "update users set name='" + Trim(users) + "',password='" + Trim(password) + "' where name='" + Trim(oriusers) + "'"
    
    Dim isexe As Boolean
    Dim rsusers As ADODB.Recordset
    isexe = mydb.exesql(SqlStmt, rsusers, True)
    
    mydb.closedb
    
End Sub

Public Sub delete(ByVal tempusers As String)
    mydb.opendb
    SqlStmt = "delete from Users where UserName='" + Trim(tempusers) + "'"
    
    Dim isexe As Boolean
    Dim rsusers As ADODB.Recordset
    
    isexe = mydb.exesql(SqlStmt, rsusers, True)
    
    mydb.closedb
    
End Sub

Public Function in_db(ByVal tempusers As String, ByVal tmpPwd As String) As Boolean
    mydb.opendb
    
    SqlStmt = "select UserName from Users where UserName='" + Trim(tempusers) + "'and Pwd='" + tmpPwd + "'"
    
    Dim isexe As Boolean
    Dim rsusers As ADODB.Recordset
    isexe = mydb.exesql(SqlStmt, rsusers, False)
    
    If rsusers.RecordCount <> 0 Then
        in_db = True
    Else
        in_db = False
    End If
    
    mydb.closedb
      
End Function