第四节：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.