【点击:】
阿木伯 著
|
|
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;
|
【最后更新:】 |
|