cooperatefinishdao.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 = "CooperateFinishDAO"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'**************************************
'*    功 能 描 述 :新增一条外协完工单
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  新增成功
'*                 False          -  新增失败
'**************************************
Public Function newcooperatefinish(recSet As ADODB.Recordset, _
                             cooperateId As String, processno As String, _
                             losspartnum As Double, backpartnum As Double, _
                             finishpartnum As Double, processfee As Double, _
                             finishdate As Date, memo As String, warehouseid As String, _
                             goodsid As String, goodstype As String, counterclaim As Double, _
                             checkEmployeeId As String, checkAgainEmployeeId As String, _
                             inputEmployeeId As String, state As String, _
                             checkAgainDate As String, _
                             inWarehouseDate As String) As String
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    newcooperatefinish = ""
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "cooperatefinish_add"          ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = cooperateId             ' 参数
    cmdProc.Parameters(2) = processno               ' 参数
    cmdProc.Parameters(3) = losspartnum             ' 参数
    cmdProc.Parameters(4) = backpartnum             ' 参数
    cmdProc.Parameters(5) = finishpartnum           ' 参数
    cmdProc.Parameters(6) = processfee              ' 参数
    cmdProc.Parameters(7) = finishdate                    ' 参数
    cmdProc.Parameters(8) = memo                    ' 参数
    cmdProc.Parameters(9) = warehouseid
    cmdProc.Parameters(10) = goodsid
    cmdProc.Parameters(11) = goodstype
    cmdProc.Parameters(12) = counterclaim
    cmdProc.Parameters(13) = "000"
    cmdProc.Parameters(14) = checkEmployeeId       ' 检验员工ID
    cmdProc.Parameters(15) = checkAgainEmployeeId  ' 核检员工ID
    cmdProc.Parameters(16) = inputEmployeeId       ' 入库员工ID
    cmdProc.Parameters(17) = state                 ' 完工单状态
    cmdProc.Parameters(18) = checkAgainDate        ' 核检时间
    cmdProc.Parameters(19) = inWarehouseDate       ' 入库时间
    
    ' 执行命令 把查询到的结果放在recSet中
'    MainForm.g_application.m_databaseCon.m_adoConnection.BeginTrans    ' 开始事务
    
    On Error GoTo Cwcl
    
    cmdProc.Execute
    newcooperatefinish = cmdProc.Parameters(13)

'    MainForm.g_application.m_databaseCon.m_adoConnection.CommitTrans   ' 结束事务
    Exit Function
    
Cwcl:
'    MainForm.g_application.m_databaseCon.m_adoConnection.RollbackTrans   ' 回滚事务
    newcooperatefinish = ""
