cooperatefinishdao.cls

即时通讯

    cmdProc.CommandType = adCmdStoredProc
    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
'**************************************
'*    功 能 描 述 :根据生产单的编号找到此生产单的完工情况
'*    输 入 参 数 :cooperateId     -  生产单编号
'*    输 出 参 数 :true             -刷新成功
'*                 false            -刷新失败
'**************************************
Public Function FindCooperateFinishMsg(recSet As ADODB.Recordset, _
                                     cooperateId As String) As Boolean
    
    Dim cmdProc As ADODB.Command             ' 执行存储过程的命令
    
    FindCooperateFinishMsg = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
                                              ' 执行存储过程的命令的设置
    cmdProc.CommandText = "cooperatefinish_find_cooperateFinishMsg"     ' 指定存储过程的名子
    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
            FindCooperateFinishMsg = True
        Else
            FindCooperateFinishMsg = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    FindCooperateFinishMsg = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :查找零件的检验方法
'*    输 入 参 数 :
'*    输 出 参 数 :true             -刷新成功
'*                 false            -刷新失败
'**************************************
Public Function PartCheckMethodFindAll(recSet As ADODB.Recordset) As Boolean
    
    Dim cmdProc As ADODB.Command             ' 执行存储过程的命令
    
    PartCheckMethodFindAll = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
                                              ' 执行存储过程的命令的设置
    cmdProc.CommandText = "partCheckMethod_findall"     ' 指定存储过程的名子
    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
            PartCheckMethodFindAll = True
        Else
            PartCheckMethodFindAll = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    PartCheckMethodFindAll = False
    Exit Function
End Function

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

'**************************************
'*    功 能 描 述 :保存零件检验记录
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  新增成功
'*                 False          -  新增失败
'**************************************
Public Function cooperateFinishcheckrecord_new(recSet As ADODB.Recordset, _
                             checkno As Integer, finishid As String, _
                             checkoption As String, checkmethod As String, _
                             standardvalue As String, checkvalue As String, _
                             badnum As Double, badcharacter As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    cooperateFinishcheckrecord_new = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "cooperateFinishcheckrecord_new"          ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = checkno             ' 参数
    cmdProc.Parameters(2) = finishid               ' 参数
    cmdProc.Parameters(3) = checkoption             ' 参数
    cmdProc.Parameters(4) = checkmethod             ' 参数
    cmdProc.Parameters(5) = standardvalue           ' 参数
    cmdProc.Parameters(6) = checkvalue              ' 参数
    cmdProc.Parameters(7) = badnum                    ' 参数
    cmdProc.Parameters(8) = badcharacter                    ' 参数
    
    ' 执行命令 把查询到的结果放在recSet中
    On Error GoTo Cwcl
    
    cmdProc.Execute
    cooperateFinishcheckrecord_new = True

    Exit Function
    
Cwcl:
    cooperateFinishcheckrecord_new = False
End Function


'**************************************
'*    功 能 描 述 :删除零件检验记录
'*    输 入 参 数 :无
'*    输 出 参 数 :true             -刷新成功
'*                 false            -刷新失败
'**************************************
Public Function cooperateFinishcheckrecord_delete(recSet As ADODB.Recordset, finishid As String) As Boolean
    
    Dim cmdProc As ADODB.Command             ' 执行存储过程的命令
    
    cooperateFinishcheckrecord_delete = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
                                              ' 执行存储过程的命令的设置
    cmdProc.CommandText = "cooperateFinishcheckrecord_delete"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = finishid
    
    On Error GoTo Cwcl
    
                                             ' 执行命令 把查询到的结果放在recSet中
    cmdProc.Execute
    cooperateFinishcheckrecord_delete = True
    
    Exit Function
    
Cwcl:
    cooperateFinishcheckrecord_delete = False
    Exit Function
End Function

'**************************************
'*    功 能 描 述 :刷新数据库显示外协完工单
'*    输 入 参 数 :无
'*    输 出 参 数 :true             -刷新成功
'*                 false            -刷新失败
'**************************************
Public Function cooperatefinish_show(recSet As ADODB.Recordset, cooperateId As String, cooperatetype As String) As Boolean
    
    Dim cmdProc As ADODB.Command             ' 执行存储过程的命令
    
    cooperatefinish_show = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
                                              ' 执行存储过程的命令的设置
    cmdProc.CommandText = "cooperatefinish_show"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = cooperateId
    cmdProc.Parameters(2) = 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_show = True
        Else
            cooperatefinish_show = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    cooperatefinish_show = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :查询显示外协完工单
'*    输 入 参 数 :无
'*    输 出 参 数 :true             -刷新成功
'*                 false            -刷新失败
'**************************************
Public Function cooperatefinish_showidList(recSet As ADODB.Recordset) As Boolean
    
    Dim cmdProc As ADODB.Command             ' 执行存储过程的命令
    
    cooperatefinish_showidList = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
                                              ' 执行存储过程的命令的设置
    cmdProc.CommandText = "cooperatefinish_showidList"     ' 指定存储过程的名子
    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
            cooperatefinish_showidList = True
        Else
            cooperatefinish_showidList = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    cooperatefinish_showidList = False
    Exit Function
End Function