ABAP开发：屏幕输入中，在多个选项卡中如何确定选择了哪个Tab Strips？

news2024/11/24 7:08:06

在ABAP开发中，使用了SELECTION-SCREEN来创建了一个带有多个选项卡（Tab Strips）的屏幕。每个选项卡对应一个不同的屏幕编号（SCREEN 101, 102, 103），如下图：

屏幕中有Name、Age、City三个标签选择，那么，在程序中如何确定选择了哪个标签呢？

一般来说，需要给每个选项卡分配一个功能码（function code），并在AT SELECTION-SCREEN事件中检查sy-ucomm字段的值：

AT SELECTION-SCREEN.
  CASE sy-ucomm.  "根据系统变量判断用户选择
    WHEN 'TAB1'.
      WRITE: / 'You selected the Name tab'.
    WHEN 'TAB2'.
      WRITE: / 'You selected the Age tab'.
    WHEN 'TAB3'.
      WRITE: / 'You selected the City tab'.
    WHEN OTHERS.
      WRITE: / 'You did not select any tab'.
  ENDCASE.

但这样存在一个问题，就是当程序运行时，屏幕上显示的是默认的第一个标签即上图中的Name标签，若用户不选择其他标签就执行程序时，此时的sy-ucomm值为‘ONLI’ (代表点击了执行按钮)，若根据上面的代码来判断，用户未对标签作出任何选择，这不符合我们的预期。为此，可以设置一个变量Choice 来记录用户的选择，并在屏幕的INITIALIZATION事件中设置Choice = 1 来作为用户默认选择了第一个标签，之后再在AT SELECTION-SCREEN事件中检查sy-ucomm字段的值来判断用户选择了哪个标签。完整代码如下：


REPORT ztabstrip.
DATA :CHOICE. "选择
* Define tabstrip area and tab titles
SELECTION-SCREEN BEGIN OF TABBED BLOCK tab_area FOR 10 LINES.
SELECTION-SCREEN TAB (10) tab1 USER-COMMAND tab1 DEFAULT SCREEN 100.
SELECTION-SCREEN TAB (10) tab2 USER-COMMAND tab2 DEFAULT SCREEN 200.
SELECTION-SCREEN TAB (10) tab3 USER-COMMAND tab3 DEFAULT SCREEN 300.
SELECTION-SCREEN END OF BLOCK tab_area.

* Define subscreen areas for each tab title
SELECTION-SCREEN BEGIN OF SCREEN 100 AS SUBSCREEN.
PARAMETERS: p_name TYPE char10.
SELECTION-SCREEN END OF SCREEN 100.

SELECTION-SCREEN BEGIN OF SCREEN 200 AS SUBSCREEN.
PARAMETERS: p_age TYPE i.
SELECTION-SCREEN END OF SCREEN 200.

SELECTION-SCREEN BEGIN OF SCREEN 300 AS SUBSCREEN.
PARAMETERS: p_city TYPE char10.
SELECTION-SCREEN END OF SCREEN 300.

* Assign texts to tab titles
INITIALIZATION.
  tab1 = 'Name'.
  tab2 = 'Age'.
  tab3 = 'City'.
  CHOICE = 1 . "屏幕默认的选项为第一个标签也作为用户的默认选择
* Check which tab title is selected
AT SELECTION-SCREEN.
  CASE sy-ucomm.
    WHEN 'TAB1'.
     CHOICE = 1 . " 用户选择了 Tab Strips 1
    WHEN 'TAB2'.
     CHOICE = 2 . " 用户选择了 Tab Strips 2
    WHEN 'TAB3'.
     CHOICE = 3 . " 用户选择了 Tab Strips 3
  ENDCASE.
 START-OF-SELECTION.
  WRITE :/0 '你选择的标签是：',   CHOICE.

当用户执行程序而不做任何选择时，程序默认用户选择第一个标签，执行结果如下：