productcheckrecorddao.cls

即时通讯

'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败
'**************************************
Public Function checkrecord_find1(recSet As ADODB.Recordset, checkrecordid As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    checkrecord_find1 = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "checkrecord_find1"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters(1) = checkrecordid
    
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            checkrecord_find1 = True
        Else
            checkrecord_find1 = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    checkrecord_find1 = False
    Exit Function
End Function

'**************************************
'*    功 能 描 述 :显示所有未检验记录或重新检验的列表
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败
'**************************************
Public Function checkno(recSet As ADODB.Recordset) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    checkno = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "checkno"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            checkno = True
        Else
            checkno = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    checkno = False
    Exit Function
End Function

'**************************************
'*    功 能 描 述 :根据权限取得职员的名称列表
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败
'**************************************
Public Function employee_showname(recSet As ADODB.Recordset, id As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    employee_showname = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "employee_showname"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters(1) = id
    
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            employee_showname = True
        Else
            employee_showname = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    employee_showname = False
    Exit Function
End Function


'**************************************
'*    功 能 描 述 :取得所有职员名字的列表
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败
'**************************************
Public Function employee_name(recSet As ADODB.Recordset, name As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    employee_name = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "employee_name"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters(1) = name
    
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            employee_name = True
        Else
            employee_name = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    employee_name = False
    Exit Function
End Function



'**************************************
'*    功 能 描 述 :根据产品编号删除检验记录
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败
'**************************************
Public Function check_delete(recSet As ADODB.Recordset, productionid As String, serial As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    check_delete = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "check_delete"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters(1) = productionid
    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_delete = True
'        Else
'            check_delete = False
'        End If
'    End With
    
    Exit Function
    
Cwcl:
    check_delete = False
    Exit Function
End Function


'**************************************
'*    功 能 描 述 :显示所有未检验记录或重新检验的列表
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败
'**************************************
Public Function checkserial(recSet As ADODB.Recordset, productionid As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    checkserial = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "checkserial"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters(1) = productionid
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            checkserial = True
        Else
            checkserial = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    checkserial = False
    Exit Function
End Function

'**************************************
'*    功 能 描 述 :检验和核检完毕后的所有记录
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败
'**************************************
Public Function CheckRecord_findnext(recSet As ADODB.Recordset, productionid As String, picino As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    CheckRecord_findnext = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "CheckRecord_findnext"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters(1) = picino
    cmdProc.Parameters(2) = productionid
    
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            CheckRecord_findnext = True
        Else
            CheckRecord_findnext = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    CheckRecord_findnext = False
    Exit Function
End Function


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


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


'**************************************
'*    功 能 描 述 :显示所有未检验记录或重新检验的列表
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败
'**************************************
Public Function checkserial_jy(recSet As ADODB.Recordset, productionid As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    checkserial_jy = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "checkserial_jy"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters(1) = productionid
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            checkserial_jy = True
        Else
            checkserial_jy = False