?? supplierdao.cls
字號(hào):
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "supplierDAO"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'**************************************
'* 模 塊 名 稱 :供應(yīng)商模塊中的數(shù)據(jù)據(jù)庫操作
'* 功 能 描 述 :完成數(shù)據(jù)庫操作
'* 程序員姓名 : 黃朝和
'* 最后修改人 : 黃朝和
'* 最后修改時(shí)間:2005/08/24
'**************************************
Option Explicit
'**************************************
'* 功 能 描 述 :刷新數(shù)據(jù)庫顯示記錄函數(shù)
'* 輸 入 參 數(shù) :無
'* 輸 出 參 數(shù) :true -刷新成功
'* false -刷新失敗
'**************************************
Public Function s_Refresh(recSet As ADODB.Recordset) As Boolean
Dim cmdProc As ADODB.Command ' 執(zhí)行存儲(chǔ)過程的命令
s_Refresh = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 執(zhí)行存儲(chǔ)過程的命令的設(shè)置
cmdProc.CommandText = "Supplier_show" ' 指定存儲(chǔ)過程的名子
cmdProc.CommandType = adCmdStoredProc
cmdProc.Parameters.Refresh
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
s_Refresh = True
Else
s_Refresh = False
End If
End With
Exit Function
Cwcl:
s_Refresh = False
Exit Function
End Function
'**************************************
'* 功 能 描 述 :供應(yīng)商數(shù)據(jù)庫增加函數(shù)
'* 輸 入 參 數(shù) :無
'* 輸 出 參 數(shù) :true -新增成功
'* false -新增失敗
'**************************************
Public Function addsupplier(recSet As ADODB.Recordset, supplier As String, _
founddate As Date, creditbrow As String, _
address As String, superinrtendent As String, postcode As String, _
taxnum As String, bank As String, banknum As String, sort As String, _
qualityapp As String, priceapp As String, customersortid As String, _
customergradeid As String, customersourceid As String, state As String, _
province As String, taxreceiptinfo As String, corporation As String, _
accountsaddress As String, city As String, _
customer As String, mobile As String, phone As String, _
fax As String, http As String, email As String, notedate As Date, _
counterman As String, subjection As String, listdate As Date, _
memo As String, cooperatestate As String, server As String, qhapp As String, gysh As String, gysmm As String, jglspj As String) As String
Dim cmdProc As ADODB.Command ' 執(zhí)行存儲(chǔ)過程的命令
addsupplier = ""
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 執(zhí)行存儲(chǔ)過程的命令的設(shè)置
cmdProc.CommandText = "Supplier_Add" ' 指定存儲(chǔ)過程的名子
cmdProc.CommandType = adCmdStoredProc ' 刷新存儲(chǔ)過程
cmdProc.Parameters.Refresh
cmdProc.Parameters(1) = supplier ' 參數(shù)-供應(yīng)商名稱
cmdProc.Parameters(2) = founddate ' 參數(shù)-建檔日期
cmdProc.Parameters(3) = creditbrow ' 參數(shù)-信用額度
cmdProc.Parameters(4) = address ' 參數(shù)-聯(lián)系地址
cmdProc.Parameters(5) = superinrtendent ' 參數(shù)-郵政編碼
cmdProc.Parameters(6) = postcode ' 參數(shù)-郵政編碼
cmdProc.Parameters(7) = taxnum ' 參數(shù)-稅號(hào)
cmdProc.Parameters(8) = bank ' 參數(shù)-開戶銀行
cmdProc.Parameters(9) = banknum ' 參數(shù)-銀行帳號(hào)
cmdProc.Parameters(10) = sort ' 參數(shù)-類別
cmdProc.Parameters(11) = qualityapp ' 參數(shù)-質(zhì)量評(píng)價(jià)
cmdProc.Parameters(12) = priceapp ' 參數(shù)-價(jià)格評(píng)價(jià)
cmdProc.Parameters(13) = customersortid ' 參數(shù)-客戶類別ID
cmdProc.Parameters(14) = customergradeid ' 參數(shù)-客戶等級(jí)ID
cmdProc.Parameters(15) = customersourceid ' 參數(shù)-客戶來源ID
cmdProc.Parameters(16) = state ' 參數(shù)-國家
cmdProc.Parameters(17) = province ' 參數(shù)-省份
cmdProc.Parameters(18) = taxreceiptinfo ' 參數(shù)-稅票信息
cmdProc.Parameters(19) = corporation ' 參數(shù)-法人代表
cmdProc.Parameters(20) = accountsaddress ' 參數(shù)-記帳地址
cmdProc.Parameters(21) = city ' 參數(shù)-城市
cmdProc.Parameters(22) = customer ' 參數(shù)-客戶名稱
cmdProc.Parameters(23) = mobile ' 參數(shù)-聯(lián)系手機(jī)
cmdProc.Parameters(24) = phone ' 參數(shù)-聯(lián)系電話
cmdProc.Parameters(25) = fax ' 參數(shù)-傳真
cmdProc.Parameters(26) = http ' 參數(shù)-網(wǎng)絡(luò)地址
cmdProc.Parameters(27) = email ' 參數(shù)-電子郵件
cmdProc.Parameters(28) = notedate ' 參數(shù)-記錄時(shí)間
cmdProc.Parameters(29) = counterman ' 參數(shù)-業(yè)務(wù)員
cmdProc.Parameters(30) = subjection ' 參數(shù)-隸屬
cmdProc.Parameters(31) = listdate ' 參數(shù)-列入日期
cmdProc.Parameters(32) = memo ' 參數(shù)-備注
cmdProc.Parameters(33) = cooperatestate ' 參數(shù)-合作狀態(tài)
cmdProc.Parameters(34) = server ' 參數(shù)-服務(wù)
cmdProc.Parameters(35) = qhapp ' 參數(shù)-貨期評(píng)價(jià)
cmdProc.Parameters(36) = gysh ' 參數(shù)-供應(yīng)商號(hào)
cmdProc.Parameters(37) = gysmm ' 參數(shù)-供應(yīng)商密碼
cmdProc.Parameters(38) = jglspj ' 參數(shù)-加工歷史評(píng)價(jià)
cmdProc.Parameters(39) = "0000"
MainForm.g_application.m_databaseCon.m_adoConnection.BeginTrans ' 開始事務(wù)
On Error GoTo Cwcl
cmdProc.Execute
addsupplier = cmdProc.Parameters(39)
MainForm.g_application.m_databaseCon.m_adoConnection.CommitTrans ' 結(jié)束事務(wù)
Exit Function
Cwcl:
MainForm.g_application.m_databaseCon.m_adoConnection.RollbackTrans ' 回滾事務(wù)
addsupplier = ""
End Function
'**************************************
'* 功 能 描 述 :顯示要修改的記錄函數(shù)
'* 輸 入 參 數(shù) :無
'* 輸 出 參 數(shù) :true -顯示成功
'* false -顯示失敗
'**************************************
Public Function S_DanTiao(recSet As ADODB.Recordset, supplierId As String) As Boolean
Dim cmdProc As ADODB.Command ' 執(zhí)行存儲(chǔ)過程的命令
S_DanTiao = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 執(zhí)行存儲(chǔ)過程的命令的設(shè)置
cmdProc.CommandText = "supplier_showinfo" ' 指定存儲(chǔ)過程的名子
cmdProc.CommandType = adCmdStoredProc
cmdProc.Parameters.Refresh
cmdProc.Parameters(1) = supplierId ' 參數(shù)-客戶編號(hào)
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
S_DanTiao = True
Else
S_DanTiao = False
End If
End With
Exit Function
Cwcl:
S_DanTiao = False
Exit Function
End Function
'**************************************
'* 功 能 描 述 :修改單條記錄函數(shù)
'* 輸 入 參 數(shù) :無
'* 輸 出 參 數(shù) :true -顯示成功
'* false -顯示失敗
'**************************************
Public Function modifysupplier(recSet As ADODB.Recordset, id As String, supplier As String, founddate As Date, creditbrow As String, _
address As String, postcode As String, taxnum As String, bank As String, _
banknum As String, sort As String, qualityapp As String, priceapp As String, customersortid As String, _
customergradeid As String, customersourceid As String, state As String, province As String, taxreceiptinfo As String, _
corporation As String, accountsaddress As String, city As String, customer As String, mobile As String, phone As String, _
fax As String, http As String, email As String, notedate As Date, counterman As String, subjection As String, listdate As Date, _
memo As String, cooperatestate As String, server As String, qhapp As String, gysh As String, gysmm As String, jglspj As String) As Boolean
Dim cmdProc As ADODB.Command ' 執(zhí)行存儲(chǔ)過程的命令
modifysupplier = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 執(zhí)行存儲(chǔ)過程的命令的設(shè)置
cmdProc.CommandText = "supplier_modify" ' 指定存儲(chǔ)過程的名子
cmdProc.CommandType = adCmdStoredProc
cmdProc.Parameters.Refresh
cmdProc.Parameters(1) = id ' 參數(shù)=供應(yīng)商編號(hào)
cmdProc.Parameters(2) = supplier ' 參數(shù)-供應(yīng)商名稱
cmdProc.Parameters(3) = founddate ' 參數(shù)-建檔日期
cmdProc.Parameters(4) = creditbrow ' 參數(shù)-信用額度
cmdProc.Parameters(5) = address ' 參數(shù)-聯(lián)系地址
cmdProc.Parameters(6) = postcode ' 參數(shù)-郵政編碼
cmdProc.Parameters(7) = taxnum ' 參數(shù)-稅號(hào)
cmdProc.Parameters(8) = bank ' 參數(shù)-開戶銀行
cmdProc.Parameters(9) = banknum ' 參數(shù)-銀行帳號(hào)
cmdProc.Parameters(10) = sort ' 參數(shù)-類別
cmdProc.Parameters(11) = qualityapp ' 參數(shù)-質(zhì)量評(píng)價(jià)
cmdProc.Parameters(12) = priceapp ' 參數(shù)-價(jià)格評(píng)價(jià)
cmdProc.Parameters(13) = customersortid ' 參數(shù)-客戶類別ID
cmdProc.Parameters(14) = customergradeid ' 參數(shù)-客戶等級(jí)ID
cmdProc.Parameters(15) = customersourceid ' 參數(shù)-客戶來源ID
cmdProc.Parameters(16) = state ' 參數(shù)-國家
cmdProc.Parameters(17) = province ' 參數(shù)-省份
cmdProc.Parameters(18) = taxreceiptinfo ' 參數(shù)-稅票信息
cmdProc.Parameters(19) = corporation ' 參數(shù)-法人代表
cmdProc.Parameters(20) = accountsaddress ' 參數(shù)-記帳地址
cmdProc.Parameters(21) = city ' 參數(shù)-城市
cmdProc.Parameters(22) = customer ' 參數(shù)-客戶名稱
cmdProc.Parameters(23) = mobile ' 參數(shù)-聯(lián)系手機(jī)
cmdProc.Parameters(24) = phone ' 參數(shù)-聯(lián)系電話
cmdProc.Parameters(25) = fax ' 參數(shù)-傳真
cmdProc.Parameters(26) = http ' 參數(shù)-網(wǎng)絡(luò)地址
cmdProc.Parameters(27) = email ' 參數(shù)-電子郵件
cmdProc.Parameters(28) = notedate ' 參數(shù)-記錄時(shí)間
cmdProc.Parameters(29) = counterman ' 參數(shù)-業(yè)務(wù)員
cmdProc.Parameters(30) = subjection ' 參數(shù)-隸屬
cmdProc.Parameters(31) = listdate ' 參數(shù)-列入日期
cmdProc.Parameters(32) = memo ' 參數(shù)-備注
cmdProc.Parameters(33) = cooperatestate ' 參數(shù)-合作狀態(tài)
cmdProc.Parameters(34) = server ' 參數(shù)-服務(wù)
cmdProc.Parameters(35) = qhapp ' 參數(shù)-貨期評(píng)價(jià)
cmdProc.Parameters(36) = gysh ' 參數(shù)-供應(yīng)商號(hào)
cmdProc.Parameters(37) = gysmm ' 參數(shù)-供應(yīng)商密碼
cmdProc.Parameters(38) = jglspj ' 參數(shù)-加工歷史評(píng)價(jià)
On Error GoTo Cwcl
' 執(zhí)行命令 把查詢到的結(jié)果放在recSet中
With recSet
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open cmdProc
End With
Exit Function
Cwcl:
modifysupplier = False
Exit Function
End Function
'**************************************
'* 功 能 描 述 :根據(jù)客戶的ID從表中刪除一條倉庫記錄
'* 輸 入 參 數(shù) :無
'* 輸 出 能 數(shù) :True - 數(shù)據(jù)庫連接成功
'* False - 數(shù)據(jù)庫連接失敗
'**************************************
Public Function Deletesupplierid(recSet As ADODB.Recordset, supplierId As String) As Boolean
Dim cmdProc As ADODB.Command ' 執(zhí)行存儲(chǔ)過程的命令
Deletesupplierid = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 執(zhí)行存儲(chǔ)過程的命令的設(shè)置
cmdProc.CommandText = "supplier_delete" ' 指定存儲(chǔ)過程的名子
cmdProc.CommandType = adCmdStoredProc
cmdProc.Parameters.Refresh
cmdProc.Parameters(1) = supplierId ' 參數(shù)--供應(yīng)商編號(hào)
cmdProc.Parameters(2) = "1" ' 參數(shù)--刪除記號(hào)
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
' Deletesupplierid = True
' Else
' Deletesupplierid = False
' End If
' End With
'
Exit Function
Cwcl:
Deletesupplierid = False
Exit Function
End Function
'**************************************
'* 功 能 描 述 :顯示商品的記錄函數(shù)
'* 輸 入 參 數(shù) :無
'* 輸 出 參 數(shù) :true -顯示成功
'* false -顯示失敗
'**************************************
Public Function S_goods(recSet As ADODB.Recordset, supplierId As String) As Boolean
Dim cmdProc As ADODB.Command ' 執(zhí)行存儲(chǔ)過程的命令
S_goods = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -