Mengambil Log Data di Fingerprint CZKEM

Berikut adalah cara pengambilan data log absen sidik jari di mesin fingerprint CZKEM. Untuk Koneksi ke mesin sidik jari silakan buka di Koneksi Fingerprint CZKEM.
Pertama-tama adalah membaca dulu semua data log

CZKEM1.ReadAllGLogData DeviceNumber

Proses pengambilan data log :

CZKEM1.SSR_GetGeneralLogData(DeviceNumber, EnrollNum, dwVerifyMode, dwInOutMode, dwYear, dwMonth, dwDay, dwHour, dwMinute, dwSecond, dwWorkCode)

Berikut contoh source code-nya :

Private Sub GetLogData()
Dim DeviceNumber As Long
Dim EnrollNum As String
Dim dwVerifyMode As Long
Dim dwInOutMode As Long
Dim dwYear As Long
Dim dwMonth As Long
Dim dwDay As Long
Dim dwHour As Long
Dim dwMinute As Long
Dim dwSecond As Long
Dim dwWorkCode As Long

    CZKEM1.ReadAllGLogData DeviceNumber
   
    While CZKEM1.SSR_GetGeneralLogData(DeviceNumber, EnrollNum, dwVerifyMode, dwInOutMode, dwYear, dwMonth, dwDay, dwHour, dwMinute, dwSecond, dwWorkCode)
        Text1.Text = EnrollNum
        Text2.Text = Format(dwDay, "00") & "/" & Format(dwMonth, "00") & "/" & Format(dwYear, "0000")
        Text3.Text = Format(dwHour, "00") & ":" & Format(dwMinute, "00") & ":" & Format(dwSecond, "00")
    Wend
End Sub

Semoga membantu...

** Mesin Fingerprint yang dipakai Solution X100-C

Hapus User Info di Fingerprint CZKEM

Manual :
5.2.4.1 SSR_DeleteEnrollData

[Definition]
VARIANT_BOOL DeleteEnrollData([in] long dwMachineNumber, [in] long dwEnrollNumber,
[in] long dwEMachineNumber, [in] long dwBackupNumber)
[Usage]
Delete registration data.
[Parameter]
dwMachineNumber, dwEMachineNumber
Device number
dwEnrollNumber
User ID
dwBackupNumber
Index of the fingerprint
The value ranges from 0 to 9. It this case, the device also checks whether the user
has other fingerprints or passwords. If no, the device deletes the user.
When the value is 10, the device deletes the password. The device also checks
whether the user has fingerprint data. If no, the device deletes the user.
When the value is 11 or 13, the device deletes all fingerprint data of the user. When the
value is 12, the device deletes the user (including all fingerprints, card numbers and
passwords of the user).
[Return Value]
Return True if it is successful, or return False.
[Related Function]
SetEnrollData, GetEnrollData

    dwBackupNumber = 12
    If CZKEM1.SSR_DeleteEnrollData(DeviceNumber, EnrollNum, dwBackupNumber ) = True Then
        CZKEM1.RefreshData DeviceNumber
    Else
        CZKEM1.GetLastError dwErrCode
        MsgBox "Error Description : " & GetLastErrorName(dwErrCode), vbCritical, "Can't Connect Device"
        Me.MousePointer = 0
        Exit Sub
    End If

Koneksi Fingerprint CZKEM

Koneksi Komputer ke Fingerprint CZKEM
Komponen tambahan ComboBoxLB

Private Sub cmdConnect_Click()
Dim dwErrCode As Long

    Me.MousePointer = 11
    If IsNull(cboMesin.Column(1)) = True Then
        MsgBox "Pilih Mesin Sidik Jari yang Akan Anda Hubungkan!", vbCritical, "Select Device First"
        cboMesin.SetFocus
        Me.MousePointer = 0
        Exit Sub
    End If
    
    CZKEM1.Disconnect
    
    If cmdConnect.Caption = "Connect" Then
        Select Case cboMesin.Column(2)
            Case "USB"
                dConn = CZKEM1.Connect_Com(CLng(cboMesin.Column(5)), CLng(cboMesin.Column(1)), CLng(cboMesin.Column(6)))
                DeviceNumber = cboMesin.Column(1)
                If dConn Then
                    CZKEM1.ACUnlock DeviceNumber, 1
                    cmdConnect.Caption = "Disconnect"
                    CZKEM1.RegEvent DeviceNumber, 65535
                Else
                    CZKEM1.GetLastError dwErrCode
                    MsgBox "Error Description : " & GetLastErrorName(dwErrCode), vbCritical, "Can't Connect Device"
                    DeviceNumber = 0
                End If
            Case Else
                dConn = CZKEM1.Connect_Net(cboMesin.Column(3), cboMesin.Column(4))
                DeviceNumber = cboMesin.Column(1)
                If dConn Then
                    CZKEM1.ACUnlock DeviceNumber, 1
                    cmdConnect.Caption = "Disconnect"
                    CZKEM1.RegEvent DeviceNumber, 65535
                Else
                    CZKEM1.GetLastError dwErrCode
                    MsgBox "Error Description : " & GetLastErrorName(dwErrCode), vbCritical, "Can't Connect Device"
                    DeviceNumber = 0
                End If
        End Select
        Me.MousePointer = 0
        Exit Sub
    End If
    
    If cmdConnect.Caption = "Disconnect" Then
        CZKEM1.Disconnect
        cmdConnect.Caption = "Connect"
        dConn = False
        DeviceNumber = 0
    End If
    Me.MousePointer = 0
End Sub