OO实现ALV TABLE 九：ALV的事件

SAP的一个类cl_salv_events_table提供了几个常用的事件，包括链接点击，双击，功能触发之前和触发之后，页眉页脚（其中页眉页脚暂时测试不成功，以后再试）。跟其他事件相比，类CL_SALV_EVENTS_TABLE提供了这几个常用的事件已经和ALV结合在一起，所以我们只要实现这几个事件的处理方法就可以了。


1. 首先我们要定义好事件的处理方法。

CLASS-METHODS: on_user_commandFOR EVENT added_function OF cl_salv_events_table
IMPORTING e_salv_function,
on_double_click FOR EVENTdouble_click OF cl_salv_events_table
IMPORTING row column,
on_link_click FOR EVENT link_click OF cl_salv_events_table
IMPORTING row column,
on_before_salv_function FOREVENT before_salv_function OF cl_salv_events_table
IMPORTING e_salv_function,
on_after_salv_function FOREVENT after_salv_function OF cl_salv_events_table
IMPORTING e_salv_function.

2. 实现事件的处理方法。

*单击新增功能按钮事件处理方法
METHODon_user_command.
CONCATENATE 'Function Code is '
e_salv_function
INTO g_string SEPARATED BY space.
MESSAGE i000(0k) WITH g_string.
ENDMETHOD. "on_user_command

*双击事件处理方法
METHOD on_double_click.
g_string = row.
CONCATENATE 'DOUBLE CLICK'
'ROW'
g_string
'COLUMN'
column
INTO g_string SEPARATED BY space.
MESSAGE i000(0k) WITH g_string.
ENDMETHOD.
"on_double_click

*单击事件处理方法
METHOD on_link_click.
g_string = row.
CONCATENATE 'LICK CLICK'
'ROW'
g_string
'COLUMN'
column
INTO g_string SEPARATED BY space.
MESSAGE i000(0k) WITH g_string.
ENDMETHOD. "on_link_click

*触发事件之前
METHOD on_before_salv_function.
CONCATENATE 'Before Function '
e_salv_function
INTO g_string SEPARATED BY space.
MESSAGE i000(0k) WITH g_string.
ENDMETHOD. "on_before_salv_function

*触发事件之后
METHOD on_after_salv_function.
CONCATENATE 'After Function '
e_salv_function
INTO g_string SEPARATED BY space.
MESSAGE i000(0k) WITH g_string.
ENDMETHOD. "on_after_salv_function
3. 取得ALV事件的实例

lr_events = gr_table->get_event( ).

4. 注册事件的处理方法

SET HANDLER lcl_handle_events=>on_user_command FORlr_events.
SET HANDLERlcl_handle_events=>on_double_click FOR lr_events.
SET HANDLERlcl_handle_events=>on_link_click FOR lr_events.
SET HANDLERlcl_handle_events=>on_before_salv_function FOR lr_events.
SET HANDLERlcl_handle_events=>on_after_salv_function FOR lr_events.






下面是效果图





下面是程序的所有代码:

REPORT y_xin_002.

INCLUDE <icon>.

*变量定义
TYPES: BEGIN OF gs_spfli,
mandt TYPE spfli-mandt,
carrid TYPE spfli-carrid,
connid TYPE spfli-connid,
countryfr TYPE spfli-countryfr,
cityfrom TYPE spfli-cityfrom,
airpfrom TYPE spfli-airpfrom,
countryto TYPE spfli-countryto,
cityto TYPE spfli-cityto,
airpto TYPE spfli-airpto,
fltime TYPE spfli-fltime,
deptime TYPE spfli-deptime,
arrtime TYPE spfli-arrtime,
distance TYPE spfli-distance,
distid TYPE spfli-distid,
fltype TYPE spfli-fltype,
period TYPE spfli-period,
hotspot TYPE icon_d,
END OF gs_spfli.
TYPES ty_spfli TYPE gs_spfli OCCURS 0.

*----------------------------------------------------------------------*
* CLASS lcl_handle_events DEFINITION
*----------------------------------------------------------------------*
* 事件操作类（定义）
*----------------------------------------------------------------------*
CLASS lcl_handle_eventsDEFINITION.
PUBLIC SECTION.
CLASS-METHODS: on_user_command FOR EVENTadded_function OF cl_salv_events_table
IMPORTING e_salv_function,
on_double_click FOR EVENTdouble_click OF cl_salv_events_table
IMPORTING row column,
on_link_click FOR EVENT link_click OF cl_salv_events_table
IMPORTING row column,
on_before_salv_function FOR EVENTbefore_salv_function OF cl_salv_events_table
IMPORTING e_salv_function,
on_after_salv_function FOREVENT after_salv_function OF cl_salv_events_table
IMPORTING e_salv_function.
PRIVATE SECTION.
CLASS-DATA: g_string TYPE string.
ENDCLASS. "lcl_handle_eventsDEFINITION

*----------------------------------------------------------------------*
* CLASS lcl_handle_events IMPLEMENTATION
*----------------------------------------------------------------------*
* 事件操作类（实现）
*----------------------------------------------------------------------*
CLASS lcl_handle_eventsIMPLEMENTATION.

