📄 stockorderdao.cls
字号:
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
Deletestockorderdetail2 = True
Else
Deletestockorderdetail2 = False
End If
End With
Exit Function
Cwcl:
Deletestockorderdetail2 = False
Exit Function
End Function
'**************************************
'* 功 能 描 述 :审核采购订单-商品记录函数
'* 输 入 参 数 :无
'* 输 出 参 数 :true -刷新成功
'* false -刷新失败
'**************************************
Public Function update_shhe(recSet As ADODB.Recordset, stockorderid As String) As Boolean
Dim cmdProc As ADODB.Command ' 执行存储过程的命令
update_shhe = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 执行存储过程的命令的设置
cmdProc.CommandText = "update_shhe" ' 指定存储过程的名子
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
update_shhe = True
Else
update_shhe = False
End If
End With
Exit Function
Cwcl:
update_shhe = False
Exit Function
End Function
'**************************************
'* 功 能 描 述 :取消审核采购订单-商品记录函数
'* 输 入 参 数 :无
'* 输 出 参 数 :true -刷新成功
'* false -刷新失败
'**************************************
Public Function update_qsh(recSet As ADODB.Recordset, stockorderid As String) As Boolean
Dim cmdProc As ADODB.Command ' 执行存储过程的命令
update_qsh = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 执行存储过程的命令的设置
cmdProc.CommandText = "update_qsh" ' 指定存储过程的名子
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
update_qsh = True
Else
update_qsh = False
End If
End With
Exit Function
Cwcl:
update_qsh = False
Exit Function
End Function
'**************************************
'* 功 能 描 述 :根据商品ID和采购明细从表中显示一条商品记录
'* 输 入 参 数 :无
'* 输 出 能 数 :True - 数据库连接成功
'* False - 数据库连接失败
'**************************************
Public Function judge_stockorderdetail(recSet As ADODB.Recordset, supplierId As String, goodsid As String) As Boolean
Dim cmdProc As ADODB.Command ' 执行存储过程的命令
judge_stockorderdetail = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 执行存储过程的命令的设置
cmdProc.CommandText = "judeg_stockorderdetail" ' 指定存储过程的名子
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
judge_stockorderdetail = True
Else
judge_stockorderdetail = False
End If
End With
Exit Function
Cwcl:
judge_stockorderdetail = False
Exit Function
End Function
'**************************************
'* 功 能 描 述 :刷新数据库显示采购订单-供应商记录函数
'* 输 入 参 数 :无
'* 输 出 参 数 :true -刷新成功
'* false -刷新失败
'**************************************
Public Function stockorder1_show(recSet As ADODB.Recordset, stockorderid As String) As Boolean
Dim cmdProc As ADODB.Command ' 执行存储过程的命令
stockorder1_show = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 执行存储过程的命令的设置
cmdProc.CommandText = "stockorder1_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
stockorder1_show = True
Else
stockorder1_show = False
End If
End With
Exit Function
Cwcl:
stockorder1_show = False
Exit Function
End Function
'**************************************
'* 功 能 描 述 :刷新数据库显示采购订单-商品记录函数
'* 输 入 参 数 :无
'* 输 出 参 数 :true -刷新成功
'* false -刷新失败
'**************************************
Public Function stockorderdetail2_show(recSet As ADODB.Recordset, stockorderid As String) As Boolean
Dim cmdProc As ADODB.Command ' 执行存储过程的命令
stockorderdetail2_show = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 执行存储过程的命令的设置
cmdProc.CommandText = "stockorderdetail2_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
stockorderdetail2_show = True
Else
stockorderdetail2_show = False
End If
End With
Exit Function
Cwcl:
stockorderdetail2_show = False
Exit Function
End Function
'**************************************
'* 功 能 描 述 :刷新数据库显示记录函数
'* 输 入 参 数 :无
'* 输 出 参 数 :true -刷新成功
'* false -刷新失败
'**************************************
Public Function stockorder1_showList(recSet As ADODB.Recordset) As Boolean
Dim cmdProc As ADODB.Command ' 执行存储过程的命令
stockorder1_showList = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 执行存储过程的命令的设置
cmdProc.CommandText = "stockorder1_showList" ' 指定存储过程的名子
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
stockorder1_showList = True
Else
stockorder1_showList = False
End If
End With
Exit Function
Cwcl:
stockorder1_showList = False
Exit Function
End Function
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -