注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

c32's blog

每天学习一点点,每天进步一点点.

 
 
 
 
 

日志

 
 

vb 2Bizbox华创视际 扫描入库源码 未完成版2  

2017-03-29 23:42:08|  分类: vb |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
未完成版
设置数据库密码

vb 2Bizbox华创视际 扫描入库源码 未完成版1  
http://cx7863.blog.163.com/blog/static/2286500262017228114618691/
vb 2Bizbox华创视际 扫描入库源码 未完成版2 
http://cx7863.blog.163.com/blog/static/228650026201722911428808/
vb 2Bizbox华创视际 扫描入库源码 初步完成版3  
http://cx7863.blog.163.com/blog/static/2286500262017231115659580/
Private Sub Command1_Click()
'插入多数据库
'选择数据库
'插入成功提示音
'插入失败提示音
'数据库连接成功提示文字
'在一级条码框 回车 自动跳到 条码框
'Dim x As Integer, y As Integer, z As Integer, c As Integer    连续定义
Dim cn As New ADODB.Connection '载入数据库连接控件
Dim rs As New ADODB.Recordset
Dim strCn As String            '定义数据库连接字符串
Dim db_host As String          '定义数据库连接地址
Dim db_user As String          '定义数据库用户名
Dim db_pass As String          '定义数据库密码
Dim db_name As String          '定义数据库库名
Dim pdsj As String             '判断数据是否存在
Dim xingh As String            '设置产品型号变量
Dim yjtm As String             '设置一级条码变量
'Dim yjtm_i As String           '设置一级条码自动递增变量  判断是否满足10次
'Dim yjtm_ia As String
'Dim yjtm_ib As String
Dim liaohao As String          '设置料号变量
Dim sql As String              '定义sql语句
'Dim a As String    'Integer是整数的意思支持16位     long支持32位
'Dim b As String

'Text1.SelStart = 0: Text1.SelLength = 14   '设置取text1从0到第1位
'a = Text1.SelText                '设置a的内容等于text1的第0到9位
'Text1.SelStart = 14: Text1.SelLength = 18   '设置取text3从1到第15位
'b = Text1.SelText
'Print b

'a = 0
'a = a + 1
'Print a

'a = "201050000116110001"
'Text1.Text = a + 1

'Text1.Text = Val(a) & Val(b) + 1



db_host = "192.168.1.10"
db_user = "root"
db_pass = "root."
db_name = "amh"
' 初始化数据库变量
strCn = "DRIVER={MySQL ODBC 5.1 Driver};" & _
         "SERVER=" & db_host & ";" & _
         "DATABASE=" & db_name & ";" & _
         "UID=" & db_user & ";PWD=" & db_pass & ";" & _
         "OPTION=3;stmt=SET NAMES GB2312"
'连接数据库语句
cn.Open strCn                  '开始连接数据库
cn.CursorLocation = adUseClient '设置该属性, 使 recordcount 和 absolutepage 属性可用



