求助易语言连接sfz读卡器

无限能量

求助易语言连接sfz读卡器：
公司每年给员工发福利，每次都是手动记录sfz号和发放福利的规格，有点麻烦。
我想做一个小软件连接数据库，实现软件连接sfz读卡器，自动识别sfz号并填入对应的文本框或编辑框内。
读卡器型号为：神思SS628(100)X
因为我是新手，没写过几个程序，对于读取和连接DLL文件更是一头雾水
在论坛内只搜索到了寥寥几个帖子，而且我也看不懂
我有读卡器的安装驱动和SDK等全套文件。
哪位大神能不吝指点一二，在下不胜感激！！
如果能帮给个示例代码，更将感恩戴德！！谢谢


补充内容 (2025-6-20 15:03):
连接数据库、登记、发放等界面，我都做好了，就是不会连接sfz读卡器这一步

无限能量

连接数据库和登记发放界面我已经做好了，就差读sfz信息到文本框这步了

我爱逗妇乳

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
设备句柄	整数型
是否已连接	逻辑型
自动读卡模式	逻辑型
蜂鸣提示	逻辑型
上次读卡时间	长整数型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

初始化界面 ()
检查SDK文件 ()

子程序名	返回值类型	公开	备 注
初始化界面

标题 ＝ "神思读卡器优化版"
按钮_连接.标题 ＝ "连接设备"
按钮_断开.标题 ＝ "断开连接"
按钮_断开.禁止 ＝ 真
按钮_读卡.禁止 ＝ 真
状态条1.置文本 (0, "就绪")

' 初始化个人信息列表
超级列表框1.插入列 (0, "信息类型", 100)
超级列表框1.插入列 (1, "信息内容", 300)
超级列表框1.显示网格线 ＝ 真

' 设置默认选项
蜂鸣提示 ＝ 真
选择框_蜂鸣提示.选中 ＝ 真

子程序名	返回值类型	公开	备 注
检查SDK文件

