supplierdao.cls

即时通讯

'**************************************
Public Function Delete_supplierid(recSet As ADODB.Recordset, superinrtendentid As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    Delete_supplierid = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "superinrtendent_delete"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = superinrtendentid             ' 参数
    
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
'    With recSet
'        If Not .EOF Then
'            Delete_supplierid = True
'        Else
'            Delete_supplierid = False
'        End If
'    End With
    
    Exit Function
    
Cwcl:
    Delete_supplierid = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :根据供应商ID取得该供应商的联系人的列表
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败
'**************************************
Public Function Findsuppliertrouk(recSet As ADODB.Recordset, supplierId As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    Findsuppliertrouk = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "suppliertrouk_findid"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = supplierId             ' 参数
    
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            Findsuppliertrouk = True
        Else
            Findsuppliertrouk = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    Findsuppliertrouk = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :保存联系记录
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  成功
'*                 False          -  失败
'**************************************
Public Function Newsuppliertrouk(recSet As ADODB.Recordset, _
                             supplierId As String, _
                             superinrtendent As String, lxmdid As String, lxfsid As String, ztnr As String, xgwj As String, wjlj As String, Employee As String, _
                             supplierdate As String, memo As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    Newsuppliertrouk = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "suppliertrouk_add"          ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = supplierId                    ' 参数
    cmdProc.Parameters(2) = superinrtendent               ' 参数
    cmdProc.Parameters(3) = lxmdid                        ' 参数
    cmdProc.Parameters(4) = lxfsid                        ' 参数
    cmdProc.Parameters(5) = ztnr                          ' 参数
    cmdProc.Parameters(6) = xgwj                          ' 参数
    cmdProc.Parameters(7) = wjlj                          ' 参数
    cmdProc.Parameters(8) = Employee                      ' 参数
    cmdProc.Parameters(9) = supplierdate                  ' 参数
    cmdProc.Parameters(10) = memo                         ' 参数
    
    ' 执行命令 把查询到的结果放在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   ' 回滚事务
    Newsuppliertrouk = False
End Function
'**************************************
'*    功 能 描 述 :修改一条联系记录
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  成功
'*                 False          -  失败
'**************************************
Public Function Modifysuppliertrouk(recSet As ADODB.Recordset, _
                              supplierId As String, superinrtendent As String, lxmdid As String, lxfsid As String, ztnr As String, xgwj As String, wjlj As String, Employee As String, _
                             supplierdate As String, memo As String, suppliertroukid As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    Modifysuppliertrouk = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "suppliertrouk_modify"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = supplierId              ' 参数
    cmdProc.Parameters(2) = superinrtendent              ' 参数
    cmdProc.Parameters(3) = lxmdid      ' 参数
    cmdProc.Parameters(4) = lxfsid      ' 参数
    cmdProc.Parameters(5) = ztnr      ' 参数
    cmdProc.Parameters(6) = xgwj      ' 参数
    cmdProc.Parameters(7) = wjlj      ' 参数
    cmdProc.Parameters(8) = Employee
    cmdProc.Parameters(9) = supplierdate
    cmdProc.Parameters(10) = memo
    cmdProc.Parameters(11) = suppliertroukid
    ' 执行命令 把查询到的结果放在recSet中
    MainForm.g_application.m_databaseCon.m_adoConnection.BeginTrans    ' 开始事务
    
    On Error GoTo Cwcl
           cmdProc.Execute
           Modifysuppliertrouk = True

    MainForm.g_application.m_databaseCon.m_adoConnection.CommitTrans   ' 结束事务
    Modifysuppliertrouk = True
    Exit Function
    
Cwcl:
    MainForm.g_application.m_databaseCon.m_adoConnection.RollbackTrans   ' 回滚事务
    Modifysuppliertrouk = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :根据供应商ID取得该供应商的联系人的列表
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败
'**************************************
Public Function suppliertrouk_findid(recSet As ADODB.Recordset, suppliertroukid As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    suppliertrouk_findid = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "suppliertrouk_findsuppliertroukid"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = suppliertroukid             ' 参数
    
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            suppliertrouk_findid = True
        Else
            suppliertrouk_findid = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    suppliertrouk_findid = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :根据联系ID从表中删除该联系记录
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败
'**************************************
Public Function Delete_suppliertroukid(recSet As ADODB.Recordset, suppliertroukid As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    Delete_suppliertroukid = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "suppliertrouk_delete"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = suppliertroukid             ' 参数
    
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            Delete_suppliertroukid = True
        Else
            Delete_suppliertroukid = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    Delete_suppliertroukid = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :根据供应商ID从联系表中删除该供应商的所有记录
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败
'**************************************
Public Function supplieridDelete(recSet As ADODB.Recordset, supplierId As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    supplieridDelete = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "suppliertrouk_deleteidall"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = supplierId             ' 参数
    
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            supplieridDelete = True
        Else
            supplieridDelete = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    supplieridDelete = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :取得员工的列表
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败
'**************************************
Public Function FindEmployee(recSet As ADODB.Recordset) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    FindEmployee = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "employee_show"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc