VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsDayReportItem"
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 = "Top_Level" ,"Yes"
Option Explicit

'保持屬性值的局部變量
Private mvarshopName As String '局部復制
Private mvarsaledate As Date '局部復制
Private mvarmerchandiseName As String '局部復制
Private mvarkindName As String '局部復制
Private mvarmerchandiseCount As Integer '局部復制
Public Property Let merchandiseCount(ByVal vData As Integer)
'向?qū)傩灾概芍禃r使用，位于賦值語句的左邊。
'Syntax: X.merchandiseCount = 5
    mvarmerchandiseCount = vData
End Property


Public Property Get merchandiseCount() As Integer
'檢索屬性值時使用，位于賦值語句的右邊。
'Syntax: Debug.Print X.merchandiseCount
    merchandiseCount = mvarmerchandiseCount
End Property



Public Property Let kindName(ByVal vData As String)
'向?qū)傩灾概芍禃r使用，位于賦值語句的左邊。
'Syntax: X.kindName = 5
    mvarkindName = vData
End Property


Public Property Get kindName() As String
'檢索屬性值時使用，位于賦值語句的右邊。
'Syntax: Debug.Print X.kindName
    kindName = mvarkindName
End Property



Public Property Let merchandiseName(ByVal vData As String)
'向?qū)傩灾概芍禃r使用，位于賦值語句的左邊。
'Syntax: X.merchandiseName = 5
    mvarmerchandiseName = vData
End Property


Public Property Get merchandiseName() As String
'檢索屬性值時使用，位于賦值語句的右邊。
'Syntax: Debug.Print X.merchandiseName
    merchandiseName = mvarmerchandiseName
End Property



Public Property Let saledate(ByVal vData As Date)
'向?qū)傩灾概芍禃r使用，位于賦值語句的左邊。
'Syntax: X.saledate = 5
    mvarsaledate = vData
End Property


Public Property Get saledate() As Date
'檢索屬性值時使用，位于賦值語句的右邊。
'Syntax: Debug.Print X.saledate
    saledate = mvarsaledate
End Property



Public Property Let shopName(ByVal vData As String)
'向?qū)傩灾概芍禃r使用，位于賦值語句的左邊。
'Syntax: X.shopName = 5
    mvarshopName = vData
End Property


Public Property Get shopName() As String
'檢索屬性值時使用，位于賦值語句的右邊。
'Syntax: Debug.Print X.shopName
    shopName = mvarshopName
End Property