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