producefinishdao.cls

即时通讯

    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = warehouseid
    cmdProc.Parameters(2) = article
    cmdProc.Parameters(3) = articletype
    
    
    MainForm.g_application.m_databaseCon.m_adoConnection.BeginTrans    ' 开始事务
    On Error GoTo Cwcl
      'cmdProc.Execute
    
                                                ' 执行命令 把查询到的结果放在recSet中
    With recSet
          .CursorLocation = adUseClient
          .CursorType = adOpenDynamic
          .LockType = adLockOptimistic
          .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            judge_position1 = True
        Else
            judge_position1 = False
        End If
    End With
    
    MainForm.g_application.m_databaseCon.m_adoConnection.CommitTrans   ' 结束事务
    Exit Function
    
Cwcl:
    MainForm.g_application.m_databaseCon.m_adoConnection.RollbackTrans   ' 回滚事务
    judge_position1 = False
    Exit Function
End Function

'**************************************
'*    功 能 描 述 :根据产品编号查询检验记录的数据
'*    输 入 参 数 :无
'*    输 出 参 数 :true             -刷新成功
'*                 false            -刷新失败
'**************************************
Public Function check_findproduction(recSet As ADODB.Recordset, _
                                     producid As String, serial As Double) As Boolean
    
    Dim cmdProc As ADODB.Command             ' 执行存储过程的命令
    
    check_findproduction = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
                                              ' 执行存储过程的命令的设置
    cmdProc.CommandText = "check_findproduction"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = producid             ' 参数
    cmdProc.Parameters(2) = serial
    
    On Error GoTo Cwcl
    
                                             ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            check_findproduction = True
        Else
            check_findproduction = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    check_findproduction = False
    Exit Function
End Function


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


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

'**************************************
'*    功 能 描 述 :修改检验标记
'*    输 入 参 数 :无
'*    输 出 参 数 :true             -刷新成功
'*                 false            -刷新失败
'**************************************
Public Function checkrecord_modifyjybj(recSet As ADODB.Recordset, _
                                     checkrecordid As String, jybj As String) As Boolean
    
    Dim cmdProc As ADODB.Command             ' 执行存储过程的命令
    
    checkrecord_modifyjybj = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
                                              ' 执行存储过程的命令的设置
    cmdProc.CommandText = "checkrecord_modifyjybj"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = checkrecordid             ' 参数
    cmdProc.Parameters(2) = jybj
    
    On Error GoTo Cwcl
    
                                             ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
'    With recSet
'        If Not .EOF Then
'            checkrecord_modifyjybj = True
'        Else
'            checkrecord_modifyjybj = False
'        End If
'    End With
    
    Exit Function
    
Cwcl:
    checkrecord_modifyjybj = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :查询数据库显示生产完工单
'*    输 入 参 数 :无
'*    输 出 参 数 :true             -刷新成功
'*                 false            -刷新失败
'**************************************
Public Function produce_finish_findByIdList(recSet As ADODB.Recordset) As Boolean
    
    Dim cmdProc As ADODB.Command             ' 执行存储过程的命令
    
    produce_finish_findByIdList = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
                                              ' 执行存储过程的命令的设置
    cmdProc.CommandText = "produce_finish_findByIdList"     ' 指定存储过程的名子
    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_finish_findByIdList = True
        Else
            produce_finish_findByIdList = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    produce_finish_findByIdList = False
    Exit Function
End Function