VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "ClsBOM"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public ParentItem As String
Public CT As String
Public ChildItem As String
Public Qty As String
Public QT As String
Public Scrap As String
Public Offset As String
Public Remark As String

Public Sub Update(ByVal TempParentItem As String, ByVal TempChildItem As String)
    '連接數(shù)據(jù)庫(kù)
    MyDB.openDB
    
    '設(shè)置Update語(yǔ)句
    SqlStmt = "Update Child Set ParentItem='" + Trim(ParentItem) _
               + "',CT='" + Trim(CT) _
               + "',ChildItem='" + Trim(ChildItem) _
               + "',Qty='" + Trim(Qty) _
               + "',QT='" + Trim(QT) _
               + "',Scrap='" + Trim(Scrap) _
               + "',Offset='" + Trim(Offset) _
               + "',Remark='" + Trim(Remark) _
               + "' where ParentItem='" + Trim(TempParentItem) + "' and ChildItem='" + Trim(TempChildItem) + "'"
    
    '執(zhí)行SQL語(yǔ)句
    Dim Isexe As Boolean
    Dim rsChild As ADODB.Recordset
    Isexe = MyDB.exeSql(SqlStmt, rsChild, True)
    
    '斷開與數(shù)據(jù)庫(kù)的連接
    MyDB.closeDB
    
End Sub


Public Sub DeleteP(ByVal TempParentItem As String)
    '連接數(shù)據(jù)庫(kù)
    MyDB.openDB
    
    '設(shè)置DeleteP語(yǔ)句
    SqlStmt = "Delete FROM Parent WHERE ParentItem='" + Trim(TempParentItem) + "'"
    
    '執(zhí)行SQL語(yǔ)句
    Dim Isexe As Boolean
    Dim rsParent As ADODB.Recordset
    Isexe = MyDB.exeSql(SqlStmt, rsParent, True)
    
    '設(shè)置DeleteC語(yǔ)句
    SqlStmt = "Delete FROM Child WHERE ParentItem='" + Trim(TempParentItem) + "'"
    Isexe = MyDB.exeSql(SqlStmt, rsParent, True)
    
    '斷開與數(shù)據(jù)庫(kù)的連接
    MyDB.closeDB
End Sub


Public Sub DeleteC(ByVal TempParentItem As String, ByVal TempChildItem As String)
    '連接數(shù)據(jù)庫(kù)
    MyDB.openDB
    
    '設(shè)置DeleteC語(yǔ)句
    SqlStmt = "Delete FROM Child WHERE ChildItem='" + Trim(TempChildItem) + "'And ParentItem='" + Trim(TempParentItem) + "'"
    
    '執(zhí)行SQL語(yǔ)句
    Dim Isexe As Boolean
    Dim rsChild As ADODB.Recordset
    Isexe = MyDB.exeSql(SqlStmt, rsChild, True)
    
    '斷開與數(shù)據(jù)庫(kù)的連接
    MyDB.closeDB
    
    
End Sub


Public Sub InsertC()
    
    '連接數(shù)據(jù)庫(kù)
    MyDB.openDB
    
    '設(shè)置Insert語(yǔ)句
    SqlStmt = "INSERT INTO Child (ParentItem,CT,ChildItem,Qty,QT,Scrap,Offset,Remark) " _
               + " Values('" + Trim(ParentItem) + "','" + Trim(CT) _
               + "','" + Trim(ChildItem) + "','" + Trim(Qty) _
               + "','" + Trim(QT) + "','" + Trim(Scrap) + "','" + Trim(Offset) _
               + "','" + Trim(Remark) + "')"
    
    '執(zhí)行SQL語(yǔ)句
    Dim Isexe As Boolean
    Dim rsChild As ADODB.Recordset
    Isexe = MyDB.exeSql(SqlStmt, rsChild, True)
    
    '斷開與數(shù)據(jù)庫(kù)的連接
    MyDB.closeDB
    
End Sub


Public Function In_DBC(ByVal TempParentItem As String, ByVal TempChildItem As String) As Boolean
    
    '連接數(shù)據(jù)庫(kù)
    MyDB.openDB
    
    '設(shè)置SQL語(yǔ)句
    SqlStmt = "SELECT  * FROM Child WHERE ParentItem='" + Trim(TempParentItem) + "' and ChildItem='" + Trim(TempChildItem) + "' "
    
    '執(zhí)行SQL語(yǔ)句
    Dim Isexe As Boolean
    Dim rsChild As ADODB.Recordset
    Isexe = MyDB.exeSql(SqlStmt, rsChild, False)
    
    '判斷是否存在
    If rsChild.RecordCount <> 0 Then
        In_DBC = True
    Else
        In_DBC = False
    End If
    
    '斷開與數(shù)據(jù)庫(kù)的連接
    MyDB.closeDB
    