如果真 (文件是否存在 (取运行目录 () + "\SS628 (100)X.dll") ＝ 假)
信息框 ("SDK文件缺失，请将SS628 (100)X.dll放入程序目录", #错误图标, "错误")
结束 ()

子程序名	返回值类型	公开	备 注
_按钮_连接_被单击

.局部变量 端口号, 整数型
端口号 ＝ 1001  ' USB端口

' 初始化并连接设备
设备句柄 ＝ DLL命令_打开设备 (端口号)

如果 (设备句柄 ＞ 0)
是否已连接 ＝ 真
按钮_连接.禁止 ＝ 真
按钮_断开.禁止 ＝ 假
按钮_读卡.禁止 ＝ 假
状态条1.置文本 (0, "设备连接成功")
时钟_状态监测.时钟周期 ＝ 1000
状态条1.置文本 (0, "连接失败，错误码: " + 到文本 (设备句柄))

子程序名	返回值类型	公开	备 注
_按钮_断开_被单击

.局部变量 结果, 整数型
结果 ＝ DLL命令_关闭设备 (设备句柄)

如果 (结果 ＝ 0)
是否已连接 ＝ 假
按钮_连接.禁止 ＝ 假
按钮_断开.禁止 ＝ 真
按钮_读卡.禁止 ＝ 真
状态条1.置文本 (0, "设备已断开")
时钟_状态监测.时钟周期 ＝ 0
时钟_自动读卡.时钟周期 ＝ 0
状态条1.置文本 (0, "断开失败，错误码: " + 到文本 (结果))

子程序名	返回值类型	公开	备 注
_按钮_读卡_被单击

读取sfz信息 ()

子程序名	返回值类型	公开	备 注
_选择框_自动读卡_被单击

自动读卡模式 ＝ 选择框_自动读卡.选中
如果 (自动读卡模式)
时钟_自动读卡.时钟周期 ＝ 500
状态条1.置文本 (0, "自动读卡模式已启用")
时钟_自动读卡.时钟周期 ＝ 0
状态条1.置文本 (0, "自动读卡模式已关闭")

子程序名	返回值类型	公开	备 注
_选择框_蜂鸣提示_被单击

蜂鸣提示 ＝ 选择框_蜂鸣提示.选中

子程序名	返回值类型	公开	备 注
_时钟_状态监测_周期事件

.局部变量 状态, 整数型
状态 ＝ DLL命令_获取设备状态 (设备句柄)
状态条1.置文本 (1, 获取状态描述 (状态))

子程序名	返回值类型	公开	备 注
获取状态描述	文本型

DLL命令名	返回值类型	公开	备 注
(暂未填写DLL命令名)
DLL库文件名:
(未填写库文件名)
在DLL库中对应命令名:
(未填写命令名)
参数名	类 型	传址	数组	备 注
状态码	整数型

判断 (状态码 ＝ 0)
返回 ("状态: 正常")
判断 (状态码 ＝ -1)
返回 ("状态: 未连接")
判断 (状态码 ＝ 1)
返回 ("状态: 设备忙")
判断 (状态码 ＝ 2)
返回 ("状态: 通讯错误")
判断 (状态码 ＝ 3)
返回 ("状态: 未发现卡片")
返回 ("状态: 未知 (" + 到文本 (状态码) + ")")

子程序名	返回值类型	公开	备 注
_时钟_自动读卡_周期事件

.局部变量 卡片状态, 整数型

' 限制读卡频率（至少间隔1秒）
如果真 (取启动时间 () - 上次读卡时间 ＜ 1000)
返回 ()

卡片状态 ＝ DLL命令_检测卡片 (设备句柄)
如果 (卡片状态 ＝ 1)  ' 检测到卡片
读取sfz信息 ()
上次读卡时间 ＝ 取启动时间 ()
如果 (卡片状态 ＜ 0)
状态条1.置文本 (0, "读卡错误: " + 到文本 (卡片状态))

子程序名	返回值类型	公开	备 注
读取sfz信息

.局部变量 信息, 个人信息
.局部变量 照片数据, 字节集
.局部变量 照片长度, 整数型
.局部变量 读卡结果, 整数型

照片长度 ＝ 1024 * 3  ' 3KB缓冲区
照片数据 ＝ 取空白字节集 (照片长度)

' 读取sfz信息
读卡结果 ＝ DLL命令_读基本信息 (设备句柄, 信息.姓名, 信息.性别, 信息.民族, 信息.出生日期,
信息.住址, 信息.sfz号, 信息.签发机关, 信息.有效起始, 信息.有效截止)

如果 (读卡结果 ≠ 0)
状态条1.置文本 (0, "读取失败: " + 到文本 (读卡结果))
如果 (蜂鸣提示)
DLL命令_蜂鸣提示 (设备句柄, 300)
返回 ()
' 读取照片
DLL命令_读取照片 (设备句柄, 照片数据, 照片长度)
显示sfz信息 (信息, 照片数据)
如果 (蜂鸣提示)
DLL命令_蜂鸣提示 (设备句柄, 100)

子程序名	返回值类型	公开	备 注
显示sfz信息

DLL命令名	返回值类型	公开	备 注
(暂未填写DLL命令名)
DLL库文件名:
(未填写库文件名)
在DLL库中对应命令名:
(未填写命令名)
参数名	类 型	传址	数组	备 注
信息	个人信息
照片数据	字节集

' 清空并添加信息
超级列表框1.全部删除 ()

如果 (照片数据[1] ≠ 0)
图片框1.图片 ＝ 照片数据
图片框1.图片 ＝ { }

' 使用循环添加信息项
添加信息项 ("姓名", 信息.姓名)
添加信息项 ("性别", 信息.性别)
添加信息项 ("民族", 信息.民族)
添加信息项 ("出生日期", 信息.出生日期)
添加信息项 ("sfz号", 信息.sfz号)
添加信息项 ("住址", 信息.住址)
添加信息项 ("签发机关", 信息.签发机关)
添加信息项 ("有效期", 信息.有效起始 + "至" + 信息.有效截止)

子程序名	返回值类型	公开	备 注
添加信息项

DLL命令名	返回值类型	公开	备 注
(暂未填写DLL命令名)
DLL库文件名:
(未填写库文件名)
在DLL库中对应命令名:
(未填写命令名)
参数名	类 型	传址	数组	备 注
类型	文本型
内容	文本型

.局部变量 索引, 整数型
索引 ＝ 超级列表框1.插入表项 (-1, 类型, , , , )
超级列表框1.置标题 (索引, 1, 内容)

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

如果真 (是否已连接)
DLL命令_关闭设备 (设备句柄)

窗口程序集名	保 留	保 留	备 注
个人信息

.程序集变量 姓名, 文本型
.程序集变量 性别, 文本型
.程序集变量 民族, 文本型
.程序集变量 出生日期, 文本型
.程序集变量 住址, 文本型
.程序集变量 sfz号, 文本型
.程序集变量 签发机关, 文本型
.程序集变量 有效起始, 文本型
.程序集变量 有效截止, 文本型
' ========== 精简的DLL命令声明 ==========

DLL命令名	返回值类型	公开	备 注
DLL命令_打开设备	整数型
DLL库文件名:
SS628(100)X.dll
在DLL库中对应命令名:
OpenComm
参数名	类 型	传址	数组	备 注
端口号	整数型

DLL命令名	返回值类型	公开	备 注
DLL命令_关闭设备	整数型
DLL库文件名:
SS628(100)X.dll
在DLL库中对应命令名:
CloseComm
参数名	类 型	传址	数组	备 注
设备句柄	整数型

DLL命令名	返回值类型	公开	备 注
DLL命令_检测卡片	整数型
DLL库文件名:
SS628(100)X.dll
在DLL库中对应命令名:
CardDetect
参数名	类 型	传址	数组	备 注
设备句柄	整数型

DLL命令名	返回值类型	公开	备 注
DLL命令_读基本信息	整数型
DLL库文件名:
SS628(100)X.dll
在DLL库中对应命令名:
ReadBaseInfo
参数名	类 型	传址	数组	备 注
设备句柄	整数型
姓名	文本型
性别	文本型
民族	文本型
出生日期	文本型
住址	文本型
sfz号	文本型
签发机关	文本型
有效起始	文本型
有效截止	文本型

DLL命令名	返回值类型	公开	备 注
DLL命令_读取照片	整数型
DLL库文件名:
SS628(100)X.dll
在DLL库中对应命令名:
ReadPhoto
参数名	类 型	传址	数组	备 注
设备句柄	整数型
照片数据	字节集
照片长度	整数型

DLL命令名	返回值类型	公开	备 注
DLL命令_获取设备状态	整数型
DLL库文件名:
SS628(100)X.dll
在DLL库中对应命令名:
GetDevState
参数名	类 型	传址	数组	备 注
设备句柄	整数型

DLL命令名	返回值类型	公开	备 注
DLL命令_蜂鸣提示	整数型
DLL库文件名:
SS628(100)X.dll
在DLL库中对应命令名:
Beep
参数名	类 型	传址	数组	备 注
设备句柄	整数型
持续时间	整数型

i支持库列表	支持库注释
iext	扩展界面支持库一
eGrid	高级表格支持库

.版本 2<br /> .支持库 iext<br /> .支持库 eGrid<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 设备句柄, 整数型<br /> .程序集变量 是否已连接, 逻辑型<br /> .程序集变量 自动读卡模式, 逻辑型<br /> .程序集变量 蜂鸣提示, 逻辑型<br /> .程序集变量 上次读卡时间, 长整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br />     初始化界面()<br />     检查SDK文件()<br /> <br /> .子程序 初始化界面<br />     标题 ＝ "神思读卡器优化版"<br />     按钮_连接.标题 ＝ "连接设备"<br />     按钮_断开.标题 ＝ "断开连接"<br />     按钮_断开.禁止 ＝ 真<br />     按钮_读卡.禁止 ＝ 真<br />     状态条1.置文本 (0, "就绪")<br />     <br />     ' 初始化个人信息列表<br />     超级列表框1.插入列 (0, "信息类型", 100)<br />     超级列表框1.插入列 (1, "信息内容", 300)<br />     超级列表框1.显示网格线 ＝ 真<br />     <br />     ' 设置默认选项<br />     蜂鸣提示 ＝ 真<br />     选择框_蜂鸣提示.选中 ＝ 真<br /> <br /> .子程序 检查SDK文件<br />     .如果真 (文件是否存在(取运行目录() + "\SS628(100)X.dll") ＝ 假)<br />         信息框("SDK文件缺失，请将SS628(100)X.dll放入程序目录", #错误图标, "错误")<br />         结束()<br />     .如果真结束<br /> <br /> .子程序 _按钮_连接_被单击<br />     .局部变量 端口号, 整数型<br />     端口号 ＝ 1001  ' USB端口<br />     <br />     ' 初始化并连接设备<br />     设备句柄 ＝ DLL命令_打开设备(端口号)<br />     <br />     .如果 (设备句柄 ＞ 0)<br />         是否已连接 ＝ 真<br />         按钮_连接.禁止 ＝ 真<br />         按钮_断开.禁止 ＝ 假<br />         按钮_读卡.禁止 ＝ 假<br />         状态条1.置文本(0, "设备连接成功")<br />         时钟_状态监测.时钟周期 ＝ 1000<br />     .否则<br />         状态条1.置文本(0, "连接失败，错误码: " + 到文本(设备句柄))<br />     .如果结束<br /> <br /> .子程序 _按钮_断开_被单击<br />     .局部变量 结果, 整数型<br />     结果 ＝ DLL命令_关闭设备(设备句柄)<br />     <br />     .如果 (结果 ＝ 0)<br />         是否已连接 ＝ 假<br />         按钮_连接.禁止 ＝ 假<br />         按钮_断开.禁止 ＝ 真<br />         按钮_读卡.禁止 ＝ 真<br />         状态条1.置文本(0, "设备已断开")<br />         时钟_状态监测.时钟周期 ＝ 0<br />         时钟_自动读卡.时钟周期 ＝ 0<br />     .否则<br />         状态条1.置文本(0, "断开失败，错误码: " + 到文本(结果))<br />     .如果结束<br /> <br /> .子程序 _按钮_读卡_被单击<br />     读取sfz信息()<br /> <br /> .子程序 _选择框_自动读卡_被单击<br />     自动读卡模式 ＝ 选择框_自动读卡.选中<br />     .如果 (自动读卡模式)<br />         时钟_自动读卡.时钟周期 ＝ 500<br />         状态条1.置文本(0, "自动读卡模式已启用")<br />     .否则<br />         时钟_自动读卡.时钟周期 ＝ 0<br />         状态条1.置文本(0, "自动读卡模式已关闭")<br />     .如果结束<br /> <br /> .子程序 _选择框_蜂鸣提示_被单击<br />     蜂鸣提示 ＝ 选择框_蜂鸣提示.选中<br /> <br /> .子程序 _时钟_状态监测_周期事件<br />     .局部变量 状态, 整数型<br />     状态 ＝ DLL命令_获取设备状态(设备句柄)<br />     状态条1.置文本(1, 获取状态描述(状态))<br /> <br /> .子程序 获取状态描述, 文本型<br />     .参数 状态码, 整数型<br />     .判断开始 (状态码 ＝ 0)<br />         返回 ("状态: 正常")<br />     .判断 (状态码 ＝ -1)<br />         返回 ("状态: 未连接")<br />     .判断 (状态码 ＝ 1)<br />         返回 ("状态: 设备忙")<br />     .判断 (状态码 ＝ 2)<br />         返回 ("状态: 通讯错误")<br />     .判断 (状态码 ＝ 3)<br />         返回 ("状态: 未发现卡片")<br />     .默认<br />         返回 ("状态: 未知(" + 到文本(状态码) + ")")<br />     .判断结束<br /> <br /> .子程序 _时钟_自动读卡_周期事件<br />     .局部变量 卡片状态, 整数型<br />     <br />     ' 限制读卡频率（至少间隔1秒）<br />     .如果真 (取启动时间() - 上次读卡时间 ＜ 1000)<br />         返回 ()<br />     .如果真结束<br />     <br />     卡片状态 ＝ DLL命令_检测卡片(设备句柄)<br />     .如果 (卡片状态 ＝ 1)  ' 检测到卡片<br />         读取sfz信息()<br />         上次读卡时间 ＝ 取启动时间()<br />     .否则<br />         .如果 (卡片状态 ＜ 0)<br />             状态条1.置文本(0, "读卡错误: " + 到文本(卡片状态))<br />         .如果结束<br />     .如果结束<br /> <br /> .子程序 读取sfz信息<br />     .局部变量 信息, 个人信息<br />     .局部变量 照片数据, 字节集<br />     .局部变量 照片长度, 整数型<br />     .局部变量 读卡结果, 整数型<br />     <br />     照片长度 ＝ 1024 * 3  ' 3KB缓冲区<br />     照片数据 ＝ 取空白字节集(照片长度)<br />     <br />     ' 读取sfz信息<br />     读卡结果 ＝ DLL命令_读基本信息(设备句柄, 信息.姓名, 信息.性别, 信息.民族, 信息.出生日期, <br />         信息.住址, 信息.sfz号, 信息.签发机关, 信息.有效起始, 信息.有效截止)<br />     <br />     .如果 (读卡结果 ≠ 0)<br />         状态条1.置文本(0, "读取失败: " + 到文本(读卡结果))<br />         .如果 (蜂鸣提示)<br />             DLL命令_蜂鸣提示(设备句柄, 300)<br />         .如果结束<br />         返回 ()<br />     .否则<br />         ' 读取照片<br />         DLL命令_读取照片(设备句柄, 照片数据, 照片长度)<br />         显示sfz信息(信息, 照片数据)<br />         .如果 (蜂鸣提示)<br />             DLL命令_蜂鸣提示(设备句柄, 100)<br />         .如果结束<br />     .如果结束<br /> <br /> .子程序 显示sfz信息<br />     .参数 信息, 个人信息<br />     .参数 照片数据, 字节集<br />     <br />     ' 清空并添加信息<br />     超级列表框1.全部删除()<br />     <br />     .如果 (照片数据[1] ≠ 0)<br />         图片框1.图片 ＝ 照片数据<br />     .否则<br />         图片框1.图片 ＝ { }<br />     .如果结束<br />     <br />     ' 使用循环添加信息项<br />     添加信息项("姓名", 信息.姓名)<br />     添加信息项("性别", 信息.性别)<br />     添加信息项("民族", 信息.民族)<br />     添加信息项("出生日期", 信息.出生日期)<br />     添加信息项("sfz号", 信息.sfz号)<br />     添加信息项("住址", 信息.住址)<br />     添加信息项("签发机关", 信息.签发机关)<br />     添加信息项("有效期", 信息.有效起始 + "至" + 信息.有效截止)<br /> <br /> .子程序 添加信息项<br />     .参数 类型, 文本型<br />     .参数 内容, 文本型<br />     <br />     .局部变量 索引, 整数型<br />     索引 ＝ 超级列表框1.插入表项(-1, 类型, , , , )<br />     超级列表框1.置标题(索引, 1, 内容)<br /> <br /> .子程序 __启动窗口_将被销毁<br />     .如果真 (是否已连接)<br />         DLL命令_关闭设备(设备句柄)<br />     .如果真结束<br /> <br /> .程序集 个人信息<br />     .程序集变量 姓名, 文本型<br />     .程序集变量 性别, 文本型<br />     .程序集变量 民族, 文本型<br />     .程序集变量 出生日期, 文本型<br />     .程序集变量 住址, 文本型<br />     .程序集变量 sfz号, 文本型<br />     .程序集变量 签发机关, 文本型<br />     .程序集变量 有效起始, 文本型<br />     .程序集变量 有效截止, 文本型<br /> <br /> ' ========== 精简的DLL命令声明 ==========<br /> .DLL命令 DLL命令_打开设备, 整数型, "SS628(100)X.dll", "OpenComm"<br />     .参数 端口号, 整数型<br /> <br /> .DLL命令 DLL命令_关闭设备, 整数型, "SS628(100)X.dll", "CloseComm"<br />     .参数 设备句柄, 整数型<br /> <br /> .DLL命令 DLL命令_检测卡片, 整数型, "SS628(100)X.dll", "CardDetect"<br />     .参数 设备句柄, 整数型<br /> <br /> .DLL命令 DLL命令_读基本信息, 整数型, "SS628(100)X.dll", "ReadBaseInfo"<br />     .参数 设备句柄, 整数型<br />     .参数 姓名, 文本型, 传址<br />     .参数 性别, 文本型, 传址<br />     .参数 民族, 文本型, 传址<br />     .参数 出生日期, 文本型, 传址<br />     .参数 住址, 文本型, 传址<br />     .参数 sfz号, 文本型, 传址<br />     .参数 签发机关, 文本型, 传址<br />     .参数 有效起始, 文本型, 传址<br />     .参数 有效截止, 文本型, 传址<br /> <br /> .DLL命令 DLL命令_读取照片, 整数型, "SS628(100)X.dll", "ReadPhoto"<br />     .参数 设备句柄, 整数型<br />     .参数 照片数据, 字节集, 传址<br />     .参数 照片长度, 整数型, 传址<br /> <br /> .DLL命令 DLL命令_获取设备状态, 整数型, "SS628(100)X.dll", "GetDevState"<br />     .参数 设备句柄, 整数型<br /> <br /> .DLL命令 DLL命令_蜂鸣提示, 整数型, "SS628(100)X.dll", "Beep"<br />     .参数 设备句柄, 整数型<br />     .参数 持续时间, 整数型

我爱逗妇乳

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
设备句柄	整数型
是否已连接	逻辑型
自动读卡模式	逻辑型
蜂鸣提示	逻辑型
上次读卡时间	长整数型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

初始化界面 ()
检查SDK文件 ()

子程序名	返回值类型	公开	备 注
初始化界面

标题 ＝ "神思读卡器优化版"
按钮_连接.标题 ＝ "连接设备"
按钮_断开.标题 ＝ "断开连接"
按钮_断开.禁止 ＝ 真
按钮_读卡.禁止 ＝ 真
状态条1.置文本 (0, "就绪")

' 初始化个人信息列表
超级列表框1.插入列 (0, "信息类型", 100)
超级列表框1.插入列 (1, "信息内容", 300)
超级列表框1.显示网格线 ＝ 真

' 设置默认选项
蜂鸣提示 ＝ 真
选择框_蜂鸣提示.选中 ＝ 真

子程序名	返回值类型	公开	备 注
检查SDK文件

如果真 (文件是否存在 (取运行目录 () + "\SS628 (100)X.dll") ＝ 假)
信息框 ("SDK文件缺失，请将SS628 (100)X.dll放入程序目录", #错误图标, "错误")
结束 ()

子程序名	返回值类型	公开	备 注
_按钮_连接_被单击

.局部变量 端口号, 整数型
端口号 ＝ 1001  ' USB端口

' 初始化并连接设备
设备句柄 ＝ DLL命令_打开设备 (端口号)

如果 (设备句柄 ＞ 0)
是否已连接 ＝ 真
按钮_连接.禁止 ＝ 真
按钮_断开.禁止 ＝ 假
按钮_读卡.禁止 ＝ 假
状态条1.置文本 (0, "设备连接成功")
时钟_状态监测.时钟周期 ＝ 1000
状态条1.置文本 (0, "连接失败，错误码: " + 到文本 (设备句柄))

子程序名	返回值类型	公开	备 注
_按钮_断开_被单击

.局部变量 结果, 整数型
结果 ＝ DLL命令_关闭设备 (设备句柄)

如果 (结果 ＝ 0)
是否已连接 ＝ 假
按钮_连接.禁止 ＝ 假
按钮_断开.禁止 ＝ 真
按钮_读卡.禁止 ＝ 真
状态条1.置文本 (0, "设备已断开")
时钟_状态监测.时钟周期 ＝ 0
时钟_自动读卡.时钟周期 ＝ 0
状态条1.置文本 (0, "断开失败，错误码: " + 到文本 (结果))

子程序名	返回值类型	公开	备 注
_按钮_读卡_被单击

读取sfz信息 ()

子程序名	返回值类型	公开	备 注
_选择框_自动读卡_被单击

自动读卡模式 ＝ 选择框_自动读卡.选中
如果 (自动读卡模式)
时钟_自动读卡.时钟周期 ＝ 500
状态条1.置文本 (0, "自动读卡模式已启用")
时钟_自动读卡.时钟周期 ＝ 0
状态条1.置文本 (0, "自动读卡模式已关闭")

子程序名	返回值类型	公开	备 注
_选择框_蜂鸣提示_被单击

蜂鸣提示 ＝ 选择框_蜂鸣提示.选中

子程序名	返回值类型	公开	备 注
_时钟_状态监测_周期事件

.局部变量 状态, 整数型
状态 ＝ DLL命令_获取设备状态 (设备句柄)
状态条1.置文本 (1, 获取状态描述 (状态))

子程序名	返回值类型	公开	备 注
获取状态描述	文本型

DLL命令名	返回值类型	公开	备 注
(暂未填写DLL命令名)
DLL库文件名:
(未填写库文件名)
在DLL库中对应命令名:
(未填写命令名)
参数名	类 型	传址	数组	备 注
状态码	整数型

判断 (状态码 ＝ 0)
返回 ("状态: 正常")
判断 (状态码 ＝ -1)
返回 ("状态: 未连接")
判断 (状态码 ＝ 1)
返回 ("状态: 设备忙")
判断 (状态码 ＝ 2)
返回 ("状态: 通讯错误")
判断 (状态码 ＝ 3)
返回 ("状态: 未发现卡片")
返回 ("状态: 未知 (" + 到文本 (状态码) + ")")

子程序名	返回值类型	公开	备 注
_时钟_自动读卡_周期事件

.局部变量 卡片状态, 整数型

' 限制读卡频率（至少间隔1秒）
如果真 (取启动时间 () - 上次读卡时间 ＜ 1000)
返回 ()

卡片状态 ＝ DLL命令_检测卡片 (设备句柄)
如果 (卡片状态 ＝ 1)  ' 检测到卡片
读取sfz信息 ()
上次读卡时间 ＝ 取启动时间 ()
如果 (卡片状态 ＜ 0)
状态条1.置文本 (0, "读卡错误: " + 到文本 (卡片状态))

子程序名	返回值类型	公开	备 注
读取sfz信息

.局部变量 信息, 个人信息
.局部变量 照片数据, 字节集
.局部变量 照片长度, 整数型
.局部变量 读卡结果, 整数型

照片长度 ＝ 1024 * 3  ' 3KB缓冲区
照片数据 ＝ 取空白字节集 (照片长度)

' 读取sfz信息
读卡结果 ＝ DLL命令_读基本信息 (设备句柄, 信息.姓名, 信息.性别, 信息.民族, 信息.出生日期,
信息.住址, 信息.sfz号, 信息.签发机关, 信息.有效起始, 信息.有效截止)

如果 (读卡结果 ≠ 0)
状态条1.置文本 (0, "读取失败: " + 到文本 (读卡结果))
如果 (蜂鸣提示)
DLL命令_蜂鸣提示 (设备句柄, 300)
返回 ()
' 读取照片
DLL命令_读取照片 (设备句柄, 照片数据, 照片长度)
显示sfz信息 (信息, 照片数据)
如果 (蜂鸣提示)
DLL命令_蜂鸣提示 (设备句柄, 100)

子程序名	返回值类型	公开	备 注
显示sfz信息

DLL命令名	返回值类型	公开	备 注
(暂未填写DLL命令名)
DLL库文件名:
(未填写库文件名)
在DLL库中对应命令名:
(未填写命令名)
参数名	类 型	传址	数组	备 注
信息	个人信息
照片数据	字节集

' 清空并添加信息
超级列表框1.全部删除 ()

如果 (照片数据[1] ≠ 0)
图片框1.图片 ＝ 照片数据
图片框1.图片 ＝ { }

' 使用循环添加信息项
添加信息项 ("姓名", 信息.姓名)
添加信息项 ("性别", 信息.性别)
添加信息项 ("民族", 信息.民族)
添加信息项 ("出生日期", 信息.出生日期)
添加信息项 ("sfz号", 信息.sfz号)
添加信息项 ("住址", 信息.住址)
添加信息项 ("签发机关", 信息.签发机关)
添加信息项 ("有效期", 信息.有效起始 + "至" + 信息.有效截止)

子程序名	返回值类型	公开	备 注
添加信息项

DLL命令名	返回值类型	公开	备 注
(暂未填写DLL命令名)
DLL库文件名:
(未填写库文件名)
在DLL库中对应命令名:
(未填写命令名)
参数名	类 型	传址	数组	备 注
类型	文本型
内容	文本型

.局部变量 索引, 整数型
索引 ＝ 超级列表框1.插入表项 (-1, 类型, , , , )
超级列表框1.置标题 (索引, 1, 内容)

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

如果真 (是否已连接)
DLL命令_关闭设备 (设备句柄)

窗口程序集名	保 留	保 留	备 注
个人信息

.程序集变量 姓名, 文本型
.程序集变量 性别, 文本型
.程序集变量 民族, 文本型
.程序集变量 出生日期, 文本型
.程序集变量 住址, 文本型
.程序集变量 sfz号, 文本型
.程序集变量 签发机关, 文本型
.程序集变量 有效起始, 文本型
.程序集变量 有效截止, 文本型
' ========== 精简的DLL命令声明 ==========

DLL命令名	返回值类型	公开	备 注
DLL命令_打开设备	整数型
DLL库文件名:
SS628(100)X.dll
在DLL库中对应命令名:
OpenComm
参数名	类 型	传址	数组	备 注
端口号	整数型

DLL命令名	返回值类型	公开	备 注
DLL命令_关闭设备	整数型
DLL库文件名:
SS628(100)X.dll
在DLL库中对应命令名:
CloseComm
参数名	类 型	传址	数组	备 注
设备句柄	整数型

DLL命令名	返回值类型	公开	备 注
DLL命令_检测卡片	整数型
DLL库文件名:
SS628(100)X.dll
在DLL库中对应命令名:
CardDetect
参数名	类 型	传址	数组	备 注
设备句柄	整数型

DLL命令名	返回值类型	公开	备 注
DLL命令_读基本信息	整数型
DLL库文件名:
SS628(100)X.dll
在DLL库中对应命令名:
ReadBaseInfo
参数名	类 型	传址	数组	备 注
设备句柄	整数型
姓名	文本型
性别	文本型
民族	文本型
出生日期	文本型
住址	文本型
sfz号	文本型
签发机关	文本型
有效起始	文本型
有效截止	文本型

DLL命令名	返回值类型	公开	备 注
DLL命令_读取照片	整数型
DLL库文件名:
SS628(100)X.dll
在DLL库中对应命令名:
ReadPhoto
参数名	类 型	传址	数组	备 注
设备句柄	整数型
照片数据	字节集
照片长度	整数型

DLL命令名	返回值类型	公开	备 注
DLL命令_获取设备状态	整数型
DLL库文件名:
SS628(100)X.dll
在DLL库中对应命令名:
GetDevState
参数名	类 型	传址	数组	备 注
设备句柄	整数型

DLL命令名	返回值类型	公开	备 注
DLL命令_蜂鸣提示	整数型
DLL库文件名:
SS628(100)X.dll
在DLL库中对应命令名:
Beep
参数名	类 型	传址	数组	备 注
设备句柄	整数型
持续时间	整数型

i支持库列表	支持库注释
iext	扩展界面支持库一
eGrid	高级表格支持库

.版本 2<br /> .支持库 iext<br /> .支持库 eGrid<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 设备句柄, 整数型<br /> .程序集变量 是否已连接, 逻辑型<br /> .程序集变量 自动读卡模式, 逻辑型<br /> .程序集变量 蜂鸣提示, 逻辑型<br /> .程序集变量 上次读卡时间, 长整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br />     初始化界面()<br />     检查SDK文件()<br /> <br /> .子程序 初始化界面<br />     标题 ＝ "神思读卡器优化版"<br />     按钮_连接.标题 ＝ "连接设备"<br />     按钮_断开.标题 ＝ "断开连接"<br />     按钮_断开.禁止 ＝ 真<br />     按钮_读卡.禁止 ＝ 真<br />     状态条1.置文本 (0, "就绪")<br />     <br />     ' 初始化个人信息列表<br />     超级列表框1.插入列 (0, "信息类型", 100)<br />     超级列表框1.插入列 (1, "信息内容", 300)<br />     超级列表框1.显示网格线 ＝ 真<br />     <br />     ' 设置默认选项<br />     蜂鸣提示 ＝ 真<br />     选择框_蜂鸣提示.选中 ＝ 真<br /> <br /> .子程序 检查SDK文件<br />     .如果真 (文件是否存在(取运行目录() + "\SS628(100)X.dll") ＝ 假)<br />         信息框("SDK文件缺失，请将SS628(100)X.dll放入程序目录", #错误图标, "错误")<br />         结束()<br />     .如果真结束<br /> <br /> .子程序 _按钮_连接_被单击<br />     .局部变量 端口号, 整数型<br />     端口号 ＝ 1001  ' USB端口<br />     <br />     ' 初始化并连接设备<br />     设备句柄 ＝ DLL命令_打开设备(端口号)<br />     <br />     .如果 (设备句柄 ＞ 0)<br />         是否已连接 ＝ 真<br />         按钮_连接.禁止 ＝ 真<br />         按钮_断开.禁止 ＝ 假<br />         按钮_读卡.禁止 ＝ 假<br />         状态条1.置文本(0, "设备连接成功")<br />         时钟_状态监测.时钟周期 ＝ 1000<br />     .否则<br />         状态条1.置文本(0, "连接失败，错误码: " + 到文本(设备句柄))<br />     .如果结束<br /> <br /> .子程序 _按钮_断开_被单击<br />     .局部变量 结果, 整数型<br />     结果 ＝ DLL命令_关闭设备(设备句柄)<br />     <br />     .如果 (结果 ＝ 0)<br />         是否已连接 ＝ 假<br />         按钮_连接.禁止 ＝ 假<br />         按钮_断开.禁止 ＝ 真<br />         按钮_读卡.禁止 ＝ 真<br />         状态条1.置文本(0, "设备已断开")<br />         时钟_状态监测.时钟周期 ＝ 0<br />         时钟_自动读卡.时钟周期 ＝ 0<br />     .否则<br />         状态条1.置文本(0, "断开失败，错误码: " + 到文本(结果))<br />     .如果结束<br /> <br /> .子程序 _按钮_读卡_被单击<br />     读取sfz信息()<br /> <br /> .子程序 _选择框_自动读卡_被单击<br />     自动读卡模式 ＝ 选择框_自动读卡.选中<br />     .如果 (自动读卡模式)<br />         时钟_自动读卡.时钟周期 ＝ 500<br />         状态条1.置文本(0, "自动读卡模式已启用")<br />     .否则<br />         时钟_自动读卡.时钟周期 ＝ 0<br />         状态条1.置文本(0, "自动读卡模式已关闭")<br />     .如果结束<br /> <br /> .子程序 _选择框_蜂鸣提示_被单击<br />     蜂鸣提示 ＝ 选择框_蜂鸣提示.选中<br /> <br /> .子程序 _时钟_状态监测_周期事件<br />     .局部变量 状态, 整数型<br />     状态 ＝ DLL命令_获取设备状态(设备句柄)<br />     状态条1.置文本(1, 获取状态描述(状态))<br /> <br /> .子程序 获取状态描述, 文本型<br />     .参数 状态码, 整数型<br />     .判断开始 (状态码 ＝ 0)<br />         返回 ("状态: 正常")<br />     .判断 (状态码 ＝ -1)<br />         返回 ("状态: 未连接")<br />     .判断 (状态码 ＝ 1)<br />         返回 ("状态: 设备忙")<br />     .判断 (状态码 ＝ 2)<br />         返回 ("状态: 通讯错误")<br />     .判断 (状态码 ＝ 3)<br />         返回 ("状态: 未发现卡片")<br />     .默认<br />         返回 ("状态: 未知(" + 到文本(状态码) + ")")<br />     .判断结束<br /> <br /> .子程序 _时钟_自动读卡_周期事件<br />     .局部变量 卡片状态, 整数型<br />     <br />     ' 限制读卡频率（至少间隔1秒）<br />     .如果真 (取启动时间() - 上次读卡时间 ＜ 1000)<br />         返回 ()<br />     .如果真结束<br />     <br />     卡片状态 ＝ DLL命令_检测卡片(设备句柄)<br />     .如果 (卡片状态 ＝ 1)  ' 检测到卡片<br />         读取sfz信息()<br />         上次读卡时间 ＝ 取启动时间()<br />     .否则<br />         .如果 (卡片状态 ＜ 0)<br />             状态条1.置文本(0, "读卡错误: " + 到文本(卡片状态))<br />         .如果结束<br />     .如果结束<br /> <br /> .子程序 读取sfz信息<br />     .局部变量 信息, 个人信息<br />     .局部变量 照片数据, 字节集<br />     .局部变量 照片长度, 整数型<br />     .局部变量 读卡结果, 整数型<br />     <br />     照片长度 ＝ 1024 * 3  ' 3KB缓冲区<br />     照片数据 ＝ 取空白字节集(照片长度)<br />     <br />     ' 读取sfz信息<br />     读卡结果 ＝ DLL命令_读基本信息(设备句柄, 信息.姓名, 信息.性别, 信息.民族, 信息.出生日期, <br />         信息.住址, 信息.sfz号, 信息.签发机关, 信息.有效起始, 信息.有效截止)<br />     <br />     .如果 (读卡结果 ≠ 0)<br />         状态条1.置文本(0, "读取失败: " + 到文本(读卡结果))<br />         .如果 (蜂鸣提示)<br />             DLL命令_蜂鸣提示(设备句柄, 300)<br />         .如果结束<br />         返回 ()<br />     .否则<br />         ' 读取照片<br />         DLL命令_读取照片(设备句柄, 照片数据, 照片长度)<br />         显示sfz信息(信息, 照片数据)<br />         .如果 (蜂鸣提示)<br />             DLL命令_蜂鸣提示(设备句柄, 100)<br />         .如果结束<br />     .如果结束<br /> <br /> .子程序 显示sfz信息<br />     .参数 信息, 个人信息<br />     .参数 照片数据, 字节集<br />     <br />     ' 清空并添加信息<br />     超级列表框1.全部删除()<br />     <br />     .如果 (照片数据[1] ≠ 0)<br />         图片框1.图片 ＝ 照片数据<br />     .否则<br />         图片框1.图片 ＝ { }<br />     .如果结束<br />     <br />     ' 使用循环添加信息项<br />     添加信息项("姓名", 信息.姓名)<br />     添加信息项("性别", 信息.性别)<br />     添加信息项("民族", 信息.民族)<br />     添加信息项("出生日期", 信息.出生日期)<br />     添加信息项("sfz号", 信息.sfz号)<br />     添加信息项("住址", 信息.住址)<br />     添加信息项("签发机关", 信息.签发机关)<br />     添加信息项("有效期", 信息.有效起始 + "至" + 信息.有效截止)<br /> <br /> .子程序 添加信息项<br />     .参数 类型, 文本型<br />     .参数 内容, 文本型<br />     <br />     .局部变量 索引, 整数型<br />     索引 ＝ 超级列表框1.插入表项(-1, 类型, , , , )<br />     超级列表框1.置标题(索引, 1, 内容)<br /> <br /> .子程序 __启动窗口_将被销毁<br />     .如果真 (是否已连接)<br />         DLL命令_关闭设备(设备句柄)<br />     .如果真结束<br /> <br /> .程序集 个人信息<br />     .程序集变量 姓名, 文本型<br />     .程序集变量 性别, 文本型<br />     .程序集变量 民族, 文本型<br />     .程序集变量 出生日期, 文本型<br />     .程序集变量 住址, 文本型<br />     .程序集变量 sfz号, 文本型<br />     .程序集变量 签发机关, 文本型<br />     .程序集变量 有效起始, 文本型<br />     .程序集变量 有效截止, 文本型<br /> <br /> ' ========== 精简的DLL命令声明 ==========<br /> .DLL命令 DLL命令_打开设备, 整数型, "SS628(100)X.dll", "OpenComm"<br />     .参数 端口号, 整数型<br /> <br /> .DLL命令 DLL命令_关闭设备, 整数型, "SS628(100)X.dll", "CloseComm"<br />     .参数 设备句柄, 整数型<br /> <br /> .DLL命令 DLL命令_检测卡片, 整数型, "SS628(100)X.dll", "CardDetect"<br />     .参数 设备句柄, 整数型<br /> <br /> .DLL命令 DLL命令_读基本信息, 整数型, "SS628(100)X.dll", "ReadBaseInfo"<br />     .参数 设备句柄, 整数型<br />     .参数 姓名, 文本型, 传址<br />     .参数 性别, 文本型, 传址<br />     .参数 民族, 文本型, 传址<br />     .参数 出生日期, 文本型, 传址<br />     .参数 住址, 文本型, 传址<br />     .参数 sfz号, 文本型, 传址<br />     .参数 签发机关, 文本型, 传址<br />     .参数 有效起始, 文本型, 传址<br />     .参数 有效截止, 文本型, 传址<br /> <br /> .DLL命令 DLL命令_读取照片, 整数型, "SS628(100)X.dll", "ReadPhoto"<br />     .参数 设备句柄, 整数型<br />     .参数 照片数据, 字节集, 传址<br />     .参数 照片长度, 整数型, 传址<br /> <br /> .DLL命令 DLL命令_获取设备状态, 整数型, "SS628(100)X.dll", "GetDevState"<br />     .参数 设备句柄, 整数型<br /> <br /> .DLL命令 DLL命令_蜂鸣提示, 整数型, "SS628(100)X.dll", "Beep"<br />     .参数 设备句柄, 整数型<br />     .参数 持续时间, 整数型

爱你入骨

1. 我们没有你这个型号的读卡器，你得把SDK什么的都发来，然后写完给你测试正常才ok
2. 100精币能有人写吗，建议rmb