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

c32's blog

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

 
 
 
 
 

日志

 
 

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

2017-03-31 11:56:59|  分类: vb |  标签: |举报 |字号 订阅

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

vb 2Bizbox华创视际 扫描入库源码 未完成版1  
http://cx7863.blog.163.com/blog/static/2286500262017228114618691/
vb 2Bizbox华创视际 扫描入库源码 未完成版2 
http://cx7863.blog.163.com/blog/static/228650026201722911428808/

Option Explicit
Dim yjtm As String '设置一级条码变量
Dim yjtm_i As Integer '设置一级条码自动递增变量 判断是否满足10次
Dim yjtm_ia As String
Dim yjtm_ib As String
Dim yjtm_ic As String
Dim test As Integer '测试软件使用变量
Dim test_a As Long '测试软件使用变量
Dim test_b As Long '测试软件使用变量
Dim test_c As Long '测试软件使用变量
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 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 '开始连接数据库
cn.CursorLocation = adUseClient '设置该属性, 使 recordcount 和 absolutepage 属性可用
'-------------------------------------------------------
If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Then
WindowsMediaPlayer1.URL = "D:\Downloads\jinggao.wav"
MsgBox "文本框不能为空", vbOKOnly, "提示"
Text1.SetFocus
ElseIf Len(Text1.Text) <> 18 Then
WindowsMediaPlayer1.URL = "D:\Downloads\jinggao.wav"
MsgBox "产品条码不是18位", vbOKOnly, "提示"
Text1.SetFocus
ElseIf Len(Text3.Text) <> 15 Then
WindowsMediaPlayer1.URL = "D:\Downloads\jinggao.wav"
MsgBox "一级条码不是15位", vbOKOnly, "提示"
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
WindowsMediaPlayer1.URL = "D:\Downloads\jinggao.wav"
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 '关闭数据库记录集
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
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 & "', 'c32')"
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 '始终显示最后一行
WindowsMediaPlayer1.URL = "D:\Downloads\ding.wav" '播放插入成功提示音
Else '判断 如果执行SQL语句后内容为空则报错否则正常显示
WindowsMediaPlayer1.URL = "D:\Downloads\jinggao.wav"
MsgBox "数据库已有此条码", vbOKOnly, "提示"
Text1.SetFocus
End If
Else
WindowsMediaPlayer1.URL = "D:\Downloads\jinggao.wav"
MsgBox "编辑框为空", vbOKOnly, "提示"
Text1.SetFocus
End If
End If
'-------------------------一级条码递增------------------
yjtm_i = yjtm_i + 1
'Print yjtm_i
If yjtm_i >= 10 Then
yjtm_i = 0
yjtm_ia = Mid(Text3.Text, 1, 5) '设置yjtm_ia的内容等于text3的第0到9位
yjtm_ib = Mid(Text3.Text, 6, 15) '设置yjtm_ib的内容等于text3的第9到15位
yjtm_ic = yjtm_ib + 1
'Print yjtm_ic
Text3.Text = yjtm_ia & yjtm_ic
End If
'----------------------条码递增-测试使用----------------
test = test + 1
If test > 0 Then
test_a = Mid(Text1.Text, 1, 9)
test_b = Mid(Text1.Text, 10, 18)
test_c = test_b + 1
Text1.Text = test_a & test_c
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 '定义数据库库名

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 '设置listview的名称及列表宽度
ListView1.ColumnHeaders.Add , , "Barcode", 1900 '设置listview的名称及列表宽度
ListView1.ColumnHeaders.Add , , "Model", 650 '设置listview的名称及列表宽度
ListView1.ColumnHeaders.Add , , "Top Barcode", 1530 '设置listview的名称及列表宽度
ListView1.ColumnHeaders.Add , , "In Time", 1800 '设置listview的名称及列表宽度
ListView1.ColumnHeaders.Add , , "Num", 1100 '设置listview的名称及列表宽度
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) 'text2的内容等于text3的前5位
'-------------------------------------------------------
'Text1.Text = "201050000116110001"

End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer) 'text3内按键被触发
If KeyAscii = 13 Then '如果按键是回车 则 text2 获取光标焦点
Text2.SetFocus
End If
End Sub

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

历史上的今天

在LOFTER的更多文章

评论

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

页脚

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