cemployee.cls

Visual Basic 6 大学教程的代码

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CEmployee"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
' Class CEmployee definition
Option Explicit

Private mFirstName As String
Private mLastName As String
Private mBirthDate As CDate1
Private mHireDate As CDate1

Private Sub Class_Initialize()
   Set mBirthDate = New CDate1
   Set mHireDate = New CDate1
End Sub

Public Function ToString() As String
   ToString = mLastName & ", " & mFirstName & _
              " Hired: " & mHireDate.ToString() & _
              " Birthday: " & mBirthDate.ToString()
End Function

Public Property Get Firstname() As String
   Firstname = mFirstName
End Property

Public Property Let Firstname(ByVal fName As String)
   mFirstName = fName
End Property

Public Property Get LastName() As String
   LastName = mLastName
End Property

Public Property Let LastName(ByVal name As String)
   mLastName = name
End Property

Public Property Get BirthDate() As CDate1
   Set BirthDate = mBirthDate
End Property

Public Property Set BirthDate(ByVal bDate As CDate1)
   Set mBirthDate = bDate
End Property

Public Property Get HireDate() As CDate1
   Set HireDate = mHireDate
End Property

Public Property Set HireDate(ByVal hDate As CDate1)
   Set mHireDate = hDate
End Property

Private Sub Class_Terminate()
   Set mBirthDate = Nothing   ' Release object's memory
   Set mHireDate = Nothing    ' Release object's memory
End Sub