?? goodsdao.cls
字號(hào):
With recSet
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open cmdProc
End With
With recSet
If Not .EOF Then
judge_goods = True
Else
judge_goods = False
End If
End With
Exit Function
Cwcl:
judge_goods = False
Exit Function
End Function
'**************************************
'* 功 能 描 述 :顯示商品名稱函數(shù)
'* 輸 入 參 數(shù) :無(wú)
'* 輸 出 參 數(shù) :true -新增成功
'* false -新增失敗
'**************************************
Public Function name_goods(recSet As ADODB.Recordset, goodsid As String) As Boolean
Dim cmdProc As ADODB.Command ' 執(zhí)行存儲(chǔ)過(guò)程的命令
name_goods = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 執(zhí)行存儲(chǔ)過(guò)程的命令的設(shè)置
cmdProc.CommandText = "show_goods_name" ' 指定存儲(chǔ)過(guò)程的名子
cmdProc.CommandType = adCmdStoredProc
cmdProc.Parameters.Refresh
cmdProc.Parameters(1) = 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
name_goods = True
Else
name_goods = False
End If
End With
Exit Function
Cwcl:
name_goods = False
Exit Function
End Function
'**************************************
'* 功 能 描 述 :判斷該商品是不是已經(jīng)入庫(kù)
'* 輸 入 參 數(shù) :無(wú)
'* 輸 出 參 數(shù) :true -新增成功
'* false -新增失敗
'**************************************
Public Function judge_position_goods(recSet As ADODB.Recordset, goodsid As String) As Boolean
Dim cmdProc As ADODB.Command ' 執(zhí)行存儲(chǔ)過(guò)程的命令
judge_position_goods = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 執(zhí)行存儲(chǔ)過(guò)程的命令的設(shè)置
cmdProc.CommandText = "judge_position_goods" ' 指定存儲(chǔ)過(guò)程的名子
cmdProc.CommandType = adCmdStoredProc
cmdProc.Parameters.Refresh
cmdProc.Parameters(1) = 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
' judge_position_goods = True
' Else
' judge_position_goods = False
' End If
' End With
Exit Function
Cwcl:
judge_position_goods = False
Exit Function
End Function
'**************************************
'* 功 能 描 述 :判斷該商品是不是已經(jīng)存在供應(yīng)商表中
'* 輸 入 參 數(shù) :無(wú)
'* 輸 出 參 數(shù) :true -新增成功
'* false -新增失敗
'**************************************
Public Function judge_goods1(recSet As ADODB.Recordset, supplierId As String) As Boolean
Dim cmdProc As ADODB.Command ' 執(zhí)行存儲(chǔ)過(guò)程的命令
judge_goods1 = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 執(zhí)行存儲(chǔ)過(guò)程的命令的設(shè)置
cmdProc.CommandText = "relation_findid" ' 指定存儲(chǔ)過(guò)程的名子
cmdProc.CommandType = adCmdStoredProc
cmdProc.Parameters.Refresh
cmdProc.Parameters(1) = supplierId ' 商品編號(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
judge_goods1 = True
Else
judge_goods1 = False
End If
End With
Exit Function
Cwcl:
judge_goods1 = False
Exit Function
End Function
'**************************************
'* 功 能 描 述 :判斷修改所填商品函數(shù)
'* 輸 入 參 數(shù) :無(wú)
'* 輸 出 參 數(shù) :true -新增成功
'* false -新增失敗
'**************************************
Public Function goods2_show(recSet As ADODB.Recordset, name As String) As Boolean
Dim cmdProc As ADODB.Command ' 執(zhí)行存儲(chǔ)過(guò)程的命令
goods2_show = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 執(zhí)行存儲(chǔ)過(guò)程的命令的設(shè)置
cmdProc.CommandText = "goods2_show" ' 指定存儲(chǔ)過(guò)程的名子
cmdProc.CommandType = adCmdStoredProc
cmdProc.Parameters.Refresh
cmdProc.Parameters(1) = name ' 商品編號(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
goods2_show = True
Else
goods2_show = False
End If
End With
Exit Function
Cwcl:
goods2_show = False
Exit Function
End Function
'**************************************
'* 功 能 描 述 :根據(jù)商品ID從表中顯示一條商品記錄
'* 輸 入 參 數(shù) :無(wú)
'* 輸 出 能 數(shù) :True - 數(shù)據(jù)庫(kù)連接成功
'* False - 數(shù)據(jù)庫(kù)連接失敗
'**************************************
Public Function goods_showone(recSet As ADODB.Recordset, goodsid As String) As Boolean
Dim cmdProc As ADODB.Command ' 執(zhí)行存儲(chǔ)過(guò)程的命令
goods_showone = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 執(zhí)行存儲(chǔ)過(guò)程的命令的設(shè)置
cmdProc.CommandText = "goods_showone" ' 指定存儲(chǔ)過(guò)程的名子
cmdProc.CommandType = adCmdStoredProc
cmdProc.Parameters.Refresh
cmdProc.Parameters(1) = goodsid ' 參數(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
goods_showone = True
Else
goods_showone = False
End If
End With
Exit Function
Cwcl:
goods_showone = False
Exit Function
End Function
'**************************************
'* 功 能 描 述 :根據(jù)商品ID從表中顯示一條商品記錄
'* 輸 入 參 數(shù) :無(wú)
'* 輸 出 能 數(shù) :True - 數(shù)據(jù)庫(kù)連接成功
'* False - 數(shù)據(jù)庫(kù)連接失敗
'**************************************
Public Function goods_showone1(recSet As ADODB.Recordset, goodsid As String, warehouseid As String) As Boolean
Dim cmdProc As ADODB.Command ' 執(zhí)行存儲(chǔ)過(guò)程的命令
goods_showone1 = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 執(zhí)行存儲(chǔ)過(guò)程的命令的設(shè)置
cmdProc.CommandText = "goods_showone1" ' 指定存儲(chǔ)過(guò)程的名子
cmdProc.CommandType = adCmdStoredProc
cmdProc.Parameters.Refresh
cmdProc.Parameters(1) = goodsid ' 參數(shù)
cmdProc.Parameters(2) = warehouseid
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
goods_showone1 = True
Else
goods_showone1 = False
End If
End With
Exit Function
Cwcl:
goods_showone1 = False
Exit Function
End Function
'**************************************
'* 功 能 描 述 :查詢顯示所有商品函數(shù)
'* 輸 入 參 數(shù) :無(wú)
'* 輸 出 參 數(shù) :true -新增成功
'* false -新增失敗
'**************************************
Public Function goods_showoneList(recSet As ADODB.Recordset) As Boolean
Dim cmdProc As ADODB.Command ' 執(zhí)行存儲(chǔ)過(guò)程的命令
goods_showoneList = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 執(zhí)行存儲(chǔ)過(guò)程的命令的設(shè)置
cmdProc.CommandText = "goods_showoneList" ' 指定存儲(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_showoneList = True
Else
goods_showoneList = False
End If
End With
Exit Function
Cwcl:
goods_showoneList = False
Exit Function
End Function
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -