frmenroll.frm

中控嵌入式指纹识别开发描述

    If vRet = True Then
        lblMessage.Caption = "ClearKeeperData OK"
    Else
        frmMain.CZKEM1.GetLastError vErrorCode
        lblMessage.Caption = ErrorPrint(vErrorCode)
    End If
    
End Sub


Private Sub cmdDel_Click()
    datEnroll.Database.Execute "delete * from tblEnroll"
    datEnroll.Refresh
End Sub

Private Sub cmdDeleteEnrollData_Click()
    Dim vEnrollNumber As Integer
    Dim vFingerNumber As Integer
    Dim vRet As Boolean
    Dim vErrorCode As Long
    
    Dim lngReturnCode As Boolean
    Dim lngErrorCode As Long
    Dim lngCardNumber As Long
    Dim par1, par2, par3, par5 As Long
    Dim lpszIPAddress As String
    
    lblMessage.Caption = "Working..."
    DoEvents
    vEnrollNumber = Val(txtEnrollNumber.Text)
    vFingerNumber = cmbBackupNumber.Text
    
    vRet = frmMain.CZKEM1.DeleteEnrollData(frmMain.vMachineNumber, vEnrollNumber, frmMain.vMachineNumber, vFingerNumber)
    If vRet = True Then
        lblMessage.Caption = "DeleteEnrollData OK"
    Else
        frmMain.CZKEM1.GetLastError vErrorCode
        lblMessage.Caption = ErrorPrint(vErrorCode)
    End If
    
End Sub

Private Sub cmdExit_Click()
    Unload Me
    frmMain.Visible = True
End Sub

Private Sub cmdGetAllEnrollData_Click()

    Dim vEnrollNumber As Integer
    Dim vFingerNumber As Integer
    Dim vPrivilege As Integer
    Dim vEnable As Integer
    Dim vFlag As Boolean
    Dim vRet As Boolean
    Dim vErrorCode As Long
    Dim vStr As String
    Dim i As Long
    
    lstEnrollData.Clear
    Label2.Caption = ""
    lblMessage.Caption = "Working..."
    DoEvents

    vRet = frmMain.CZKEM1.ReadAllUserID(frmMain.vMachineNumber)
    If vRet Then
        lblMessage.Caption = "ReadAllUserID OK"
    Else
        frmMain.CZKEM1.GetLastError vErrorCode
        lblMessage.Caption = ErrorPrint(vErrorCode)
        Exit Sub
    End If
'---- Get Enroll data and save into database -------------
    MousePointer = vbHourglass
    vFlag = False
    With datEnroll
        gGetState = True
        .RecordSource = "select * from " & "tblEnroll"
        .Refresh
        Do
             vRet = frmMain.CZKEM1.GetAllUserID(frmMain.vMachineNumber, _
                                                 vEnrollNumber, _
                                                 vEMachineNumber, _
                                                 vFingerNumber, _
                                                 vPrivilege, _
                                                 vEnable)
            If (vRet = False) Then Exit Do
            vFlag = True
            'MsgBox CStr(vEnrollNumber)
EEE:
            vRet = frmMain.CZKEM1.GetEnrollData(frmMain.vMachineNumber, _
                                                  vEnrollNumber, _
                                                  frmMain.vMachineNumber, _
                                                  vFingerNumber, _
                                                  vPrivilege, _
                                                  glngEnrollData(0), _
                                                  glngEnrollPData)
           
            If (vRet = False) Then
                vFlag = False
                vStr = "GetEnrollData"
                frmMain.CZKEM1.GetLastError vErrorCode
                vRet = MsgBox(ErrorPrint(vErrorCode) & ": Continue ?", vbYesNoCancel, "GetEnrollData")
                If vRet = vbYes Then
                    GoTo EEE
                ElseIf vRet = vbCancel Then
                    MousePointer = vbDefault
                    gGetState = False
                    Exit Sub
                End If
            End If
            
            With .Recordset
                .FindFirst "[EnrollNumber]=" & CStr(vEnrollNumber)
                If Not .NoMatch Then
                    .FindFirst "[EMachineNumber]=" & CStr(frmMain.vMachineNumber)
                    If Not .NoMatch Then
                        .FindFirst "[FingerNumber]=" & CStr(vFingerNumber)
                        If Not .NoMatch Then
                            lblMessage.Caption = "Double ID"
                            GoTo FFF
                        End If
                    End If
                End If
                
                .AddNew
                !EMachineNumber = frmMain.vMachineNumber
                !EnrollNumber = vEnrollNumber
                !FingerNumber = vFingerNumber
                !Privilige = vPrivilege
                
                If vFingerNumber = 10 Then
                    !password = glngEnrollPData
                Else
                    For i = 0 To DATASIZE - 1
                        gbytEnrollData(i * 5) = 1
                        If glngEnrollData(i) < 0 Then
                            gbytEnrollData(i * 5) = 0
                            glngEnrollData(i) = Abs(glngEnrollData(i))
                        End If
                        gbytEnrollData(i * 5 + 1) = (glngEnrollData(i) \ 256 \ 256 \ 256)
                        gbytEnrollData(i * 5 + 2) = (glngEnrollData(i) \ 256 \ 256) Mod 256
                        gbytEnrollData(i * 5 + 3) = (glngEnrollData(i) \ 256) Mod 256
                        gbytEnrollData(i * 5 + 4) = glngEnrollData(i) Mod 256
                    Next
                    !FPdata = gbytEnrollData
                End If
                .Update
