读卡器RF1040R怎么在博图屏TP1900 Comfort上使用

我是用面板的脚本功能做的，使用效果还可以.下面是脚本。
PMLOGON_UID_Changed 脚本

Sub PMLOGON_UID_Changed()

Dim Panel_LogonUid_Value
Panel_LogonUid_Value = SmartTags("Panel_LogonUid")
  

' Card not available
If Panel_LogonUid_Value = "-1" Then
 Logoff
 SmartTags("StatusRFID") = 0
 
' Card available 
Else
    Logon Panel_LogonUid_Value, "UserName"
    SmartTags("StatusRFID") = 1
    GetUserName "CurrentUser"  
    Control =True
   
' User does not exist   
 Dim zeichenkette
 Dim laenge
 zeichenkette = SmartTags("CurrentUser")
 laenge = Len(zeichenkette)
 
 If laenge < 1 Then
   SmartTags("StatusRFID") = 2
    Control =False
 End If    
 ' User logoff
  If UserLogOff  Then
  Control =False
  End If
End If

End Sub

User_LogOff 脚本

Sub User_LogOff()

Dim currentUser
GetUserName currentUser

If currentUser = "" Then
    
    Control = False
    SmartTags("Control") = False
    Panel_LogonUid = ""
   
End If