百货/超市行业

开发平台：

Visual Basic

CpName.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 = "CpName"
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"
'****************************************************************************
'人人为我，我为人人
'枕善居收藏整理
'发布日期：2008/01/21
'描    述：汽车维修管理系统SQL2000版
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：Mndsoft@163.com
'e-mail  ：Mndsoft@126.com
'OICQ    ：88382850
'          如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
'保持属性值的局部变量
Private mvarpName As String '局部复制
Private mvarpType As String  '局部复制
Private mvarpID As Integer '局部复制
Private mvarpUnit As String  '局部复制
'保持属性值的局部变量
Private mvarpNum As Single '局部复制
Public Property Let pNum(ByVal vData As Single)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.pNum = 5
    mvarpNum = vData
End Property
Public Property Get pNum() As Single
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.pNum
    pNum = mvarpNum
End Property
Public Property Let pUnit(ByVal vData As String)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.pUnit = 5
    mvarpUnit = vData
End Property
Public Property Get pUnit() As String
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.pUnit
    pUnit = mvarpUnit
End Property
Public Property Let pid(ByVal vData As Integer)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.pID = 5
    mvarpID = vData
End Property
Public Property Get pid() As Integer
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.pID
    pid = mvarpID
End Property
Public Property Let pType(ByVal vData As String)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.pType = 5
    mvarpType = vData
End Property
Public Property Get pType() As String
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.pType
    pType = mvarpType
End Property
Public Property Let pName(ByVal vData As String)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.pName = 5
    mvarpName = vData
End Property
Public Property Get pName() As String
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.pName
    pName = mvarpName
End Property

						