FFF:
            End With
            
            lblMessage.Caption = Format(frmMain.vMachineNumber, "00#") & "-" & Format(vEnrollNumber, "0000#") & "-" & vFingerNumber
            
            txtEnrollNumber.Text = vEnrollNumber
            cmbBackupNumber.Text = vFingerNumber
            cmbPrivilege.Text = vPrivilege
            DoEvents
        Loop
        gGetState = False
        If .Recordset.RecordCount > 1 Then .Recordset.MoveLast
    End With
    MousePointer = vbDefault
    
    If vFlag = True Then
        lblMessage.Caption = "GetAllUserID OK"
    Else
        lblMessage.Caption = vStr & ":" & ErrorPrint(vErrorCode)
    End If
    
End Sub

Private Sub cmdGetEnrollData_Click()
    Dim vEnrollNumber As Integer
    Dim vFingerNumber As Integer
    Dim vPrivilege As Integer
    Dim vRet As Boolean
    Dim vErrorCode As Long
    Dim i As Long
    Dim sTemp As String
    
    lstEnrollData.Clear
    Label2.Caption = ""
    lstEnrollData.Clear
    lblMessage.Caption = "Working..."
    DoEvents
    vEnrollNumber = Val(txtEnrollNumber.Text)
    vFingerNumber = cmbBackupNumber.Text
    If frmMain.CZKEM1.GetUserTmpStr(frmMain.vMachineNumber, vEnrollNumber, vFingerNumber, sTemp, 1048) Then
        MsgBox ("ddd")
    Else
        MsgBox ("fff")
    End If
    
        
    vRet = frmMain.CZKEM1.GetEnrollData(frmMain.vMachineNumber, _
                                          vEnrollNumber, _
                                          frmMain.vMachineNumber, _
                                          vFingerNumber, _
                                          vPrivilege, _
                                          glngEnrollData(0), _
                                          glngEnrollPData)
                                          
    If vRet Then
        cmbPrivilege.ListIndex = vPrivilege
        lblMessage.Caption = "GetEnrollData OK"
        If vFingerNumber = 10 Then
            lstEnrollData.AddItem (CStr(glngEnrollPData))
        Else
            For i = 0 To DATASIZE - 1
                lstEnrollData.AddItem (CStr(glngEnrollData(i)))
            Next
        End If
    Else
        frmMain.CZKEM1.GetLastError vErrorCode
        lblMessage.Caption = ErrorPrint(vErrorCode)
    End If
    
End Sub


Private Sub cmdSetAllEnrollData_Click()
    Dim vEnrollNumber As Long
    Dim vFingerNumber As Long
    Dim vPrivilege As Long
    Dim vEnable As Long
    Dim vFlag As Boolean
    Dim vRet As Long
    Dim vErrorCode As Long
    Dim vStr As String
    Dim vByte() As Byte
    Dim i As Long
    
    lstEnrollData.Clear
    lblMessage.Caption = "Working..."
    DoEvents
    
    vFlag = False
    gGetState = True
    MousePointer = vbHourglass
    With datEnroll
        .RecordSource = "select * from " & "tblEnroll"
        .Refresh
         
         With .Recordset
             If .RecordCount = 0 Then GoTo EEE
            .MoveLast
            .MoveFirst
            Do While .EOF = False
                frmMain.vMachineNumber = !EMachineNumber
                vEnrollNumber = !EnrollNumber
                vFingerNumber = !FingerNumber
                vPrivilege = !Privilige
                glngEnrollPData = !password
                If vFingerNumber < 10 Then
                    vStr = !FPdata
                    vByte = vStr
                    For i = 0 To DATASIZE - 1
                        glngEnrollData(i) = vByte(i * 5 + 1)
                        glngEnrollData(i) = glngEnrollData(i) * 256 + vByte(i * 5 + 2)
                        glngEnrollData(i) = glngEnrollData(i) * 256 + vByte(i * 5 + 3)
                        glngEnrollData(i) = glngEnrollData(i) * 256 + vByte(i * 5 + 4)
                        If vByte(i * 5) = 0 Then
                            glngEnrollData(i) = 0 - glngEnrollData(i)
                        End If
                    Next
                End If
FFF:
            
                vRet = frmMain.CZKEM1.SetEnrollData(frmMain.vMachineNumber, _
                                                      vEnrollNumber, _
                                                      frmMain.vMachineNumber, _
                                                      vFingerNumber, _
                                                      vPrivilege, _
                                                      glngEnrollData(0), _
                                                      glngEnrollPData)
                If vRet <> True Then
                    vFlag = False
                    vStr = "SetEnrollData"
                    frmMain.CZKEM1.GetLastError vErrorCode
                    vRet = MsgBox(ErrorPrint(vErrorCode) & ": Continue ?", vbYesNoCancel, "SetEnrollData")
                    If vRet = vbYes Then GoTo FFF
                    If vRet = vbCancel Then GoTo EEE
                End If
                
                lblMessage.Caption = "EMachine = " & Format(frmMain.vMachineNumber, "00#") & ", ID = " & Format(vEnrollNumber, "000#") & ", FpNo = " & vFingerNumber _
                                    & ", Count = " & (.AbsolutePosition + 1)
                
                DoEvents
                .MoveNext
            Loop
        End With
EEE:
    End With
    MousePointer = vbDefault
    gGetState = False
    
    lblMessage.Caption = "SetAllUserData OK"
    
End Sub

Private Sub cmdSetEnrollData_Click()
    Dim vEnrollNumber As Integer
    Dim vFingerNumber As Integer
    Dim vPrivilege As Integer
    Dim vRet As Boolean
    Dim vErrorCode As Long
    
    lblMessage.Caption = "Working..."
    DoEvents
    
    vEnrollNumber = CInt(txtEnrollNumber.Text)
    vFingerNumber = CInt(cmbBackupNumber.Text)
    vPrivilege = CInt(cmbPrivilege.Text)
    
    vRet = frmMain.CZKEM1.SetEnrollData(frmMain.vMachineNumber, _
                                          vEnrollNumber, _
                                          vEMachineNumber, _
                                          vFingerNumber, _
                                          vPrivilege, _
                                          glngEnrollData(0), _
                                          glngEnrollPData)
    If vRet = True Then
        lblMessage.Caption = "SetEnrollData OK"
    Else
        frmMain.CZKEM1.GetLastError vErrorCode
        lblMessage.Caption = ErrorPrint(vErrorCode)
    End If
    
End Sub

Private Sub datEnroll_Reposition()
    If gGetState = True Then Exit Sub
    With datEnroll.Recordset
        datEnroll.Caption = (.AbsolutePosition + 1) & "/" & .RecordCount
        If .RecordCount > 1 Then CurRecView
    End With
End Sub

Private Sub Form_Load()
    cmbBackupNumber.ListIndex = 0
    txtEnrollNumber.Text = 1
    cmbPrivilege.Text = 0
    gGetState = False
    With datEnroll
        .DatabaseName = App.Path & "\datEnrollDat.mdb"
        .RecordSource = "select * from tblEnroll"
        .Refresh
        If .Recordset.RecordCount > 0 Then
            .Recordset.MoveLast
            .Recordset.MoveFirst
        End If
    End With
    vEMachineNumber = frmMain.vMachineNumber
    
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Me.Visible = False
    frmMain.Visible = True
End Sub

Private Function CurRecView()
    Dim vStr As String
    Dim vByte() As Byte
    Dim i As Long
    
    With datEnroll.Recordset
        If .RecordCount = 0 Then Exit Function
        If .AbsolutePosition = -1 Then Exit Function
        If !EnrollNumber <= 0 Then Exit Function
        txtEnrollNumber = !EnrollNumber
        cmbBackupNumber = !FingerNumber
        lstEnrollData.Clear
        If !FingerNumber = 10 Then
            lstEnrollData.AddItem !password
        End If
        If !FingerNumber < 10 Then
            vStr = !FPdata
            vByte = vStr
            For i = 0 To DATASIZE - 1
                glngEnrollData(i) = vByte(i * 5 + 1)
                glngEnrollData(i) = glngEnrollData(i) * 256 + vByte(i * 5 + 2)
                glngEnrollData(i) = glngEnrollData(i) * 256 + vByte(i * 5 + 3)
                glngEnrollData(i) = glngEnrollData(i) * 256 + vByte(i * 5 + 4)
                If vByte(i * 5) = 0 Then
                    glngEnrollData(i) = 0 - glngEnrollData(i)
                End If
                lstEnrollData.AddItem (CStr(glngEnrollData(i)))
            Next
        End If
    End With
End Function