producedao.cls

即时通讯

    Exit Function
    
Cwcl:
    produce_findById = False
    Exit Function
End Function

'**************************************
'*    功 能 描 述 :找到该物料已经领取的数量
'*    输 入 参 数 :produceId     - 生产单ID
'*    输 出 能 数 :True           -  成功
'*                 False          -  失败
'**************************************
Public Function ProduceDrawMaterial_findtotalnum(recSet As ADODB.Recordset, _
                                 materialId As String, bomId As String, produceId As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    ProduceDrawMaterial_findtotalnum = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "ProduceDrawMaterial_findtotalnum"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = materialId
    cmdProc.Parameters(2) = bomId
    cmdProc.Parameters(3) = produceId
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            ProduceDrawMaterial_findtotalnum = True
        Else
            ProduceDrawMaterial_findtotalnum = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    ProduceDrawMaterial_findtotalnum = False
    Exit Function
End Function

'**************************************
'*    功 能 描 述 :根据生产单编号找到生产单所需的物料明细
'*    输 入 参 数 :produceId     - 生产ID
'*    输 出 能 数 :True           -  成功
'*                 False          -  失败
'**************************************
Public Function produce_producedrawmaterial_list(recSet As ADODB.Recordset, _
                                 produceId As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    produce_producedrawmaterial_list = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "produce_producedrawmaterial_list"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = produceId
    
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            produce_producedrawmaterial_list = True
        Else
            produce_producedrawmaterial_list = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    produce_producedrawmaterial_list = False
    Exit Function
End Function

'**************************************
'*    功 能 描 述 :根据生产单编号找到生产单所需的物料明细
'*    输 入 参 数 :produceId     - 生产ID
'*    输 出 能 数 :True           -  成功
'*                 False          -  失败
'**************************************
Public Function producedrawmaterial_findid_produce(recSet As ADODB.Recordset, _
                                 produceId As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    producedrawmaterial_findid_produce = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "producedrawmaterial_findid_produce"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = produceId
    
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            producedrawmaterial_findid_produce = True
        Else
            producedrawmaterial_findid_produce = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    producedrawmaterial_findid_produce = False
    Exit Function
End Function


'**************************************
'*    功 能 描 述 :获取领取数量
'*    输 入 参 数 :produceId     - 生产ID
'*    输 出 能 数 :True           -  成功
'*                 False          -  失败
'**************************************
Public Function producedrawmaterial_totalnum(recSet As ADODB.Recordset, _
                                 producedrawid As String, bomId As String, matrialid As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    producedrawmaterial_totalnum = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "producedrawmaterial_totalnum"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = producedrawid
    cmdProc.Parameters(2) = bomId
    cmdProc.Parameters(3) = matrialid
    
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            producedrawmaterial_totalnum = True
        Else
            producedrawmaterial_totalnum = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    producedrawmaterial_totalnum = False
    Exit Function
End Function

'**************************************
'*    功 能 描 述 :根据生产单编号找到生产单所需的物料明细
'*    输 入 参 数 :produceId     - 生产ID
'*    输 出 能 数 :True           -  成功
'*                 False          -  失败
'**************************************
Public Function producedetailmaterial_findByProduceId(recSet As ADODB.Recordset, _
                                 producedrawid As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    producedetailmaterial_findByProduceId = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "producedetailmaterial_findByProduceId"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = producedrawid
    
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            producedetailmaterial_findByProduceId = True
        Else
            producedetailmaterial_findByProduceId = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    producedetailmaterial_findByProduceId = False
    Exit Function
End Function


'**************************************
'*    功 能 描 述 :查询根据生产单编号找到生产单所需的物料明细
'*    输 入 参 数 :produceId     - 生产ID
'*    输 出 能 数 :True           -  成功
'*                 False          -  失败
'**************************************
Public Function produce_findByIdList(recSet As ADODB.Recordset) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    produce_findByIdList = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "produce_findByIdList"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
'    cmdProc.Parameters(1) = producedrawid
    
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            produce_findByIdList = True
        Else
            produce_findByIdList = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    produce_findByIdList = False
    Exit Function
End Function

'**************************************
'*    功 能 描 述 :根据生产单编号找到生产单所需的物料明细
'*    输 入 参 数 :produceId     - 生产ID
'*    输 出 能 数 :True           -  成功
'*                 False          -  失败
'**************************************
Public Function producedetailmaterial_serial(recSet As ADODB.Recordset, _
                                 producedrawid As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    producedetailmaterial_serial = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "producedetailmaterial_serial"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = producedrawid
    
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            producedetailmaterial_serial = True
        Else
            producedetailmaterial_serial = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    producedetailmaterial_serial = False
    Exit Function
End Function