'-------------------------------------------------------
If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Then
    MsgBox "文本框不能为空", vbOKOnly, "提示"
    Text1.SetFocus
    ElseIf Len(Text1.Text) <> 18 Then
    MsgBox "产品条码不是18位", vbOKOnly, "提示"
    WindowsMediaPlayer1.URL = "D:\Downloads\jinggao.wav"
    Text1.SetFocus
    ElseIf Len(Text3.Text) <> 15 Then
    MsgBox "一级条码不是15位", vbOKOnly, "提示"
    WindowsMediaPlayer1.URL = "D:\Downloads\jinggao.wav"
    Text1.SetFocus
    Exit Sub '停止执行
    Else     '否则执行以下
    If Text2.Text = "P1350" Then
        liaohao = "2011300001"
        ElseIf Text2.Text = "P2350" Then
        liaohao = "2010500001"
        ElseIf Text2.Text = "P3350" Then
        liaohao = "2011500001"
        ElseIf Text2.Text = "D3370" Then
        liaohao = "2011600001"
        ElseIf Text2.Text = "P6350" Then
        liaohao = "2010100001"
        ElseIf Text2.Text = "D6370" Then
        liaohao = "2011100001"
        ElseIf Text2.Text = "P7350" Then
        liaohao = "2011000001"
        ElseIf Text2.Text = "P8350" Then
        liaohao = "2010200001"
        ElseIf Text2.Text = "P8370" Then
        liaohao = "2011400001"
        ElseIf Text2.Text = "H6290" Then
        liaohao = "2011700001"
        ElseIf Text2.Text = "H6390" Then
        liaohao = "2010900001"
        ElseIf Text2.Text = "D1870" Then
        liaohao = "2010300001"
    Else
        MsgBox "料号判断规则错误", vbOKOnly, "提示"
        'liaohao = "0000000000"
    End If
    
    If Text1.Text <> "" Then
    sql = "select * from ccb where tiaoma='" & Text1.Text & "'order by tiaoma ASC"
    'sql = "select * from qacxx where cf='" & Text1.Text & "'order by cf ASC"    连续查询只能读到第一条的数据条数   BUG 一枚
    'sql = "select * from qacn where cn='" & Text1.Text & "'order by cn ASC"
    rs.Open sql, cn, 1, 3    '只读打开记录集并执行以上SQL语句
    'MsgBox "条码编辑框不为空", vbOKOnly, "提示"
        If rs.RecordCount = 0 Then  '如果查询以上SQL语句记录集无数据则执行下面的SQL语句
        rs.Close                    '关闭数据库记录集
        'xingh = "P2350"
        Text3.SelStart = 0: Text3.SelLength = 5   '设置取text3从0到第5位
        Text2.Text = Text3.SelText                '设置text2的内容等于text3的第0到5位
        Debug.Print Text1.Text, Text2.Text, Text3.Text
        '-------------------------------------------------------
        'Debug.Print liaohao
        sql = "INSERT INTO `ccb` (`tiaoma`,`xinghao`,`fangan`,`rucangshijian`,`xianghao`) VALUES (  '" & Text1.Text & "', '" & Text2.Text & "', '" & liaohao & "', '" & Now & "', '" & Text3.Text & "')"
        rs.Open sql, cn, 3, 2      '可读写打开记录集并执行以上语句     插入ccb库
        sql = "INSERT INTO `qacxx` (`co`, `cf`, `LUSER`, `LCHNG`, `LDATE`) VALUES ('headas', '" & Text1.Text & "', '" & "陈全" & "', '" & "1" & "', '" & Now & "')"
        rs.Open sql, cn, 3, 2      '可读写打开记录集并执行以上语句     插入qacxx库
        sql = "INSERT INTO `qacn` (`co`, `cn`, `dd`, `pn`, `pa`, `rv`, `dr`, `LUSER`, `LDATE`, `LCHNG`, `ref`, `doc_name`) VALUES ('headas', '" & Text1.Text & "', 'SERIAL NUMBER', '" & liaohao & "', '成品', 'A', '" & Now & "', '陈全', '" & Now & "', '1', '" & Text3.Text & "', 'test')"
        rs.Open sql, cn, 3, 2      '可读写打开记录集并执行以上语句     插入qacn库
        
        Dim X
        X = ListView1.ListItems.Count + 1
        ListView1.ListItems.Add , , X
        ListView1.ListItems(X).SubItems(1) = Text1.Text
        ListView1.ListItems(X).SubItems(2) = Text2.Text
        ListView1.ListItems(X).SubItems(3) = Text3.Text
        ListView1.ListItems(X).SubItems(4) = Now
        ListView1.ListItems(X).SubItems(5) = liaohao
        ListView1.ListItems(ListView1.ListItems.Count).EnsureVisible '始终显示最后一行
        Else                           '判断 如果执行SQL语句后内容为空则报错否则正常显示
            MsgBox "数据库已有此条码", vbOKOnly, "提示"
            Text1.SetFocus
        End If
    
    Else
    MsgBox "编辑框为空", vbOKOnly, "提示"
    End If
End If
'    X = ListView1.ListItems.Count + 1
'    ListView1.ListItems.Add , , X
'    ListView1.ListItems(X).SubItems(1) = Text1.Text
'    ListView1.ListItems(X).SubItems(2) = Text2.Text
'    ListView1.ListItems(X).SubItems(3) = Text3.Text
'    ListView1.ListItems(X).SubItems(4) = Now
'    ListView1.ListItems(X).SubItems(5) = "2010500001"
'    ListView1.ListItems(ListView1.ListItems.Count).EnsureVisible '始终显示最后一行

    '-------------------------------------------------------
    'rs.Close '关闭数据库连接

