?? clsdayreportitem.cls
字號:
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -