formone.frm

控制mg500读卡器进行卡片号码的筛选

            If Data1.Recordset.EOF Then
            Else
                If Data1.Recordset.EOF Then
                Else
                    ii = 0
                    Do Until Data1.Recordset.EOF Or ii = 10
                        Data1.Recordset.MoveNext
                        ii = ii + 1
                    Loop
                End If
            End If
            If Data1.Recordset.EOF Then
                Data1.Recordset.MovePrevious
            End If

'            T(0).Text = Data1.Recordset(1)
'            T(1).Text = Data1.Recordset(2)
            T(2).Text = Data1.Recordset(1)
            Text1(1).Text = "数据已经往后移动10个" & vbCrLf & Text1(1).Text
        Case 5
            If Data1.Recordset.EOF Then
            Else
                Data1.Recordset.MoveLast
            End If
'            T(0).Text = Data1.Recordset(1)
'            T(1).Text = Data1.Recordset(2)
            T(2).Text = Data1.Recordset(1)
            Text1(1).Text = "数据已经移动到末位" & vbCrLf & Text1(1).Text
        Case 6
            If Data1.Recordset.BOF Then
            Else
                Data1.Recordset.MoveFirst
            End If
            If Data1.Recordset.BOF Then
                Data1.Recordset.MoveNext
            End If
            T(5).Text = Data1.Recordset(1)
            T(4).Text = Data1.Recordset(2)
            T(3).Text = Data1.Recordset(3)
            Text1(0).Text = "数据已经移动到首位" & vbCrLf & Text1(0).Text
        Case 7
            If Data1.Recordset.BOF Then '往前10个数据
            Else
                If Data1.Recordset.BOF Then
                Else
                    ii = 0
                    Do Until Data1.Recordset.BOF Or ii = 10
                        Data1.Recordset.MovePrevious
                        ii = ii + 1
                    Loop
                End If
            End If
            If Data1.Recordset.BOF Then
                Data1.Recordset.MoveNext
            End If
            T(5).Text = Data1.Recordset(1)
            T(4).Text = Data1.Recordset(2)
            T(3).Text = Data1.Recordset(3)
            Text1(0).Text = "数据已经向前移动10个" & vbCrLf & Text1(0).Text
        Case 8
            If Data1.Recordset.BOF Then '往前10个数据
            Else
                If Data1.Recordset.BOF Then
                Else
                    Data1.Recordset.MovePrevious
                End If
            End If
            
            If Data1.Recordset.BOF Then
                Data1.Recordset.MoveNext
            End If

            T(5).Text = Data1.Recordset(1)
            T(4).Text = Data1.Recordset(2)
            T(3).Text = Data1.Recordset(3)
            Text1(0).Text = "数据已经向前移动1个" & vbCrLf & Text1(0).Text
        Case 9
            If Data1.Recordset.EOF Then
            Else
                If Data1.Recordset.EOF Then
                Else
                    Data1.Recordset.MoveNext
                End If
            End If
            If Data1.Recordset.EOF Then
                Data1.Recordset.MovePrevious
            End If

            T(5).Text = Data1.Recordset(1)
            T(4).Text = Data1.Recordset(2)
            T(3).Text = Data1.Recordset(3)
            Text1(0).Text = "数据已经往后移动1个" & vbCrLf & Text1(0).Text
        Case 10
            If Data1.Recordset.EOF Then
            Else
                If Data1.Recordset.EOF Then
                Else
                    ii = 0
                    Do Until Data1.Recordset.EOF Or ii = 10
                        Data1.Recordset.MoveNext
                        ii = ii + 1
                    Loop
                End If
            End If
            If Data1.Recordset.EOF Then
                Data1.Recordset.MovePrevious
            End If

            T(5).Text = Data1.Recordset(1)
            T(4).Text = Data1.Recordset(2)
            T(3).Text = Data1.Recordset(3)
            Text1(0).Text = "数据已经往后移动10" & vbCrLf & Text1(0).Text
        Case 11
            If Data1.Recordset.EOF Then
            Else
                Data1.Recordset.MoveLast
            End If
            T(5).Text = Data1.Recordset(1)
            T(4).Text = Data1.Recordset(2)
            T(3).Text = Data1.Recordset(3)
            Text1(0).Text = "数据已经移动到末位" & vbCrLf & Text1(0).Text
    End Select
    Exit Sub
DataMove:
    Text1(0).Text = "数据移动出现问题！" & Text1(0).Text
End Sub

'Private Sub Command7_Click()
''    If Data2.Recordset.BOF Then '清空会议签到表中的数据
''    Else
''    Data2.Recordset.MoveFirst
''        If Data2.Recordset.EOF Then
''        Else
''
''            Do Until Data2.Recordset.EOF
''                Data2.Recordset.Delete
''                Data2.Recordset.MoveNext
''            Loop
''        End If
''    End If
''
'End Sub

