只能条码扫描,不能手工输入

frankwong 2012-02-24 09:52:31

最近在做一个有关车间生产采集系统,要求操作人员在生产时,对每笔生产单都需要用条码机扫描到系统中,需要扫描员工卡,工序卡,生产单卡三者的条码,且三者扫描可以不按顺序,现需要解决一个问题是:系统只能让操作员用条码机扫描,不能让其用键盘和鼠标输入条码,请问有什么解决方法?谢谢!

开发工具:vb6

...全文

1056 23 打赏收藏转发到动态举报

写回复

用AI写文章

23 条回复

切换为时间正序

请发表友善的回复…

发表回复

u010278192 2013-04-15

打赏
举报

如果是要在EXCEL中实现只能通过扫描录入，不能手动输入，该如何解决，高手赐教，扫描枪也就是USB的那种，不可设置其他内容

frankwong 2012-03-09

打赏
举报

补充:text1.multiline=true '设置多行才能识别字符串的vbcrlf

frankwong 2012-02-25

打赏
举报

最后使用如下方案解决,经过初步测试,没有发现问题,抛砖引玉,请各位有需要的朋友试试
1.增加一个timer控件,
interval=100,
enabled=true,
clipboard.clear '每时每刻清空剪贴板,防止用户复制和粘贴

2.增加一个timer控件
interval=100
enabled=false

private sub text1_change()
if text1.text<>"" then timer1.enable=true '文本框有字符,表示还在输入(包括条码输入)状态
if instr(1,text1.text,vbcrlft)>0 then '检测到有回车键,表示是条码输入
timer1.enabled=false '停止计时
'----写入数据库
text1.text="" '清空文本框
endif
end sub

private sub timer1_timer()
msgbox "输入超时" '超过100毫秒肯定是用键盘输入
timer1.enabled=false '停止计时
text1.text="" '清空文本框
end sub

frankwong 2012-02-24

打赏
举报

to Veron_04:条码枪已经有了!

贝隆 2012-02-24

打赏
举报

这个需要购买一个扫描设备才行。

贝隆 2012-02-24

打赏
举报

这个的具体问题具体分析，楼主提供更多的信息才行。

frankwong 2012-02-24

打赏
举报

看来还是使用限制输入时间的方法来监测是否手工输入比较好!

fu0212 2012-02-24

打赏
举报

串口扫描枪要那种带协议的不要模拟成键盘的有串口键盘吗？没见过只见过串口的鼠标

贝隆 2012-02-24

打赏
举报

[Quote=引用 13 楼 frankwong 的回复:]
Locked=True不能扫描到文本框,我的条码机是和键盘共用一个传统键盘接口那种!有劳!
[/Quote]
有一个思路，直接读取键盘端口的数据。
键盘数据端口是&H60，读这个硬件端口就可以得到扫描的内容

frankwong 2012-02-24

打赏
举报

换成串口条码枪,使用上跟我目前的条码枪在软件上面有没有区别?就是接上串口条码枪后,一扫描条码就显示在没有设置locked的文本框中!谢谢!

fu0212 2012-02-24

打赏
举报

看来只能搞个单片机吧你PS2的扫描枪转成串口的了
PS2接口协议比较简单很容易在51单片机下实现

Tiger_Zhao 2012-02-24

打赏
举报

换扫描枪。

frankwong 2012-02-24

打赏
举报

Locked=True不能扫描到文本框,我的条码机是和键盘共用一个传统键盘接口那种!有劳!

fu0212 2012-02-24

打赏
举报

当然触发不了事件了你的扫描枪是模拟键盘输入的就等于你的另外一个键盘
所以locked后不能用的
用串口扫描枪用协议和扫描枪通讯读取到扫描枪的数据后写入已经locked的 textbox中是可以的

但要换你现有的扫描枪

贝隆 2012-02-24

打赏
举报

那你Locked＝True时能扫描进去吗？
先排查扫描部分是否正确。

是串口通信还是？？

frankwong 2012-02-24

打赏
举报

[Quote=引用 8 楼 veron_04 的回复:]
引用 7 楼 worldy 的回复:
引用 5 楼 veron_04 的回复:
不能手动输入很容易啊，把输入条码的文本框的Locked属性设置为：True，锁定之。这样就不能接受键盘输入了。

估计：Locked后，连扫描枪也扫不进去了

可以扫描进去的
[/Quote]
按的方法扫描后,文本框的文本没有任何改变,change事件也触发不了!

贝隆 2012-02-24

打赏
举报

这个代码就可以测试出结果，Locked属性可以屏蔽掉键盘输入，但对程序内赋值是不会屏蔽的。





Private Sub Command1_Click()

    Text1.Text = Text1.Text & "中"

End Sub



Private Sub Form_Load()

    Text1.Text = ""

    Text1.Locked = True

End Sub