项目事件

计划管理

表事件

窗口表事件

窗口与控件事件

窗口1_AfterLoad

Try
    Dim lb1 As WinForm.Label = e.Form.Controls("Label1")
    Dim iRetUSB As Integer
    For iPort As Integer = 1001 To 1016 \'遍历端口号
        iRetUSB = InitComm(iPort)
        If iRetUSB = 1 Then
            Exit For
        End If
    Next
    If iRetUSB = 1 Then
        lb1.Text = "设备连接成功"
        e.Form.TimerEnabled = True
    Else
        lb1.Text = "设备连接失败"
        e.Form.TimerEnabled = False \'停止计时器,使得自动读取功能失效
        e.Form.Controls("Button1").Enabled = False \'禁用读卡按钮
        e.Form.Controls("CheckBox1").Enabled = False \'禁用自动读取复选框
    End If
Catch ex As Exception
    MessageBox.Show(ex.ToString)
End Try

窗口1_BeforeClose

Try
    CloseComm() \'断开设备
Catch ex As Exception
    MessageBox.Show(ex.ToString)
End Try

窗口1_Button1_Click

Dim lb1 As WinForm.Label = e.Form.Controls("Label1")
If Authenticate= 1 Then \'如果身份证验证通过
    Dim readContent As Integer = Read_Content(4) \'读取身份证信息,注意读取模式设置为4.
    If readContent = 1 Then
        lb1.Text = "读身份证信息成功!"
        Functions.Execute("parse")
    Else
        lb1.Text = "读身份证信息失败!"
    End If
Else
    lb1.Text = "没有检测到有效身份证!"
End If

窗口1_Button2_Click

If Tables("表A").Current IsNot Nothing 
    Tables("表A").Current.Delete()
End If

窗口1_CheckBox1_CheckedChanged

Dim chk As WinForm.CheckBox = e.Form.Controls("CheckBox1")
e.Form.TimerEnabled = chk.Checked

窗口1_TimerTick

Dim lb1 As WinForm.Label = e.Form.Controls("Label1")
If Authenticate= 1 Then \'如果身份证验证通过
    Dim readContent As Integer = Read_Content(4) \'读取身份证信息,注意读取模式设置为4.
    If readContent = 1 Then
        lb1.Text = "读身份证信息成功!"
        Functions.Execute("parse")
    Else
        lb1.Text = "读身份证信息失败!"
    End If
End If

自定义函数

parse

Dim Info As String
Info = FileSys.ReadAllText(ApplicationPath & "wz.txt", Encoding.Default) \'读取生成的文本文件
info = info.Replace(vbcrlf,vblf) \'将回车换行替换为换行
Dim pars() As String = Info.Split(vblf) \'将读取的信息拆分为数组
Dim r As Row = Tables("表A").AddNew
r("姓名") = pars(0).Trim()
r("性别") = pars(1).Trim()
r("名族") = pars(2).Trim()
r("出生日期") = pars(3).replace("年","-").Replace("月","-").Replace("日","")
r("住址") = pars(4)
r("身份证号码") = pars(5)
r("发证机关") = pars(6)
r("签发日期") = pars(7).SubString(0,10).Replace(".","-")
r("有效日期") = pars(7).SubString(11).Replace(",","-")
FileSys.CopyFile(ApplicationPath & "zp.bmp", ProjectPath & "\\Attachments\\" & r("身份证号码") & ".bmp",True) \'照片复制到Attachments目录
r("照片") = r("身份证号码") & ".bmp"

全局代码

\'Public Declare Function CVR_InitComm Lib "termb.dll" Alias "CVR_InitComm" (ByVal Port As Integer) As Integer \'连接设备
\'Public Declare Function CVR_Authenticate Lib "termb.dll" Alias "CVR_Authenticate" () As Integer \'验证身份证
\'Public Declare Function CVR_Read_Content Lib "termb.dll" Alias "CVR_Read_Content" (ByVal Active As Integer) As Integer \'读取身份证信息
\'Public Declare Function CVR_CloseComm Lib "termb.dll" Alias "CVR_CloseComm" () As Integer \'关闭设备
\'
Public Declare Function InitComm Lib "termb.dll" Alias "InitComm" (ByVal nComm As Long) As Long
Public Declare Function CloseComm Lib "termb.dll" Alias "CloseComm"() As Long
Public Declare Function Authenticate Lib "termb.dll" Alias "Authenticate"() As Long
Public Declare Function Read_Content Lib "termb.dll" Alias "Read_Content"(ByVal nComm As Long) As Long

菜单事件