'成功提示音
'WindowsMediaPlayer1.URL = "D:\Downloads\ding.wav"
yjtm_i = yjtm_i + 1
If yjtm_i >= 10 Then
    yjtm_i = 0
    Text3.SelStart = 0: Text3.SelLength = 9   '设置取text3从0到第1位
    yjtm_ia = Text3.SelText                '设置text2的内容等于text3的第0到5位
    Text3.SelStart = 9: Text3.SelLength = 15   '设置取text3从1到第15位
    yjtm_ib = Text3.SelText
    Text3.Text = yjtm_ia & yjtm_ib + 1
    End If
    

    '-------------------------------------------------------
Text1.Text = ""                '文本框1内容设置为空
Text1.SetFocus                 '文本框1设置获取焦点
End Sub
Private Sub Form_Load()

Dim cn As New ADODB.Connection '载入数据库连接控件
Dim rs As New ADODB.Recordset
Dim strCn As String            '定义数据库连接字符串
Dim db_host As String          '定义数据库连接地址
Dim db_user As String          '定义数据库用户名
Dim db_pass As String          '定义数据库密码
Dim db_name As String          '定义数据库库名
Dim pdsj As String             '判断数据是否存在
Dim xingh As String            '设置产品型号变量
Dim yjtm As String             '设置一级条码变量
Dim liaohao As String          '设置料号变量
Dim sql As String              '定义sql语句


db_host = "192.168.1.10"
db_user = "root"
db_pass = "root."
db_name = "amh"
' 初始化数据库变量
strCn = "DRIVER={MySQL ODBC 5.1 Driver};" & _
         "SERVER=" & db_host & ";" & _
         "DATABASE=" & db_name & ";" & _
         "UID=" & db_user & ";PWD=" & db_pass & ";" & _
         "OPTION=3;stmt=SET NAMES GB2312"
'连接数据库语句
cn.Open strCn                  '开始连接数据库
If cn.State = 1 Then
Label4.Caption = "SQL OK"
ElseIf cn.State = 0 Then
Label4.Caption = "NO SQL"
cn.Close
End If

    '-------------------------------------------------------
    ListView1.ListItems.Clear               '清空列表
    ListView1.ColumnHeaders.Clear           '清空列表头
    ListView1.View = lvwReport              '设置列表显示方式
    ListView1.GridLines = True              '显示网络线
    ListView1.LabelEdit = lvwManual         '禁止标签编辑
    ListView1.FullRowSelect = True          '选择整行
    '-------------------------------------------------------
    ListView1.ColumnHeaders.Add , , "ID", 420
    ListView1.ColumnHeaders.Add , , "Barcode", 1900
    ListView1.ColumnHeaders.Add , , "Model", 650
    ListView1.ColumnHeaders.Add , , "Top Barcode", 1530
    ListView1.ColumnHeaders.Add , , "In Time", 1800
    ListView1.ColumnHeaders.Add , , "Num", 1100
    '给列表中添加列名
    ListView1.ListItems.Clear               '清空列表
    '-------------------------------------------------------
    '下列的属性也可以 单击控件右键->属性 进行设置。
    ListView1.View = lvwReport              '设置显示方式为列表
    ListView1.AllowColumnReorder = True     '对行进行程序排列,用鼠标进行排列
    ListView1.Arrange = lvwAutoLeft         '图标横排列
    ListView1.Arrange = lvwAutoTop          '图标竖排列
    ListView1.FlatScrollBar = True         '显示滚动条
    ListView1.FlatScrollBar = False          '隐藏滚动条
    ListView1.FullRowSelect = True          '选择整行
    ListView1.LabelEdit = lvwManual         '禁止标签编辑
    ListView1.GridLines = True              '显示网络线
    ListView1.LabelWrap = True              '图标可以换行
    ListView1.MultiSelect = True            '可以选择多个项目
    ListView1.PictureAlignment = lvwTopLeft '图片对齐方式是左顶部,其他有右顶部(1)、左底部(2)、右底部(3)、居中(4)、平铺(5)
    ListView1.Checkboxes = False            '显示复选框(ID打钩框)
    'ListView1.DropHighlight = ListView1.ListItems.Item(2)   '显示系统颜色
    'Text111.Text = Now    文本框1内容等于当前日期加时间      date=日期   time=时间
    '-------------------------------------------------------
    Command1.Default = True  '设置回车等于提交
    Text2.Text = Mid(Text3.Text, 1, 5)
    'Debug.Print Text2.Text
    '-------------------------------------------------------
    
    '-------------------------------------------------------
    
    'Text1.Text = "201050000116110001"


End Sub

  评论这张
 
阅读(42)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017