'Private Sub ComSample_Click()
'    Dim KeySnr1 As String
'    Dim KeySnr2 As String
'    Dim AuthOk As Integer
'    Dim SnrText As String
'    Dim iii As Integer
'    Dim abc()     As String
'    Dim rowabc()     As String
'    Dim abcd As String
'    Dim O16 As String
'
'    If T1(0).Text = "" Or T1(1).Text = "" Then
'        MsgBox "写入数据不能为空"
'        Timer2.Enabled = False
'        status
'        Exit Sub
'    End If
'
'    For iii = 1 To Len(T1(0).Text)
'        abcd = Mid(T1(0).Text, iii, 1)
'        If abcd > "f" Then
'            Timer2.Enabled = False
'            MsgBox "验证号 写入内容有误！请检查数据！"
'            status
'            Exit Sub
'        End If
'    Next iii
'
'    For iii = 1 To Len(T1(1).Text)
'        abcd = Mid(T1(1).Text, iii, 1)
'        If abcd > "f" Then
'            Timer2.Enabled = False
'            MsgBox "证号 写入内容有误！请检查数据！"
'            status
'            Exit Sub
'        End If
'    Next iii
'
'
'    cardmode = 1
'    loadmode = 1
'    AuthOk = 0
'    st = rf_card(ByVal icdev, cardmode, Snr)
'    If st <> 0 Then
'        st = rf_card(ByVal icdev, cardmode, Snr)
'    End If
'
'    If st <> 0 Then
'        Exit Sub
'    Else
'        If 0 Then
'            Exit Sub
'        Else
'
'            '写入证号
'            O16 = "00000000000000000000000000000000"
'            st = rf_card(ByVal icdev, cardmode, Snr)
'            If st <> 0 Then
'                st = rf_card(ByVal icdev, cardmode, Snr)
'            End If
'
'            KeySnr1 = TextMima(0).Text
'            KeySnr2 = TextMima(1).Text
'
'            hexkey = KeySnr1
'            st = rf_load_key_hex(ByVal icdev, loadmode, 0, ByVal hexkey)
'            If st <> 0 Then
'                Exit Sub
'            End If
'            AuthOk = 0
'            st = rf_authentication(ByVal icdev, loadmode, 0)
'            If st <> 0 Then
'
'                hexkey = KeySnr2
'
'                st = rf_load_key_hex(ByVal icdev, loadmode, 0, ByVal hexkey)
'                If st <> 0 Then
'                    Exit Sub
'                End If
'
'                st = rf_card(ByVal icdev, cardmode, Snr)
'                If st <> 0 Then
'                    st = rf_card(ByVal icdev, cardmode, Snr)
'                End If
'
'                st = rf_authentication(ByVal icdev, loadmode, 0)
'                If st <> 0 Then
'                    MsgBox ("扇区密码错误！")
'                Else
'                    Text1(0).Text = SnrText & "验证成功2222!" & vbCrLf & Text1(0).Text
'                    AuthOk = 1
'                End If
'            Else
'                Text1(0).Text = SnrText & "验证成功1111!" & vbCrLf & Text1(0).Text
'                AuthOk = 1
'            End If
'
'            If AuthOk = 1 Then
'                SnrText = T(3).Text
'                databuff32 = SnrText & Mid(O16, 1, 32 - Len(SnrText))
'                st = rf_write_hex(ByVal icdev, 1, databuff32)
'                If st <> 0 Then
'                    Text1(0).Text = SnrText & "证号写入失败!" & vbCrLf & Text1(0).Text
'                Else
'                    Text1(0).Text = SnrText & "证号写入成功!" & vbCrLf & Text1(0).Text
'                End If
'            End If
'
'            '写入验证号
'
'            st = rf_card(ByVal icdev, cardmode, Snr)
'            If st <> 0 Then
'                st = rf_card(ByVal icdev, cardmode, Snr)
'            End If
'
'            AuthOk = 0
'            st = rf_authentication(ByVal icdev, loadmode, 0)
'            If st <> 0 Then
'                Text1(0).Text = "扇区密码错误!" & vbCrLf & Text1(0).Text
'            Else
'                AuthOk = 1
'            End If
'
'            If AuthOk = 1 Then
'                SnrText = T(4).Text
'                databuff32 = SnrText & Mid(O16, 1, 32 - Len(SnrText))
'                st = rf_write_hex(ByVal icdev, 2, databuff32)
'                If st <> 0 Then
'                    Text1(0).Text = SnrText & "验证号写入失败!" & vbCrLf & Text1(0).Text
'                Else
'                    Text1(0).Text = SnrText & "验证号写入成功!" & vbCrLf & Text1(0).Text
'                End If
'            End If
'
'            '更改密码
'
'            st = rf_card(ByVal icdev, cardmode, Snr)
'            If st <> 0 Then
'                st = rf_card(ByVal icdev, cardmode, Snr)
'            End If
'
'            AuthOk = 0
'            st = rf_authentication(ByVal icdev, loadmode, 0)
'            If st <> 0 Then
'                Text1(0).Text = "扇区密码错误!" & vbCrLf & Text1(0).Text
'            Else
'                AuthOk = 1
'            End If
'
'            If AuthOk = 1 Then
'
'                SnrText = TextMima(1).Text
'                databuff32 = SnrText & "ff078069" & SnrText
'                st = rf_write_hex(ByVal icdev, 3, databuff32)
'                If st <> 0 Then
'                    Text1(0).Text = SnrText & "密码更改失败!" & vbCrLf & Text1(0).Text
'                    Exit Sub
'                Else
'                    Text1(0).Text = SnrText & "密码更改成功!" & vbCrLf & Text1(0).Text
'                    st = rf_beep(ByVal icdev, 20)
'                End If
'            End If
'        End If
'    End If
'
'End Sub

