cimexport.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 = "cImExPort"
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 mvarieID As Integer 'local copy
Private mvarpcID As Integer 'local copy
Private mvarieBill As String 'local copy
Private mvarsID As Integer 'local copy
Private mvariePrice As Currency 'local copy
Private mvarieAmount As Double 'local copy
Private mvarieOpDate As Date 'local copy
Private mvariekind As Integer 'local copy
Private mvarieFlag As Integer 'local copy
Private mvarieRemark As String 'local copy
Private mvarieOperator As String 'local copy

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


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




Public Function SubTotal() As Double
    SubTotal = mvarieAmount * mvarieAmount
End Function

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


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

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


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



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


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



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


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



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


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



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


Public Property Get iePrice() As Currency
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.iePrice
    iePrice = mvariePrice
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



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


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



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


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



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


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