第四节:piece worker类的实现
*&---------------------------------------------------------------------*
*& Include ZBOBO_OO_PIWORKER_CLASS
*&---------------------------------------------------------------------*
*定义piece worker类,他的工资取决于他生产的计件数量
CLASS PIWORKER DEFINITION
INHERITING FROM EMPLOYEE.
PUBLIC SECTION.
METHODS:
*定义构造函数
CONSTRUCTOR
IMPORTING A TYPE STRING
B TYPE STRING
W TYPE F
Q TYPE I,
*setter方法
SETWAGE
IMPORTING W TYPE F,
SETQUANTITY
IMPORTING Q TYPE I,
*实例化抽象方法
EARNINGS REDEFINITION,
PRINT REDEFINITION.
PRIVATE SECTION.
DATA:
WAGE TYPE F,
QUAN TYPE I.
ENDCLASS.
CLASS PIWORKER IMPLEMENTATION.
METHOD CONSTRUCTOR.
CALL METHOD SUPER->CONSTRUCTOR
EXPORTING A = A B = B.
WAGE = W.
QUAN = Q.
ENDMETHOD.
METHOD SETWAGE.
WAGE = W.
ENDMETHOD.
METHOD SETQUANTITY.
QUAN = Q.
ENDMETHOD.
*计算工资
METHOD EARNINGS.
EARN = QUAN * WAGE.
ENDMETHOD.
*重定义输出方法
METHOD PRINT.
DATA: FI TYPE STRING,LA TYPE STRING.
WRITE: / 'Piece Worker:'.
FI = GETFIRSTNAME( ).
LA = GETLASTNAME( ).
WRITE: FI,LA.
ENDMETHOD.
ENDCLASS.
*& Include ZBOBO_OO_PIWORKER_CLASS
*&---------------------------------------------------------------------*
*定义piece worker类,他的工资取决于他生产的计件数量
CLASS PIWORKER DEFINITION
INHERITING FROM EMPLOYEE.
PUBLIC SECTION.
METHODS:
*定义构造函数
CONSTRUCTOR
IMPORTING A TYPE STRING
B TYPE STRING
W TYPE F
Q TYPE I,
*setter方法
SETWAGE
IMPORTING W TYPE F,
SETQUANTITY
IMPORTING Q TYPE I,
*实例化抽象方法
EARNINGS REDEFINITION,
PRINT REDEFINITION.
PRIVATE SECTION.
DATA:
WAGE TYPE F,
QUAN TYPE I.
ENDCLASS.
CLASS PIWORKER IMPLEMENTATION.
METHOD CONSTRUCTOR.
CALL METHOD SUPER->CONSTRUCTOR
EXPORTING A = A B = B.
WAGE = W.
QUAN = Q.
ENDMETHOD.
METHOD SETWAGE.
WAGE = W.
ENDMETHOD.
METHOD SETQUANTITY.
QUAN = Q.
ENDMETHOD.
*计算工资
METHOD EARNINGS.
EARN = QUAN * WAGE.
ENDMETHOD.
*重定义输出方法
METHOD PRINT.
DATA: FI TYPE STRING,LA TYPE STRING.
WRITE: / 'Piece Worker:'.
FI = GETFIRSTNAME( ).
LA = GETLASTNAME( ).
WRITE: FI,LA.
ENDMETHOD.
ENDCLASS.
