cstorage.cls

便利店管理系统 VB+ACCESS 附上数据库和源码

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

'local variable(s) to hold property value(s)
Private mvarsID As Integer 'local copy
Private mvarsBarCode As String 'local copy
Private mvarsName As String 'local copy
Private mvarsUnit As String 'local copy
Private mvarsAmount As Double 'local copy
Private mvarsExPrice As Currency 'local copy
Private mvarsRemark As String 'local copy
Private mvarsImPrice As Currency 'local copy


Public Property Let sImPrice(ByVal vData As Currency)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.sImPrice = 5
    mvarsImPrice = vData
End Property


Public Property Get sImPrice() As Currency
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.sImPrice
    sImPrice = mvarsImPrice
End Property



Public Property Let sRemark(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.sRemark = 5
    mvarsRemark = vData
End Property


Public Property Get sRemark() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.sRemark
    sRemark = mvarsRemark
End Property



Public Property Let sExPrice(ByVal vData As Currency)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.sExPrice = 5
    mvarsExPrice = vData
End Property


Public Property Get sExPrice() As Currency
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.sExPrice
    sExPrice = mvarsExPrice
End Property


Public Property Let sAmount(ByVal vData As Double)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.sAmount = 5
    mvarsAmount = vData
End Property


Public Property Get sAmount() As Double
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.sAmount
    sAmount = mvarsAmount
End Property



Public Property Let sBarCode(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.sBarCode = 5
    mvarsBarCode = vData
End Property


Public Property Get sBarCode() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.sBarCode
    sBarCode = mvarsBarCode
End Property



Public Property Let sUnit(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.sUnit = 5
    mvarsUnit = vData
End Property


Public Property Get sUnit() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.sUnit
    sUnit = mvarsUnit
End Property



Public Property Let sName(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.sName = 5
    mvarsName = vData
End Property


Public Property Get sName() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.sName
    sName = mvarsName
End Property



Public Property Let sID(ByVal vData As Integer)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.sID = 5
    mvarsID = vData
End Property


Public Property Get sID() As Integer
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.sID
    sID = mvarsID
End Property