*单击新增功能按钮事件处理方法
METHOD on_user_command.
CONCATENATE 'Function Code is '
e_salv_function
INTO g_string SEPARATED BY space.
MESSAGE i000(0k) WITH g_string.
ENDMETHOD. "on_user_command

*双击事件处理方法
METHOD on_double_click.
g_string = row.
CONCATENATE 'DOUBLE CLICK'
'ROW'
g_string
'COLUMN'
column
INTO g_string SEPARATED BY space.
MESSAGE i000(0k) WITH g_string.
ENDMETHOD. "on_double_click

*单击事件处理方法
METHOD on_link_click.
g_string = row.
CONCATENATE 'LICK CLICK'
'ROW'
g_string
'COLUMN'
column
INTO g_string SEPARATED BY space.
MESSAGE i000(0k) WITH g_string.
ENDMETHOD. "on_link_click

*触发事件之前
METHOD on_before_salv_function.
CONCATENATE 'Before Function '
e_salv_function
INTO g_string SEPARATED BY space.
MESSAGE i000(0k) WITH g_string.
ENDMETHOD. "on_before_salv_function

*触发事件之后
METHOD on_after_salv_function.
CONCATENATE 'After Function '
e_salv_function
INTO g_string SEPARATED BY space.
MESSAGE i000(0k) WITH g_string.
ENDMETHOD. "on_after_salv_function
ENDCLASS. "lcl_handle_eventsIMPLEMENTATION

*----------------------------------------------------------------------*
* CLASS lcl_alv DEFINITION
*----------------------------------------------------------------------*
* ALV操作类（定义）
*----------------------------------------------------------------------*
CLASS lcl_alv DEFINITION.
PUBLIC SECTION.
METHODS: getdata "取得要显示的数据
RETURNING value(lt_tab) TYPEty_spfli,
alv_full "全屏Grid列表处理方法
IMPORTING value(lt_tab) TYPE ty_spfli.
PRIVATE SECTION.
DATA: gr_table TYPE REF TO cl_salv_table.
ENDCLASS. "lcl_alv DEFINITION

*----------------------------------------------------------------------*
* CLASS lcl_alv IMPLEMENTATION
*----------------------------------------------------------------------*
* ALV操作类（实现）
*----------------------------------------------------------------------*
CLASS lcl_alvIMPLEMENTATION.
*取得要显示的数据
METHOD getdata.
SELECT * INTO CORRESPONDING FIELDS OF TABLElt_tab FROM spfli.

FIELD-SYMBOLS<fs_spfli> TYPE gs_spfli.
LOOP AT lt_tab ASSIGNING <fs_spfli>.
<fs_spfli>-hotspot = icon_overview.
ENDLOOP.
ENDMETHOD. "getdata

*输出全屏网格列表的方法
METHOD alv_full.
DATA: lr_functions TYPE REF TO cl_salv_functions_list,
lr_events TYPE REF TO cl_salv_events_table,
lr_columns TYPE REF TO cl_salv_columns_table,
lr_column TYPE REF TO cl_salv_column_table,
lr_content TYPE REF TO cl_salv_form_element.

"创建实例
TRY.
cl_salv_table=>factory(
IMPORTING
r_salv_table = gr_table
CHANGING
t_table = lt_tab
).
CATCH cx_salv_msg.
ENDTRY.
"设置GUI Status
gr_table->set_screen_status(
report = sy-repid
pfstatus = 'SALV_STANDARD'
set_functions =gr_table->c_functions_all
).
"设置热点
lr_columns = gr_table->get_columns( ).
TRY.
lr_column ?= lr_columns->get_column('HOTSPOT' ).
lr_column->set_cell_type(if_salv_c_cell_type=>hotspot ).
lr_column->set_long_text( 'HOTSPOT').
CATCH cx_salv_not_found.
ENDTRY.
"注册事件
lr_events = gr_table->get_event( ).
SET HANDLERlcl_handle_events=>on_user_command FOR lr_events.
SET HANDLERlcl_handle_events=>on_double_click FOR lr_events.
SET HANDLERlcl_handle_events=>on_link_click FOR lr_events.
SET HANDLERlcl_handle_events=>on_before_salv_function FOR lr_events.
SET HANDLERlcl_handle_events=>on_after_salv_function FOR lr_events.
"显示列表
gr_table->display( ).
ENDMETHOD. "alv_full
ENDCLASS. "lcl_alvIMPLEMENTATION

*&---------------------------------------------------------------------*
*& Form f_main
*&---------------------------------------------------------------------*
* 整合数据，执行
*----------------------------------------------------------------------*
FORM f_main.
DATA: lt_tab TYPE ty_spfli,
lr_alv TYPE REF TO lcl_alv.

CREATE OBJECT lr_alv.

"取得要显示的数据
lt_tab = lr_alv->getdata( ).

lr_alv->alv_full( lt_tab ).
ENDFORM. "f_main

*执行动作
START-OF-SELECTION.
PERFORM f_main.