FORM中，如何使用警告？

FORM中，如何使用警告？

　　DECLARE

　　I NUMBER;

　　BEGIN

　　SET_ALERT_BUTTON_PROPERTY('警告名',ALERT_BUTTON1,LABEL,'提示1');

　　SET_ALERT_BUTTON_PROPERTY('警告名',ALERT_BUTTON2,LABEL,'提示2');

　　SET_ALERT_BUTTON_PROPERTY('警告名',ALERT_BUTTON3,LABEL,'提示3');

　　SET_ALERT_PROPERTY('警告名',ALERT_MESSAGE_TEXT,'提示信息');

　　SET_ALERT_PROPERTY('警告名',TITLE,'标题');

　　I:=SHOW_ALERT('警告名');

　　IF I=ALERT_BUTTON1 THEN

　　MESSAGE('.......');

　　ELSIF I=ALERT_BUTTON2 THEN

　　MESSAGE('.......');

　　ELSIF I=ALERT_BUTTON3 THEN

　　MESSAGE('.......');

　　END IF;

　　END;

　　例如：

　　在退出按钮中

　　DECLARE

　　I NUMBER;

　　BEGIN

　　SET_ALERT_BUTTON_PROPERTY('ALERT',ALERT_BUTTON1,LABEL,'退出');

　　SET_ALERT_BUTTON_PROPERTY('ALERT',ALERT_BUTTON2,LABEL,'返回');

　　SET_ALERT_PROPERTY('ALERT',ALERT_MESSAGE_TEXT,'是否退出');

　　SET_ALERT_PROPERTY('ALERT',TITLE,'询问');

　　I:=SHOW_ALERT('ALERT');

　　IF I=ALERT_BUTTON1 THEN

　　EXIT_FORM(ASK_COMMIT);

　　ELSE

　　GO_BLOCK(块名);

　　END IF;

　　END;

　　在删除按钮上

　　DECLARE

　　I NUMBER;

　　BEGIN

　　SET_ALERT_BUTTON_PROPERTY('ALERT',ALERT_BUTTON1,LABEL,'是(Y)');

　　SET_ALERT_BUTTON_PROPERTY('ALERT',ALERT_BUTTON2,LABEL,'否(N)');

　　SET_ALERT_PROPERTY('ALERT',ALERT_MESSAGE_TEXT,'是否删除？);

　　SET_ALERT_PROPERTY('ALERT',TITLE,'询问');

　　I:=SHOW_ALERT('ALERT');

　　IF I=ALERT_BUTTON1 THEN

　　DELETE_RECORD;

　　ELSE

　　GO_BLOCK(块名);

　　END IF;

　　END;本文来自：http://doc.xiaoyaxiao.com/3414.html
发表您的高见！