oracle forms set_block_property 禁止删除

Question

我需要把下面的代码放在什么块中，使用什么触发器？

BEGIN
    if :BLOCK1.TEXTBOX is not null then
        SET_BLOCK_PROPERTY ('BLOCK2', DELETE_ALLOWED, PROPERTY_FALSE);   
    end if;
END;

我想要的是在 :BLOCK1.TEXTBOX 不为空时禁用删除。

Answer 1

视情况而定。

它可能是 block1 上的 WHEN-VALIDATE-ITEM (block1.textbox) 或 POST-QUERY（如果它是从数据库中获取的），或者 PRE-BLOCK (block2).

如果文本框为空，请不要忘记允许删除。

或者，您可以使用 KEY-DELREC，然后将 would/might 稍微修改为

if :block1.textbox is not null then
   message('Delete is not allowed because textbox is not empty');
   raise form_trigger_failure;
end if;

Answer 2

WHEN-NEW-BLOCK-INSTANCE 在 BLOCK2

oracle forms set_block_property to disallow deleting