cooperatedrowmaterdao.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 = "cooperatedrowmaterDAO"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'**************************************
'*    功 能 描 述 :保存发料记录
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  发料成功
'*                 False          -  发料失败
'**************************************
Public Function newcooperatedrowmaterial(recSet As ADODB.Recordset, _
                             cooperateId As String, processno As String, _
                             bomId As String, name As String, _
                             quantity As String, totalNum As String, _
                             drawdate As String, warehouseid As String) As String
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    newcooperatedrowmaterial = ""
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "cooperatedrowmaterial_add"          ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = cooperateId             ' 参数
    cmdProc.Parameters(2) = processno               ' 参数
    cmdProc.Parameters(3) = bomId                   ' 参数
    cmdProc.Parameters(4) = name                    ' 参数
    cmdProc.Parameters(5) = quantity                ' 参数
    cmdProc.Parameters(6) = totalNum                ' 参数
    cmdProc.Parameters(7) = drawdate                ' 参数
    cmdProc.Parameters(8) = warehouseid             ' 参数
    cmdProc.Parameters(9) = "0000"                  ' 参数
    
    ' 执行命令 把查询到的结果放在recSet中
    MainForm.g_application.m_databaseCon.m_adoConnection.BeginTrans    ' 开始事务
    
    On Error GoTo Cwcl
    
    cmdProc.Execute
    newcooperatedrowmaterial = cmdProc.Parameters(9)


    MainForm.g_application.m_databaseCon.m_adoConnection.CommitTrans   ' 结束事务
    Exit Function
    
Cwcl:
    MainForm.g_application.m_databaseCon.m_adoConnection.RollbackTrans   ' 回滚事务
    newcooperatedrowmaterial = ""
End Function

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

'**************************************
'*    功 能 描 述 :查找仓库名称列表
'*    输 入 参 数 :无
'*    输 出 参 数 :true             -查找成功
'*                 false            -查找失败
'**************************************
Public Function cooperate_warehouse(recSet As ADODB.Recordset, warehouseid As String) As Boolean
    
    Dim cmdProc As ADODB.Command             ' 执行存储过程的命令
    
    cooperate_warehouse = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
                                              ' 执行存储过程的命令的设置
    cmdProc.CommandText = "warehouse_show1"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = warehouseid
    
    On Error GoTo Cwcl
    
                                             ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            cooperate_warehouse = True
        Else
            cooperate_warehouse = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    cooperate_warehouse = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :查询外协生产单-根据外协生产编号
'*    输 入 参 数 :无
'*    输 出 参 数 :true             -刷新成功
'*                 false            -刷新失败
'**************************************
Public Function cooperate_findid(recSet As ADODB.Recordset, cooperateId As String) As Boolean
    
    Dim cmdProc As ADODB.Command             ' 执行存储过程的命令
    
    cooperate_findid = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
                                              ' 执行存储过程的命令的设置
    cmdProc.CommandText = "cooperate_find1"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = cooperateId
    
    On Error GoTo Cwcl
    
                                             ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            cooperate_findid = True
        Else
            cooperate_findid = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    cooperate_findid = False
    Exit Function
End Function

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

'**************************************
'*    功 能 描 述 :取得所有发料单的列表
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败
'**************************************
Public Function FindAll(recSet As ADODB.Recordset) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    FindAll = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "cooperatedrowmaterial_findall"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With