Private Sub Form_Unload(Cancel As Integer)

    quit
    ReaderStatus = False
End Sub



Private Sub Label2_Click(Index As Integer)
End Sub

Private Sub M1_exit_Click()

    quit
    TextStatus.Text = "断开读卡器！"

End Sub

Private Sub M1_init_Click()

    Snr = 0
    Rsnr = 0
    loadmode = 0
    sector = 2
    address = 9
    wvalue = 1000
    
    ComLoop = CbCom.Text
    
    icdev = rf_init(ComLoop, 9600) 'Com1
    If icdev < 0 Then
        TextStatus.Text = "请检查读卡器1状态！"
        Exit Sub
    Else
        st = rf_beep(ByVal icdev, 20)
        If st <> 0 Then
            TextStatus.Text = "请检查读卡器2状态！"
            rf_exit (ComLoop)
        Else
            TextStatus.Text = "读卡器连接成功！"
            ReaderStatus = True
            status
            Exit Sub
        End If
    End If
    status
    

End Sub

Private Sub Timer2_Timer()
    Dim KeySnr1 As String
    Dim KeySnr2 As String
    Dim AuthOk As Integer
    Dim SnrText As String
    Dim iii As Double
    Dim ii As Double
    Dim abc()     As String
    Dim rowabc()     As String
    Dim abcd As String
    Dim O16 As String
    
    
    cardmode = 1
    loadmode = 1
    AuthOk = 0
    st = rf_card(ByVal icdev, cardmode, Snr)
    If st <> 0 Then
        st = rf_card(ByVal icdev, cardmode, Snr)
    End If
    
    If st <> 0 Then
        Exit Sub
    Else
        If Snr = Snr1 Then
            Exit Sub
        Else
            Snr1 = Snr
            
            st = rf_card(ByVal icdev, cardmode, Snr)
            If st <> 0 Then
                st = rf_card(ByVal icdev, cardmode, Snr)
            End If
            
            KeySnr1 = TextMima(0).Text
            
            hexkey = KeySnr1
            st = rf_load_key_hex(ByVal icdev, loadmode, 0, ByVal hexkey)
            If st <> 0 Then
                Exit Sub
            End If
            AuthOk = 0
            st = rf_authentication(ByVal icdev, loadmode, 0)
            If st <> 0 Then
                MsgBox ("扇区密码错误！")
            Else
                AuthOk = 1
            End If
            
            If AuthOk = 1 Then
                st = rf_read_hex(ByVal icdev, 0, databuff32)
                If st <> 0 Then
                    Text1(0).Text = "读卡失败!" & vbCrLf & Text1(0).Text
                Else
                    iii = CLng("&H" + Mid(databuff32, 3, 2)) * 256
                    ii = iii
                    iii = CLng("&H" + Mid(databuff32, 1, 2))
                    ii = ii + iii
                    SnrText = ii
                    KeySnr2 = SnrText
                    ii = 6 - Len(KeySnr2)
                    If Len(SnrText) < 6 Then
                        
                        For iii = 1 To ii
                            SnrText = "0" & SnrText
                        Next
                    End If
                    O16 = 0
                    If Data1.Recordset.BOF Then '清空会议签到表中的数据
                    Else
                    Data1.Recordset.MoveFirst
                        If Data1.Recordset.EOF Then
                        Else
                            Do Until Data1.Recordset.EOF
                                If Data1.Recordset(1) = SnrText Then
                                    Data1.Recordset.MoveLast
                                    Data1.Recordset.MoveNext
                                    O16 = 1
                                Else
                                    Data1.Recordset.MoveNext
                                End If
                            Loop
                        End If
                    End If
    
                    If O16 = 0 Then
                        Data1.Recordset.AddNew
                        Data1.Recordset(1) = SnrText
                        Data1.Recordset(2) = Date
                        Data1.Recordset.Update
                        Text1(0).Text = SnrText & "成功!" & vbCrLf & Text1(0).Text
                        st = rf_beep(ByVal icdev, 20)
                    Else
                        Text1(0).Text = SnrText & "此卡重号!" & vbCrLf & Text1(0).Text
'                        st = rf_beep(ByVal icdev, 100)
                    End If
                End If
            End If
        End If
    End If
    
End Sub