📄 stockorderdao.cls
字号:
'* 输 入 参 数 :无
'* 输 出 参 数 :true -刷新成功
'* false -刷新失败
'**************************************
Public Function stockordermodify(recSet As ADODB.Recordset, stockorderid As String, counterman As String, _
inputman As String, notenum As String, supplierId As String, inputdate As Date, _
deliverydate As Date, superinrtendent As String, phone As String, memo As String, _
shhe As Integer) As Boolean
Dim cmdProc As ADODB.Command ' 执行存储过程的命令
stockordermodify = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 执行存储过程的命令的设置
cmdProc.CommandText = "stockorder_modify" ' 指定存储过程的名子
cmdProc.CommandType = adCmdStoredProc
cmdProc.Parameters.Refresh
cmdProc.Parameters(1) = stockorderid
cmdProc.Parameters(2) = counterman
cmdProc.Parameters(3) = inputman
cmdProc.Parameters(4) = notenum
cmdProc.Parameters(5) = supplierId
cmdProc.Parameters(6) = inputdate
cmdProc.Parameters(7) = deliverydate
cmdProc.Parameters(8) = superinrtendent
cmdProc.Parameters(9) = phone
cmdProc.Parameters(10) = memo
cmdProc.Parameters(11) = shhe
On Error GoTo Cwcl
cmdProc.Execute
' 执行命令 把查询到的结果放在recSet中
'With recSet
'.CursorLocation = adUseClient
'.CursorType = adOpenDynamic
'.LockType = adLockOptimistic
'.Open cmdProc
'End With
Exit Function
Cwcl:
stockordermodify = False
Exit Function
End Function
'**************************************
'* 功 能 描 述 :修改数据库显示商品记录函数
'* 输 入 参 数 :无
'* 输 出 参 数 :true -刷新成功
'* false -刷新失败
'**************************************
Public Function stockorderdetailmodify(recSet As ADODB.Recordset, stockorderdetailid As String, _
stockorderid As String, goodsid As String, _
unit As String, num As String, price As Double, money As Double, _
finishNum As String, memo As String) As Boolean
Dim cmdProc As ADODB.Command ' 执行存储过程的命令
stockorderdetailmodify = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 执行存储过程的命令的设置
cmdProc.CommandText = "stockorderdetail_modify" ' 指定存储过程的名子
cmdProc.CommandType = adCmdStoredProc
cmdProc.Parameters.Refresh
cmdProc.Parameters(1) = stockorderdetailid
cmdProc.Parameters(2) = stockorderid ' 连接采购订单-采购订单ID
cmdProc.Parameters(3) = goodsid ' 商品编号
cmdProc.Parameters(4) = unit ' 单位
cmdProc.Parameters(5) = num ' 数量
cmdProc.Parameters(6) = price ' 单价
cmdProc.Parameters(7) = money ' 金额
cmdProc.Parameters(8) = finishNum ' 完成数量
cmdProc.Parameters(9) = memo ' 备注
On Error GoTo Cwcl
cmdProc.Execute
' 执行命令 把查询到的结果放在recSet中
'With recSet
'.CursorLocation = adUseClient
'.CursorType = adOpenDynamic
'.LockType = adLockOptimistic
'.Open cmdProc
'End With
With recSet
If Not .EOF Then
stockorderdetailmodify = True
Else
stockorderdetailmodify = False
End If
End With
Exit Function
Cwcl:
stockorderdetailmodify = False
Exit Function
End Function
'**************************************
'* 功 能 描 述 :根据采购订单的ID从表中删除一条采购明细记录
'* 输 入 参 数 :无
'* 输 出 能 数 :True - 数据库连接成功
'* False - 数据库连接失败
'**************************************
Public Function Deletestockorderdetail(recSet As ADODB.Recordset, stockorderid As String) As Boolean
Dim cmdProc As ADODB.Command ' 执行存储过程的命令
Deletestockorderdetail = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 执行存储过程的命令的设置
cmdProc.CommandText = "stockorderdetail_delete" ' 指定存储过程的名子
cmdProc.CommandType = adCmdStoredProc
cmdProc.Parameters.Refresh
cmdProc.Parameters(1) = stockorderid ' 参数
On Error GoTo Cwcl
' 执行命令 把查询到的结果放在recSet中
With recSet
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open cmdProc
End With
With recSet
If Not .EOF Then
Deletestockorderdetail = True
Else
Deletestockorderdetail = False
End If
End With
Exit Function
Cwcl:
Deletestockorderdetail = False
Exit Function
End Function
'**************************************
'* 功 能 描 述 :根据商品ID从表中显示一条商品记录
'* 输 入 参 数 :无
'* 输 出 能 数 :True - 数据库连接成功
'* False - 数据库连接失败
'**************************************
Public Function showgoods(recSet As ADODB.Recordset, goodsid As String) As Boolean
Dim cmdProc As ADODB.Command ' 执行存储过程的命令
showgoods = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 执行存储过程的命令的设置
cmdProc.CommandText = "goods_showone" ' 指定存储过程的名子
cmdProc.CommandType = adCmdStoredProc
cmdProc.Parameters.Refresh
cmdProc.Parameters(1) = goodsid ' 参数
On Error GoTo Cwcl
' 执行命令 把查询到的结果放在recSet中
With recSet
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open cmdProc
End With
With recSet
If Not .EOF Then
showgoods = True
Else
showgoods = False
End If
End With
Exit Function
Cwcl:
showgoods = False
Exit Function
End Function
'**************************************
'* 功 能 描 述 :根据采购订单的ID从表中删除一条采购明细记录
'* 输 入 参 数 :无
'* 输 出 能 数 :True - 数据库连接成功
'* False - 数据库连接失败
'**************************************
Public Function Deletedetail1(recSet As ADODB.Recordset, stockorderdetailid As String) As Boolean
Dim cmdProc As ADODB.Command ' 执行存储过程的命令
Deletedetail1 = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 执行存储过程的命令的设置
cmdProc.CommandText = "stockorderdetail_delete1" ' 指定存储过程的名子
cmdProc.CommandType = adCmdStoredProc
cmdProc.Parameters.Refresh
cmdProc.Parameters(1) = stockorderdetailid ' 参数
On Error GoTo Cwcl
' 执行命令 把查询到的结果放在recSet中
With recSet
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open cmdProc
End With
With recSet
If Not .EOF Then
Deletedetail1 = True
Else
Deletedetail1 = False
End If
End With
Exit Function
Cwcl:
Deletedetail1 = False
Exit Function
End Function
'**************************************
'* 功 能 描 述 :刷新数据库显示采购订单-商品记录函数
'* 输 入 参 数 :无
'* 输 出 参 数 :true -刷新成功
'* false -刷新失败
'**************************************
Public Function stockorderdetail1_show(recSet As ADODB.Recordset, stockorderid As String) As Boolean
Dim cmdProc As ADODB.Command ' 执行存储过程的命令
stockorderdetail1_show = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 执行存储过程的命令的设置
cmdProc.CommandText = "stockorderdetail1_show" ' 指定存储过程的名子
cmdProc.CommandType = adCmdStoredProc
cmdProc.Parameters.Refresh
cmdProc.Parameters(1) = stockorderid
On Error GoTo Cwcl
' 执行命令 把查询到的结果放在recSet中
With recSet
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open cmdProc
End With
With recSet
If Not .EOF Then
stockorderdetail1_show = True
Else
stockorderdetail1_show = False
End If
End With
Exit Function
Cwcl:
stockorderdetail1_show = False
Exit Function
End Function
'**************************************
'* 功 能 描 述 :根据采购订单的ID从表中删除多条采购明细记录
'* 输 入 参 数 :无
'* 输 出 能 数 :True - 数据库连接成功
'* False - 数据库连接失败
'**************************************
Public Function Deletestockorderdetail2(recSet As ADODB.Recordset, stockorderid As String) As Boolean
Dim cmdProc As ADODB.Command ' 执行存储过程的命令
Deletestockorderdetail2 = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 执行存储过程的命令的设置
cmdProc.CommandText = "stockorderdetail_delete2" ' 指定存储过程的名子
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -