producedao.cls

即时通讯

    
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            produce_findById1 = True
        Else
            produce_findById1 = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    produce_findById1 = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :找到所有的生产单
'*    输 入 参 数 :produceId     - 生产单ID
'*    输 出 能 数 :True           -  成功
'*                 False          -  失败
'**************************************
Public Function produce_findById2(recSet As ADODB.Recordset, _
                                 produceId As String, bomId As String, materialId As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    produce_findById2 = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "produce_findById2"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = produceId
    cmdProc.Parameters(2) = bomId
    cmdProc.Parameters(3) = materialId
    
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            produce_findById2 = True
        Else
            produce_findById2 = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    produce_findById2 = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :修改生产单
'*    输 出 能 数 :True           -  成功
'*                 False          -  失败
'**************************************
Public Function PRODUCTION_MODIFY(recSet As ADODB.Recordset, _
                                 produceId As String, _
                                 insertdate As Date, _
                                 planfinishdate As Date, planbegindate As Date, finishdate As String, quantity As Double, memo As String, _
                                 minserial As Double, maxserial As Double) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    PRODUCTION_MODIFY = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "produce_modify"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = produceId
    cmdProc.Parameters(2) = insertdate
    cmdProc.Parameters(3) = planfinishdate
    cmdProc.Parameters(4) = planbegindate
    cmdProc.Parameters(5) = finishdate
    cmdProc.Parameters(6) = quantity
    cmdProc.Parameters(7) = memo
    cmdProc.Parameters(8) = minserial
    cmdProc.Parameters(9) = maxserial
    
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    Exit Function
    
Cwcl:
    PRODUCTION_MODIFY = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :修改物料单
'*    输 出 能 数 :True           -  成功
'*                 False          -  失败
'**************************************
Public Function producedeatil_modify(recSet As ADODB.Recordset, _
                                 produceDetailId As String, _
                                 totalNum As Double) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    producedeatil_modify = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "producedeatil_modify"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = produceDetailId
    cmdProc.Parameters(2) = totalNum
    
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    Exit Function
    
Cwcl:
    producedeatil_modify = False
    Exit Function
End Function

'**************************************
'*    功 能 描 述 :找到所有的生产单
'*    输 入 参 数 :produceId     - 生产单ID
'*    输 出 能 数 :True           -  成功
'*                 False          -  失败
'**************************************
Public Function produce_findById_c(recSet As ADODB.Recordset, _
                                 produceId As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    produce_findById_c = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "produce_findById_c"     ' 指定存储过程的名子
    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_findById_c = True
        Else
            produce_findById_c = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    produce_findById_c = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :找到所有的生产单
'*    输 入 参 数 :produceId     - 生产单ID
'*    输 出 能 数 :True           -  成功
'*                 False          -  失败
'**************************************
Public Function checkrecord_findproductid(recSet As ADODB.Recordset, _
                                 produceId As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    checkrecord_findproductid = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "checkrecord_findproductid"     ' 指定存储过程的名子
    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
            checkrecord_findproductid = True
        Else
            checkrecord_findproductid = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    checkrecord_findproductid = False
    Exit Function
End Function


'**************************************
'*    功 能 描 述 :找到所有的生产单
'*    输 入 参 数 :produceId     - 生产单ID
'*    输 出 能 数 :True           -  成功
'*                 False          -  失败
'**************************************
Public Function produce_print(recSet As ADODB.Recordset, _
                                 produceId As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    produce_print = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "produce_print"     ' 指定存储过程的名子
    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_print = True
        Else
            produce_print = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    produce_print = False
    Exit Function
End Function

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