| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1445 人关注过本帖
标题:VB6----模拟条形码扫描----速度的提高
只看楼主 加入收藏
mmmyyylll321
Rank: 1
等 级:新手上路
帖 子:28
专家分:0
注 册:2010-9-5
结帖率:80%
收藏
已结贴  问题点数:20 回复次数:7 
VB6----模拟条形码扫描----速度的提高
如题
敬请
程序大牛
关注一下
谢谢


附件中,程序是可运行的
窗体名:Form1 为条形码---模拟输入界面

文本框---Text1 输入具体的条形码字符
输入完毕后
按回车键即可
可以用快捷键Ctrl+C进行复制、Ctrl+V进行粘贴输入

进行复制、粘贴输入时
速度不够快-------(与工作单位上的程序相比,最少慢半拍)

在此求教
恳请解答
谢谢!!!

具体代码如下:
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim Cnn As New ADODB.Connection
Dim Rst As New ADODB.Recordset
Dim Sq As String

If KeyAscii = 13 Then
Cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & _
             "\数据库.mdb;Jet OLEDB:Database Password=" & 123

Sq = "SELECT * FROM 条形码数据 "
Rst.Open Sq, Cnn, adOpenKeyset, adLockPessimistic
With Rst
.AddNew
.Fields("条形码") = Text1.Text
.Fields("数量") = Val(Text2.Text)
.Update
End With

Rst.Close
Cnn.Close
Set Rst = Nothing
Set Cnn = Nothing
Text1 = ""
Text1.SetFocus
Else
Exit Sub
End If
Call 将数据引入ListView1
End Sub
搜索更多相关主题的帖子: 条形码 工作 快捷键 文本框 Text1 
2011-07-23 18:21
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
收藏
得分:0 
以下是引用mmmyyylll321在2011-7-23 18:21:12的发言:

进行复制、粘贴输入时
速度不够快-------(与工作单位上的程序相比,最少慢半拍)

具体代码如下:
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim Cnn As New ADODB.Connection
Dim Rst As New ADODB.Recordset
Dim Sq As String

If KeyAscii = 13 Then
Cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & _
             "\数据库.mdb;Jet OLEDB:Database Password=" & 123

Sq = "SELECT * FROM 条形码数据 "
Rst.Open Sq, Cnn, adOpenKeyset, adLockPessimistic
With Rst
.AddNew
.Fields("条形码") = Text1.Text
.Fields("数量") = Val(Text2.Text)
.Update
End With

Rst.Close
Cnn.Close
Set Rst = Nothing
Set Cnn = Nothing
Text1 = ""
Text1.SetFocus
Else
Exit Sub
End If
Call 将数据引入ListView1
End Sub

复制、粘贴时的代码?

无知
2011-07-23 23:54
mmmyyylll321
Rank: 1
等 级:新手上路
帖 子:28
专家分:0
注 册:2010-9-5
收藏
得分:0 
以下是引用Artless在2011-7-23 23:54:48的发言:

 
复制、粘贴时的代码?
据网上传说
现在的
条形码扫描枪
等同于
键盘输入

根据上述观点
本菜
模拟了一个
接收
条形码数据的文本框:Text1

只要在Text1中
输入模拟条形码值
然后
选中
用快捷键Ctrl+C复制
再用
快捷键Ctrl+V粘贴
按回车键   (此时,已完成了一条数据的添加)

第二条数据的添加
直接用快捷键Ctrl+V粘贴
按回车键  (此时,已完成了第二条数据的添加)
如此类推
----------
这些功能的程序代码,就是本贴子第一楼的代码,是能运行的

其问题是:按回车键后,等待的时间过长,没有做到快速连续输入

工作单位的程序(别人制作的专业程序),已经完美解决了这个问题




2011-07-24 00:36
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
收藏
得分:0 
以下是引用mmmyyylll321在2011-7-24 00:36:08的发言:
只要在Text1中
输入模拟条形码值
然后
选中
用快捷键Ctrl+C复制
再用
快捷键Ctrl+V粘贴
按回车键   (此时,已完成了一条数据的添加)

第二条数据的添加
直接用快捷键Ctrl+V粘贴
按回车键  (此时,已完成了第二条数据的添加)
如此类推
----------
这些功能的程序代码,就是本贴子第一楼的代码,是能运行的

其问题是:按回车键后,等待的时间过长,没有做到快速连续输入

工作单位的程序(别人制作的专业程序),已经完美解决了这个问题

图片附件: 游客没有浏览图片的权限,请 登录注册


[ 本帖最后由 Artless 于 2011-7-24 01:53 编辑 ]

无知
2011-07-24 01:49
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
收藏
得分:10 
结帖率:66.67%
希望LZ自己多结贴。
https://bbs.bccn.net/thread-332567-1-1.html

[ 本帖最后由 Artless 于 2011-7-24 01:55 编辑 ]

无知
2011-07-24 01:54
mmmyyylll321
Rank: 1
等 级:新手上路
帖 子:28
专家分:0
注 册:2010-9-5
收藏
得分:0 
以下是引用Artless在2011-7-24 01:49:28的发言:

 
根据自身的业务逻辑
本菜
这个数据表中的数据
是临时过渡数据
不会超过千行
2011-07-24 08:26
jiashie
Rank: 8Rank: 8
等 级:贵宾
威 望:10
帖 子:237
专家分:999
注 册:2009-4-30
收藏
得分:10 
可以优化的地方:
1、不要每次keyPress (keyascii=13)的时候都新建一个数据库连接,可以只用同一个数据库连接
2、Call 将数据引入ListView1。没必要每次keypress事件都调用。只在新增加了数据之后再调用。且最好是只在listview中增加最近新增的一条数据,而不是重新从数据库中取出所有数据(没看到你的将数据引入ListView1的代码,猜测的)
2011-07-25 11:23
mmmyyylll321
Rank: 1
等 级:新手上路
帖 子:28
专家分:0
注 册:2010-9-5
收藏
得分:0 
以下是引用jiashie在2011-7-25 11:23:42的发言:

可以优化的地方:
1、不要每次keyPress (keyascii=13)的时候都新建一个数据库连接,可以只用同一个数据库连接
2、Call 将数据引入ListView1。没必要每次keypress事件都调用。只在新增加了数据之后再调用。且最好是只在listview中增加最近新增的一条数据,而不是重新从数据库中取出所有数据(没看到你的将数据引入ListView1的代码,猜测的)
首先声明:
本菜是一个文化程度不高的农民工
在工作中,遇到一些较好的程序软件
总想
用办公软件
来尝试一下
(因为办公软件比较普及,而且不需要金钱来购买,非正版和正版相比,没有多少差别)

言归正传
参照本菜
现使用的行业软件
在条形码扫描过程中:
使用了两个显示数据的控件(致于是什么控件,本菜无法知晓)
A控件-----用来显示现场扫描的数据(数据不累加,每单条记录=1)
         
         数据需求报警功能(大于需求量时报警,不需要的东西报警)
         可以进入控件内------删除数据
         最下方显示各种合计(例如类别合计,总数量合计)

B控件----用来显示需求数量和实货数量之间的差异明细(只有查看,不能修改删除)

这么复杂的-----数据计算,能同时能看见
本菜推测,数据是通过数据库运算后

传回到客户端的

         
         
2011-07-25 18:08
快速回复:VB6----模拟条形码扫描----速度的提高
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.032428 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved