VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsMerchandiseinfoSet"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Collection" ,"clsMerchandiseinfo"
Attribute VB_Ext_KEY = "Member0" ,"clsMerchandiseinfo"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Option Explicit

'局部變量，保存集合
Private mCol As Collection

Public Function Add(merchandiseId As Integer, merchandiseName As String, kindId As Integer, remark As String, kindName As String, Optional sKey As String) As clsMerchandiseinfo
    '創建新對象
    Dim objNewMember As clsMerchandiseinfo
    Set objNewMember = New clsMerchandiseinfo


    '設置傳入方法的屬性
    objNewMember.merchandiseId = merchandiseId
    objNewMember.merchandiseName = merchandiseName
    objNewMember.kindId = kindId
    objNewMember.remark = remark
    objNewMember.kindName = kindName
    If Len(sKey) = 0 Then
        mCol.Add objNewMember
    Else
        mCol.Add objNewMember, sKey
    End If


    '返回已創建的對象
    Set Add = objNewMember
    Set objNewMember = Nothing


End Function

Public Property Get Item(vntIndexKey As Variant) As clsMerchandiseinfo
Attribute Item.VB_UserMemId = 0
    '引用集合中的一個元素時使用。
    'vntIndexKey 包含集合的索引或關鍵字，
    '這是為什么要聲明為 Variant 的原因
    '語法：Set foo = x.Item(xyz) or Set foo = x.Item(5)
  Set Item = mCol(vntIndexKey)
End Property



Public Property Get Count() As Long
    '檢索集合中的元素數時使用。語法：Debug.Print x.Count
    Count = mCol.Count
End Property


Public Sub Remove(vntIndexKey As Variant)
    '刪除集合中的元素時使用。
    'vntIndexKey 包含索引或關鍵字，這是為什么要聲明為 Variant 的原因
    '語法：x.Remove(xyz)


    mCol.Remove vntIndexKey
End Sub


Public Property Get NewEnum() As IUnknown
Attribute NewEnum.VB_UserMemId = -4
Attribute NewEnum.VB_MemberFlags = "40"
    '本屬性允許用 For...Each 語法枚舉該集合。
    Set NewEnum = mCol.[_NewEnum]
End Property


Private Sub Class_Initialize()
    '創建類后創建集合
    Set mCol = New Collection
    
    '載入商品集合
    LoadSet
End Sub


Private Sub Class_Terminate()
    '類終止后破壞集合
    Set mCol = Nothing
End Sub

'***********************************************************************
'* 函數名：LoadSet
'* 功  能：載入商品集
'* 參  數：
'* 返回值：Boolean                  True 成功 False 失敗
'* 版  本：2006.01.03 顏志軍 初版
'***********************************************************************
Private Function LoadSet() As Boolean
    '變量定義
    Dim sql As String 'SQL
    Dim rs As ADODB.Recordset   '記錄集
    
    '構造SQL
    sql = "SELECT * FROM view_merchandisebaseinfo "
    
    '取得集合
    LoadSet = False
    On Error GoTo FUNEND
    Set rs = g_conn.Execute(sql)
    Do While Not rs.EOF
        Add rs("merchandiseId"), rs("merchandiseName"), rs("kindId"), _
            rs("remark"), rs("kindName"), KEYPRE & rs("merchandiseId")
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
    LoadSet = True
FUNEND:
End Function

'***********************************************************************
'* 函數名：LoadSetByKindId
'* 功  能：載入指定類別商品集
'* 參  數：Integer                  商品類別
'* 返回值：Boolean                  True 成功 False 失敗
'* 版  本：2006.01.03 顏志軍 初版
'***********************************************************************
Public Function LoadSetByKindId(ByVal kindId As Integer) As Boolean
    '變量定義
    Dim sql As String 'SQL
    Dim rs As ADODB.Recordset   '記錄集
    
    '構造SQL
    sql = "SELECT * FROM view_merchandisebaseinfo WHERE kindId = " & CStr(kindId)
    
    '取得集合
    Set mCol = Nothing
    Set mCol = New Collection
    LoadSetByKindId = False
    On Error GoTo FUNEND
    Set rs = g_conn.Execute(sql)
    Do While Not rs.EOF
        Add rs("merchandiseId"), rs("merchandiseName"), rs("kindId"), _
            rs("remark"), rs("kindName"), KEYPRE & rs("merchandiseId")
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
    LoadSetByKindId = True
FUNEND:
End Function