Version 1.0 Class
Begin
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
End
Attribute VB_Name = "ClsCustomer"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public CustomerID As String
Public CustomerName As String
Public Country As String
Public Province As String
Public City As String
Public Address As String
Public Linkman As String
Public Telephone As String
Public Fax As String

Public Sub Update(ByVal OriCustomerID As String)
    
    '連接數據庫
    MyDB.openDB
    
    
    '設置Update語句
    SqlStmt = "Update Customer Set CustomerID='" + Trim(CustomerID) _
               + "',CustomerName='" + Trim(CustomerName) + "',Country='" + Trim(Country) _
               + "',Province='" + Trim(Province) _
               + "',City='" + Trim(City) + "',Address='" + Trim(Address) _
               + "',Linkman='" + Trim(Linkman) + "',Telephone='" + Trim(Telephone) _
               + "',Fax='" + Trim(Fax) + "' WHERE CustomerID='" + Trim(OriCustomerID) + "'"
    
    
    '執行SQL語句
    Dim Isexe As Boolean
    Dim rsCustomer As ADODB.Recordset
    Isexe = MyDB.exeSql(SqlStmt, rsCustomer, True)
    
    '斷開與數據庫的連接
    MyDB.closeDB
End Sub


Public Sub Insert()
    
    '連接數據庫
    MyDB.openDB
    
    '設置Insert語句
    SqlStmt = "INSERT INTO Customer (CustomerID, CustomerName,Country,Province,City,Address,Linkman,Telephone,Fax)" _
               + " Values('" + Trim(CustomerID) + "','" + Trim(CustomerName) + "','" + Trim(Country) _
               + "','" + Trim(Province) + "','" + Trim(City) + "','" + Trim(Address) _
               + "','" + Trim(Linkman) + "','" + Trim(Telephone) + "','" + Trim(Fax) + "')"
    
    '執行SQL語句
    Dim Isexe As Boolean
    Dim rsCustomer As ADODB.Recordset
    Isexe = MyDB.exeSql(SqlStmt, rsCustomer, True)
    
    '斷開與數據庫的連接
    MyDB.closeDB
End Sub


Public Function In_DB(ByVal TempCustomerID As Integer) As Boolean
    '連接數據庫
    MyDB.openDB
    
    '設置查詢語句
    SqlStmt = "SELECT CustomerID FROM Customer WHERE CustomerID='" + Trim(TempCustomerID) + "'"
    
    '執行SQL語句
    Dim Isexe As Boolean
    Dim rsCustomerID As ADODB.Recordset
    Isexe = MyDB.exeSql(SqlStmt, rsCustomerID, False)
    
    '判斷是否存在
    If rsCustomerID.RecordCount <> 0 Then
        In_DB = True
    Else
        In_DB = False
    End If
    
    '斷開與數據庫的連接
    MyDB.closeDB
    
End Function


Public Sub Delete(ByVal TempCustomerID As String)
    '連接數據庫
    MyDB.openDB
    
    '設置Delete語句
    SqlStmt = "Delete FROM Customer WHERE CustomerID='" + Trim(TempCustomerID) + "'"
    
    '執行SQL語句
    Dim Isexe As Boolean
    Dim rsCustomer As ADODB.Recordset
    Isexe = MyDB.exeSql(SqlStmt, rsCustomer, True)
    
    '斷開與數據庫的連接
    MyDB.closeDB
End Sub