VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "user"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
Public user_Id As String
Public user_pwd As String
Public user_des As Integer
Public State As Integer
Public oper_flag As String



'初始化成員變量,init the class
Private Sub Class_Initialize()
  user_Id = ""
  user_pwd = ""
  user_des = 1 'normal user
  State = 0 '0==>init,1==> existed,2==> unexisted
  oper_flag = ""
End Sub

Public Sub query()
  Dim SQLstmt As String    '存放SQL語句的字符串
  Dim msg_error As String
  Dim tmp_res As ADODB.Recordset
  
  If db.db_state > 0 Then
  
    SQLstmt = "select * FROM user_info " '執(zhí)行SQL語句"
    Set tmp_res = db.ExecuteSQL(SQLstmt, msg_error)
    
    Me.State = 2 '沒有用戶存在
    
    While (tmp_res.EOF = False)
            If Trim(tmp_res.Fields("user_id")) = Me.user_Id Then
              Me.State = 1 '有用戶存在
              Me.user_Id = Trim(tmp_res.Fields("user_id"))
              Me.user_pwd = Trim(tmp_res.Fields("user_pwd"))
              Me.user_des = Trim(tmp_res.Fields("user_des"))
              Exit Sub
            Else
                tmp_res.MoveNext
            End If
    Wend
    
   
 End If
 
     Set tmp_res = Nothing
End Sub
'刪除數(shù)據(jù)
Public Sub delete() '對類本身進行處理
  Dim SQLstmt As String    '存放SQL語句的字符串
  Dim msg_error As String
 
  If login_user.user_des = 0 Then ' admin
    If db.db_state > 0 Then
  
     SQLstmt = "DELETE FROM user_info WHERE user_Id like  " + "'" + Me.user_Id + "'" '執(zhí)行SQL語句
  
     Call db.ExecuteSQL(SQLstmt, msg_error)
     If InStr(msg_error, "delete_ok") > 0 Then
        Me.oper_flag = "delete ok"
     Else
        Me.oper_flag = "delete error"
     End If
    End If
  
  End If
End Sub

Public Sub insert() '對類本身進行處理
  
  Dim SQLstmt As String    '存放SQL語句的字符串,
  Dim msg_error As String
  If login_user.user_des = 0 Then
     
     If db.db_state > 0 Then '數(shù)據(jù)庫是否打開
      Call query
       If Me.State = 2 Then 'unexisted,add it to database
          
          SQLstmt = "Insert Into user_info  Values('" & Me.user_Id & "','" & DigestStrToHexStr(Me.user_pwd) & "'," & Me.user_des & ")"
          Call db.ExecuteSQL(SQLstmt, msg_error)
          
          If InStr(msg_error, "insert_ok") > 0 Then
             oper_flag = "insert_ok"
          Else
             oper_flag = "insert_error"
          End If
          
       End If
     End If
  End If
    
End Sub

Public Sub Update() 'only update user's password
 Dim SQLstmt As String    '存放SQL語句的字符串,
 Dim msg_error As String
  If db.db_state > 0 Then '數(shù)據(jù)庫是否打開
       SQLstmt = "UPDATE user_info SET user_pwd='" + DigestStrToHexStr(Me.user_pwd) + "' where user_id like '" + login_user.user_Id + "'"
        Call db.ExecuteSQL(SQLstmt, msg_error)
          
          If InStr(msg_error, "update_ok") > 0 Then
             oper_flag = "update_ok"
          Else
             oper_flag = "update_error"
          End If
  End If
End Sub