End Function
'**************************************
'*    功 能 描 述 :修改一条外协完工单
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  新增成功
'*                 False          -  新增失败
'**************************************
Public Function CooperateFinishModify(recSet As ADODB.Recordset, _
                             cooperateId As String, processno As String, _
                             losspartnum As Double, backpartnum As Double, _
                             finishpartnum As Double, processfee As Double, _
                             finishdate As Date, memo As String, warehouseid As String, _
                             goodsid As String, goodstype As String, counterclaim As Double, _
                             finishid As String, _
                             checkEmployeeId As String, checkAgainEmployeeId As String, _
                             inputEmployeeId As String, state As String, _
                             checkAgainDate As String, _
                             inWarehouseDate As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    CooperateFinishModify = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "cooperatefinish_modify"          ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = cooperateId             ' 参数
    cmdProc.Parameters(2) = processno               ' 参数
    cmdProc.Parameters(3) = losspartnum             ' 参数
    cmdProc.Parameters(4) = backpartnum             ' 参数
    cmdProc.Parameters(5) = finishpartnum           ' 参数
    cmdProc.Parameters(6) = processfee              ' 参数
    cmdProc.Parameters(7) = finishdate                    ' 参数
    cmdProc.Parameters(8) = memo                    ' 参数
    cmdProc.Parameters(9) = warehouseid
    cmdProc.Parameters(10) = goodsid
    cmdProc.Parameters(11) = goodstype
    cmdProc.Parameters(12) = counterclaim
    cmdProc.Parameters(13) = finishid              ' 完工单编号
    cmdProc.Parameters(14) = checkEmployeeId       ' 检验员工ID
    cmdProc.Parameters(15) = checkAgainEmployeeId  ' 核检员工ID
    cmdProc.Parameters(16) = inputEmployeeId       ' 入库员工ID
    cmdProc.Parameters(17) = state                 ' 完工单状态
    cmdProc.Parameters(18) = checkAgainDate        ' 核检时间
    cmdProc.Parameters(19) = inWarehouseDate       ' 入库时间
    
    ' 执行命令 把查询到的结果放在recSet中
    On Error GoTo Cwcl
    
    cmdProc.Execute
    CooperateFinishModify = True

    Exit Function
    
Cwcl:
    CooperateFinishModify = False
End Function
'**************************************
'*    功 能 描 述 :刷新数据库显示外协完工单
'*    输 入 参 数 :无
'*    输 出 参 数 :true             -刷新成功
'*                 false            -刷新失败
'**************************************
Public Function cooperatefinish_showserial(recSet As ADODB.Recordset, cooperatetype As String) As Boolean
    
    Dim cmdProc As ADODB.Command             ' 执行存储过程的命令
    
    cooperatefinish_showserial = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
                                              ' 执行存储过程的命令的设置
    cmdProc.CommandText = "cooperatefinish_showserial"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = cooperatetype
    
    On Error GoTo Cwcl
    
                                             ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            cooperatefinish_showserial = True
        Else
            cooperatefinish_showserial = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    cooperatefinish_showserial = False
    Exit Function
End Function

'**************************************
'*    功 能 描 述 :查询外协生产单-根据外协生产编号
'*    输 入 参 数 :无
'*    输 出 参 数 :true             -刷新成功
'*                 false            -刷新失败
'**************************************
Public Function cooperate_findid(recSet As ADODB.Recordset, cooperateId As String) As Boolean
    
    Dim cmdProc As ADODB.Command             ' 执行存储过程的命令
    
    cooperate_findid = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
                                              ' 执行存储过程的命令的设置
    cmdProc.CommandText = "cooperate_findid"     ' 指定存储过程的名子
    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
            cooperate_findid = True
        Else
            cooperate_findid = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    cooperate_findid = False
    Exit Function
End Function


'**************************************
'*    功 能 描 述 :刷新数据库显示外协完工单一条记录
'*    输 入 参 数 :无
'*    输 出 参 数 :true             -刷新成功
'*                 false            -刷新失败
'**************************************
Public Function cooperatefinish_showone(recSet As ADODB.Recordset, finishid As String) As Boolean
    
    Dim cmdProc As ADODB.Command             ' 执行存储过程的命令
    
    cooperatefinish_showone = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
                                              ' 执行存储过程的命令的设置
    cmdProc.CommandText = "cooperatefinish_showone"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = finishid
    
    On Error GoTo Cwcl
    
                                             ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            cooperatefinish_showone = True
        Else
            cooperatefinish_showone = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    cooperatefinish_showone = False
    Exit Function
End Function


'**************************************
'*    功 能 描 述 :查询商品编号和商品类型-根据外协生产编号
'*    输 入 参 数 :无
'*    输 出 参 数 :true             -刷新成功
'*                 false            -刷新失败
'**************************************
Public Function goods_findid(recSet As ADODB.Recordset, cooperateId As String) As Boolean
    
    Dim cmdProc As ADODB.Command             ' 执行存储过程的命令
    
    goods_findid = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
                                              ' 执行存储过程的命令的设置
    cmdProc.CommandText = "goods_findid"     ' 指定存储过程的名子
    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
            goods_findid = True
        Else
            goods_findid = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    goods_findid = False
    Exit Function
End Function



'**************************************
'*    功 能 描 述 :判断采购入库函数的合法性
'*    输 入 参 数 :无
'*    输 出 参 数 :true             -刷新成功
'*                 false            -刷新失败
'**************************************


Public Function judge_position1(recSet As ADODB.Recordset, warehouseid As String, article As String, articletype As String) As Boolean
    
    Dim cmdProc As ADODB.Command                ' 执行存储过程的命令
    
    judge_position1 = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
                                                ' 执行存储过程的命令的设置
    cmdProc.CommandText = "judge_position1"          ' 指定存储过程的名子