ABAP开发:屏幕输入中,在多个选项卡中如何确定选择了哪个Tab Strips?

 在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.

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

当用户选择第二个或第三个标签后执行程序的结果如下:

最近更新

  1. docker php8.1+nginx base 镜像 dockerfile 配置

    2024-06-17 10:38:05       94 阅读
  2. Could not load dynamic library ‘cudart64_100.dll‘

    2024-06-17 10:38:05       100 阅读
  3. 在Django里面运行非项目文件

    2024-06-17 10:38:05       82 阅读
  4. Python语言-面向对象

    2024-06-17 10:38:05       91 阅读

热门阅读

  1. web前端任职条件:全面解析

    2024-06-17 10:38:05       26 阅读
  2. Linux 系统下工作中常用的shell命令

    2024-06-17 10:38:05       24 阅读
  3. 6.15 c语言

    2024-06-17 10:38:05       26 阅读
  4. 【Bazel 】- Examples to build C++ code

    2024-06-17 10:38:05       34 阅读
  5. CSDN快速获取积分的方法

    2024-06-17 10:38:05       25 阅读
  6. 一句话让AI帮你创建完美的测试用例

    2024-06-17 10:38:05       34 阅读
  7. JC/T 2653-2022 不发火砂浆检测

    2024-06-17 10:38:05       24 阅读
  8. diffuser格式与ckpt格式说明

    2024-06-17 10:38:05       31 阅读