?? supplierdao.cls

?? 即時通訊
?? CLS
?? 第 1 頁 / 共 4 頁
字號:
'**************************************
Public Function Delete_supplierid(recSet As ADODB.Recordset, superinrtendentid As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 執(zhí)行存儲過程的命令
    
    Delete_supplierid = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 執(zhí)行存儲過程的命令的設(shè)置
    cmdProc.CommandText = "superinrtendent_delete"     ' 指定存儲過程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = superinrtendentid             ' 參數(shù)
    
    On Error GoTo Cwcl
    
    ' 執(zhí)行命令 把查詢到的結(jié)果放在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
'**************************************
'*    功 能 描 述 :根據(jù)供應(yīng)商ID取得該供應(yīng)商的聯(lián)系人的列表
'*    輸 入 參 數(shù) :無
'*    輸 出 能 數(shù) :True           -  數(shù)據(jù)庫連接成功
'*                 False          -  數(shù)據(jù)庫連接失敗
'**************************************
Public Function Findsuppliertrouk(recSet As ADODB.Recordset, supplierId As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 執(zhí)行存儲過程的命令
    
    Findsuppliertrouk = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 執(zhí)行存儲過程的命令的設(shè)置
    cmdProc.CommandText = "suppliertrouk_findid"     ' 指定存儲過程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = supplierId             ' 參數(shù)
    
    On Error GoTo Cwcl
    
    ' 執(zhí)行命令 把查詢到的結(jié)果放在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
'**************************************
'*    功 能 描 述 :保存聯(lián)系記錄
'*    輸 入 參 數(shù) :無
'*    輸 出 能 數(shù) :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          ' 執(zhí)行存儲過程的命令
    
    Newsuppliertrouk = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 執(zhí)行存儲過程的命令的設(shè)置
    cmdProc.CommandText = "suppliertrouk_add"          ' 指定存儲過程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = supplierId                    ' 參數(shù)
    cmdProc.Parameters(2) = superinrtendent               ' 參數(shù)
    cmdProc.Parameters(3) = lxmdid                        ' 參數(shù)
    cmdProc.Parameters(4) = lxfsid                        ' 參數(shù)
    cmdProc.Parameters(5) = ztnr                          ' 參數(shù)
    cmdProc.Parameters(6) = xgwj                          ' 參數(shù)
    cmdProc.Parameters(7) = wjlj                          ' 參數(shù)
    cmdProc.Parameters(8) = Employee                      ' 參數(shù)
    cmdProc.Parameters(9) = supplierdate                  ' 參數(shù)
    cmdProc.Parameters(10) = memo                         ' 參數(shù)
    
    ' 執(zhí)行命令 把查詢到的結(jié)果放在recSet中
    MainForm.g_application.m_databaseCon.m_adoConnection.BeginTrans    ' 開始事務(wù)
    
    On Error GoTo Cwcl
    
    cmdProc.Execute


    MainForm.g_application.m_databaseCon.m_adoConnection.CommitTrans   ' 結(jié)束事務(wù)
    Exit Function
    
Cwcl:
    MainForm.g_application.m_databaseCon.m_adoConnection.RollbackTrans   ' 回滾事務(wù)
    Newsuppliertrouk = False
End Function
'**************************************
'*    功 能 描 述 :修改一條聯(lián)系記錄
'*    輸 入 參 數(shù) :無
'*    輸 出 能 數(shù) :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          ' 執(zhí)行存儲過程的命令
    
    Modifysuppliertrouk = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 執(zhí)行存儲過程的命令的設(shè)置
    cmdProc.CommandText = "suppliertrouk_modify"     ' 指定存儲過程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = supplierId              ' 參數(shù)
    cmdProc.Parameters(2) = superinrtendent              ' 參數(shù)
    cmdProc.Parameters(3) = lxmdid      ' 參數(shù)
    cmdProc.Parameters(4) = lxfsid      ' 參數(shù)
    cmdProc.Parameters(5) = ztnr      ' 參數(shù)
    cmdProc.Parameters(6) = xgwj      ' 參數(shù)
    cmdProc.Parameters(7) = wjlj      ' 參數(shù)
    cmdProc.Parameters(8) = Employee
    cmdProc.Parameters(9) = supplierdate
    cmdProc.Parameters(10) = memo
    cmdProc.Parameters(11) = suppliertroukid
    ' 執(zhí)行命令 把查詢到的結(jié)果放在recSet中
    MainForm.g_application.m_databaseCon.m_adoConnection.BeginTrans    ' 開始事務(wù)
    
    On Error GoTo Cwcl
           cmdProc.Execute
           Modifysuppliertrouk = True

    MainForm.g_application.m_databaseCon.m_adoConnection.CommitTrans   ' 結(jié)束事務(wù)
    Modifysuppliertrouk = True
    Exit Function
    
Cwcl:
    MainForm.g_application.m_databaseCon.m_adoConnection.RollbackTrans   ' 回滾事務(wù)
    Modifysuppliertrouk = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :根據(jù)供應(yīng)商ID取得該供應(yīng)商的聯(lián)系人的列表
'*    輸 入 參 數(shù) :無
'*    輸 出 能 數(shù) :True           -  數(shù)據(jù)庫連接成功
'*                 False          -  數(shù)據(jù)庫連接失敗
'**************************************
Public Function suppliertrouk_findid(recSet As ADODB.Recordset, suppliertroukid As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 執(zhí)行存儲過程的命令
    
    suppliertrouk_findid = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 執(zhí)行存儲過程的命令的設(shè)置
    cmdProc.CommandText = "suppliertrouk_findsuppliertroukid"     ' 指定存儲過程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = suppliertroukid             ' 參數(shù)
    
    On Error GoTo Cwcl
    
    ' 執(zhí)行命令 把查詢到的結(jié)果放在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
'**************************************
'*    功 能 描 述 :根據(jù)聯(lián)系ID從表中刪除該聯(lián)系記錄
'*    輸 入 參 數(shù) :無
'*    輸 出 能 數(shù) :True           -  數(shù)據(jù)庫連接成功
'*                 False          -  數(shù)據(jù)庫連接失敗
'**************************************
Public Function Delete_suppliertroukid(recSet As ADODB.Recordset, suppliertroukid As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 執(zhí)行存儲過程的命令
    
    Delete_suppliertroukid = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 執(zhí)行存儲過程的命令的設(shè)置
    cmdProc.CommandText = "suppliertrouk_delete"     ' 指定存儲過程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = suppliertroukid             ' 參數(shù)
    
    On Error GoTo Cwcl
    
    ' 執(zhí)行命令 把查詢到的結(jié)果放在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
'**************************************
'*    功 能 描 述 :根據(jù)供應(yīng)商ID從聯(lián)系表中刪除該供應(yīng)商的所有記錄
'*    輸 入 參 數(shù) :無
'*    輸 出 能 數(shù) :True           -  數(shù)據(jù)庫連接成功
'*                 False          -  數(shù)據(jù)庫連接失敗
'**************************************
Public Function supplieridDelete(recSet As ADODB.Recordset, supplierId As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 執(zhí)行存儲過程的命令
    
    supplieridDelete = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 執(zhí)行存儲過程的命令的設(shè)置
    cmdProc.CommandText = "suppliertrouk_deleteidall"     ' 指定存儲過程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = supplierId             ' 參數(shù)
    
    On Error GoTo Cwcl
    
    ' 執(zhí)行命令 把查詢到的結(jié)果放在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
'**************************************
'*    功 能 描 述 :取得員工的列表
'*    輸 入 參 數(shù) :無
'*    輸 出 能 數(shù) :True           -  數(shù)據(jù)庫連接成功
'*                 False          -  數(shù)據(jù)庫連接失敗
'**************************************
Public Function FindEmployee(recSet As ADODB.Recordset) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 執(zhí)行存儲過程的命令
    
    FindEmployee = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 執(zhí)行存儲過程的命令的設(shè)置
    cmdProc.CommandText = "employee_show"     ' 指定存儲過程的名子
    cmdProc.CommandType = adCmdStoredProc
    
    On Error GoTo Cwcl
    
    ' 執(zhí)行命令 把查詢到的結(jié)果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
?? 文件大小 2190 K
?? 上傳用戶 huanghuanl
?? 所屬分類匯編語言
??? 相關(guān)標(biāo)簽

#即時通訊
?? 快捷鍵說明

復(fù)制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? supplierdao.cls

?? 快捷鍵說明
