在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; <