stockstoredao.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 = "stockstoreDAO"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'**************************************
'*    功 能 描 述 :刷新数据库显示仓库记录函数
'*    输 入 参 数 :无
'*    输 出 参 数 :true             -刷新成功
'*                 false            -刷新失败
'**************************************
Public Function s_Refresh(recSet As ADODB.Recordset) As Boolean
    
    Dim cmdProc As ADODB.Command                ' 执行存储过程的命令
    
    s_Refresh = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
                                                ' 执行存储过程的命令的设置
    cmdProc.CommandText = "store_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_Refresh = True
        Else
            s_Refresh = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    s_Refresh = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :采购入库数据库增加函数--供应商
'*    输 入 参 数 :无
'*    输 出 参 数 :true     -新增成功
'*                 false    -新增失败
'**************************************
Public Function addstockstore(recSet As ADODB.Recordset, storenotenum As String, supplierId As String, _
                               superinrtendent As String, storedate As Date, deliverydate As Date, _
                                    phone As String, store As String, counterman As String, inputman As String, shhe As Integer, memo As String, stockorderid As String) As String
    addstockstore = ""
    Dim cmdProc As ADODB.Command                    ' 执行存储过程的命令
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
                                                    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "stockstore_add"          ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = storenotenum            ' 参数-数据编号
    cmdProc.Parameters(2) = supplierId              ' 参数-供应商ID
    cmdProc.Parameters(3) = superinrtendent         ' 参数-录入日期
    cmdProc.Parameters(4) = storedate               ' 参数-交货日期
    cmdProc.Parameters(5) = deliverydate            ' 参数-联系人
    cmdProc.Parameters(6) = phone                   ' 参数-联系电话
    cmdProc.Parameters(7) = store                   ' 参数-备注
    cmdProc.Parameters(8) = counterman              ' 参数-业务员
    cmdProc.Parameters(9) = inputman                ' 参数-制单人
    cmdProc.Parameters(10) = shhe                   ' 参数-审核
    cmdProc.Parameters(11) = memo                   ' 返回采购订单ID
    cmdProc.Parameters(12) = stockorderid
    cmdProc.Parameters(13) = "www"
                                                    ' 执行命令 把查询到的结果放在recSet中
                                                    
'    MainForm.g_application.m_databaseCon.m_adoConnection.BeginTrans    ' 开始事务
    
     On Error GoTo Cwcl
    cmdProc.Execute
    addstockstore = cmdProc.Parameters(13)
    
    
'    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 addstockstoredetail(recSet As ADODB.Recordset, stockstoreid 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                        ' 执行存储过程的命令
    addstockstoredetail = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
                                                        ' 执行存储过程的命令的设置
    cmdProc.CommandText = "stockstoredetail_add"        ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = stockstoreid                ' 参数-采购订单的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
'            addstockstoredetail = True
'        Else
'            addstockstoredetail = False
'        End If
'   End With
       
    Exit Function
    
Cwcl:
    addstockstoredetail = False
    Exit Function
End Function



'**************************************
'*    功 能 描 述 :刷新数据库显示采购入库记录函数
'*    输 入 参 数 :无
'*    输 出 参 数 :true             -刷新成功
'*                 false            -刷新失败
'**************************************
Public Function s_stockstore(recSet As ADODB.Recordset) As Boolean
    
    Dim cmdProc As ADODB.Command                ' 执行存储过程的命令
    
    s_stockstore = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
                                                ' 执行存储过程的命令的设置
    cmdProc.CommandText = "stockstore_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_stockstore = True
        Else
            s_stockstore = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    s_stockstore = False
    Exit Function
End Function



'**************************************
'*    功 能 描 述 :显示采购入库明细单函数
'*    输 入 参 数 :无
'*    输 出 参 数 :true             -刷新成功
'*                 false            -刷新失败
'**************************************
Public Function s_stockstoredetail(recSet As ADODB.Recordset, stockstoreid As String) As Boolean
    
    Dim cmdProc As ADODB.Command                ' 执行存储过程的命令
    
    s_stockstoredetail = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
                                                ' 执行存储过程的命令的设置
    cmdProc.CommandText = "show_stockstoredetail"          ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = stockstoreid
    
    On Error GoTo Cwcl
    
                                                ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            s_stockstoredetail = True
        Else
            s_stockstoredetail = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    s_stockstoredetail = False
    Exit Function
End Function

'**************************************
'*    功 能 描 述 :显示采购入库函数
'*    输 入 参 数 :无
'*    输 出 参 数 :true             -刷新成功
'*                 false            -刷新失败
'**************************************
Public Function s_stockstore1(recSet As ADODB.Recordset, stockstoreid As String) As Boolean
    
    Dim cmdProc As ADODB.Command                ' 执行存储过程的命令
    
    s_stockstore1 = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
                                                ' 执行存储过程的命令的设置
    cmdProc.CommandText = "stockstore1_show"          ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = stockstoreid
    
    On Error GoTo Cwcl
    
                                                ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            s_stockstore1 = True
        Else
            s_stockstore1 = False
        End If