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

1、 METHODS: show_text. PRIVATE SECTION. DATA text（100） TYPE c VALUE This is my first ABAP object.ENDCLASS. simpleobj Class （Implementation） SIMPLEOBJCLASS simpleobj IMPLEMENTATION. METHOD show_text. WRITE text. ENDMETHOD. show_textSIMPLEOBJ* Global Data DeclaratioinDATA ob_app TYPE REF TO simpleobj.ST

2、ART-OF-SELECTION. CREATE OBJECT ob_app. CALL METHOD ob_app-show_text. Report Y_TEST_A_1 * * 类的静态属性 *REPORT y_test_a_1 . Class vehicleCLASS vehicle DEFINITION. CLASS-DATA class_name（10） VALUE Vehicleaccelerate,show_speed. PROTECTED SECTION. DATA speed TYPE i. CONSTANTS: pi TYPE p DECIMALS 2 VALUE 3.1

3、4vehicle Class （Implementation） vehicleCLASS vehicle IMPLEMENTATION. METHOD accelerate. speed = speed + 1.accelerate METHOD show_speed. WRITE: / Speed: ,speed.show_speedDATA ob_app1 TYPE REF TO vehicle.DATA ob_app2 TYPE REF TO vehicle.DATA ob_app3 TYPE REF TO vehicle.DATA o_vehicle TYPE REF TO z_cl_

4、vehicle. 引用全局类 CREATE OBJECT ob_app1. CREATE OBJECT ob_app2. ob_app1,ob_app1-class_name.ob_app2,ob_app2-vehicle,vehicle= SKIP. ob_app1-class_name = Ship vehicle=Bus CREATE OBJECT ob_app3.ob_app3,ob_app3- CALL METHOD ob_app3-accelerate.show_speed. CREATE OBJECT o_vehicle. DO 5 TIMES. CALL METHOD o_ve

5、hicle- ENDDO. DATA o_vehicle2 LIKE o_vehicle. o_vehicle2 = o_vehicle. CLEAR o_vehicle. CALL METHOD o_vehicle2- WRITE 对象只要有被引用的变量，就是活动的。 Report Y_TEST_A_2 * 类方法参数调用 *REPORT y_test_a_2 .exp_speed IMPORTING cname TYPE string EXPORTING ispeed TYPE i, accelerate IMPORTING rate TYPE i, add CHANGING addone TYPE i. DATA speed TYPE i VALUE 0. speed = speed + rate. METHOD exp_speed. ispeed = speed. WRITE cname. METHOD add. addone = addone + 1.addDATA o_vehicle TYPE REF TO vehicle.DATA int TYPE i VALUE 3.DATA fname TYPE string VALUE Speed = EXPORTING rate = int.accel