formmain.frm

脱机通讯开发包.可以支持VC,VB及多种编程语言.

    If CZKEM1.ClearUserSMS(vMachineNumber) Then
        lblInfo.Caption = "ClearUserSMS OK"
    Else
        lblInfo.Caption = "ClearUserSMS fail"
    End If
End Sub

Private Sub cmdConnect_Click()
    Dim ver As String
    If bConnected Then
        CZKEM1.Disconnect
    Else
        If CZKEM1.Connect_Net(txtIP.Text, 4370) Then
            If CZKEM1.GetFirmwareVersion(vMachineNumber, ver) Then
                lblInfo.Caption = "Version=""" & ver & """"
                If CZKEM1.GetDeviceIP(vMachineNumber, ver) Then
                    lblInfo.Caption = lblInfo.Caption & ", IP=" & ver
                End If
            End If
        Else
            Beep
            lblInfo.Caption = "Connect fail."
        End If
    End If
End Sub

Private Sub cmdDateFormat_Click()
    If CZKEM1.SetDeviceInfo(vMachineNumber, 34, cmbDateFormats.ListIndex) Then
        lblInfo.Caption = "Set Date Format OK"
    Else
        lblInfo.Caption = "Set Date Format Fail"
    End If
End Sub

Private Sub cmdDeleteSMS_Click()
    Dim b As Boolean
    If CZKEM1.DeleteSMS(vMachineNumber, Val(textID.Text)) Then
        lblInfo.Caption = "DeleteSMS OK"
    Else
        lblInfo.Caption = "DeleteSMS fail"
    End If
End Sub

Private Sub cmdDeleteUserSMS_Click()
    Dim b As Boolean
    If CZKEM1.DeleteUserSMS(vMachineNumber, Val(textEnrollNumber.Text), Val(textID.Text)) Then
        lblInfo.Caption = "DeleteUserSMS OK"
    Else
        lblInfo.Caption = "DeleteUserSMS fail"
    End If
End Sub

Private Sub cmdGetCardFun_Click()
    Dim CardFun As Long
    If CZKEM1.GetCardFun(vMachineNumber, CardFun) Then
        MsgBox CStr(CardFun)
    End If
End Sub

Private Sub cmdGetSMS_Click()
    Dim Tag As Long
    Dim ValidMinutes As Long
    Dim StartTime As String
    Dim Content As String
    If CZKEM1.GetSMS(vMachineNumber, Val(textID.Text), Tag, ValidMinutes, StartTime, Content) Then
        textContent.Text = Content
        textTag.Text = Tag
        textValidTime.Text = ValidMinutes
        textStartTime.Text = StartTime
        lblInfo.Caption = "GetSMS OK"
    Else
        lblInfo.Caption = "GetSMS Fail"
    End If
    
End Sub

Private Sub cmdGetTime_Click()
   Dim iYear As Long, iMonth As Long, iDay As Long, iHour As Long, iMinute As Long, iSecond As Long
   
   If CZKEM1.GetDeviceTime(vMachineNumber, iYear, iMonth, iDay, iHour, iMinute, iSecond) Then
        lblInfo.Caption = "Device Time is " & iYear & "-" & iMonth & "-" & iDay & " " & iHour & ":" & iMinute & ":" & iSecond
   Else
        lblInfo.Caption = "GetDeviceTime fail"
   End If
End Sub

Private Sub cmdGetUserSMS_Click()

End Sub

Private Sub cmdGetUserTmpStr_Click()
    Dim iEnrollNumber, iBackupNumber
    Dim sTmpData As String
    Dim TmpLength As Long
    iEnrollNumber = CLng(txtUserID.Text)
    iBackupNumber = 0
    If CZKEM1.GetUserTmpStr(vMachineNumber, iEnrollNumber, iBackupNumber, sTmpData, TmpLength) Then
        lblInfo.Caption = "GetUserTmpStr OK"
        recFP.Open "select * from fptable", connFP, adOpenKeyset, adLockOptimistic
        recFP.AddNew
        recFP.Fields("EnrollNumber") = iEnrollNumber
        recFP.Fields("FingerNumber") = iBackupNumber
        recFP.Fields("Template") = sTmpData
        recFP.Update
        recFP.Close
        MsgBox sTmpData, , "Template" & iBackupNumber & " of " & iEnrollNumber
        
    Else
        lblInfo.Caption = "GetUserTmpStr Fail"
    End If
End Sub

Private Sub cmdOpen_Click()
    frm2.Show
End Sub

Private Sub cmdSetDeviceTime_Click()
    Dim iYear, iMonth, iDay, iHour, iMinute, iSecond
    iYear = CLng(txtYear.Text)
    iMonth = CLng(txtMonth.Text)
    iDay = CLng(txtDay.Text)
    iHour = CLng(txtHour.Text)
    iMinute = CLng(txtMinute.Text)
    iSecond = CLng(txtSecond.Text)
    If Not CZKEM1.SetDeviceTime2(vMachineNumber, iYear, iMonth, iDay, iHour, iMinute, iSecond) Then
        lblInfo.Caption = "SetDeviceTime2 fail"
    Else
        lblInfo.Caption = "SetDeviceTime2 OK"
    End If
End Sub

Private Sub cmdSetEnrollmentData_Click()
    Dim iEnrollNumber, iEMachineNumber, iBackupNumber, iPrivilege, iPassword
    Dim iEnrollData(1024) As Long
    iEnrollNumber = CLng(txtUserID.Text)
    iEMachineNumber = 1
    iBackupNumber = 0
    iPrivilege = 0
    iPassword = 0
    Str2LongArray sSampleTemplate, iEnrollData
    If CZKEM1.SetEnrollData(vMachineNumber, iEnrollNumber, iEMachineNumber, iBackupNumber, iPrivilege, iEnrollData(0), iPassword) Then
        lblInfo.Caption = "SetEnrollData OK"
    Else
        lblInfo.Caption = "SetEnrollData fail"
    End If
End Sub

Private Sub cmdSetEnrollStr_Click()
    Dim iEnrollNumber, iEMachineNumber, iBackupNumber, iPrivilege, iPassword
    Dim sEnrollData
    iEnrollNumber = CLng(txtUserID.Text)
    iEMachineNumber = 1
    iBackupNumber = 1
    iPrivilege = 0
    iPassword = 0
    sEnrollData = sSampleTemplate1
    If CZKEM1.SetEnrollDataStr(vMachineNumber, iEnrollNumber, iEMachineNumber, iBackupNumber, iPrivilege, sEnrollData, iPassword) Then
        lblInfo.Caption = "SetEnrollDataStr OK"
    Else
        lblInfo.Caption = "SetEnrollDataStr fail"
    End If
End Sub

Private Sub cmdSetSMS_Click()
    Dim SMSID
    Dim SmsTag
    Dim ValidMinutes
    Dim StartTime
    Dim Content
    Dim b
    SMSID = Val(textID.Text)
    Content = textContent.Text
    SmsTag = Val(textTag.Text)
    ValidMinutes = Val(textValidTime.Text)
    StartTime = textStartTime.Text
    If CZKEM1.SetSMS(vMachineNumber, SMSID, SmsTag, ValidMinutes, StartTime, Content) Then
        lblInfo.Caption = "Set SMS OK"
    Else
        lblInfo.Caption = "Set SMS fail"
    End If
End Sub

Private Sub cmdSetUserInfo_Click()
    Dim iEnrollNumber
    Dim bEnrollData(1024) As Byte
    iEnrollNumber = CLng(txtUserID.Text)
    If CZKEM1.SetUserInfo(vMachineNumber, iEnrollNumber, textUserName.Text, "", 0, True) Then
        lblInfo.Caption = "SetUserInfo OK"
    Else
        lblInfo.Caption = "SetUserInfo fail"
    End If
End Sub

Private Sub cmdSetUserSMS_Click()
    Dim b
    If CZKEM1.SetUserSMS(vMachineNumber, Val(textEnrollNumber.Text), Val(textID.Text)) Then
        lblInfo.Caption = "SetUserSMS OK"
    Else
        lblInfo.Caption = "SetUserSMS fail"
    End If
    
End Sub

Private Sub cmdSetUserTmp_Click()
    Dim iEnrollNumber, iEMachineNumber, iBackupNumber
    Dim bEnrollData(1024) As Byte
    iEnrollNumber = CLng(txtUserID.Text)
    iEMachineNumber = 1
    iBackupNumber = 2
    Str2ByteArray sSampleTemplate2, bEnrollData
    If CZKEM1.SetUserTmp(vMachineNumber, iEnrollNumber, iBackupNumber, bEnrollData(0)) Then
        lblInfo.Caption = "SetUserTmp OK"
    Else
        lblInfo.Caption = "SetUserTmp fail"
    End If
End Sub

Private Sub cmdSetUserTmpStr_Click()
    Dim iEnrollNumber, iEMachineNumber, iBackupNumber
    Dim sEnrollData
    iEnrollNumber = CLng(txtUserID.Text)
    iEMachineNumber = 1
    iBackupNumber = 3
    sEnrollData = sSampleTemplate3
    If CZKEM1.SetUserTmpStr(vMachineNumber, iEnrollNumber, iBackupNumber, sEnrollData) Then
        lblInfo.Caption = "SetUserTmpStr OK"
    Else
        lblInfo.Caption = "SetUserTmpStr fail"
    End If
End Sub


Private Sub cmdThreshold_Click()
    If CZKEM1.SetDeviceInfo(vMachineNumber, 23, CLng(txt1NThreshold.Text)) Then
        lblInfo.Caption = "Set 1:N Threshold OK"
    Else
        lblInfo.Caption = "Set 1:N Threshold Fail"
    End If
    If CZKEM1.SetDeviceInfo(vMachineNumber, 25, CLng(txt11Threshold.Text)) Then
        lblInfo.Caption = "Set 1:1 Threshold OK"
    Else
        lblInfo.Caption = "Set 1:1 Threshold Fail"
    End If
End Sub

Private Sub cmdUpdateFirmware_Click()
    Dim sFile
    On Error GoTo cancelline
    CommonDialog1.ShowOpen
    
    sFile = CommonDialog1.FileName
    'Disbale device to speed up firmware transfer
    CZKEM1.DisableDeviceWithTimeOut vMachineNumber, 10
    If CZKEM1.UpdateFirmware(sFile) Then
        lblInfo.Caption = "Update Firmware success."
    Else
        lblInfo.Caption = "Update Firmware fail."
    End If
cancelline:
End Sub

Private Sub Command1_Click()
    Dim CardFun As Long
    CZKEM1.GetCardFun vMachineNumber, CardFun
    MsgBox CStr(CardFun)
End Sub

Private Sub Command2_Click()

End Sub

Private Sub CZKEM1_OnAttTransaction(ByVal EnrollNumber As Long, ByVal IsInValid As Long, _
    ByVal AttState As Long, ByVal VerifyMethod As Long, ByVal Year As Long, ByVal Month As Long, _
    ByVal Day As Long, ByVal Hour As Long, ByVal Minute As Long, ByVal Second As Long)
    txtEvent.Text = "OnAttTransaction(" & EnrollNumber & "," & _
        IsInValid & "," & AttState & "," & VerifyMethod & _
        "," & Year & "-" & Month & "-" & Day & " " & Hour & ":" & Minute & ":" & Second & Chr(13) & Chr(10) & txtEvent.Text
        Debug.Print "Year" & Year
        Debug.Print "Month" & Month
        Debug.Print "Day" & Day
        Debug.Print "Hour" & Hour
        Debug.Print "Minute" & Minute
        Debug.Print "Second" & Second
End Sub

Private Sub CZKEM1_OnConnected()
    txtEvent.Text = "OnConnected" & Chr(13) & Chr(10) & txtEvent.Text
    bConnected = True
    cmdConnect.Caption = "Disconnect"
    lblInfo.Caption = "Connected to device."
    ShowButtonState
End Sub

Private Sub CZKEM1_OnDisConnected()
    txtEvent.Text = "OnDisConnected" & Chr(13) & Chr(10) & txtEvent.Text
    bConnected = False
    cmdConnect.Caption = "Connect"
    lblInfo.Caption = "Disconnected from device."
    ShowButtonState
End Sub

'Private Sub CZKEM1_OnEnrollFinger(ByVal EnrollNumber As Long, ByVal FingerIndex As Long)
'    txtEvent.Text = "OnEnrollFinger(" & EnrollNumber & "," & FingerIndex & ")" & Chr(13) & Chr(10) & txtEvent.Text
'End Sub

Private Sub CZKEM1_OnFinger()
    txtEvent.Text = "OnFinger" & Chr(13) & Chr(10) & txtEvent.Text
End Sub

Private Sub CZKEM1_OnFingerFeature(ByVal Score As Long)
    txtEvent.Text = "OnFingerFeature(" & Score & ")" & Chr(13) & Chr(10) & txtEvent.Text
End Sub


Private Sub CZKEM1_OnHIDNum(ByVal CardNumber As Long)
    MsgBox CStr(CardNumber)
End Sub

Private Sub CZKEM1_OnKeyPress(ByVal Key As Long)
    txtEvent.Text = "OnKeyPress(" & Key & ")" & Chr(13) & Chr(10) & txtEvent.Text
End Sub

Private Sub CZKEM1_OnNewUser(ByVal EnrollNumber As Long)
    txtEvent.Text = "OnNewUser(" & EnrollNumber & ")" & Chr(13) & Chr(10) & txtEvent.Text
End Sub

Private Sub CZKEM1_OnVerify(ByVal UserID As Long)
    txtEvent.Text = "OnVerify(" & UserID & ")" & Chr(13) & Chr(10) & txtEvent.Text
End Sub

Private Sub Form_Load()
    Dim s As String
    cmbDateFormats.ListIndex = 0
    bConnected = False
    ShowButtonState
    CZKEM1.BASE64 = 0
    vMachineNumber = 1
    connFP.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "FP1500.MDB;Persist Security Info=False"
    CZKEM1.GetSDKVersion s
    Label6.Caption = s
End Sub