?? clsstoreroom.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 = "ClsStoreRoom"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public StoreID As String
Public StoreRoom As String
Public Location As String
Public Description As String
Public Sub Insert()
'連接數(shù)據(jù)庫
MyDB.openDB
'設置Insert語句
SqlStmt = "INSERT INTO StoreRoom (StoreID, StoreRoom,Location,Description)" _
+ " Values('" + Trim(StoreID) + "','" + Trim(StoreRoom) + "','" + Trim(Location) + "','" + Trim(Description) + "')"
'執(zhí)行SQL語句
Dim Isexe As Boolean
Dim rsStoreRoom As ADODB.Recordset
Isexe = MyDB.exeSql(SqlStmt, rsStoreRoom, True)
'斷開與數(shù)據(jù)庫的連接
MyDB.closeDB
End Sub
Public Sub Update(ByVal OriStoreID As String)
'連接數(shù)據(jù)庫
MyDB.openDB
'設置Update語句
SqlStmt = "Update StoreRoom Set StoreID=" + Trim(StoreID) + ",StoreRoom='" + Trim(StoreRoom) + "',Location='" + Trim(Location) + "',Description='" + Trim(Description) + "' WHERE StoreID=" + Trim(OriStoreID) + ""
'執(zhí)行SQL語句
Dim Isexe As Boolean
Dim rsStoreRoom As ADODB.Recordset
Isexe = MyDB.exeSql(SqlStmt, rsStoreRoom, True)
'斷開與數(shù)據(jù)庫的連接
MyDB.closeDB
End Sub
Public Sub Delete(ByVal TempStoreID As String)
'連接數(shù)據(jù)庫
MyDB.openDB
'設置Delete語句
SqlStmt = "Delete FROM StoreRoom WHERE StoreID=" + Trim(TempStoreID) + ""
'執(zhí)行SQL語句
Dim Isexe As Boolean
Dim rsStoreRoom As ADODB.Recordset
Isexe = MyDB.exeSql(SqlStmt, rsStoreRoom, True)
'斷開與數(shù)據(jù)庫的連接
MyDB.closeDB
End Sub
Public Function In_DB(ByVal TempStoreID As String) As Boolean
'連接數(shù)據(jù)庫
MyDB.openDB
'設置查詢語句
SqlStmt = "SELECT StoreID FROM StoreRoom WHERE StoreID=" + Trim(TempStoreID) + ""
'執(zhí)行SQL語句
Dim Isexe As Boolean
Dim rsStoreRoom As ADODB.Recordset
Isexe = MyDB.exeSql(SqlStmt, rsStoreRoom, False)
'判斷是否存在
If rsStoreRoom.RecordCount <> 0 Then
In_DB = True
Else
In_DB = False
End If
'斷開與數(shù)據(jù)庫的連接
MyDB.closeDB
End Function
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -