📄 stockorderdao.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 = "stockorderDAO"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'**************************************
'* 模 块 名 称 :采购订单的数据据库操作
'* 功 能 描 述 :完成数据库操作
'* 程序员姓名 : 黄朝和
'* 最后修改人 : 黄朝和
'* 最后修改时间:2005/08/27
'**************************************
Option Explicit
'**************************************
'* 功 能 描 述 :刷新数据库显示商品记录函数
'* 输 入 参 数 :无
'* 输 出 参 数 :true -刷新成功
'* false -刷新失败
'**************************************
Public Function g_Refresh(recSet As ADODB.Recordset, supplierId As String) As Boolean
Dim cmdProc As ADODB.Command ' 执行存储过程的命令
g_Refresh = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 执行存储过程的命令的设置
cmdProc.CommandText = "goods_show" ' 指定存储过程的名子
cmdProc.CommandType = adCmdStoredProc
cmdProc.Parameters.Refresh
cmdProc.Parameters(1) = supplierId
On Error GoTo Cwcl
' 执行命令 把查询到的结果放在recSet中
With recSet
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open cmdProc
End With
With recSet
If Not .EOF Then
g_Refresh = True
Else
g_Refresh = False
End If
End With
Exit Function
Cwcl:
g_Refresh = False
Exit Function
End Function
'**************************************
'* 功 能 描 述 :刷新数据库显示职员记录函数
'* 输 入 参 数 :无
'* 输 出 参 数 :true -刷新成功
'* false -刷新失败
'**************************************
Public Function e_Refresh(recSet As ADODB.Recordset) As Boolean
Dim cmdProc As ADODB.Command ' 执行存储过程的命令
e_Refresh = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 执行存储过程的命令的设置
cmdProc.CommandText = "employee_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
e_Refresh = True
Else
e_Refresh = False
End If
End With
Exit Function
Cwcl:
e_Refresh = False
Exit Function
End Function
'**************************************
'* 功 能 描 述 :刷新数据库显示采购订单-供应商记录函数
'* 输 入 参 数 :无
'* 输 出 参 数 :true -刷新成功
'* false -刷新失败
'**************************************
Public Function stockorder_show(recSet As ADODB.Recordset) As Boolean
Dim cmdProc As ADODB.Command ' 执行存储过程的命令
stockorder_show = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 执行存储过程的命令的设置
cmdProc.CommandText = "stockorder_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
stockorder_show = True
Else
stockorder_show = False
End If
End With
Exit Function
Cwcl:
stockorder_show = False
Exit Function
End Function
'**************************************
'* 功 能 描 述 :刷新数据库显示采购订单-商品记录函数
'* 输 入 参 数 :无
'* 输 出 参 数 :true -刷新成功
'* false -刷新失败
'**************************************
Public Function stockorderdetail_show(recSet As ADODB.Recordset, stockorderid As String) As Boolean
Dim cmdProc As ADODB.Command ' 执行存储过程的命令
stockorderdetail_show = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 执行存储过程的命令的设置
cmdProc.CommandText = "stockorderdetail_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
stockorderdetail_show = True
Else
stockorderdetail_show = False
End If
End With
Exit Function
Cwcl:
stockorderdetail_show = False
Exit Function
End Function
'**************************************
'* 功 能 描 述 :采购订单数据库增加函数
'* 输 入 参 数 :无
'* 输 出 参 数 :true -新增成功
'* false -新增失败
'**************************************
Public Function addstockorder(recSet As ADODB.Recordset, notenum As String, supplierId As String, _
inputdate As Date, deliverydate As Date, superinrtendent As String, _
phone As String, memo As String, counterman As String, inputman As String, shhe As Integer) As String
addstockorder = ""
Dim cmdProc As ADODB.Command ' 执行存储过程的命令
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' MainForm.g_application.m_databaseCon.m_adoConnection.BeginTrans ' 开始事务
On Error GoTo Cwcl
' 执行存储过程的命令的设置
cmdProc.CommandText = "stockorder_add" ' 指定存储过程的名子
cmdProc.CommandType = adCmdStoredProc
cmdProc.Parameters.Refresh
cmdProc.Parameters(1) = notenum ' 参数-数据编号
cmdProc.Parameters(2) = supplierId ' 参数-供应商ID
cmdProc.Parameters(3) = inputdate ' 参数-录入日期
cmdProc.Parameters(4) = deliverydate ' 参数-交货日期
cmdProc.Parameters(5) = superinrtendent ' 参数-联系人
cmdProc.Parameters(6) = phone ' 参数-联系电话
cmdProc.Parameters(7) = memo ' 参数-备注
cmdProc.Parameters(8) = counterman ' 参数-业务员
cmdProc.Parameters(9) = inputman ' 参数-制单人
cmdProc.Parameters(10) = shhe ' 参数-审核
cmdProc.Parameters(11) = "wwww" ' 返回采购订单ID
' 执行命令 把查询到的结果放在recSet中
cmdProc.Execute
addstockorder = cmdProc.Parameters(11)
' MainForm.g_application.m_databaseCon.m_adoConnection.CommitTrans ' 结束事务
Exit Function
Cwcl:
'MainForm.g_application.m_databaseCon.m_adoConnection.RollbackTrans ' 回滚事务
addstockorder = ""
Exit Function
End Function
'**************************************
'* 功 能 描 述 :采购订单明细单数据库增加函数
'* 输 入 参 数 :无
'* 输 出 参 数 :true -新增成功
'* false -新增失败
'**************************************
Public Function addstockorderdetail(recSet As ADODB.Recordset, 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 ' 执行存储过程的命令
addstockorderdetail = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 执行存储过程的命令的设置
cmdProc.CommandText = "stockorderdetail_add" ' 指定存储过程的名子
cmdProc.CommandType = adCmdStoredProc
cmdProc.Parameters.Refresh
cmdProc.Parameters(1) = stockorderid ' 参数-采购订单的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
'With recSet
'.CursorLocation = adUseClient
'.CursorType = adOpenDynamic
'.LockType = adLockOptimistic
'.Open cmdProc
'End With
' With recSet
' If Not .EOF Then
' addstockorderdetail = True
' Else
' addstockorderdetail = False
' End If
' End With
Exit Function
Cwcl:
addstockorderdetail = False
Exit Function
End Function
'**************************************
'* 功 能 描 述 :修改数据库显示供应商记录函数
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -