【ABAP——DAILOG_2】

文章目录

• • 使用Tabstrip控件实现分页签效果
  • 标签页的修改
  • 使用Table Control控件实现表单输出
  • 表格控件
  • 使用向导创建Table Control
  • Table Control列的修改

用户通过界面输入数据，数据通过屏幕控件传递到ABAP/4程序中的变量，程序在PBO中准备数据并显示界面，用户回车后，PAI处理用户输入的数据，按顺序依次执行PAI中MODULE，并将结果反馈到界面。

使用Tabstrip控件实现分页签效果

Tabstrip可以实现在某个界面中，通过tab页的形式来显示多个界面
构成:按钮及子界面区域
1.创建Tabstrip Control
输入Tabstrip Name:Tabstrip Control控件名称(例:TS_TAB)
2.输入需要创建的各个tab页的描述
3.设定各tab页的名称，及相应的子界面编号
4.设定各部分代码进入的Include程序
激活程序后，可以查看到程序中增加了子界面的编号，可以依次进入界面
修改界面格式：设置方式与主界面相同，但不能设置GUl Status和GUI TITLE

标签页的修改

1.减少
选中标签页切换位置(Pushbutton)，点击删除
在数据定义/PBO/PAI中做相应变更，也可不变更
2.增加
选择Pushbotton控件，在标签页旁边增加一个页面
设置按钮属性

增加数据定义/PBO/PAI处代码，可以直接参考复制
数据定义

PBO

MODULE TS_CTRL_ACTIVE_TAB_SET OUTPUT.
  TS_CTRL-ACTIVETAB = G_TS_CTRL-PRESSED_TAB."已激活的分页签：默认值是第一个分页签
  CASE G_TS_CTRL-PRESSED_TAB."点选了哪一个分页签
    WHEN C_TS_CTRL-TAB1.
      G_TS_CTRL-SUBSCREEN = '0110'."屏幕编号赋值
    WHEN C_TS_CTRL-TAB2.
      G_TS_CTRL-SUBSCREEN = '0120'.
    WHEN C_TS_CTRL-TAB3.
      G_TS_CTRL-SUBSCREEN = '0130'.
    WHEN C_TS_CTRL-TAB4.
      G_TS_CTRL-SUBSCREEN = '0140'.
    WHEN OTHERS.
*&SPWIZARD:      DO NOTHING
  ENDCASE.
ENDMODULE.

PAI

MODULE TS_CTRL_ACTIVE_TAB_GET INPUT.
  IF GV_UCOMM IS NOT INITIAL.
    G_TS_CTRL-PRESSED_TAB = C_TS_CTRL-TAB3.
    CLEAR GV_UCOMM.
  ELSE.
  OK_CODE = SY-UCOMM.
  CASE OK_CODE.  "根据点选按钮，给全局参数赋值
    WHEN C_TS_CTRL-TAB1.
      G_TS_CTRL-PRESSED_TAB = C_TS_CTRL-TAB1.
      CLEAR GT_STATUS[].
    WHEN C_TS_CTRL-TAB2.
      G_TS_CTRL-PRESSED_TAB = C_TS_CTRL-TAB2.
    WHEN C_TS_CTRL-TAB3.
      G_TS_CTRL-PRESSED_TAB = C_TS_CTRL-TAB3.
      CLEAR GT_STATUS[].
      GT_STATUS = 'SAVE'.
      APPEND GT_STATUS.
    WHEN C_TS_CTRL-TAB4.
      G_TS_CTRL-PRESSED_TAB = C_TS_CTRL-TAB4.
    WHEN OTHERS.
*&SPWIZARD:      DO NOTHING
  ENDCASE.
  ENDIF.
ENDMODULE.

使用Table Control控件实现表单输出

表格控件

• 当界面中查询多条数据时，可以使用TableControl控件来进行表单输出
• Table Control的行及列可以由以下元素构成:
  KeyWords
  Input/Output Fields
  Radio Button/Radio Button Group
  Checkbox
  Pushbutton

使用向导创建Table Control

在程序中创建Table control使用的内表(向导会自动创建相应执行代码)

DATA GT_SCHOOL TYPE TABLE OF ZSCHOOL_JSM_01.
DATA GS_SCHOOL TYPE ZSCHOOL_JSM_01.

创建Table Control

选择表控件在屏幕画出表单

进入向导界面，输入表控制名称后继续
Name of Table Control:TableControl的名称(例:TC TAB)

使用Internal Program Table创建，选择程序中的内表

选择显示列

设定属性
Outputonly:只显示，不可输入
Input Control:可输入
With column header:带标题
Line selection col.:行可选中
Single:只能选中一行
Multiple:可以选中多行

设定按钮
Scroll:设定滚动条
Insert/delete line:插入/删除行按钮
Select/deselect all:选中所有/不选中按钮

设定各部分代码进入的Include程序

Table Control列的修改

1.增加
在之前定义的内表中增加字段

在布局中使用Input/Output Field增加列

Text控件增加描述

在PAI的Chain部分，增加相应字段

2. 减少
   在布局中选中input/output field，直接删除；
   退出布局激活程序会报错
   
   需要将PAI中的Chain部分的相应字段进行注释
   
   激活程序后运行表单显示没有ZADD字段
   
   3.属性修改
   更改前
   
   将Input/Output Field设成不可输入
   
   激活后运行程序显示