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

c32's blog

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

 
 
 
 
 

日志

 
 

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

2017-03-28 23:46:18|  分类: 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 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
' 开始连接数据库
cn.CursorLocation = adUseClient
' 设置该属性, 使 recordcount 和 absolutepage 属性可用

sql = "select * from ccb where tiaoma='" & Text1.Text & "'order by tiaoma ASC"
rs.Open sql, cn, 1, 3 '只读打开记录集
'执行SQL语句
If rs.RecordCount = 0 Then '如果查询以上SQL语句记录集无数据则执行下面的SQL语句
' Debug.Print rs.RecordCount '数据集数量
' rs.MoveFirst
' For Each fld In rs.Fields
' Debug.Print fld.Name, '列标题
' Next
' Debug.Print
' Do Until rs.EOF
' For Each fld In rs.Fields
' Debug.Print fld.Value, '列内容
' Next
' rs.MoveNext
' Debug.Print
' Loop
'列查询到的数据内容
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
'-------------------------------------------------------
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
'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 '可读写打开记录集
'执行数据插入语句
Else
MsgBox "数据库已有此条码", vbOKOnly, "提示"
Text1.SetFocus
End If
'判断 如果执行SQL语句后内容为空则报错否则正常显示
'-------------------------------------------------------
'rs.Close
'关闭数据库连接
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
End If

'成功提示音
'WindowsMediaPlayer1.URL = "D:\Downloads\ding.wav"

Dim X
X = ListView1.ListItems.Count + 1
ListView1.ListItems.Add , , X
ListView1.ListItems(X).SubItems(1) = Text1.Text
ListView1.ListItems(X).SubItems(2) = xingh
ListView1.ListItems(X).SubItems(3) = Text3.Text
ListView1.ListItems(X).SubItems(4) = Now
ListView1.ListItems(X).SubItems(5) = "2010500001"
'-------------------------------------------------------


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", 500
ListView1.ColumnHeaders.Add , , "Barcode", 1900
ListView1.ColumnHeaders.Add , , "Model", 700
ListView1.ColumnHeaders.Add , , "Top Barcode", 1580
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 = False '显示滚动条
ListView1.FlatScrollBar = True '隐藏滚动条
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) '显示系统颜色
'Text1.Text = Now 文本框1内容等于当前日期加时间 date=日期 time=时间
'-------------------------------------------------------
Command1.Default = True '设置回车等于提交
Text3.SelStart = 0: Text3.SelLength = 5 '设置取text3从0到第5位
Text2.Text = Text3.SelText '设置text2的内容等于text3的第0到5位
'Debug.Print Text2.Text
'-------------------------------------------------------

'-------------------------------------------------------




End Sub

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

历史上的今天

在LOFTER的更多文章

评论

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

页脚

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