cpieceworker.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 = "CPieceWorker"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
' CPieceWorker definition
Option Explicit
Implements IEmployee

Private mFirstName As String
Private mLastName As String
Private mWagePerPiece As Currency
Private mQuantity As Long

Public Property Let WagePerPiece(ByVal wg As Currency)
   mWagePerPiece = IIf(wg > 0, wg, 0)
End Property

Public Property Get WagePerPiece() As Currency
   WagePerPiece = mWagePerPiece
End Property

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

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

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

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

Public Property Let Quantity(ByVal qty As Long)
   mQuantity = IIf(qty > 0, qty, 0)
End Property

Public Property Get Quantity() As Long
   Quantity = mQuantity
End Property

Private Function IEmployee_Earnings() As Double
   IEmployee_Earnings = mWagePerPiece * mQuantity
End Function

Private Function IEmployee_ToString() As String
   IEmployee_ToString = "Piece worker: " & mFirstName & _
                        " " & mLastName
End Function