📄 backgoodsdao.cls
字号:
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "BackGoodsDAO"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'**************************************
'* 功 能 描 述 :退货数据库增加函数--供应商
'* 输 入 参 数 :无
'* 输 出 参 数 :true -新增成功
'* false -新增失败
'**************************************
Public Function addbackgoods(recSet As ADODB.Recordset, backnotenum As String, supplierId As String, _
superinrtendent As String, backdate As Date, deliverydate As Date, _
phone As String, store As String, counterman As String, inputman As String, memo As String) As String
addbackgoods = ""
Dim cmdProc As ADODB.Command ' 执行存储过程的命令
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 执行存储过程的命令的设置
cmdProc.CommandText = "backgoods_add" ' 指定存储过程的名子
cmdProc.CommandType = adCmdStoredProc
cmdProc.Parameters.Refresh
cmdProc.Parameters(1) = backnotenum ' 参数-数据编号
cmdProc.Parameters(2) = supplierId ' 参数-供应商ID
cmdProc.Parameters(3) = superinrtendent ' 参数-录入日期
cmdProc.Parameters(4) = backdate ' 参数-交货日期
cmdProc.Parameters(5) = deliverydate ' 参数-联系人
cmdProc.Parameters(6) = phone ' 参数-联系电话
cmdProc.Parameters(7) = store ' 参数-备注
cmdProc.Parameters(8) = counterman ' 参数-业务员
cmdProc.Parameters(9) = inputman ' 参数-制单人
cmdProc.Parameters(10) = memo ' 返回采购订单ID
cmdProc.Parameters(11) = "www"
' 执行命令 把查询到的结果放在recSet中
On Error GoTo Cwcl
cmdProc.Execute
addbackgoods = cmdProc.Parameters(11)
Exit Function
Cwcl:
addbackgoods = ""
Exit Function
End Function
'**************************************
'* 功 能 描 述 :退货明细单数据库增加函数
'* 输 入 参 数 :无
'* 输 出 参 数 :true -新增成功
'* false -新增失败
'**************************************
Public Function addbackgoodsdetail(recSet As ADODB.Recordset, backgoodsid As String, goodsid As String, _
unit As String, num As Double, price As Double, _
money As Double, finishNum As Double, memo As String) As Boolean
Dim cmdProc As ADODB.Command ' 执行存储过程的命令
addbackgoodsdetail = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 执行存储过程的命令的设置
cmdProc.CommandText = "backgoodsdetail_add" ' 指定存储过程的名子
cmdProc.CommandType = adCmdStoredProc
cmdProc.Parameters.Refresh
cmdProc.Parameters(1) = backgoodsid ' 参数-采购订单的ID
cmdProc.Parameters(2) = goodsid ' 参数-商品ID
cmdProc.Parameters(3) = unit ' 参数-单位
cmdProc.Parameters(4) = num ' 参数-数量
cmdProc.Parameters(5) = price ' 参数-单价
cmdProc.Parameters(6) = money ' 参数-金额
cmdProc.Parameters(7) = finishNum ' 参数-完成数量
cmdProc.Parameters(8) = memo ' 参数-备注
' 执行命令 把查询到的结果放在recSet中
On Error GoTo Cwcl
cmdProc.Execute
Exit Function
Cwcl:
addbackgoodsdetail = False
Exit Function
End Function
'**************************************
'* 功 能 描 述 :刷新数据库显示退货记录函数
'* 输 入 参 数 :无
'* 输 出 参 数 :true -刷新成功
'* false -刷新失败
'**************************************
Public Function s_backgoods(recSet As ADODB.Recordset) As Boolean
Dim cmdProc As ADODB.Command ' 执行存储过程的命令
s_backgoods = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 执行存储过程的命令的设置
cmdProc.CommandText = "backgoods_show" ' 指定存储过程的名子
cmdProc.CommandType = adCmdStoredProc
cmdProc.Parameters.Refresh
On Error GoTo Cwcl
' 执行命令 把查询到的结果放在recSet中
With recSet
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open cmdProc
End With
With recSet
If Not .EOF Then
s_backgoods = True
Else
s_backgoods = False
End If
End With
Exit Function
Cwcl:
s_backgoods = False
Exit Function
End Function
'**************************************
'* 功 能 描 述 :刷新数据库显示退货记录函数
'* 输 入 参 数 :无
'* 输 出 参 数 :true -刷新成功
'* false -刷新失败
'**************************************
Public Function backgoods_showone(recSet As ADODB.Recordset, backgoodsid As String) As Boolean
Dim cmdProc As ADODB.Command ' 执行存储过程的命令
backgoods_showone = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 执行存储过程的命令的设置
cmdProc.CommandText = "backgoods_showone" ' 指定存储过程的名子
cmdProc.CommandType = adCmdStoredProc
cmdProc.Parameters.Refresh
cmdProc.Parameters(1) = backgoodsid
On Error GoTo Cwcl
' 执行命令 把查询到的结果放在recSet中
With recSet
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open cmdProc
End With
With recSet
If Not .EOF Then
backgoods_showone = True
Else
backgoods_showone = False
End If
End With
Exit Function
Cwcl:
backgoods_showone = False
Exit Function
End Function
'**************************************
'* 功 能 描 述 :刷新数据库显示退货明细记录函数
'* 输 入 参 数 :无
'* 输 出 参 数 :true -刷新成功
'* false -刷新失败
'**************************************
Public Function backgoodsdetail_showone(recSet As ADODB.Recordset, backgoodsid As String) As Boolean
Dim cmdProc As ADODB.Command ' 执行存储过程的命令
backgoodsdetail_showone = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 执行存储过程的命令的设置
cmdProc.CommandText = "backgoodsdetail_show" ' 指定存储过程的名子
cmdProc.CommandType = adCmdStoredProc
cmdProc.Parameters.Refresh
cmdProc.Parameters(1) = backgoodsid
On Error GoTo Cwcl
' 执行命令 把查询到的结果放在recSet中
With recSet
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open cmdProc
End With
With recSet
If Not .EOF Then
backgoodsdetail_showone = True
Else
backgoodsdetail_showone = False
End If
End With
Exit Function
Cwcl:
backgoodsdetail_showone = False
Exit Function
End Function
'**************************************
'* 功 能 描 述 :根据商品ID和采购明细从表中显示一条商品记录
'* 输 入 参 数 :无
'* 输 出 能 数 :True - 数据库连接成功
'* False - 数据库连接失败
'**************************************
Public Function judeg_backgoodsdetail(recSet As ADODB.Recordset, supplierId As String, goodsid As String) As Boolean
Dim cmdProc As ADODB.Command ' 执行存储过程的命令
judeg_backgoodsdetail = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 执行存储过程的命令的设置
cmdProc.CommandText = "judge_backgoodsdetail" ' 指定存储过程的名子
cmdProc.CommandType = adCmdStoredProc
cmdProc.Parameters.Refresh
cmdProc.Parameters(1) = supplierId
cmdProc.Parameters(2) = goodsid ' 参数
On Error GoTo Cwcl
' 执行命令 把查询到的结果放在recSet中
With recSet
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open cmdProc
End With
With recSet
If Not .EOF Then
judeg_backgoodsdetail = True
Else
judeg_stockstoredetail = False
End If
End With
Exit Function
Cwcl:
judeg_stockstoredetail = False
Exit Function
End Function
'**************************************
'* 功 能 描 述 :打印退货记录函数
'* 输 入 参 数 :无
'* 输 出 参 数 :true -刷新成功
'* false -刷新失败
'**************************************
Public Function backgoods1_show(recSet As ADODB.Recordset, backgoodsid As String) As Boolean
Dim cmdProc As ADODB.Command ' 执行存储过程的命令
backgoods1_show = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 执行存储过程的命令的设置
cmdProc.CommandText = "backgoods1_show" ' 指定存储过程的名子
cmdProc.CommandType = adCmdStoredProc
cmdProc.Parameters.Refresh
cmdProc.Parameters(1) = backgoodsid
On Error GoTo Cwcl
' 执行命令 把查询到的结果放在recSet中
With recSet
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open cmdProc
End With
With recSet
If Not .EOF Then
backgoods1_show = True
Else
backgoods1_show = False
End If
End With
Exit Function
Cwcl:
backgoods1_show = False
Exit Function
End Function
'**************************************
'* 功 能 描 述 :查询退货记录函数
'* 输 入 参 数 :无
'* 输 出 参 数 :true -刷新成功
'* false -刷新失败
'**************************************
Public Function backgoods_showoneList(recSet As ADODB.Recordset) As Boolean
Dim cmdProc As ADODB.Command ' 执行存储过程的命令
backgoods_showoneList = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 执行存储过程的命令的设置
cmdProc.CommandText = "backgoods_showoneList" ' 指定存储过程的名子
cmdProc.CommandType = adCmdStoredProc
cmdProc.Parameters.Refresh
' cmdProc.Parameters(1) = backnotenum
On Error GoTo Cwcl
' 执行命令 把查询到的结果放在recSet中
With recSet
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open cmdProc
End With
With recSet
If Not .EOF Then
backgoods_showoneList = True
Else
backgoods_showoneList = False
End If
End With
Exit Function
Cwcl:
backgoods_showoneList = False
Exit Function
End Function
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -