?? ccommissionworker.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 = "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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -