如题：Dim cboMode As WinForm.ComboBox = e.Form.Controls("cboMode")
Dim snr(4) As Byte
Dim snr1 As New String(snr1, 8)
'单卡操作( IDLE 模式)寻卡时,完成对卡片的操作后读写器不能找到卡片,除非卡片离开操作区域并再次重新进入.
'选用多卡操作(ALL 模式)寻卡时,完成对卡片的操作后读写器仍能找到该卡片,无须离开操作区域并再次重新进入.
Dim st = Mwrf32.rf_card(icdev,cboMode.SelectedIndex,snr(0))
If (st = 0) Then
Mwrf32.hex_a(snr(0), snr1, 4)
Vars("CardNumber") = snr1
Dim ss As String = e.form.controls("textbox3").text
Dim dr3 As DataRow
dr3 = DataTables("T_信息表").SQLFind("序列号 = ss ")
If dr3 IsNot Nothing Then '如果找到的话
MessageBox.show("此卡已经分配,请勿重新分配")
Return
Else
Dim dr2 As DataRow = Tables("T_信息表").Current.DataRow
dr2("序列号") = ss
Tables("T_信息表").Current.Save()
End If
Else
messagebox.show("读卡失败: " & GetErrorDesc(st))
msgbox("读卡失败!" & vbcrlf & "请将IC卡拿起操作区域再重新放入!" & vbcrlf & "或者重新插拔驾驶员身份识别设备!")
End If
加好友 
发短信
Post By：2017/10/12 22:08:00 [只看该作者]
