checkstandarddao.cls

即时通讯

        If Not .EOF Then
            DeleteById = True
        Else
            DeleteById = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    DeleteById = False
    Exit Function
End Function

'**************************************
'*    功 能 描 述 :根据员工编号，姓名，所在部门及职位查找员工记录
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  成功
'*                 False          -  失败
'**************************************
Public Function Findcheckstandard(recSet As ADODB.Recordset, _
                             checkstandardid As String) As Boolean
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    Findcheckstandard = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "checkstandard_findid"    ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = checkstandardid            ' 参数
    
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            Findcheckstandard = True
        Else
            Findcheckstandard = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    Findcheckstandard = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :取得所有检验类型的列表
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败
'**************************************
Public Function Findproduction(recSet As ADODB.Recordset) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    Findproduction = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "production_showname"     ' 指定存储过程的名子
    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
            Findproduction = True
        Else
            Findproduction = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    Findproduction = False
    Exit Function
End Function

'**************************************
'*    功 能 描 述 :根据产品编号取得产品名称
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败
'**************************************
Public Function production_id(recSet As ADODB.Recordset, productionid As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    production_id = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "production_id"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    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
            production_id = True
        Else
            production_id = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    production_id = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :是否已经检验了
'*    输 入 参 数 :无
'*    输 出 能 数 :True
'*                 False
'**************************************
Public Function checkstandard_findjybj(recSet As ADODB.Recordset, productionid As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    checkstandard_findjybj = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "checkstandard_findjybj"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    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_findjybj = True
        Else
            checkstandard_findjybj = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    checkstandard_findjybj = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :取得所有检验类型的列表
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败
'**************************************
Public Function checkstandard_findidList(recSet As ADODB.Recordset) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    checkstandard_findidList = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "checkstandard_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
            checkstandard_findidList = True
        Else
            checkstandard_findidList = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    checkstandard_findidList = False
    Exit Function
End Function