如何防止在表单中输入日期

Question

我想允许在输入的日期为“星期五”时插入日期。如果输入的日期不是“星期五”，那么用户就无法输入数据。

我正在编写以下代码，但事件我给出了任何日期，我可以将日期插入表中。

DECLARE
   d_date   DATE;
   x        VARCHAR2 (100);
BEGIN
   d_date := :dummy.v_date;

   IF TO_CHAR (d_date, 'DY') = 'FRI'
   THEN
      x := SHOW_ALERT ('SUCCESS');
      GO_BLOCK ('DB_MACHINE');
      SET_BLOCK_PROPERTY ('DB_MACHINE', insert_allowed, property_true);
      SET_BLOCK_PROPERTY ('DB_MACHINE', update_allowed, property_true);
   ELSE
      x := SHOW_ALERT ('FAIL');
      GO_BLOCK ('DB_MACHINE');
      SET_BLOCK_PROPERTY ('DB_MACHINE', insert_allowed, property_false);
      SET_BLOCK_PROPERTY ('DB_MACHINE', update_allowed, property_false);
   END IF;
END;

Answer 1

您可能拥有非英语客户端字符集。尝试

to_char(sysdate,'DY','nls_date_language=''american''');