clsdayreportitem.cls

VB数据库设计的代码。需要根据自己的数据库再作调整

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)
'向属性指派值时使用，位于赋值语句的左边。
'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)
'向属性指派值时使用，位于赋值语句的左边。
'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)
'向属性指派值时使用，位于赋值语句的左边。
'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)
'向属性指派值时使用，位于赋值语句的左边。
'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)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.shopName = 5
    mvarshopName = vData
End Property


Public Property Get shopName() As String
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.shopName
    shopName = mvarshopName
End Property