cooperatedao.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 = "CooperateDAO"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'**************************************
'*    模 块 名 称 :外协生产计划单数据库操作
'*    功 能 描 述 :完成数据库操作
'*    程序员姓名  : 陈齐国
'*    最后修改人  : 陈齐国
'*    最后修改时间:2005/09/10
'**************************************
Option Explicit
'**************************************
'*    功 能 描 述 :新增一条外协生产单
'*    输 入 参 数 :无
'*    输 出 能 数 :""             -  失败
'*                 "..."          -  成功
'**************************************
Public Function NewCooperate(recSet As ADODB.Recordset, _
                            pocessNo As String, _
                            quote As Double, _
                            supplierId As String, _
                            address As String, _
                            superinrtendent As String, _
                            tell As String, _
                            insertdate As Date, _
                            planfinishdate As Date, _
                            planbegindate As Date, _
                            finishdate As String, _
                            quantity As Double, _
                            totalMoney As Double, _
                            judge As Integer, _
                            employeeid As String, _
                            psId As String, _
                            bomId As String, _
                            productType As String, _
                            memo As String, _
                            state As Integer) As String
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    NewCooperate = ""
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "cooperate_new"          ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = pocessNo
    cmdProc.Parameters(2) = quote
    cmdProc.Parameters(3) = supplierId
    cmdProc.Parameters(4) = address
    cmdProc.Parameters(5) = superinrtendent
    cmdProc.Parameters(6) = tell
    cmdProc.Parameters(7) = insertdate
    cmdProc.Parameters(8) = planfinishdate
    cmdProc.Parameters(9) = planbegindate
    cmdProc.Parameters(10) = finishdate
    cmdProc.Parameters(11) = quantity
    cmdProc.Parameters(12) = totalMoney
    cmdProc.Parameters(13) = judge
    cmdProc.Parameters(14) = employeeid
    cmdProc.Parameters(15) = psId
    cmdProc.Parameters(16) = bomId
    cmdProc.Parameters(17) = productType
    cmdProc.Parameters(18) = memo
    cmdProc.Parameters(19) = state
    cmdProc.Parameters(20) = "0000"
    
    ' 执行命令 把查询到的结果放在recSet中
'    MainForm.g_application.m_databaseCon.m_adoConnection.BeginTrans    ' 开始事务
    
    On Error GoTo Cwcl
    
    cmdProc.Execute
    NewCooperate = cmdProc.Parameters(20)

'    MainForm.g_application.m_databaseCon.m_adoConnection.CommitTrans   ' 结束事务
    Exit Function
    
Cwcl:
'    MainForm.g_application.m_databaseCon.m_adoConnection.RollbackTrans   ' 回滚事务
    NewCooperate = ""
End Function
'**************************************
'*    功 能 描 述 :修改一条外协生产单
'*    输 入 参 数 :无
'*    输 出 能 数 :false         -  失败
'*                 true          -  成功
'**************************************
Public Function ModifyCooperate(quote As Double, _
                            address As String, _
                            tell As String, _
                            planfinishdate As Date, _
                            planbegindate As Date, _
                            finishdate As String, _
                            quantity As Integer, _
                            totalMoney As Double, _
                            memo As String, _
                            cooperateId As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    ModifyCooperate = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "cooperate_modify"          ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = quote
    cmdProc.Parameters(2) = address
    cmdProc.Parameters(3) = tell
    cmdProc.Parameters(4) = planfinishdate
    cmdProc.Parameters(5) = planbegindate
    cmdProc.Parameters(6) = finishdate
    cmdProc.Parameters(7) = quantity
    cmdProc.Parameters(8) = totalMoney
    cmdProc.Parameters(9) = memo
    cmdProc.Parameters(10) = cooperateId
    
    ' 执行命令
  
    On Error GoTo Cwcl
    
    cmdProc.Execute
    ModifyCooperate = True

    Exit Function
    
Cwcl:
    ModifyCooperate = False
End Function
'**************************************
'*    功 能 描 述 :新增一条外协生产单明细
'*    输 入 参 数 :无
'*    输 出 能 数 :""             -  失败
'*                 "..."          -  成功
'**************************************
Public Function NewCooperateDetail(recSet As ADODB.Recordset, _
                                    cooperateId As String, _
                                    bomId As String, _
                                    name As String, _
                                    quantity As Double, _
                                    totalNum As Double) As String
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    NewCooperateDetail = ""
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "cooperate_detail_new"          ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = cooperateId
    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
    NewCooperateDetail = cmdProc.Parameters(6)

'    MainForm.g_application.m_databaseCon.m_adoConnection.CommitTrans   ' 结束事务
    Exit Function
    
Cwcl:
'    MainForm.g_application.m_databaseCon.m_adoConnection.RollbackTrans   ' 回滚事务
    NewCooperateDetail = ""
End Function
'**************************************
'*    功 能 描 述 :修改一条外协生产单明细
'*    输 入 参 数 :无
'*    输 出 能 数 :true             -  成功
'*                 false            -  失败
'**************************************
Public Function ModifyCooperateDetail(cooperateId As String, _
                                    bomId As String, _
                                    name As String, _
                                    quantity As Double, _
                                    totalNum As Double, _
                                    cdId As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    ModifyCooperateDetail = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "cooperate_detail_modify"          ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = cooperateId
    cmdProc.Parameters(2) = bomId
    cmdProc.Parameters(3) = name
    cmdProc.Parameters(4) = quantity
    cmdProc.Parameters(5) = totalNum
    cmdProc.Parameters(6) = cdId
    
    ' 执行命令
    On Error GoTo Cwcl
    
    cmdProc.Execute
    ModifyCooperateDetail = True

    Exit Function
    
Cwcl:
    ModifyCooperateDetail = False
End Function
'**************************************
'*    功 能 描 述 :找到所有的外协加工单
'*    输 入 参 数 :alartDays     - 报警的天数
'*                 psId          - 生产计划单编号
'*                 psBomId       - 生产BOM 的ID
'*                 supplierId    - 供应商ID
'*                 state         - 单子的状态
'*    输 出 能 数 :True           -  成功
'*                 False          -  失败
'**************************************
Public Function FindAllCooperate(recSet As ADODB.Recordset, _
                                 alartDays As Integer, _
                                 psId As String, _
                                 psBomId As String, _
                                 supplierId As String, _
                                 state As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    FindAllCooperate = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "cooperate_findAll"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = alartDays
    cmdProc.Parameters(2) = psBomId
    cmdProc.Parameters(3) = psId
    cmdProc.Parameters(4) = supplierId
    cmdProc.Parameters(5) = state
    
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            FindAllCooperate = True
        Else
            FindAllCooperate = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    FindAllCooperate = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :根据外协加工单编号找到外协加工单
'*    输 入 参 数 :cooperateId     - 外协生产单号
'*    输 出 能 数 :True           -  成功
'*                 False          -  失败
'**************************************
Public Function FindCooperateById(recSet As ADODB.Recordset, _
                                 cooperateId As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    FindCooperateById = False
    Set cmdProc = New ADODB.Command