Note: 
FORM_SUCCESS should not be used to test whether a COMMIT_FORM or POST built-in has succeeded. 
Because COMMIT_FORM may cause many other triggers to fire, when you evaluate FORM_SUCCESS it may not reflect the status of COMMIT_FORM but of some other, more recently executed built-in. 
A more accurate technique is to check that the SYSTEM.FORM_STATUS variable is set to 'QUERY' after the operation is done.
用form_success判断form是否没有错误，在某些时候是不能完全检测到form的错误。
比较正确的做法是对system.form_status是否是query进行判断。

IF Form_Success THEN
    Commit;
    IF :System.Form_Status <> 'QUERY' THEN
      Message('Error prevented Commit');
      RAISE Form_Trigger_Failure;
    END IF;
END IF;

有时候看情况是否要增加SQLCODE的判断
IF form_success or SQLCODE = 0 THEN