Version 1.0 Class
Begin
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
End
Attribute VB_Name = "ClsCO"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public COID As String
Public CODate As String
Public DeliverID As String
Public COItemID As String
Public SalesItemID As String
Public COQty As String
Public ConsignmentDate As String
Public IsComplete As String

Public Sub Update(ByVal OriCOItemID As String)
    
    '連接數據庫
    MyDB.openDB
    
    
    '設置Update語句
    SqlStmt = "Update CO Set COID='" + Trim(COID) _
               + "',CODate='" + Trim(CODate) + "',DeliverID='" + Trim(DeliverID) _
               + "',COItemID='" + Trim(COItemID) _
               + "',SalesItemID='" + Trim(SalesItemID) + "',COQty='" + Trim(COQty) _
               + "',ConsignmentDate='" + Trim(ConsignmentDate) + "',IsComplete='" + Trim(IsComplete) _
               + "' WHERE COItemID='" + Trim(OriCOItemID) + "'"
    
    
    '執行SQL語句
    Dim Isexe As Boolean
    Dim rsCO As ADODB.Recordset
    Isexe = MyDB.exeSql(SqlStmt, rsCO, True)
    
    '斷開與數據庫的連接
    MyDB.closeDB
End Sub


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


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


Public Sub Insert()
    
    '連接數據庫
    MyDB.openDB
    
    '設置Insert語句
    SqlStmt = "INSERT INTO CO (COID, CODate,DeliverID,COItemID,SalesItemID,COQty,ConsignmentDate,IsComplete)" _
               + " Values('" + Trim(COID) + "','" + Trim(CODate) + "','" + Trim(DeliverID) _
               + "','" + Trim(COItemID) + "','" + Trim(SalesItemID) + "','" + Trim(COQty) _
               + "','" + Trim(ConsignmentDate) + "','" + Trim(IsComplete) + "')"
    
    '執行SQL語句
    Dim Isexe As Boolean
    Dim rsCO As ADODB.Recordset
    Isexe = MyDB.exeSql(SqlStmt, rsCO, True)
    
    '斷開與數據庫的連接
    MyDB.closeDB
End Sub


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


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