productcheckrecorddao.cls

即时通讯

        End If
    End With
    
    Exit Function
    
Cwcl:
    checkserial_jy = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :根据生产编号和序列号查找该产品是否检验合格
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败
'**************************************
Public Function CheckRecord_find_serial(recSet As ADODB.Recordset, serial As String, produceId As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    CheckRecord_find_serial = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "CheckRecord_find_serial"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters(1) = serial
    cmdProc.Parameters(2) = produceId
    
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            CheckRecord_find_serial = True
        Else
            CheckRecord_find_serial = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    CheckRecord_find_serial = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :根据生产编号跟新该产品的核检合格率
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败
'**************************************
Public Function produce_modify_hg(recSet As ADODB.Recordset, produceId As String, hjhgl As Double) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    produce_modify_hg = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "produce_modify_hg"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters(1) = produceId
    cmdProc.Parameters(2) = hjhgl
    
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    Exit Function
    
Cwcl:
    produce_modify_hg = False
    Exit Function
End Function

'**************************************
'*    功 能 描 述 :根据生产编号显示所有记录的总数
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败
'**************************************
Public Function CheckRecord_serialtotalnum(recSet As ADODB.Recordset, produceId As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    CheckRecord_serialtotalnum = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "CheckRecord_serialtotalnum"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    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
            CheckRecord_serialtotalnum = True
        Else
            CheckRecord_serialtotalnum = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    CheckRecord_serialtotalnum = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :根据生产编号显示生产核检合格率
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败
'**************************************
Public Function produce_find_hg(recSet As ADODB.Recordset, produceId As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    produce_find_hg = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "produce_find_hg"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    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_find_hg = True
        Else
            produce_find_hg = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    produce_find_hg = False
    Exit Function
End Function

'**************************************
'*    功 能 描 述 :根据产品编号删除检验记录
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败
'**************************************
Public Function checkrecord_delete(recSet As ADODB.Recordset, checkrecordid As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    checkrecord_delete = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "checkrecord_delete"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters(1) = checkrecordid
    
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    Exit Function
    
Cwcl:
    checkrecord_delete = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :核检的最大序列号
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败
'**************************************
Public Function CheckRecord_max_hj(recSet As ADODB.Recordset, picino As String, productionid As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    CheckRecord_max_hj = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "CheckRecord_max_hj"     ' 指定存储过程的名子
    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_max_hj = True
        Else
            CheckRecord_max_hj = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    CheckRecord_max_hj = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :核检的最小序列号
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败
'**************************************
Public Function CheckRecord_min_hj(recSet As ADODB.Recordset, picino As String, productionid As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    CheckRecord_min_hj = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "CheckRecord_min_hj"     ' 指定存储过程的名子
    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_min_hj = True
        Else
            CheckRecord_min_hj = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    CheckRecord_min_hj = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :检验的最小序列号
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败
'**************************************
Public Function CheckRecord_min_jy(recSet As ADODB.Recordset, picino As String, productionid As String, querytype As Integer) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    CheckRecord_min_jy = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "CheckRecord_min_jy"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters(1) = picino
    cmdProc.Parameters(2) = productionid
    cmdProc.Parameters(3) = querytype
    
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            CheckRecord_min_jy = True
        Else
            CheckRecord_min_jy = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    CheckRecord_min_jy = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :检验的最大序列号
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败
'**************************************
Public Function CheckRecord_max_jy(recSet As ADODB.Recordset, picino As String, productionid As String, querytype As Integer) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    CheckRecord_max_jy = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "CheckRecord_max_jy"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters(1) = picino
    cmdProc.Parameters(2) = productionid
    cmdProc.Parameters(3) = querytype
    
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            CheckRecord_max_jy = True
        Else
            CheckRecord_max_jy = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    CheckRecord_max_jy = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :查询根据编号取得检验记录的列表
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败
'**************************************
Public Function checkrecord_findbyidList(recSet As ADODB.Recordset) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    checkrecord_findbyidList = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "checkrecord_findbyidList"     ' 指定存储过程的名子
    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_findbyidList = True
        Else
            checkrecord_findbyidList = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    checkrecord_findbyidList = False
    Exit Function
End Function