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