📄 checkvaluegroupdao.cls

📁 即时通讯
💻 CLS
📖 第 1 页 / 共 2 页
字号:
上一页 12
    Exit Function
    
Cwcl:
    Findcheckvaluegroup = False
    Exit Function
End Function

'**************************************
'*    功 能 描 述 :根据检验组值ID从表中删除一条检验组值记录
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败
'**************************************
Public Function DeleteId(recSet As ADODB.Recordset, houseId As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    DeleteId = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "checkvaluegroupdetai_delete"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = houseId             ' 参数
    
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            DeleteId = True
        Else
            DeleteId = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    DeleteId = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :新增一条检验组数据
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  新增成功
'*                 False          -  新增失败
'**************************************
Public Function Newcheckvaluegroupdetal(recSet As ADODB.Recordset, _
                              checkvaluegroupid As String, checkvalueId As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    Newcheckvaluegroupdetal = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "checkvaluegroupdetal_add"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = checkvaluegroupid              ' 参数
    cmdProc.Parameters(2) = checkvalueId            ' 参数
    
    ' 执行命令 把查询到的结果放在recSet中
    MainForm.g_application.m_databaseCon.m_adoConnection.BeginTrans    ' 开始事务
    
    On Error GoTo Cwcl
       cmdProc.Execute

   
   MainForm.g_application.m_databaseCon.m_adoConnection.CommitTrans   ' 结束事务
    Exit Function
    
Cwcl:
    MainForm.g_application.m_databaseCon.m_adoConnection.RollbackTrans   ' 回滚事务
    Newcheckvaluegroupdetal = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :根据检验组ID查找检验组记录
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  成功
'*                 False          -  失败
'**************************************
Public Function findid(recSet As ADODB.Recordset, _
                             checkvaluegroupid As String) As Boolean
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    findid = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "checkvaluegroupdetal_findid"    ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = checkvaluegroupid            ' 参数
    
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            findid = True
        Else
            findid = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    findid = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :根据检验组ID查找检验组记录
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  成功
'*                 False          -  失败
'**************************************
Public Function findid1(recSet As ADODB.Recordset, _
                             checkvaluegroupid As String) As Boolean
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    findid1 = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "checkvaluegroupdetail_findid1"    ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = checkvaluegroupid            ' 参数
    
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            findid1 = True
        Else
            findid1 = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    findid1 = False
    Exit Function
End Function

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

'**************************************
'*    功 能 描 述 :检验产品项目组是否被用过
'*    输 入 参 数 :无
'*    输 出 参 数 :true     -新增成功
'*                 false    -新增失败
'**************************************
Public Function checkvaluegroup_findjybj(recSet As ADODB.Recordset, id As String) As Boolean
    
    Dim cmdProc As ADODB.Command                            ' 执行存储过程的命令
    checkvaluegroup_findjybj = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
                                                            ' 执行存储过程的命令的设置
    cmdProc.CommandText = "checkvaluegroup_findjybj"                       ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = id                            ' 参数-产品检验名称
                                                            ' 执行命令 把查询到的结果放在recSet中
    
    On Error GoTo Cwcl
    
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            checkvaluegroup_findjybj = True
        Else
            checkvaluegroup_findjybj = False
       End If
   End With
       
    Exit Function
    
Cwcl:
    checkvaluegroup_findjybj = False
    Exit Function
End Function
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -