checkoptiondao.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 = "checkoptionDAO"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'**************************************
'*    模 块 名 称 :检验产品项目数据库操作
'*    功 能 描 述 :检验产品项目数据库操作
'*    程序员姓名  : 黄朝和
'*    最后修改人  : 黄朝和
'*    最后修改时间:2005/09/19
'**************************************
Option Explicit
'**************************************
'*    功 能 描 述 :检验产品项目数据库增加函数
'*    输 入 参 数 :无
'*    输 出 参 数 :true     -新增成功
'*                 false    -新增失败
'**************************************
Public Function checkoption_new(recSet As ADODB.Recordset, name As String, _
                                    memo As String) As Boolean
    
    Dim cmdProc As ADODB.Command                            ' 执行存储过程的命令
    checkoption_new = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
                                                            ' 执行存储过程的命令的设置
    cmdProc.CommandText = "checkoption_new"                       ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = name                            ' 参数-产品检验名称
    cmdProc.Parameters(2) = memo                           ' 参数-备注
                                                            ' 执行命令 把查询到的结果放在recSet中
    
    On Error GoTo Cwcl
    
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            checkoption_new = True
        Else
            checkoption_new = False
       End If
   End With
       
    Exit Function
    
Cwcl:
    checkoption_new = False
    Exit Function
End Function

'**************************************
'*    功 能 描 述 :检验产品项目数据库修改函数
'*    输 入 参 数 :无
'*    输 出 参 数 :true     -新增成功
'*                 false    -新增失败
'**************************************
Public Function checkoption_modify(recSet As ADODB.Recordset, checkoptionid As String, name As String, memo As String) As Boolean
    
    Dim cmdProc As ADODB.Command                            ' 执行存储过程的命令
    checkoption_modify = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
                                                            ' 执行存储过程的命令的设置
    cmdProc.CommandText = "checkoption_modify"                       ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = checkoptionid                            ' 参数-产品检验名称
    cmdProc.Parameters(2) = name
    cmdProc.Parameters(3) = memo
                                                            ' 执行命令 把查询到的结果放在recSet中
    
    On Error GoTo Cwcl
    
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            checkoption_modify = True
        Else
            checkoption_modify = False
       End If
   End With
       
    Exit Function
    
Cwcl:
    checkoption_modify = False
    Exit Function
End Function

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

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



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



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

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


'**************************************
'*    功 能 描 述 :检验产品项目数据库查询函数
'*    输 入 参 数 :无
'*    输 出 参 数 :true     -新增成功
'*                 false    -新增失败
'**************************************
Public Function checkoption_findbyidList(recSet As ADODB.Recordset) As Boolean
    
    Dim cmdProc As ADODB.Command                            ' 执行存储过程的命令
    checkoption_findbyidList = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
                                                            ' 执行存储过程的命令的设置
    cmdProc.CommandText = "checkoption_findbyidList"                       ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
                                                            ' 执行命令 把查询到的结果放在recSet中
    
    On Error GoTo Cwcl
    
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            checkoption_findbyidList = True
        Else
            checkoption_findbyidList = False
       End If
   End With
       
    Exit Function
    
Cwcl:
    checkoption_findbyidList = False
    Exit Function
End Function