ccommissionworker.cls

来自「Visual Basic 6 大学教程的代码」· CLS 代码 · 共 72 行

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

Private mFirstName As String
Private mLastName As String
Private mSalary As Currency
Private mCommission As Currency
Private mQuantity As Long

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 Salary(ByVal wg As Currency)
   mSalary = IIf(wg > 0, wg, 0)
End Property

Public Property Get Salary() As Currency
   Salary = mSalary
End Property

Public Property Let Commission(ByVal com As Currency)
   mCommission = IIf(com > 0, com, 0)
End Property

Public Property Get Commission() As Currency
   Commission = mCommission
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 = mSalary + mCommission * mQuantity
End Function

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