?? productypedao.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 = "productypeDAO"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'**************************************
'* 模 塊 名 稱 :產品類別設置模塊中的數(shù)據(jù)據(jù)庫操作
'* 功 能 描 述 :產品類別設置模塊中的數(shù)據(jù)據(jù)庫操作
'* 程序員姓名 : 石春曉
'* 最后修改人 : 石春曉
'* 最后修改時間:2005/09/06
'**************************************
Option Explicit
'**************************************
'* 功 能 描 述 :取得所有產品類別的列表
'* 輸 入 參 數(shù) :無
'* 輸 出 能 數(shù) :True - 數(shù)據(jù)庫連接成功
'* False - 數(shù)據(jù)庫連接失敗
'**************************************
Public Function FindAll(recSet As ADODB.Recordset) As Boolean
Dim cmdProc As ADODB.Command ' 執(zhí)行存儲過程的命令
FindAll = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 執(zhí)行存儲過程的命令的設置
cmdProc.CommandText = "productype_findAll" ' 指定存儲過程的名子
cmdProc.CommandType = adCmdStoredProc
On Error GoTo Cwcl
' 執(zhí)行命令 把查詢到的結果放在recSet中
With recSet
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open cmdProc
End With
With recSet
If Not .EOF Then
FindAll = True
Else
FindAll = False
End If
End With
Exit Function
Cwcl:
FindAll = False
Exit Function
End Function
'**************************************
'* 功 能 描 述 :新增一條產品類別數(shù)據(jù)
'* 輸 入 參 數(shù) :無
'* 輸 出 能 數(shù) :True - 新增成功
'* False - 新增失敗
'**************************************
Public Function Newproductype(recSet As ADODB.Recordset, xh As String, name As String, memo As String) As Boolean
Dim cmdProc As ADODB.Command ' 執(zhí)行存儲過程的命令
Newproductype = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 執(zhí)行存儲過程的命令的設置
cmdProc.CommandText = "productype_add" ' 指定存儲過程的名子
cmdProc.CommandType = adCmdStoredProc
cmdProc.Parameters.Refresh
cmdProc.Parameters(1) = xh ' 參數(shù)
cmdProc.Parameters(2) = name ' 參數(shù)
cmdProc.Parameters(3) = memo
' 執(zhí)行命令 把查詢到的結果放在recSet中
MainForm.g_application.m_databaseCon.m_adoConnection.BeginTrans ' 開始事務
On Error GoTo Cwcl
cmdProc.Execute
MainForm.g_application.m_databaseCon.m_adoConnection.CommitTrans ' 結束事務
Exit Function
Cwcl:
MainForm.g_application.m_databaseCon.m_adoConnection.RollbackTrans ' 回滾事務
Newproductype = False
Exit Function
End Function
'**************************************
'* 功 能 描 述 :修改一條產品類別數(shù)據(jù)
'* 輸 入 參 數(shù) :無
'* 輸 出 能 數(shù) :True - 新增成功
'* False - 新增失敗
'**************************************
Public Function Modifyproductype(recSet As ADODB.Recordset, _
xh As String, name As String, memo As String, productypeid As String) As Boolean
Dim cmdProc As ADODB.Command ' 執(zhí)行存儲過程的命令
Modifyproductype = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 執(zhí)行存儲過程的命令的設置
cmdProc.CommandText = "productype_modify" ' 指定存儲過程的名子
cmdProc.CommandType = adCmdStoredProc
cmdProc.Parameters.Refresh
cmdProc.Parameters(1) = xh
cmdProc.Parameters(2) = name ' 參數(shù)
cmdProc.Parameters(3) = memo ' 參數(shù)
cmdProc.Parameters(4) = productypeid ' 參數(shù)
' 執(zhí)行命令 把查詢到的結果放在recSet中
MainForm.g_application.m_databaseCon.m_adoConnection.BeginTrans ' 開始事務
On Error GoTo Cwcl
cmdProc.Execute
Modifyproductype = True
MainForm.g_application.m_databaseCon.m_adoConnection.CommitTrans ' 結束事務
Modifyproductype = True
Exit Function
Cwcl:
MainForm.g_application.m_databaseCon.m_adoConnection.RollbackTrans ' 回滾事務
Modifyproductype = False
Exit Function
End Function
'**************************************
'* 功 能 描 述 :根據(jù)產品類別ID取得所有產品類別的列表
'* 輸 入 參 數(shù) :無
'* 輸 出 能 數(shù) :True - 數(shù)據(jù)庫連接成功
'* False - 數(shù)據(jù)庫連接失敗
'**************************************
Public Function FindById(recSet As ADODB.Recordset, houseId As String) As Boolean
Dim cmdProc As ADODB.Command ' 執(zhí)行存儲過程的命令
FindById = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 執(zhí)行存儲過程的命令的設置
cmdProc.CommandText = "productype_findByld" ' 指定存儲過程的名子
cmdProc.CommandType = adCmdStoredProc
cmdProc.Parameters.Refresh
cmdProc.Parameters(1) = houseId ' 參數(shù)
On Error GoTo Cwcl
' 執(zhí)行命令 把查詢到的結果放在recSet中
With recSet
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open cmdProc
End With
With recSet
If Not .EOF Then
FindById = True
Else
FindById = False
End If
End With
Exit Function
Cwcl:
FindById = False
Exit Function
End Function
'**************************************
'* 功 能 描 述 :根據(jù)產品類別ID從表中刪除一條產品類別記錄
'* 輸 入 參 數(shù) :無
'* 輸 出 能 數(shù) :True - 數(shù)據(jù)庫連接成功
'* False - 數(shù)據(jù)庫連接失敗
'**************************************
Public Function DeleteById(recSet As ADODB.Recordset, houseId As String) As Boolean
Dim cmdProc As ADODB.Command ' 執(zhí)行存儲過程的命令
DeleteById = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 執(zhí)行存儲過程的命令的設置
cmdProc.CommandText = "productype_delete" ' 指定存儲過程的名子
cmdProc.CommandType = adCmdStoredProc
cmdProc.Parameters.Refresh
cmdProc.Parameters(1) = houseId ' 參數(shù)
On Error GoTo Cwcl
' 執(zhí)行命令 把查詢到的結果放在recSet中
With recSet
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open cmdProc
End With
With recSet
If Not .EOF Then
DeleteById = True
Else
DeleteById = False
End If
End With
Exit Function
Cwcl:
DeleteById = False
Exit Function
End Function
'**************************************
'* 功 能 描 述 :根據(jù)員工編號，姓名，所在部門及職位查找員工記錄
'* 輸 入 參 數(shù) :無
'* 輸 出 能 數(shù) :True - 成功
'* False - 失敗
'**************************************
Public Function Findproductype(recSet As ADODB.Recordset, _
materialId As String) As Boolean
Dim cmdProc As ADODB.Command ' 執(zhí)行存儲過程的命令
Findproductype = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 執(zhí)行存儲過程的命令的設置
cmdProc.CommandText = "productype_findByld" ' 指定存儲過程的名子
cmdProc.CommandType = adCmdStoredProc
cmdProc.Parameters.Refresh
cmdProc.Parameters(1) = materialId ' 參數(shù)
On Error GoTo Cwcl
' 執(zhí)行命令 把查詢到的結果放在recSet中
With recSet
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open cmdProc
End With
With recSet
If Not .EOF Then
Findproductype = True
Else
Findproductype = False
End If
End With
Exit Function
Cwcl:
Findproductype = False
Exit Function
End Function
'**************************************
'* 功 能 描 述 :查詢取得所有產品類別的列表
'* 輸 入 參 數(shù) :無
'* 輸 出 能 數(shù) :True - 數(shù)據(jù)庫連接成功
'* False - 數(shù)據(jù)庫連接失敗
'**************************************
Public Function productype_findByldList(recSet As ADODB.Recordset) As Boolean
Dim cmdProc As ADODB.Command ' 執(zhí)行存儲過程的命令
productype_findByldList = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 執(zhí)行存儲過程的命令的設置
cmdProc.CommandText = "productype_findByldList" ' 指定存儲過程的名子
cmdProc.CommandType = adCmdStoredProc
On Error GoTo Cwcl
' 執(zhí)行命令 把查詢到的結果放在recSet中
With recSet
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open cmdProc
End With
With recSet
If Not .EOF Then
productype_findByldList = True
Else
productype_findByldList = False
End If
End With
Exit Function
Cwcl:
productype_findByldList = False
Exit Function
End Function
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -