📄 cooperatedao.cls

📁 即时通讯
💻 CLS
📖 第 1 页 / 共 2 页
字号:
上一页 12
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "cooperate_findById"     ' 指定存储过程的名子
    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
            FindCooperateById = True
        Else
            FindCooperateById = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    FindCooperateById = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :根据外协加工单编号找到外协加工单所需的物料明细
'*    输 入 参 数 :cooperateId     - 外协生产单号
'*    输 出 能 数 :True           -  成功
'*                 False          -  失败
'**************************************
Public Function FindCooperateDetailById(recSet As ADODB.Recordset, _
                                 cooperateId As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    FindCooperateDetailById = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "cooperate_detail_findByCooperateId"     ' 指定存储过程的名子
    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
            FindCooperateDetailById = True
        Else
            FindCooperateDetailById = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    FindCooperateDetailById = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :设置外协生产单的完成数量
'*    输 入 参 数 :finishNum      - 完成的数量
'*                 state          - 状态
'*    输 出 能 数 :""             -  失败
'*                 "..."          -  成功
'**************************************
Public Function SetCooperateFinishNum(recSet As ADODB.Recordset, _
                                    cooperateId As String, _
                                    finishNum As Double, _
                                    state As Integer) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    SetCooperateFinishNum = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "cooperate_setFinishNum"          ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = cooperateId
    cmdProc.Parameters(2) = finishNum
    cmdProc.Parameters(3) = state
    
    ' 执行命令 把查询到的结果放在recSet中
    MainForm.g_application.m_databaseCon.m_adoConnection.BeginTrans    ' 开始事务
    
    On Error GoTo Cwcl
    
    cmdProc.Execute
    SetCooperateFinishNum = True

    MainForm.g_application.m_databaseCon.m_adoConnection.CommitTrans   ' 结束事务
    Exit Function
    
Cwcl:
    MainForm.g_application.m_databaseCon.m_adoConnection.RollbackTrans   ' 回滚事务
    SetCooperateFinishNum = False
End Function
Public Function FindCooperateDeatil_findname(recSet As ADODB.Recordset, _
                                 cooperateId As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    FindCooperateDeatil_findname = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "CooperateDeatil_findname"     ' 指定存储过程的名子
    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
            FindCooperateDeatil_findname = True
        Else
            FindCooperateDeatil_findname = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    FindCooperateDeatil_findname = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :取得一个生产单中的一个上一级物料的已领料数量
'*    输 入 参 数 :cooperateId     - 外协生产单号
'*                 bomId           - 此生产单的上一级一个物料的psbomId(生产计划单BOM)
'*    输 出 能 数 :返回已生产的数量
'**************************************
Public Function GetOneBomDrawNum(cooperateId As String, _
                                 bomId As String) As Double
    Dim recSet As ADODB.Recordset         ' 数据集控件
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    GetOneBomDrawNum = 0
    Set recSet = New ADODB.Recordset
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "cooperate_GetOneBomDrawNum"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = cooperateId
    cmdProc.Parameters(2) = bomId
    
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            GetOneBomDrawNum = CDbl(.Fields("sumNum"))
        Else
            GetOneBomDrawNum = 0
        End If
    End With
    Set recSet = Nothing
    Set cmdProc = Nothing
    Exit Function
    
Cwcl:
    GetOneBomDrawNum = 0
    Set recSet = Nothing
    Set cmdProc = Nothing
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :取得一个生产计划单的已完工数量
'*    输 入 参 数 :cooperateId     - 外协生产单号
'*    输 出 能 数 :返回已完工的数量
'**************************************
Public Function GetCooperateFinishNum(cooperateId As String) As Double
    Dim recSet As ADODB.Recordset         ' 数据集控件
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    GetCooperateFinishNum = 0
    Set recSet = New ADODB.Recordset
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "cooperate_GetCooperateFinishNum"     ' 指定存储过程的名子
    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
            GetCooperateFinishNum = CDbl(.Fields("sumFinishNum"))
        Else
            GetCooperateFinishNum = 0
        End If
    End With
    Set recSet = Nothing
    Set cmdProc = Nothing
    Exit Function
    
Cwcl:
    GetCooperateFinishNum = 0
    Set recSet = Nothing
    Set cmdProc = Nothing
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :查询根据外协加工单编号找到外协加工单所需的物料明细
'*    输 入 参 数 :cooperateId     - 外协生产单号
'*    输 出 能 数 :True           -  成功
'*                 False          -  失败
'**************************************
Public Function cooperate_findByIdList(recSet As ADODB.Recordset) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    cooperate_findByIdList = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "cooperate_findByIdList"     ' 指定存储过程的名子
    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
            cooperate_findByIdList = True
        Else
            cooperate_findByIdList = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    cooperate_findByIdList = False
    Exit Function
End Function
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -