ccustomer.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 = "cCustomer"
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 mvarcID As Integer 'local copy
Private mvarcName As String 'local copy
Private mvarcAddress As String 'local copy
Private mvarcZip As String 'local copy
Private mvarcLinkMan As String 'local copy
Private mvarcTel As String 'local copy
Private mvarcFax As String 'local copy
Private mvarcEmail As String 'local copy
Private mvarcHomepage As String 'local copy
Private mvarcBank As String 'local copy
Private mvarcAccounts As String 'local copy
Private mvarcRemark As String 'local copy

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


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



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


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



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


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



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


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



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


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



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


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



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


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



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


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



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


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



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


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



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


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



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


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