End Function


Public Sub Load_Parent()
    Dim i As Long
    Erase Arr_Item
    ReDim Arr_Item(0)
    
    '連接數(shù)據(jù)庫(kù)
    MyDB.openDB
    
    '設(shè)置SQL語(yǔ)句
    SqlStmt = "SELECT Name FROM Item "
    
    '執(zhí)行SQL語(yǔ)句
    Dim Isexe As Boolean
    Dim rsParent As ADODB.Recordset
    Isexe = MyDB.exeSql(SqlStmt, rsParent, True)
    
    
    
    
    i = 0
    Do Until rsParent.EOF = True
        ReDim Preserve Arr_Item(i + 1)
        Arr_Item(i) = rsParent(0)
        i = i + 1
        rsParent.MoveNext
    Loop
    
    '斷開與數(shù)據(jù)庫(kù)的連接
    MyDB.closeDB
End Sub

Public Function In_DBP(ByVal TempParentItem As String) As Boolean
    
    '連接數(shù)據(jù)庫(kù)
    MyDB.openDB
    
    '設(shè)置SQL語(yǔ)句
    SqlStmt = "SELECT  ParentItem FROM Parent WHERE ParentItem='" + Trim(TempParentItem) + "'"
    
    '執(zhí)行SQL語(yǔ)句
    Dim Isexe As Boolean
    Dim rsParent As ADODB.Recordset
    Isexe = MyDB.exeSql(SqlStmt, rsParent, False)
    
    '判斷是否存在
    If rsParent.RecordCount <> 0 Then
        In_DBP = True
    Else
        In_DBP = False
    End If
    
    '斷開與數(shù)據(jù)庫(kù)的連接
    MyDB.closeDB
    
End Function


Public Sub InsertP()
    
    '連接數(shù)據(jù)庫(kù)
    MyDB.openDB
    
    '設(shè)置Insert語(yǔ)句
    SqlStmt = "INSERT INTO Parent (ParentItem) Values('" + Trim(ParentItem) + "')"
    
    '執(zhí)行SQL語(yǔ)句
    Dim Isexe As Boolean
    Dim rsParent As ADODB.Recordset
    Isexe = MyDB.exeSql(SqlStmt, rsParent, True)
    
    '斷開與數(shù)據(jù)庫(kù)的連接
    MyDB.closeDB
    
End Sub


Public Sub Load_Parent_exist()
    Dim i As Long
    Erase Arr_Item
    ReDim Arr_Item(0)
    
    '連接數(shù)據(jù)庫(kù)
    MyDB.openDB
    
    '設(shè)置SQL語(yǔ)句
    SqlStmt = "SELECT Name FROM Item,Parent where Item.Item=Parent.ParentItem  "
    
    '執(zhí)行SQL語(yǔ)句
    Dim Isexe As Boolean
    Dim rsParent As ADODB.Recordset
    Isexe = MyDB.exeSql(SqlStmt, rsParent, True)
    
    i = 0
    Do Until rsParent.EOF = True
        ReDim Preserve Arr_Item(i + 1)
        Arr_Item(i) = rsParent(0)
        i = i + 1
        rsParent.MoveNext
    Loop
    
    '斷開與數(shù)據(jù)庫(kù)的連接
    MyDB.closeDB
End Sub


Public Sub Load_Child(ByVal PItem As String)
    Dim i As Long
    Erase Arr_Item
    ReDim Arr_Item(0)
    
    '連接數(shù)據(jù)庫(kù)
    MyDB.openDB
    
    '設(shè)置SQL語(yǔ)句
    SqlStmt = "SELECT Name FROM Item where Item<>'" + Trim(PItem) + " ' "
    
    '執(zhí)行SQL語(yǔ)句
    Dim Isexe As Boolean
    Dim rsChild As ADODB.Recordset
    Isexe = MyDB.exeSql(SqlStmt, rsChild, True)
    
    i = 0
    Do Until rsChild.EOF = True
        ReDim Preserve Arr_Item(i + 1)
        Arr_Item(i) = rsChild(0)
        i = i + 1
        rsChild.MoveNext
    Loop
    
    '斷開與數(shù)據(jù)庫(kù)的連接
    MyDB.closeDB
End Sub