在 oracle 10g 中禁用特定时间的表单按钮

问题描述

我想在非工作时间（即上午 8 点至下午 1 点（8-13））从菜单表单中禁用五个按钮（学生、家长、监护人、员工、工资） 我在 FormBuilder > DatabaSEObjects > MyDB(i-e School) >Tables >MENU>Triggers 中编码 当我保存它时显示错误 错误： PDE-UTG007 触发器包含错误 PLS-00201：必须声明标识符“ENABLED”

BEGIN
IF (TO_CHAR(SYSDATE,'DY') IN ('SAT','SUN')) OR (TO_CHAR(SYSDATE,'HH24:MI') NOT BETWEEN '08:00' AND '13:00') 
THEN
set_item_property('control.Student',enabled,property_false); 
set_item_property('control.Parent',property_false); 
set_item_property('control.Guardian',property_false); 
set_item_property('control.Employee',property_false); 
set_item_property('control.Salary',property_false); 
RAISE_APPLICATION_ERROR(-20500,'You can access Database only during normal business hours.');
END IF;
end;

enter image description here

解决方法

此代码应在内部的 Forms 触发器中创建，而不是在将 RAISE_APPLICATION_ERROR 转换为 MESSAGE('You can...'); MESSAGE() 的数据库触发器中创建。您可以将代码嵌入到表单程序中，例如

PROCEDURE Disable_Buttons IS
BEGIN
  IF (TO_CHAR(SYSDATE,'DY','NLS_DATE_LANGUAGE=ENGLISH') IN ('SAT','SUN')) OR
     (TO_CHAR(SYSDATE,'HH24:MI') NOT BETWEEN '08:00' AND '13:00') THEN
    SET_ITEM_PROPERTY('control.Student',enabled,property_false);
    SET_ITEM_PROPERTY('control.Parent',property_false);
    SET_ITEM_PROPERTY('control.Guardian',property_false);
    SET_ITEM_PROPERTY('control.Employee',property_false);
    SET_ITEM_PROPERTY('control.Salary',property_false);
    MESSAGE('You can access Database only during normal business hours.');
    MESSAGE('');
  END IF;
END;

并从 Disable_Buttons 触发器调用 WHEN-NEW-FORM-INSTANCE，以及现有代码顶部的这五个按钮的 WHEN-BUTTON-PRESSED 触发器，以防止执行其余代码用于在这些时间段内已经运行的应用程序会话。

或者更直接地，您可以将 Disable_Buttons 添加到 WHEN-NEW-BLOCK-INSTANCE 块的 control 触发器中，而不是单独添加到这五个按钮的 WHEN-BUTTON-PRESSED 触发器中。