?? goodsdao.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 = "GoodsDAO"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'**************************************
'* 功 能 描 述 :商品數(shù)據(jù)庫(kù)增加函數(shù)
'* 輸 入 參 數(shù) :無(wú)
'* 輸 出 參 數(shù) :true -新增成功
'* false -新增失敗
'**************************************
Public Function new_goods(recSet As ADODB.Recordset, name As String, stripe As String, _
acronym As String, pattern As String, madein As String, _
smallunit As String, bigunit As String, specification As String, switchrelation As String, prepriceo As Double, _
prepricet As Double, prepriceth As Double, prepricef As Double, presetprice As Double, _
memo As String) As Boolean
Dim cmdProc As ADODB.Command ' 執(zhí)行存儲(chǔ)過(guò)程的命令
new_goods = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 執(zhí)行存儲(chǔ)過(guò)程的命令的設(shè)置
cmdProc.CommandText = "new_goods" ' 指定存儲(chǔ)過(guò)程的名子
cmdProc.CommandType = adCmdStoredProc
cmdProc.Parameters.Refresh
cmdProc.Parameters(1) = name ' 參數(shù)-商品名稱
cmdProc.Parameters(2) = stripe ' 參數(shù)-商品條碼
cmdProc.Parameters(3) = acronym ' 參數(shù)-商品簡(jiǎn)稱
cmdProc.Parameters(4) = pattern ' 參數(shù)-商品型號(hào)
cmdProc.Parameters(5) = madein ' 參數(shù)-產(chǎn)地
cmdProc.Parameters(6) = smallunit ' 參數(shù)-小單位
cmdProc.Parameters(7) = bigunit ' 參數(shù)-大單位
cmdProc.Parameters(8) = specification ' 參數(shù)-規(guī)格
cmdProc.Parameters(9) = switchrelation ' 參數(shù)-轉(zhuǎn)換關(guān)系
cmdProc.Parameters(10) = prepriceo ' 參數(shù)-預(yù)售價(jià)1
cmdProc.Parameters(11) = prepricet ' 參數(shù)-預(yù)售價(jià)2
cmdProc.Parameters(12) = prepriceth ' 參數(shù)-預(yù)售價(jià)3
cmdProc.Parameters(13) = prepricef ' 參數(shù)-預(yù)售價(jià)4
cmdProc.Parameters(14) = presetprice ' 參數(shù)-預(yù)設(shè)進(jìn)價(jià)
cmdProc.Parameters(15) = memo ' 參數(shù)-備注
' 執(zhí)行命令 把查詢到的結(jié)果放在recSet中
On Error GoTo Cwcl
With recSet
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open cmdProc
End With
With recSet
If Not .EOF Then
new_goods = True
Else
new_goods = False
End If
End With
Exit Function
Cwcl:
new_goods = False
Exit Function
End Function
'**************************************
'* 功 能 描 述 :關(guān)系數(shù)據(jù)庫(kù)增加函數(shù)
'* 輸 入 參 數(shù) :無(wú)
'* 輸 出 參 數(shù) :true -新增成功
'* false -新增失敗
'**************************************
Public Function new_relation(recSet As ADODB.Recordset, supplierId As String, goodsid As String) As Boolean
Dim cmdProc As ADODB.Command ' 執(zhí)行存儲(chǔ)過(guò)程的命令
new_relation = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 執(zhí)行存儲(chǔ)過(guò)程的命令的設(shè)置
cmdProc.CommandText = "relation_add" ' 指定存儲(chǔ)過(guò)程的名子
cmdProc.CommandType = adCmdStoredProc
cmdProc.Parameters.Refresh
cmdProc.Parameters(1) = supplierId ' 供應(yīng)商編號(hào)
cmdProc.Parameters(2) = goodsid ' 商品編號(hào)
' 執(zhí)行命令 把查詢到的結(jié)果放在recSet中
On Error GoTo Cwcl
With recSet
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open cmdProc
End With
With recSet
If Not .EOF Then
new_relation = True
Else
new_relation = False
End If
End With
Exit Function
Cwcl:
new_relation = False
Exit Function
End Function
'**************************************
'* 功 能 描 述 :顯示所有商品函數(shù)
'* 輸 入 參 數(shù) :無(wú)
'* 輸 出 參 數(shù) :true -新增成功
'* false -新增失敗
'**************************************
Public Function goods_all(recSet As ADODB.Recordset) As Boolean
Dim cmdProc As ADODB.Command ' 執(zhí)行存儲(chǔ)過(guò)程的命令
goods_all = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 執(zhí)行存儲(chǔ)過(guò)程的命令的設(shè)置
cmdProc.CommandText = "goods_all" ' 指定存儲(chǔ)過(guò)程的名子
cmdProc.CommandType = adCmdStoredProc
cmdProc.Parameters.Refresh
' 執(zhí)行命令 把查詢到的結(jié)果放在recSet中
On Error GoTo Cwcl
With recSet
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open cmdProc
End With
With recSet
If Not .EOF Then
goods_all = True
Else
goods_all = False
End If
End With
Exit Function
Cwcl:
goods_all = False
Exit Function
End Function
'**************************************
'* 功 能 描 述 :刪除所選商品函數(shù)
'* 輸 入 參 數(shù) :無(wú)
'* 輸 出 參 數(shù) :true -新增成功
'* false -新增失敗
'**************************************
Public Function goods_delete(recSet As ADODB.Recordset, goodsid As String) As Boolean
Dim cmdProc As ADODB.Command ' 執(zhí)行存儲(chǔ)過(guò)程的命令
goods_delete = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 執(zhí)行存儲(chǔ)過(guò)程的命令的設(shè)置
cmdProc.CommandText = "goods_delete" ' 指定存儲(chǔ)過(guò)程的名子
cmdProc.CommandType = adCmdStoredProc
cmdProc.Parameters.Refresh
cmdProc.Parameters(1) = goodsid ' 商品編號(hào)
cmdProc.Parameters(2) = "1" ' 商品編號(hào)
' 執(zhí)行命令 把查詢到的結(jié)果放在recSet中
On Error GoTo Cwcl
With recSet
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open cmdProc
End With
With recSet
If Not .EOF Then
goods_delete = True
Else
goods_delete = False
End If
End With
Exit Function
Cwcl:
goods_delete = False
Exit Function
End Function
'**************************************
'* 功 能 描 述 :商品數(shù)據(jù)庫(kù)修改函數(shù)
'* 輸 入 參 數(shù) :無(wú)
'* 輸 出 參 數(shù) :true -新增成功
'* false -新增失敗
'**************************************
Public Function edit_goods1(recSet As ADODB.Recordset, name As String, stripe As String, _
acronym As String, pattern As String, madein As String, _
smallunit As String, bigunit As String, specification As String, switchrelation As String, prepriceo As Double, _
prepricet As Double, prepriceth As Double, prepricef As Double, presetprice As Double, _
memo As String, goodsid As String) As Boolean
Dim cmdProc As ADODB.Command ' 執(zhí)行存儲(chǔ)過(guò)程的命令
edit_goods1 = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 執(zhí)行存儲(chǔ)過(guò)程的命令的設(shè)置
cmdProc.CommandText = "edit_goods" ' 指定存儲(chǔ)過(guò)程的名子
cmdProc.CommandType = adCmdStoredProc
cmdProc.Parameters.Refresh
cmdProc.Parameters(1) = name ' 參數(shù)-商品名稱
cmdProc.Parameters(2) = stripe ' 參數(shù)-條碼
cmdProc.Parameters(3) = acronym ' 參數(shù)-簡(jiǎn)稱
cmdProc.Parameters(4) = pattern ' 參數(shù)-型號(hào)
cmdProc.Parameters(5) = madein ' 參數(shù)-產(chǎn)地
cmdProc.Parameters(6) = smallunit ' 參數(shù)-小單位
cmdProc.Parameters(7) = bigunit ' 參數(shù)-大單位
cmdProc.Parameters(8) = specification ' 參數(shù)-規(guī)格
cmdProc.Parameters(9) = switchrelation ' 參數(shù)-轉(zhuǎn)換關(guān)系
cmdProc.Parameters(10) = prepriceo ' 參數(shù)-預(yù)售價(jià)1
cmdProc.Parameters(11) = prepricet ' 參數(shù)-預(yù)售價(jià)2
cmdProc.Parameters(12) = prepriceth ' 參數(shù)-預(yù)售價(jià)3
cmdProc.Parameters(13) = prepricef ' 參數(shù)-預(yù)售價(jià)4
cmdProc.Parameters(14) = presetprice ' 參數(shù)-預(yù)設(shè)進(jìn)價(jià)
cmdProc.Parameters(15) = memo ' 參數(shù)-備注
cmdProc.Parameters(16) = goodsid
' 執(zhí)行命令 把查詢到的結(jié)果放在recSet中
On Error GoTo Cwcl
With recSet
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open cmdProc
End With
Exit Function
Cwcl:
edit_goods1 = False
Exit Function
End Function
'**************************************
'* 功 能 描 述 :刪除供應(yīng)商-商品關(guān)系表函數(shù)
'* 輸 入 參 數(shù) :無(wú)
'* 輸 出 參 數(shù) :true -新增成功
'* false -新增失敗
'**************************************
Public Function relation_delete(recSet As ADODB.Recordset, goodsid As String, supplierId As String) As Boolean
Dim cmdProc As ADODB.Command ' 執(zhí)行存儲(chǔ)過(guò)程的命令
relation_delete = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 執(zhí)行存儲(chǔ)過(guò)程的命令的設(shè)置
cmdProc.CommandText = "relation_delete" ' 指定存儲(chǔ)過(guò)程的名子
cmdProc.CommandType = adCmdStoredProc
cmdProc.Parameters.Refresh
cmdProc.Parameters(1) = goodsid
cmdProc.Parameters(2) = supplierId
' 執(zhí)行命令 把查詢到的結(jié)果放在recSet中
On Error GoTo Cwcl
With recSet
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open cmdProc
End With
Exit Function
Cwcl:
relation_delete = False
Exit Function
End Function
'**************************************
'* 功 能 描 述 :判斷所填商品函數(shù)
'* 輸 入 參 數(shù) :無(wú)
'* 輸 出 參 數(shù) :true -新增成功
'* false -新增失敗
'**************************************
Public Function judge_goods(recSet As ADODB.Recordset, name As String) As Boolean
Dim cmdProc As ADODB.Command ' 執(zhí)行存儲(chǔ)過(guò)程的命令
judge_goods = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 執(zhí)行存儲(chǔ)過(guò)程的命令的設(shè)置
cmdProc.CommandText = "judge_goods" ' 指定存儲(chǔ)過(guò)程的名子
cmdProc.CommandType = adCmdStoredProc
cmdProc.Parameters.Refresh
cmdProc.Parameters(1) = name ' 商品編號(hào)
' 執(zhí)行命令 把查詢到的結(jié)果放在recSet中
On Error GoTo Cwcl
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -