cprovider.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 = "cProvider"
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 mvarpID As Integer 'local copy
Private mvarpName As String 'local copy
Private mvarpAddress As String 'local copy
Private mvarpZip As String 'local copy
Private mvarpLinkMan As String 'local copy
Private mvarpTel As String 'local copy
Private mvarpFax As String 'local copy
Private mvarpEmail As String 'local copy
Private mvarpHomepage As String 'local copy
Private mvarpBank As String 'local copy
Private mvarpAccounts As String 'local copy
Private mvarpRemark As String 'local copy

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


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



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


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



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


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



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


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



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


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



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


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



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


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



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


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



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


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



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


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



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


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



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


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