partcheckmethoddao.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 = "PartCheckMethodDAO"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'**************************************
'*    功 能 描 述 :零件检验方式新增函数
'*    输 入 参 数 :无
'*    输 出 参 数 :true     -新增成功
'*                 false    -新增失败
'**************************************
Public Function partcheckmethod_new(recSet As ADODB.Recordset, checkname As String, number As String, _
                                memo As String) As Boolean
    
    Dim cmdProc As ADODB.Command                            ' 执行存储过程的命令
    partcheckmethod_new = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
                                                                        ' 执行存储过程的命令的设置
    cmdProc.CommandText = "partcheckmethod_new"                       ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = checkname                               ' 参数-零件检验方式名称
    cmdProc.Parameters(2) = number                                  ' 参数-商品条码
    cmdProc.Parameters(3) = memo                                    ' 参数-商品简称
    
    On Error GoTo Cwcl
    
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
       
    Exit Function
    
Cwcl:
    partcheckmethod_new = False
    Exit Function
End Function

'**************************************
'*    功 能 描 述 :零件检验方式修改函数
'*    输 入 参 数 :无
'*    输 出 参 数 :true     -新增成功
'*                 false    -新增失败
'**************************************
Public Function partcheckmethod_modify(recSet As ADODB.Recordset, checkname As String, number As String, _
                                memo As String, id As String) As Boolean
    
    Dim cmdProc As ADODB.Command                            ' 执行存储过程的命令
    partcheckmethod_modify = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
                                                                        ' 执行存储过程的命令的设置
    cmdProc.CommandText = "partcheckmethod_modify"                       ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = checkname                               ' 参数-零件检验方式名称
    cmdProc.Parameters(2) = number                                  ' 参数-商品条码
    cmdProc.Parameters(3) = memo                                    ' 参数-商品简称
    cmdProc.Parameters(4) = id
    
    On Error GoTo Cwcl
    
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
       
    Exit Function
    
Cwcl:
    partcheckmethod_modify = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :零件检验方式查询函数
'*    输 入 参 数 :无
'*    输 出 参 数 :true     -新增成功
'*                 false    -新增失败
'**************************************
Public Function partCheckMethod_findbyid(recSet As ADODB.Recordset, id As String) As Boolean
    
    Dim cmdProc As ADODB.Command                            ' 执行存储过程的命令
    partCheckMethod_findbyid = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
                                                                        ' 执行存储过程的命令的设置
    cmdProc.CommandText = "partCheckMethod_findbyid"                       ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = id                               ' 参数-零件检验方式名称
    
    On Error GoTo Cwcl
    
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            partCheckMethod_findbyid = True
        Else
            partCheckMethod_findbyid = False
       End If
   End With
       
    Exit Function
    
Cwcl:
    partCheckMethod_findbyid = False
    Exit Function
End Function


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

'**************************************
'*    功 能 描 述 :零件检验方式删除函数
'*    输 入 参 数 :无
'*    输 出 参 数 :true     -新增成功
'*                 false    -新增失败
'**************************************
Public Function partcheckmethod_delete(recSet As ADODB.Recordset, id As String) As Boolean
    
    Dim cmdProc As ADODB.Command                            ' 执行存储过程的命令
    partcheckmethod_delete = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
                                                                        ' 执行存储过程的命令的设置
    cmdProc.CommandText = "partcheckmethod_delete"                       ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = id                               ' 参数-零件检验方式名称
    
    On Error GoTo Cwcl
    
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
       
    Exit Function
    
Cwcl:
    partcheckmethod_delete = False
    Exit Function
End Function