Chinaunix首页 | 论坛 | 博客
  • 博客访问: 3149238
  • 博文数量: 238
  • 博客积分: 864
  • 博客等级: 军士长
  • 技术积分: 2940
  • 用 户 组: 普通用户
  • 注册时间: 2012-10-08 23:01
个人简介

Mobile: 135 8576 5961 / WeChat: IM_WILLIAM_C / Mail: william.chen.cn@outlook.com /

文章分类

全部博文(238)

文章存档

2018年(2)

2016年(35)

2015年(47)

2014年(104)

2013年(38)

2012年(12)

分类: 其他平台

2012-12-12 17:13:41

此类按钮定义保存在系统结构体 SSCRFIELDS 中,N 是一个整数类型的序号,按钮的描述保存在字段 SSCRFIELDS-FUNCTXT_0N 中,按钮的功能代码默认赋值为“FC0N”,保存在字段 SSCRFIELDS-UCOMM 中。下面是个简单的小示例:
 
*&---------------------------------------------------------------------*
*& Report  ZJOI_TEST02
*&
*&---------------------------------------------------------------------*

REPORT  ZJOI_TEST02.

TABLES SSCRFIELDS.

PARAMETERS PARM LIKE MARA_MATNR.

SELECTION-SCREEN FUNCTION KEY 1.
SELECTION-SCREEN FUNCTION KEY 2.

DATA: G_FLAG1 TYPE C,
      G_FLAG2 TYPE I,
      G_FLAG  TYPE N,
      G_STR   TYPE STRING.

INITIALIZATION.

  G_FLAG1 = 'X'.
  MOVE 'BUTTON1' TO SSCRFIELDS-FUNCTXT_01.
  MOVE '(@_@)'   TO SSCRFIELDS-FUNCTXT_02.

AT SELECTION-SCREEN.

  IF SSCRFIELDS-UCOMM = 'FC01' AND G_FLAG1 <> 'X'.
    MESSAGE '"呜-呜-呜...' TYPE 'I'.
  ENDIF.

  IF SSCRFIELDS-UCOMM = 'FC01' AND G_FLAG1 = 'X'.
    MESSAGE '(@_@)别点我,我是Button 1,再点我就哭了...' TYPE 'I'.
    CLEAR G_FLAG1.
  ENDIF.

  IF SSCRFIELDS-UCOMM = 'FC02'.

    IF G_FLAG2 = 0.
      MESSAGE '(@_@)点我10下会有惊喜...' TYPE 'I'.
    ELSEIF G_FLAG2 > AND G_FLAG2 <> 10.
      G_FLAG = G_FLAG2.
      CONCATENATE '第' G_FLAG '下' INTO G_STR SEPARATED BY SPACE.
      MESSAGE G_STR TYPE 'S'.
      CLEAR: G_STR,G_FLAG.
    ELSEIF G_FLAG2 = 10.
      MESSAGE '(@_@)嗯,真乖,让你点,还真点10下...' TYPE 'I'.
      CLEAR G_FLAG2.
    ENDIF.

    G_FLAG2 = G_FLAG2 + 1.

  ENDIF.
 
----------------------------- Joi 2012/12/12 ----------------------------
 
阅读(1519) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~