这一段代码不用 cnn.open 吗?为什么
Private Function Sub_SaveBill() As Boolean '保 存 单 据
Dim rstemp As New ADODB.Recordset
Dim fdate As String
Dim id As String
If Text1(0).Text = "" Then MsgBox ("车牌号没有输入"): Exit Function
If Val(Text1(4).Text) = 0 Then MsgBox ("重量不能为零"): Exit Function
Set rstemp = ExecuteSQL("select 1 from z_bill where 车牌号='" & Text1(0).Text & "' and isnull(制单人2,'')=''", "")
If rstemp.EOF = False Then
MsgBox ("该车牌号已存在记录,不能重复称重")
Exit Function
End If
conn.BeginTrans
On Error GoTo err1
Set rstemp = conn.Execute("exec sp_getbillnumno '" & Date & "','1'")
fbillno = rstemp.Fields(0).Value
conn.Execute "insert into z_bill(单据号,公司,品名,供应商,车牌号,进厂,出厂 ,净重 ,制单人1 ,制单日期1 ,型号) values('" _
& fbillno & "','" & Combo1(2).Text & "','" & Combo1(0).Text & "','" & Combo1(1).Text & "','" & Text1(0).Text & "','" & Val(Text1(4).Text) & "',0,0,'" & LoginName & "',getdate(),'" & Text1(2).Text & "')"
conn.CommitTrans
MsgBox "保存成功"
'Select Case Combo2.Text
'Case "中文合格证"
'Unload frpt1
'With frpt1.adors
'.Connection = conn
'.Source = "select * from V_合格证 Where 条码='" & Text1(9).Text & "'"
'End With
'frpt1.PrintReport False
'Case "COVEME合格证"
'Unload frpt2
'With frpt2.adors
'.Connection = conn
'.Source = "select * from V_合格证 Where 条码='" & Text1(9).Text & "'"
'End With
'frpt2.PrintReport False
'Case "英文合格证"
'Unload frpt3
'With frpt3.adors
'.Connection = conn
'.Source = "select * from V_合格证 Where 条码='" & Text1(9).Text & "'"
'End With
'frpt3.PrintReport False
'End Select
Call Sub_OperStatus("10")
'Text1(4).Text = ""
Sub_SaveBill = True
MSComm1.InBufferCount = 0
MSComm1.OutBufferCount = 0
Exit Function
err1:
MsgBox Err.Description
conn.RollbackTrans
End Function
他这一段代码不用 cnn.open 吗?为什么
Dim rstemp As New ADODB.Recordset
Dim fdate As String
Dim id As String
If Text1(0).Text = "" Then MsgBox ("车牌号没有输入"): Exit Function
If Val(Text1(4).Text) = 0 Then MsgBox ("重量不能为零"): Exit Function
Set rstemp = ExecuteSQL("select 1 from z_bill where 车牌号='" & Text1(0).Text & "' and isnull(制单人2,'')=''", "")
If rstemp.EOF = False Then
MsgBox ("该车牌号已存在记录,不能重复称重")
Exit Function
End If
conn.BeginTrans
On Error GoTo err1
Set rstemp = conn.Execute("exec sp_getbillnumno '" & Date & "','1'")
fbillno = rstemp.Fields(0).Value
conn.Execute "insert into z_bill(单据号,公司,品名,供应商,车牌号,进厂,出厂 ,净重 ,制单人1 ,制单日期1 ,型号) values('" _
& fbillno & "','" & Combo1(2).Text & "','" & Combo1(0).Text & "','" & Combo1(1).Text & "','" & Text1(0).Text & "','" & Val(Text1(4).Text) & "',0,0,'" & LoginName & "',getdate(),'" & Text1(2).Text & "')"
conn.CommitTrans
MsgBox "保存成功"
'Select Case Combo2.Text
'Case "中文合格证"
'Unload frpt1
'With frpt1.adors
'.Connection = conn
'.Source = "select * from V_合格证 Where 条码='" & Text1(9).Text & "'"
'End With
'frpt1.PrintReport False
'Case "COVEME合格证"
'Unload frpt2
'With frpt2.adors
'.Connection = conn
'.Source = "select * from V_合格证 Where 条码='" & Text1(9).Text & "'"
'End With
'frpt2.PrintReport False
'Case "英文合格证"
'Unload frpt3
'With frpt3.adors
'.Connection = conn
'.Source = "select * from V_合格证 Where 条码='" & Text1(9).Text & "'"
'End With
'frpt3.PrintReport False
'End Select
Call Sub_OperStatus("10")
'Text1(4).Text = ""
Sub_SaveBill = True
MSComm1.InBufferCount = 0
MSComm1.OutBufferCount = 0
Exit Function
err1:
MsgBox Err.Description
conn.RollbackTrans
End Function
他这一段代码不用 cnn.open 吗?为什么
...全文
相关推荐
CNN唯一开源FPGA实现
标题中的“CNN唯一开源FPGA实现”指的是在深度学习领域,一种基于Field-Programmable Gate Array(FPGA)的开放源代码实现方案,用于加速卷积神经网络(Convolutional
Python基于OpenCV和CNN的汉字手写识别系统源码.zip
卷积神经网络(CNN)是深度学习领域的一种特殊类型的神经网络,尤其适合处理图像数据。CNN通过学习和提取图像的特征来识别图像内容。
专业Visio模板:卷积神经网络(CNN)结构图设计资源包下载
Visio是一款功能强大的图表和矢量图形应用程序,它被广泛用于创建各种类型的图表,包括复杂的卷积神经网络(CNN)结构图。使用Visio绘制的CNN结构图模板,可以帮助研究人员、学生和专业人士更高效地
【图像分类】使用卷积神经网络CNN对手势进行识别.zip
在这个项目中,"open_weishoushishibie"可能是代码或数据集的名称,它可能包含了训练和测试所需的手势图像样本,以及对应的标注信息。
mask R-CNN报错:OSError: Unable to open file-附件资源
mask R-CNN报错:OSError: Unable to open file-附件资源


VB基础类
