一. 编辑资料未保存而退出的确认框﹕
操作步骤如下﹕
1. 定义一個变量接受函数的返回值
例如﹕ data: commandname
2. 调用函数 POPUP_TO_CONFIRM_LOSS_OF_DATA
CALL FUNCTION 'POPUP_TO_CONFIRM_LOSS_OF_DATA'
EXPORTING
textline1 = ‘人民万岁’
textline2 = ‘伟大的中国'
titel = ‘提示’
* START_COLUMN = 25
* START_ROW = 6
* IMPORTING
ANSWER = commandname
EXCEPTIONS
OTHERS = 1.
注解﹕textline1---为MessageBox 第一行內容
textline2---为MessageBox 第二行內容
title---------为MessageBox 的标题
start_column, start_row 决定Message Box 的显示位置
answer-----为按下MessageBox 的选项按钮的传回值
3. 处理MessageBox选定之后的操作
CASE COMMANDNAME
WHEN ‘J’ “按钮 <是>
PERFORM ….
WHEN ‘N’ “按钮 <否>
PERFORM….
WHEN ‘A’ “按钮 <关闭>
PERFORM…
二. 消息框
说明﹕操作步骤同第一种 MessageBox 只是函数不同而已
函数的返回值不同与第一种函数的返回值
见下面函数的调用
CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
EXPORTING
DEFAULTOPTION = 'Y'
textline1 = ‘确定吗?’
TEXTLINE2 = '麻烦'
titel = ‘提问’
* START_COLUMN = 25
* START_ROW = 6
CANCEL_DISPLAY = 'X'
IMPORTING
ANSWER = commandname
exceptions
OTHERS = 1.
说明﹕ defaultoption = ‘Y’ (或 ‘J’ ) 表示缺省按钮为 <是>
= ‘N’ (或其他字母) 表示缺省按钮为 <否>
cancel_display = SPACE 表示不显示<取消>按钮
= ‘X’ 表示显示<取消>按钮
commandname = ‘A’ 表示 <取消>/<关闭>
三 .提问框
操作步骤同二﹐只是函数不同而已,函数调用如下
CALL FUNCTION 'POPUP_TO_CONFIRM_WITH_MESSAGE'
EXPORTING
DEFAULTOPTION = 'A'
diagnosetext1 = ‘你好吗?’
* DIAGNOSETEXT2 = ' '
* DIAGNOSETEXT3 = ' '
textline1 = ‘信息框’
* TEXTLINE2 = ' '
titel = ‘询问’
* START_COLUMN = 25
* START_ROW = 6
* CANCEL_DISPLAY = 'X'
IMPORTING
* ANSWER = commandname
exceptions
OTHERS = 1.
说明﹕diagnosetext1, diagnosetext2, diagnosetext3 为提问內容
textline1, textline2 为提示框內容
四.提问框
说明﹕该种提问框的功能优先于第三种提问框。表现在以下兩点
1,可以参数传值
2,文字超过长度可以自动换行
操作步骤相同于函数三
CALL FUNCTION 'POPUP_TO_CONFIRM_WITH_VALUE'
EXPORTING
* DEFAULTOPTION = 'Y'
objectvalue = sscrfields-ucomm
TEXT_AFTER = '被按下'
text_before = ‘按钮’
titel = ‘传返值’
* START_COLUMN = 25
* START_ROW = 6
* CANCEL_DISPLAY = 'X'
IMPORTING
ANSWER = commandname
exceptions
text_too_long = 1
OTHERS = 2.
说明﹕ objectvalu ---为传給MessageBox 的参数值
text_before---为参数之前的內容
text_after----为参数之后的內容