SAP ABAP OO面向对象入门实例Word格式文档下载.docx

SAP ABAP OO面向对象入门实例Word格式文档下载.docx

《SAP ABAP OO面向对象入门实例Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《SAP ABAP OO面向对象入门实例Word格式文档下载.docx（21页珍藏版）》请在冰豆网上搜索。

METHODS:

show_text.

PRIVATESECTION.

DATAtext（100）TYPEcVALUE'

ThisismyfirstABAPobject.'

.

ENDCLASS."

simpleobj

Class（Implementation）SIMPLEOBJ

CLASSsimpleobjIMPLEMENTATION.

METHODshow_text.

WRITEtext.

ENDMETHOD."

show_text

SIMPLEOBJ

*GlobalDataDeclaratioin

DATAob_appTYPEREFTOsimpleobj.

START-OF-SELECTION.

CREATEOBJECTob_app.

CALLMETHODob_app->

show_text.

ReportY_TEST_A_1*

*

类的静态属性*

REPORTy_test_a_1.

Classvehicle

CLASSvehicleDEFINITION.

CLASS-DATAclass_name（10）VALUE'

Vehicle'

accelerate,show_speed.

PROTECTEDSECTION.

DATAspeedTYPEi.

CONSTANTS:

piTYPEpDECIMALS2VALUE'

3.14'

vehicle

Class（Implementation）vehicle

CLASSvehicleIMPLEMENTATION.

METHODaccelerate.

speed=speed+1.

accelerate

METHODshow_speed.

WRITE:

/'

Speed:

'

speed.

show_speed

DATAob_app1TYPEREFTOvehicle.

DATAob_app2TYPEREFTOvehicle.

DATAob_app3TYPEREFTOvehicle.

DATAo_vehicleTYPEREFTOz_cl_vehicle."

引用全局类

CREATEOBJECTob_app1.

CREATEOBJECTob_app2.

'

ob_app1'

ob_app1->

class_name.

ob_app2'

ob_app2->

vehicle'

vehicle=>

SKIP.

ob_app1->

class_name='

Ship'

vehicle=>

Bus'

CREATEOBJECTob_app3.

ob_app3'

ob_app3->

CALLMETHODob_app3->

accelerate.

show_speed.

CREATEOBJECTo_vehicle.

DO5TIMES.

CALLMETHODo_vehicle->

ENDDO.

DATAo_vehicle2LIKEo_vehicle.

o_vehicle2=o_vehicle.

CLEARo_vehicle.

CALLMETHODo_vehicle2->

WRITE'

对象只要有被引用的变量，就是活动的。

ReportY_TEST_A_2*

类方法参数调用*

REPORTy_test_a_2.

exp_speedIMPORTINGcnameTYPEstring

EXPORTINGispeedTYPEi,

accelerateIMPORTINGrateTYPEi,

addCHANGINGaddoneTYPEi.

DATAspeedTYPEiVALUE0.

speed=speed+rate.

METHODexp_speed.

ispeed=speed.

WRITEcname.

METHODadd.

addone=addone+1.

add

DATAo_vehicleTYPEREFTOvehicle.

DATAintTYPEiVALUE3.

DATAfnameTYPEstringVALUE'

Speed='

EXPORTING

rate=int.

accel