clsclerk.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 = "clsClerk"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Private mlClerkID As Long
Private msClerkCode As String
Private msClerkName As String
Private msPassWord As String
Private msSattus As String

Public Property Get ClerkID() As Long
    ClerkID = mlClerkID
End Property

Public Property Let ClerkID(ByVal vNewValue As Long)
    mlClerkID = vNewValue
End Property

Public Property Get ClerkCode() As String
    ClerkCode = msClerkCode
End Property

Public Property Let ClerkCode(ByVal vNewValue As String)
    msClerkCode = vNewValue
End Property

Public Property Get ClerkName() As String
    ClerkName = msClerkName
End Property

Public Property Let ClerkName(ByVal vNewValue As String)
    msClerkName = vNewValue
End Property

Public Property Get PassWord() As String
    PassWord = msPassWord
End Property

Public Property Let PassWord(ByVal vNewValue As String)
    msPassWord = vNewValue
End Property
'0  正确返回    1  用户不存在  2   密码错误
Public Function CheckClerk(ByVal sClerkCode As String, ByVal sPassWord As String) As Long
Dim sSQL As String
Dim iCount As Long
Dim ClerkCode As String, PassWord As String
Dim ClerkName As String, ClerkID As Long
Dim rsClerk As ADODB.Recordset

    CheckClerk = -1
        
    sSQL = "select * from clerk where clerkcode='" & sClerkCode & "'"
    Set rsClerk = GDB.Execute(sSQL)
    
    iCount = 0
    With rsClerk
    Do While Not .EOF
        iCount = iCount + 1
        ClerkID = rsClerk!ClerkID
        ClerkCode = IIf(IsNull(rsClerk!ClerkCode), "", rsClerk!ClerkCode)
        ClerkName = IIf(IsNull(rsClerk!ClerkName), "", rsClerk!ClerkName)
        PassWord = IIf(IsNull(rsClerk!PassWord), "", rsClerk!PassWord)
        .MoveNext
    Loop
    End With
    
    If iCount = 0 Then
        CheckClerk = 1
        Exit Function
    ElseIf iCount > 0 Then
        If PassWord <> sPassWord Then
            CheckClerk = 2
        ElseIf PassWord = sPassWord Then
            glClerkID = ClerkID
            gsClerkCode = ClerkCode
            gsClerkName = ClerkName
            gsPassWord = PassWord
            CheckClerk = 0
        End If
    End If
    
    rsClerk.Close
    Set rsClerk = Nothing
    
End Function

Public Sub OpenClerk(ByVal ClerkID As Long)
Dim sSQL As String
Dim iCount As Long
Dim rsClerk As ADODB.Recordset
        
    sSQL = "select * from clerk where clerkid=" & ClerkID
    Set rsClerk = GDB.Execute(sSQL)
    
    With rsClerk
    Do While Not .EOF
        mlClerkID = rsClerk!ClerkID
        msClerkCode = IIf(IsNull(rsClerk!ClerkCode), "", rsClerk!ClerkCode)
        msClerkName = IIf(IsNull(rsClerk!ClerkName), "", rsClerk!ClerkName)
        msPassWord = IIf(IsNull(rsClerk!PassWord), "", rsClerk!PassWord)
        .MoveNext
    Loop
    End With
    
    rsClerk.Close
    Set rsClerk = Nothing
    
End Sub

Public Sub SaveClerk()
Dim sSQL As String

    sSQL = "insert into clerk(clerkid,clerkcode,clerkname,password,status)" & _
         "values(" & mlClerkID & ",'" & msClerkCode & "','" & msClerkName & "','" & msPassWord & "','1')"
    
    GDB.Execute (sSQL)

End Sub

Public Sub ModifyClerk()
Dim sSQL As String

    sSQL = "update clerk set clerkname='" & msClerkName & "',password='" & msPassWord & "'" & _
         " where clerkid=" & mlClerkID
    GDB.Execute (sSQL)
    
End Sub

Public Sub DeleteClerk(ByVal ClerkID As Long)
Dim sSQL As String
    
    sSQL = "update clerk set status=0 where clerkid=" & ClerkID
    GDB.Execute (sSQL)
    
End Sub