SAP应用界面开发:4)SAP屏幕事件控制

butter7372

　　1)INITIALIZATION事件
       该事件在屏幕未显示之前执行，对程序设置值及屏幕元素进行初始化赋值。如下代码：
       [For Example]
　　    PARAMETERS QUAL_DAY TYPE D DEFAULT SY-DATUM.
    SELECTION-SCREEN PUSHBUTTON /1(20) SAVE USER-COMMAND SAVE.

　　    INITIALIZATION. "程序初始化事件，該事件在程序屏幕未顯示之前執行。對程序設置值及屏幕元素進行初始化設置.
      QUAL_DAY+6(2) = '01'.
      QUAL_DAY = QUAL_DAY - 1.
      MOVE 'SAVE' TO SAVE. "给SAVE按钮赋值

　　    运行界面如下：
   

　　    2)START-OF-SELECTION事件
    该事件在单击按钮后触发。

　　    [For Example]

　　    PARAMETERS QUAL_DAY TYPE D DEFAULT SY-DATUM.
   SELECTION-SCREEN PUSHBUTTON /1(20) SAVE USER-COMMAND SAVE.
   INITIALIZATION. "程序初始化事件，該事件在程序屏幕未顯示之前執行。對程序設置值及屏幕元素進行初始化設置.
     QUAL_DAY+6(2) = '01'.
     QUAL_DAY = QUAL_DAY - 1.
     MOVE 'SAVE' TO SAVE. "给SAVE按钮赋值

   *START-OF-SELECTION事件在單擊按鈕后觸發該事件.
   START-OF-SELECTION.
     "STOP.  "EXIT.:從EXIT語句后的程序將不再執行包括END-OF-SELECTION模塊,REJECT.語名后的程序將不再執行，但不影響END-OF-SELECTION.模塊的執行.
     WRITE: 'DATE=',QUAL_DAY.
   运行界面后按F8或者单击查询，如下：
   
   
　　   3）END-OF-SELECTION事件
   该事件应用于所有数据处理完成，即START-OF-SELECTION相关执行事件执行完成，但输出屏幕还未显示之前，在实际的应用于一些执行结果的检验等。
   [For Example]

　　   PARAMETERS QUAL_DAY TYPE D DEFAULT SY-DATUM.
  SELECTION-SCREEN PUSHBUTTON /1(20) SAVE USER-COMMAND SAVE.

  INITIALIZATION. "程序初始化事件，該事件在程序屏幕未顯示之前執行。對程序設置值及屏幕元素進行初始化設置.
     QUAL_DAY+6(2) = '01'.
     QUAL_DAY = QUAL_DAY - 1.
     MOVE 'SAVE' TO SAVE. "给SAVE按钮赋值

  *START-OF-SELECTION事件在單擊按鈕后觸發該事件.
  START-OF-SELECTION.
    "STOP.  "EXIT.:從EXIT語句后的程序將不再執行包括END-OF-SELECTION模塊,REJECT.語名后的程序將不再執行，但不影響END-OF-  SELECTION.模塊的執行.
     WRITE: 'DATE=',QUAL_DAY.


  END-OF-SELECTION.
    IF QUAL_DAY <> SY-DATUM. "<>符號與><符號都是不等於
      WRITE:'TODAY=',SY-DATUM.
    ELSE.
      WRITE:'QUAL_DAY=',QUAL_DAY.
   ENDIF.
　　   运行界面如下：
   
   
   4）屏幕事件的中止
   EXIT,STOP,REJECT,CHECK.
   祥见：http://hi.baidu.com/fener86/item/6c8b2e178711794be65e0636