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