| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2677 人关注过本帖
标题:苦逼的命,VB6.0编写一个小程序,明天搞不定就被炒鱿鱼了~~~~~
只看楼主 加入收藏
xlhcy2014
Rank: 2
等 级:论坛游民
帖 子:33
专家分:81
注 册:2014-2-6
收藏
得分:0 
程序代码:
Option Explicit
'把excel的数据复制到文档文件,并改名为 "localdata.txt"
Private Type product
infor As String * 13  '13位条码
tab   As String * 7   '7个空格
End Type

Sub localprouct()
Dim num As Integer, myproduct As product
Open App.Path + "localdata.txt" For Random As #1 Len = Len(myproduct)
For num = 1 To 10000
Get #1, num, myproduct
If myproduct.infor = Text1.Text Then Exit Sub: Label1.Caption = "合法条码"
Next num
Label1.Caption = "非法条码"
Close #1
End Sub
2014-03-06 23:09
xlhcy2014
Rank: 2
等 级:论坛游民
帖 子:33
专家分:81
注 册:2014-2-6
收藏
得分:0 
我还是继续卖我的猪肉吧
2014-03-06 23:13
tonecan2008
Rank: 1
等 级:新手上路
帖 子:20
专家分:0
注 册:2014-3-6
收藏
得分:0 
回复 22楼 xlhcy2014
哈哈,我跟你开玩笑,你别当真啊。
2014-03-06 23:14
xlhcy2014
Rank: 2
等 级:论坛游民
帖 子:33
专家分:81
注 册:2014-2-6
收藏
得分:0 
把上面的exit sub 换成 exit for,一时没留意

条码枪的接口 你知道吗?
程序代码:
Option Explicit
'把excel的数据复制到文档文件,并改名为 "localdata.txt",等于建了个简单数据库
Private Type product
infor As String * 13  '13条码
tab  As String * 7   '7个空格
End Type

Sub contrast()
Dim num As Integer, myproduct As product
Open App.Path + "localdata.txt" For Random As #1 Len = Len(myproduct)
For num = 1 To 10000
Get #1, num, myproduct
If myproduct.infor = Text1.Text Then Exit For: Label1.Caption = "合法条码"
Else
Label1.Caption="非法条码"
End If
Next num
Close #1
End Sub




[ 本帖最后由 xlhcy2014 于 2014-3-6 23:24 编辑 ]
2014-03-06 23:22
tonecan2008
Rank: 1
等 级:新手上路
帖 子:20
专家分:0
注 册:2014-3-6
收藏
得分:0 
回复 24楼 xlhcy2014
不用考虑枪的接口问题,我做过测试,只要能用键盘输入的地方,条码枪就可以把数据准确无误的扫进去。
2014-03-06 23:24
xlhcy2014
Rank: 2
等 级:论坛游民
帖 子:33
专家分:81
注 册:2014-2-6
收藏
得分:0 
那你在加载程序的时候 ,最好获取焦点  代码都给你了
程序代码:
Option Explicit
'把excel的数据复制到文档文件,并改名为 "localdata.txt",等于建了个简单数据库
Private Type product
infor As String * 13  '13条码
tab  As String * 7   '7个空格
End Type

Sub contrast()
Dim num As Integer, myproduct As product
Open App.Path + "localdata.txt" For Random As #1 Len = Len(myproduct)
For num = 1 To 10000
Get #1, num, myproduct
If myproduct.infor = Text1.Text Then Exit For: Label1.Caption = "合法条码"
Else
Label1.Caption="非法条码"
End If
Next num
Close #1

Private Sub Form_Load()
Text1.SetFocus
End Sub


Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then contrast
End Sub


 

[ 本帖最后由 xlhcy2014 于 2014-3-6 23:42 编辑 ]
2014-03-06 23:30
lowxiong
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:27
帖 子:653
专家分:3402
注 册:2008-5-7
收藏
得分:0 
发到你邮箱了
2014-03-07 00:49
owenlu1981
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:13
帖 子:211
专家分:1130
注 册:2013-5-17
收藏
得分:5 
Dim Conn As New ADODB.Connection,RsMain As New ADODB.Recordset,MainSQL As String

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 then
    MainSQL = "Select * from [SN$] in 'C:\产品SN.xls' 'Excel 8.0;' where [SN] = '" & Text1.text & "'"      ----> [SN$], SN为Sheet名称
    RsMain.open MainSQL ,Conn,1,1
    If Not RsMain.EOF then
        Text2.text = RsMain.fields("SN")
        Label1.Caption = "合法条码"
    ELSE
        Text2.text = "没有找到"
        Label1.Caption = "非法条码"
    Endif
    RsMain.close
    Text1.Setfocus
Endif

[ 本帖最后由 owenlu1981 于 2014-3-7 09:34 编辑 ]
2014-03-07 08:19
owenlu1981
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:13
帖 子:211
专家分:1130
注 册:2013-5-17
收藏
得分:0 
回复 25楼 tonecan2008
2个文本框的数据来源和逻辑提供下
2014-03-07 08:34
tonecan2008
Rank: 1
等 级:新手上路
帖 子:20
专家分:0
注 册:2014-3-6
收藏
得分:0 
回复 29楼 owenlu1981
现在不需要两个文本框了,(最开始我们的条码都是固定的一组数字,但是现在为不规则的数据了)所以只需要一个文本框来输入数据,回车触发回车事件,调用数据库(附件为数据库的格式
SN.rar (7.68 KB)
),如果数据存在  显示合法条码   数据不存在显示非法条码,
2014-03-07 09:44
快速回复:苦逼的命,VB6.0编写一个小程序,明天搞不定就被炒鱿鱼了~~~~~
数据加载中...
 
   



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

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