producedao.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 = "ProduceDAO"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

'**************************************
'*    功 能 描 述 :新增一条生产单
'*    输 入 参 数 :无
'*    输 出 能 数 :""             -  失败
'*                 "..."          -  成功
'**************************************
Public Function NewProduce(recSet As ADODB.Recordset, _
                            pocessNo As String, _
                            fee As Double, _
                            exeEmployeeId As String, _
                            exeName As String, _
                            insertdate As Date, _
                            planfinishdate As Date, _
                            planbegindate As Date, _
                            finishdate As String, _
                            quantity As Double, _
                            finishNum As Double, _
                            lossNum As Double, _
                            totalMoney As Double, _
                            judge As Integer, _
                            employeeid As String, _
                            psId As String, _
                            bomId As String, _
                            memo As String, _
                            state As Integer, minserial As Double, maxserial As Double) As String
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    NewProduce = ""
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "produce_new"          ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = pocessNo
    cmdProc.Parameters(2) = fee
    cmdProc.Parameters(3) = exeEmployeeId
    cmdProc.Parameters(4) = exeName
    cmdProc.Parameters(5) = insertdate
    cmdProc.Parameters(6) = planfinishdate
    cmdProc.Parameters(7) = planbegindate
    cmdProc.Parameters(8) = finishdate
    cmdProc.Parameters(9) = quantity
    cmdProc.Parameters(10) = finishNum
    cmdProc.Parameters(11) = lossNum
    cmdProc.Parameters(12) = totalMoney
    cmdProc.Parameters(13) = judge
    cmdProc.Parameters(14) = employeeid
    cmdProc.Parameters(15) = psId
    cmdProc.Parameters(16) = bomId
    cmdProc.Parameters(17) = memo
    cmdProc.Parameters(18) = state
    cmdProc.Parameters(19) = minserial
    cmdProc.Parameters(20) = maxserial
    cmdProc.Parameters(21) = "00000"
    
    ' 执行命令 把查询到的结果放在recSet中
'    MainForm.g_application.m_databaseCon.m_adoConnection.BeginTrans    ' 开始事务
    
    On Error GoTo Cwcl
    
    cmdProc.Execute
    NewProduce = cmdProc.Parameters(21)

'    MainForm.g_application.m_databaseCon.m_adoConnection.CommitTrans   ' 结束事务
    Exit Function
    
Cwcl:
'    MainForm.g_application.m_databaseCon.m_adoConnection.RollbackTrans   ' 回滚事务
    NewProduce = ""
End Function
'**************************************
'*    功 能 描 述 :新增一条生产单明细
'*    输 入 参 数 :无
'*    输 出 能 数 :""             -  失败
'*                 "..."          -  成功
'**************************************
Public Function NewProduceDetail(recSet As ADODB.Recordset, _
                                    produceId As String, _
                                    bomId As String, _
                                    name As String, _
                                    quantity As Double, _
                                    totalNum As Double) As String
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    NewProduceDetail = ""
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "produce_detail_new"          ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = produceId
    cmdProc.Parameters(2) = bomId
    cmdProc.Parameters(3) = name
    cmdProc.Parameters(4) = quantity
    cmdProc.Parameters(5) = totalNum
    cmdProc.Parameters(6) = "0000"
    
    ' 执行命令 把查询到的结果放在recSet中
'    MainForm.g_application.m_databaseCon.m_adoConnection.BeginTrans    ' 开始事务
    
    On Error GoTo Cwcl
    
    cmdProc.Execute
    NewProduceDetail = cmdProc.Parameters(6)

'    MainForm.g_application.m_databaseCon.m_adoConnection.CommitTrans   ' 结束事务
    Exit Function
    
Cwcl:
'    MainForm.g_application.m_databaseCon.m_adoConnection.RollbackTrans   ' 回滚事务
    NewProduceDetail = ""
End Function
'**************************************
'*    功 能 描 述 :找到所有的生产单
'*    输 入 参 数 :alartDays     - 报警的天数
'*                 psId          - 生产计划单编号
'*    输 出 能 数 :True           -  成功
'*                 False          -  失败
'**************************************
Public Function FindAllProduce(recSet As ADODB.Recordset, _
                                 alartDays As Integer, _
                                 psId As String, _
                                 psBomId As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    FindAllProduce = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "produce_findAll"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = alartDays
    cmdProc.Parameters(2) = psBomId
    cmdProc.Parameters(3) = psId
    
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            FindAllProduce = True
        Else
            FindAllProduce = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    FindAllProduce = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :找到所有的生产单
'*    输 入 参 数 :produceId     - 生产单ID
'*    输 出 能 数 :True           -  成功
'*                 False          -  失败
'**************************************
Public Function FindProduceById(recSet As ADODB.Recordset, _
                                 produceId As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    FindProduceById = 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
            FindProduceById = True
        Else
            FindProduceById = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    FindProduceById = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :根据生产单编号找到生产单所需的物料明细
'*    输 入 参 数 :produceId     - 生产ID
'*    输 出 能 数 :True           -  成功
'*                 False          -  失败
'**************************************
Public Function FindProduceDetailById(recSet As ADODB.Recordset, _
                                 produceId As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    FindProduceDetailById = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "produce_detail_findByProduceId"     ' 指定存储过程的名子
    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
            FindProduceDetailById = True
        Else
            FindProduceDetailById = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    FindProduceDetailById = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :设置生产单的完成数量
'*    输 入 参 数 :finishNum      - 完成的数量
'*                 state          - 状态
'*    输 出 能 数 :""             -  失败
'*                 "..."          -  成功
'**************************************
Public Function SetProduceFinishNum(recSet As ADODB.Recordset, _
                                    produceId As String, _
                                    finishNum As Double, _
                                    state As Integer) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    SetProduceFinishNum = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "produce_setFinishNum"          ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = produceId
    cmdProc.Parameters(2) = finishNum
    cmdProc.Parameters(3) = state
    
    ' 执行命令 把查询到的结果放在recSet中
    MainForm.g_application.m_databaseCon.m_adoConnection.BeginTrans    ' 开始事务
    
    On Error GoTo Cwcl
    
    cmdProc.Execute
    SetProduceFinishNum = True

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

'**************************************
'*    功 能 描 述 :找到所有的生产单
'*    输 入 参 数 :produceId     - 生产单ID
'*    输 出 能 数 :True           -  成功
'*                 False          -  失败
'**************************************
Public Function produce_findById1(recSet As ADODB.Recordset, _
                                 produceId As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    produce_findById1 = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "produce_findById1"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = produceId