- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 关于CVR-100U (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=127946)
-- 发布时间：2018/11/25 23:16:00
-- 关于CVR-100U
这个，不想要项目一打开就自动读取，想把它改成完全手动读取，哪位大神有经验的请教一下
-- 发布时间：2018/11/26 9:08:00
--
afterLoad事件，写代码
Try
Dim lb1 As WinForm.Label = e.Form.Controls("Label1")
Dim iRetUSB As Integer
For iPort As Integer = 1001 To 1016 \'遍历端口号
iRetUSB = CVR_InitComm(iPort)
If iRetUSB = 1 Then
Exit For
End If
Next
If iRetUSB = 1 Then
lb1.Text = "设备连接成功"
\'e.Form.TimerEnabled = True
e.Form.Controls("CheckBox1").Checked = False
e.Form.TimerEnabled = False \'停止计时器,使得自动读取功能失效
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
-- 发布时间：2018/11/26 16:46:00
--
我们增加一个自定义函数，用于解析"wz.txt"文件的内容，并写入FoxTable，函数名为“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"
-- 发布时间：2018/11/26 17:18:00
--
老是提示这个，哪个地方的原因？？？
此主题相关图片如下：qq图片20181126170830.png
-- 发布时间：2018/11/26 17:38:00
--
全局代码，加入
http://www.foxtable.com/webhelp/scr/1842.htm
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 \'关闭设备
http://www.foxtable.com/webhelp/scr/2417.htm
-- 发布时间：2018/11/27 0:09:00
--
我知道是怎么一回事了，就是全局事件必须要删除，然后重启项目，再重做