Oracle Forms 6i删除按钮触发ORA-01400插入报错问题问询

这种情况在Forms开发里挺常见的，核心问题是commit_form会提交表单中所有未完成的事务，而不仅仅是你刚执行的删除操作。结合你的错误信息，我来拆解可能的原因和排查步骤：

可能的触发原因 #

• 未完成的新增记录残留：如果用户之前打开过新增界面（比如点击过新增按钮但没取消/提交），表单里可能存在一条处于INSERT状态的user_details记录。当你执行commit_form时，Forms会尝试提交这条未完成的记录，但因为PASSWORD字段没赋值（非空约束），就抛出了ORA-01400。这时候界面上的删除记录看起来消失了，但因为commit失败，数据库里的记录根本没被删除。
• 触发器逻辑错误：
  • 主表块的POST-DELETE或WHEN-REMOVE-RECORD触发器里，不小心写了向user_details插入数据的逻辑（比如想同步删除的记录到历史表，但写错了表名）；
  • 全局的ON-COMMIT触发器里包含了针对user_details的INSERT操作，且没有判断当前事务是删除还是新增，导致每次commit都执行插入；
  • 删除按钮的触发器误调用了新增相关的过程/触发器。
• 块属性配置问题：如果有非基表块关联了user_details，且该块的Insert Allowed设为Yes，当主块记录被删除时，该块的记录被清除的过程中触发了错误的INSERT逻辑。

排查与解决步骤 #

1. 检查表单中是否有残留的新增记录 #

在点击删除按钮前，执行以下代码（可以放到一个临时按钮里，或者用Forms调试工具），查看所有块的记录状态：

DECLARE
  v_block VARCHAR2(100);
  v_status VARCHAR2(20);
BEGIN
  v_block := GET_BLOCK_PROPERTY(NULL, FIRST_BLOCK);
  WHILE v_block IS NOT NULL LOOP
    v_status := GET_BLOCK_PROPERTY(v_block, RECORD_STATUS);
    MESSAGE('Block: ' || v_block || ' | Record Status: ' || v_status);
    PAUSE;
    v_block := GET_BLOCK_PROPERTY(v_block, NEXT_BLOCK);
  END LOOP;
END;

如果发现某个关联user_details的块处于INSERT状态，先取消这条记录（用clear_record或clear_block），再测试删除按钮。

2. 追踪触发器执行流程 #

用Forms的调试工具给所有关键触发器（比如删除按钮的WHEN-BUTTON-PRESSED、ON-COMMIT、POST-DELETE等）加断点，或者在触发器里加入日志信息：

MESSAGE('Trigger executed: ' || TRIGGER_NAME || ' | Current Operation: ' || SYSTEM.MODE);
PAUSE;

这样就能看到点击删除按钮后，哪些触发器被触发了，找到执行INSERT的源头。

3. 审查删除按钮的代码 #

确保删除按钮的触发器只有预期的逻辑：

BEGIN
  delete_record;
  -- 可以先单独执行delete_record，不commit，查看数据库记录是否标记为删除（Forms里是逻辑删除，commit才生效）
  -- 如果单独执行delete_record没问题，再排查commit环节
  commit_form;
EXCEPTION
  WHEN OTHERS THEN
    MESSAGE('Delete Error: ' || SQLERRM);
    RAISE;
END;

如果按钮里调用了其他自定义过程，一定要检查该过程是否包含INSERT操作。

4. 检查ON-COMMIT触发器 #

全局的ON-COMMIT触发器会在每次执行commit_form时触发，如果你在这里写了同步数据的逻辑，一定要判断当前事务的类型：

BEGIN
  -- 只有当事务是新增/修改时才执行INSERT，删除时跳过
  IF SYSTEM.MODE IN ('NORMAL', 'ENTER-QUERY') THEN
    -- 你的正常逻辑
  ELSE
    -- 跳过删除时的操作
    NULL;
  END IF;
END;

总结 #

本质问题是commit_form会提交表单中所有未确认的事务，所以要么是之前有未完成的新增记录，要么是某个触发器在删除/提交时错误触发了INSERT。找到这个触发点，问题就迎刃而解了。

内容的提问来源于stack exchange，提问作者Prams