Foxtable(狐表)用户栏目专家坐堂 → [原创]关于狐表和ID读卡器连接的问题


  共有9717人关注过本帖树形打印复制链接

主题:[原创]关于狐表和ID读卡器连接的问题

帅哥哟,离线,有人找我吗?
kimimylove
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:8 积分:127 威望:0 精华:0 注册:2012/8/25 1:25:00
[原创]关于狐表和ID读卡器连接的问题  发帖心情 Post By:2012/8/25 1:35:00 [显示全部帖子]

老师您好:

     我在使用商业版的狐表,现在狐表程序里有很多的人员资料,我们想通过给每人一张ID卡,然后一刷卡就可以直接通过窗口显示出来每个人的资料,请老师教我如何将读卡器与狐表建立连接。

     目前已经可以一刷卡,在狐表的光标所在的表格中自动录入一串卡号。请问如何设置才能一刷卡就能显示出对应人员的资料呢???


 回到顶部
帅哥哟,离线,有人找我吗?
kimimylove
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:8 积分:127 威望:0 精华:0 注册:2012/8/25 1:25:00
  发帖心情 Post By:2012/8/25 15:45:00 [显示全部帖子]

请问这种卡号与人员的关联具体应该怎么建立啊


 回到顶部
帅哥哟,离线,有人找我吗?
kimimylove
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:8 积分:127 威望:0 精华:0 注册:2012/8/25 1:25:00
  发帖心情 Post By:2012/8/25 15:48:00 [显示全部帖子]

以下是引用新福星在2012-8-25 7:57:00的发言:
1.ID卡号码要和人员资料建立起联系;2.不清楚你所说的"可以一刷卡,在狐表的光标所在的表格中自动录入一串卡号"是用的什么控件?是文本框还是表控件呢?这就要看不同的控件编几句程序,找到调出相应人员的资料了!

没有用任何控件,因为读卡器本身被电脑识别为人体学输入设备,所以一刷卡它就相当于用键盘输入了一遍卡号然后按下回车这么个性质


 回到顶部
帅哥哟,离线,有人找我吗?
kimimylove
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:8 积分:127 威望:0 精华:0 注册:2012/8/25 1:25:00
  发帖心情 Post By:2012/8/25 16:34:00 [显示全部帖子]

以下是引用新福星在2012-8-25 16:19:00的发言:
"目前已经可以一刷卡,在狐表的光标所在的表格中自动录入一串卡号。" 你就是把卡中的ID读了出来吧!没有狐表你也会读出来吧!把每个卡的ID和用户资料关联上。关联就是在客户资料中加入ID号这一列,然后把这张客户的ID号录进去;再编个小程序,当读进卡的ID号后,查找到客户显示出来即可!

您好我就是想请教您一下这个小程序应该怎么编啊?


 回到顶部
帅哥哟,离线,有人找我吗?
kimimylove
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:8 积分:127 威望:0 精华:0 注册:2012/8/25 1:25:00
  发帖心情 Post By:2012/8/26 5:28:00 [显示全部帖子]

各位老师我现在在窗口中添加了一个文本框,然后在事件ValueChanged中输入以下代码

Dim txt As String = e.Form.Controls("TextBox19").Text
Dim tbl As Table = Tables("第2012届")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "'*" & txt & "*'"
    tbl.Filter = "ID卡号 Like " & txt
End If

目前每次都需要用鼠标点击该文本框,并删除之前的内容,然后刷卡就可以找到对应的人。这样太麻烦了,请问怎样才能在窗口界面一刷卡直接就显示资料呢??


 回到顶部