?? checkstandarddao.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 = "checkstandardDAO"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'**************************************
'* 模 塊 名 稱 :檢驗類型設置模塊中的數據據庫操作
'* 功 能 描 述 :檢驗類型設置模塊中的數據據庫操作
'* 程序員姓名 : 石春曉
'* 最后修改人 : 石春曉
'* 最后修改時間:2005/09/20
'**************************************
Option Explicit
'**************************************
'* 功 能 描 述 :取得所有檢驗類型的列表
'* 輸 入 參 數 :無
'* 輸 出 能 數 :True - 數據庫連接成功
'* False - 數據庫連接失敗
'**************************************
Public Function FindAll(recSet As ADODB.Recordset) As Boolean
Dim cmdProc As ADODB.Command ' 執行存儲過程的命令
FindAll = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 執行存儲過程的命令的設置
cmdProc.CommandText = "checkstandard_findall" ' 指定存儲過程的名子
cmdProc.CommandType = adCmdStoredProc
On Error GoTo Cwcl
' 執行命令 把查詢到的結果放在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
'**************************************
'* 功 能 描 述 :新增一條檢驗類型數據
'* 輸 入 參 數 :無
'* 輸 出 能 數 :True - 新增成功
'* False - 新增失敗
'**************************************
Public Function Newcheckstandard(recSet As ADODB.Recordset, _
name As String, measurearea As String, fenduvalue As String, requereprecision As String, decimaal As Integer, _
jcdw As String, bzq As String, bzqyw As String, productionid As String, checkoptiongroupid As String, _
checkvaluegroupid As String) As Boolean
Dim cmdProc As ADODB.Command ' 執行存儲過程的命令
Newcheckstandard = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 執行存儲過程的命令的設置
cmdProc.CommandText = "checkstandard_add" ' 指定存儲過程的名子
cmdProc.CommandType = adCmdStoredProc
cmdProc.Parameters.Refresh
cmdProc.Parameters(1) = name ' 參數
cmdProc.Parameters(2) = measurearea ' 參數
cmdProc.Parameters(3) = fenduvalue ' 參數
cmdProc.Parameters(4) = requereprecision ' 參數
cmdProc.Parameters(5) = decimaal ' 參數
cmdProc.Parameters(6) = jcdw ' 參數
cmdProc.Parameters(7) = bzq ' 參數
cmdProc.Parameters(8) = bzqyw ' 參數
cmdProc.Parameters(9) = productionid ' 參數
cmdProc.Parameters(10) = checkoptiongroupid ' 參數
cmdProc.Parameters(11) = checkvaluegroupid
' 執行命令 把查詢到的結果放在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 ' 回滾事務
Newcheckstandard = False
Exit Function
End Function
'**************************************
'* 功 能 描 述 :修改一條檢驗類型數據
'* 輸 入 參 數 :無
'* 輸 出 能 數 :True - 新增成功
'* False - 新增失敗
'**************************************
Public Function Modifycheckstandard(recSet As ADODB.Recordset, _
name As String, measurearea As String, fenduvalue As String, requereprecision As String, decimaal As Integer, checkstandardid As String, _
jcdw As String, bzq As String, bzqyw As String, productionid As String, checkoptiongroupid As String, _
checkvaluegroupid As String) As Boolean
Dim cmdProc As ADODB.Command ' 執行存儲過程的命令
Modifycheckstandard = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 執行存儲過程的命令的設置
cmdProc.CommandText = "checkstandard_modify" ' 指定存儲過程的名子
cmdProc.CommandType = adCmdStoredProc
cmdProc.Parameters.Refresh
cmdProc.Parameters(1) = name ' 參數
cmdProc.Parameters(2) = measurearea ' 參數
cmdProc.Parameters(3) = fenduvalue ' 參數
cmdProc.Parameters(4) = requereprecision ' 參數
cmdProc.Parameters(5) = decimaal ' 參數
cmdProc.Parameters(6) = checkstandardid ' 參數
cmdProc.Parameters(7) = jcdw ' 參數
cmdProc.Parameters(8) = bzq ' 參數
cmdProc.Parameters(9) = bzqyw ' 參數
cmdProc.Parameters(10) = productionid ' 參數
cmdProc.Parameters(11) = checkoptiongroupid ' 參數
cmdProc.Parameters(12) = checkvaluegroupid
' 執行命令 把查詢到的結果放在recSet中
MainForm.g_application.m_databaseCon.m_adoConnection.BeginTrans ' 開始事務
On Error GoTo Cwcl
cmdProc.Execute
MainForm.g_application.m_databaseCon.m_adoConnection.CommitTrans ' 結束事務
Modifycheckstandard = True
Exit Function
Cwcl:
MainForm.g_application.m_databaseCon.m_adoConnection.RollbackTrans ' 回滾事務
Modifycheckstandard = False
Exit Function
End Function
'**************************************
'* 功 能 描 述 :根據產品類別ID取得所有產品類別的列表
'* 輸 入 參 數 :無
'* 輸 出 能 數 :True - 數據庫連接成功
'* False - 數據庫連接失敗
'**************************************
Public Function FindById(recSet As ADODB.Recordset, checkstandardid As String) As Boolean
Dim cmdProc As ADODB.Command ' 執行存儲過程的命令
FindById = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 執行存儲過程的命令的設置
cmdProc.CommandText = "checkstandard_findid" ' 指定存儲過程的名子
cmdProc.CommandType = adCmdStoredProc
cmdProc.Parameters.Refresh
cmdProc.Parameters(1) = checkstandardid ' 參數
On Error GoTo Cwcl
' 執行命令 把查詢到的結果放在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
'**************************************
'* 功 能 描 述 :根據產品類別ID從表中刪除一條產品類別記錄
'* 輸 入 參 數 :無
'* 輸 出 能 數 :True - 數據庫連接成功
'* False - 數據庫連接失敗
'**************************************
Public Function DeleteById(recSet As ADODB.Recordset, checkstandardid As String) As Boolean
Dim cmdProc As ADODB.Command ' 執行存儲過程的命令
DeleteById = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 執行存儲過程的命令的設置
cmdProc.CommandText = "checkstandard_delete" ' 指定存儲過程的名子
cmdProc.CommandType = adCmdStoredProc
cmdProc.Parameters.Refresh
cmdProc.Parameters(1) = checkstandardid ' 參數
On Error GoTo Cwcl
' 執行命令 把查詢到的結果放在recSet中
With recSet
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open cmdProc
End With
With recSet
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -