📄 partdao.cls

📁 即时通讯
💻 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 = "partDAO"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'**************************************
'*    模 块 名 称 :零件管理模块中的数据据库操作
'*    功 能 描 述 :零件管理模块中的数据据库操作
'*    程序员姓名  : 石春晓
'*    最后修改人  : 石春晓
'*    最后修改时间:2005/09/03
'**************************************
Option Explicit
'**************************************
'*    功 能 描 述 :取得所有零件的列表
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败
'**************************************
Public Function FindAll(recSet As ADODB.Recordset) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    FindAll = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "part_findAll"     ' 指定存储过程的名子
    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
            FindAll = True
        Else
            FindAll = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    FindAll = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :新增一条零件数据
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  新增成功
'*                 False          -  新增失败
'**************************************
Public Function Newpart(recSet As ADODB.Recordset, _
                              name As String, partNo As String, weight As String, material As String, _
                              state As String, memo As String, yield As String, partUsing As String, _
                              standard As String, conFileAdd As String, conDate As Date, bomId As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    Newpart = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "part_add"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = name              ' 参数
    cmdProc.Parameters(2) = partNo            ' 参数
    cmdProc.Parameters(3) = weight            ' 参数
    cmdProc.Parameters(4) = material          ' 参数
    cmdProc.Parameters(5) = state             ' 参数
    cmdProc.Parameters(6) = memo              ' 参数
    cmdProc.Parameters(7) = yield             ' 参数
    cmdProc.Parameters(8) = partUsing         ' 参数
    cmdProc.Parameters(9) = standard          ' 参数
    cmdProc.Parameters(10) = conFileAdd       ' 参数
    cmdProc.Parameters(11) = conDate          ' 参数
    cmdProc.Parameters(12) = bomId            ' 参数
    
    ' 执行命令 把查询到的结果放在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   ' 回滚事务
    Newpart = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :修改一条零件数据
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  新增成功
'*                 False          -  新增失败
'**************************************
Public Function Modifypart(recSet As ADODB.Recordset, _
                              name As String, partNo As String, weight As String, material As String, _
                              state As String, memo As String, yield As String, partUsing As String, _
                              standard As String, conFileAdd As String, conDate As Date, bomId As String, partid As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    Modifypart = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "part_modify"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = name              ' 参数
    cmdProc.Parameters(2) = partNo            ' 参数
    cmdProc.Parameters(3) = weight            ' 参数
    cmdProc.Parameters(4) = material          ' 参数
    cmdProc.Parameters(5) = state             ' 参数
    cmdProc.Parameters(6) = memo              ' 参数
    cmdProc.Parameters(7) = yield             ' 参数
    cmdProc.Parameters(8) = partUsing         ' 参数
    cmdProc.Parameters(9) = standard          ' 参数
    cmdProc.Parameters(10) = conFileAdd       ' 参数
    cmdProc.Parameters(11) = conDate          ' 参数
    cmdProc.Parameters(12) = bomId            ' 参数
    cmdProc.Parameters(13) = partid            ' 参数
    ' 执行命令 把查询到的结果放在recSet中
    MainForm.g_application.m_databaseCon.m_adoConnection.BeginTrans    ' 开始事务
    
    On Error GoTo Cwcl
           cmdProc.Execute
           Modifypart = True

    MainForm.g_application.m_databaseCon.m_adoConnection.CommitTrans   ' 结束事务
    Modifypart = True
    Exit Function
    
Cwcl:
    MainForm.g_application.m_databaseCon.m_adoConnection.RollbackTrans   ' 回滚事务
    Modifypart = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :根据零件ID取得所有零件的列表
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败
'**************************************
Public Function FindById(recSet As ADODB.Recordset, houseId As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    FindById = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "part_findByld"     ' 指定存储过程的名子
    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
            FindById = True
        Else
            FindById = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    FindById = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :根据零件ID从表中删除一条零件记录
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败
'**************************************
Public Function DeleteById(recSet As ADODB.Recordset, houseId As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    DeleteById = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "part_delete"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = houseId             ' 参数
    cmdProc.Parameters(2) = "1"             ' 参数
    
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        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 Findpart(recSet As ADODB.Recordset, _
                             materialId As String) As Boolean
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    Findpart = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "part_findByld"    ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = materialId            ' 参数
    
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            Findpart = True
        Else
            Findpart = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    Findpart = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :根据零件编号列表找零件记录
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  成功
'*                 False          -  失败
'**************************************
Public Function FindPartIdList(recSet As ADODB.Recordset) As Boolean
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    FindPartIdList = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "part_findByldList"    ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
'    cmdProc.Parameters(1) = idList            ' 参数
    
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            FindPartIdList = True
        Else
            FindPartIdList = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    FindPartIdList = False
    Exit Function
End Function
⌨️ 快捷键说明

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