productcheckrecorddao.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 = "productcheckrecordDAO"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'**************************************
'*    功 能 描 述 :取得所有检验记录的列表
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败
'**************************************
Public Function checkrecord_show(recSet As ADODB.Recordset, jybj As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    checkrecord_show = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "checkrecord_show"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters(1) = 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_show = True
        Else
            checkrecord_show = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    checkrecord_show = False
    Exit Function
End Function


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


'**************************************
'*    功 能 描 述 :测试
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败
'**************************************
Public Function CheckOptionGroup_findrecord(recSet As ADODB.Recordset, productionid As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    CheckOptionGroup_findrecord = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "CheckOptionGroup_findrecord"     ' 指定存储过程的名子
    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
            CheckOptionGroup_findrecord = True
        Else
            CheckOptionGroup_findrecord = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    CheckOptionGroup_findrecord = False
    Exit Function
End Function



'**************************************
'*    功 能 描 述 :测试
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败
'**************************************
Public Function CheckvalueGroup_findrecord(recSet As ADODB.Recordset, productionid As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    CheckvalueGroup_findrecord = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "CheckvalueGroup_findrecord"     ' 指定存储过程的名子
    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
            CheckvalueGroup_findrecord = True
        Else
            CheckvalueGroup_findrecord = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    CheckvalueGroup_findrecord = False
    Exit Function
End Function



'**************************************
'*    功 能 描 述 :测试
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败
'**************************************
Public Function checkstandard_find(recSet As ADODB.Recordset, productionid As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    checkstandard_find = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "checkstandard_find"     ' 指定存储过程的名子
    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
            checkstandard_find = True
        Else
            checkstandard_find = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    checkstandard_find = False
    Exit Function
End Function




'**************************************
'*    功 能 描 述 :更新检验记录
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败
'**************************************
Public Function checkrecord_modify(recSet As ADODB.Recordset, checkrecordid As String, productionid As String, psId As String, productId As String, picino As String, _
                                                    serial As Integer, checkDate As Date, checkEmployeeId As String, checkno As String, xdwc As Integer, cfwc As Integer, _
                                                    wg As Integer, gbfxhzy As Integer, hlwc As Integer, jyjl As Integer, heJianEmployeeId As String, jybj As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    checkrecord_modify = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "checkrecord_modify"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters(1) = checkrecordid
    cmdProc.Parameters(2) = productionid
    cmdProc.Parameters(3) = psId
    cmdProc.Parameters(4) = productId
    cmdProc.Parameters(5) = picino
    cmdProc.Parameters(6) = serial
    cmdProc.Parameters(7) = checkDate
    cmdProc.Parameters(8) = checkEmployeeId
    cmdProc.Parameters(9) = checkno
    cmdProc.Parameters(10) = xdwc
    cmdProc.Parameters(11) = cfwc
    cmdProc.Parameters(12) = wg
    cmdProc.Parameters(13) = gbfxhzy
    cmdProc.Parameters(14) = hlwc
    cmdProc.Parameters(15) = jyjl
    cmdProc.Parameters(16) = heJianEmployeeId
    cmdProc.Parameters(17) = jybj
    On Error GoTo Cwcl
    
    cmdProc.Execute
    
    Exit Function
    
Cwcl:
    checkrecord_modify = False
    Exit Function
End Function


'**************************************
'*    功 能 描 述 :增加检验记录的值
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败
'**************************************
Public Function checkrecordvalue_new(recSet As ADODB.Recordset, checkrecordid As String, _
                            checkoptionid As String, checkvalueId As String, testvalue As Double) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    checkrecordvalue_new = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "checkrecordvalue_new"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters(1) = checkrecordid
    cmdProc.Parameters(2) = checkoptionid
    cmdProc.Parameters(3) = checkvalueId
    cmdProc.Parameters(4) = testvalue
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    Exit Function
    
Cwcl:
    checkrecordvalue_new = False
    Exit Function
End Function


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



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

'**************************************
'*    功 能 描 述 :判断检验记录是否有
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败
'**************************************
Public Function checkrecordvalue_jude(recSet As ADODB.Recordset, checkrecordid As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    checkrecordvalue_jude = False
    Set cmdProc = New ADODB.Command