VERSION 5.00
Begin VB.Form FrmOK
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
Caption = "Form1"
ClientHeight = 2655
ClientLeft = 5190
ClientTop = 3780
ClientWidth = 4095
LinkTopic = "Form1"
Picture = "OK.frx":0000
ScaleHeight = 2655
ScaleWidth = 4095
ShowInTaskbar = 0 'False
Begin VB.CommandButton Command2
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
Caption = "取消"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 2280
Style = 1 'Graphical
TabIndex = 2
Top = 1680
Width = 1095
End
Begin VB.CommandButton Command1
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
Caption = "确定"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 600
Style = 1 'Graphical
TabIndex = 1
Top = 1680
Width = 1095
End
Begin VB.Line Line2
BorderColor = &H00FFC0C0&
BorderWidth = 5
Index = 1
X1 = 0
X2 = 0
Y1 = 0
Y2 = 2640
End
Begin VB.Line Line2
BorderColor = &H00FFC0C0&
BorderWidth = 5
Index = 0
X1 = 4080
X2 = 4080
Y1 = 0
Y2 = 2640
End
Begin VB.Line Line1
BorderColor = &H00FFC0C0&
BorderWidth = 5
Index = 1
X1 = 0
X2 = 4080
Y1 = 2640
Y2 = 2640
End
Begin VB.Line Line1
BorderColor = &H00FFC0C0&
BorderWidth = 5
Index = 0
X1 = 0
X2 = 4080
Y1 = 0
Y2 = 0
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "请确认插入IC卡..."
BeginProperty Font
Name = "宋体"
Size = 18
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 615
Left = 480
TabIndex = 0
Top = 600
Width = 3375
End
End
Attribute VB_Name = "FrmOK"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Label1.Caption = "运行中，请等待..."
MF_Get_Data
frmsb.Show
Unload Me
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
'' 本地读取IC卡函数部分
'打开串口
Private Sub cmdOpen()
If Not PortOpened Then
fd = ICC_Reader_Open("COM2")
PortOpened = True
If fd < 0 Then
MsgBox "串口已经被打开"
'List_Error.Show
End
Else
PortOpened = True
End If
End If
End Sub
'关闭串口
Private Sub cmdClose()
If PortOpened Then
ICC_Reader_Close (fd)
PortOpened = False
End If
End Sub
'上电
Private Sub cmdPowerOn()
Dim ret As Long
Dim resp(0 To 255) As Byte
ret = ICC_Reader_InsertCard(fd, ICC_CONNECTOR_USER, ICC_T0, 32, resp(0))
If ret < 0 Then
MsgBox "ATR fail"
End If
End Sub
'下电
Private Sub cmdPowerOff()
ICC_Reader_RemoveCard fd, ICC_CONNECTOR_USER, 0
End Sub
'选择 MF_DF
Private Function Switch(Handel As String) As Long
Dim mf_df As String
Dim ret As Long
Dim errmsg As String
mf_df = Handel + vbNullChar
errmsg = Space(256)
If Handel = "DF08" Then
ret = switch_service(fd, mf_df, AUTH_READ + AUTH_WRITE, errmsg)
Else
ret = switch_service(fd, mf_df, 0, errmsg)
End If
If ret < 0 Then
MsgBox errmsg
End If
End Function
'读取数据
Private Function ReadRec(ef As String, recno As String, transform As String) As Long
Dim ret As Long
Dim EF1 As String
Dim RecNo1 As Long
Dim data As String
Dim tf As Long
Dim errmsg As String
EF1 = ef
RecNo1 = CInt(recno)
data = Space(256)
tf = -1
Select Case transform
Case "CN": tf = TF_CN
Case "AN": tf = TF_AN
Case "BIN": tf = TF_BIN
End Select
If tf = -1 Then
MsgBox "Error set TransForm"
Exit Function
End If
errmsg = Space(256)
ret = read_record(fd, EF1, RecNo1, data, tf, errmsg)
If ret < 0 Then
End
Else
Data_A(Count_No) = data
End If
Count_No = Count_No + 1
End Function
'MF GET DATA
Private Sub MF_Get_Data()
If Not PortOpened Then
cmdOpen
End If
Count_No = 0
Dim ret As Long
ret = Switch("MF")
'EFO5 数据进库(发卡机关数据)
ret = ReadRec("EF05", "07", "AN")
'EF06 数据进库(个人基本信息)
ret = ReadRec("EF06", "01", "AN")
ret = ReadRec("EF06", "02", "AN")
ret = ReadRec("EF06", "03", "AN")
ret = ReadRec("EF06", "04", "CN")
ret = ReadRec("EF06", "06", "CN")
''EF07 数据进库(指纹信息)
'DF01 GET data
ret = Switch("DF01")
'EFO5 数据进库(户籍信息)
ret = ReadRec("EF05", "02", "AN")
ret = ReadRec("EF05", "04", "CN")
'EF06 数据进库(通讯信息)
ret = ReadRec("EF06", "04", "AN")
'EF08 数据进库(婚姻状况信息)
ret = ReadRec("EF08", "01", "AN")
'EFO9
ret = ReadRec("EF09", "01", "AN")
ICC_Reader_RemoveCard fd, ICC_CONNECTOR_USER, 0
cmdClose
End Sub
Private Sub Form_Load()
Dim Rtn
Rtn = SetWindowPos(FrmOK.hwnd, -1, 0, 0, 0, 0, 3)
End Sub
