Oracle Form 开发笔记

日期选择实现：

1、设置Item属性

数据类型：Date

值列表：ENABLE_LIST_LAMP

从列表中验证：否

2、编写Item的KEY-LISTVAL触发器：

calendar.show;

窗口最大化时自动扩展文件夹数据块：

在Form触发器：WHEN-WINDOW-RESIZED 增加以下代码

IF :SYSTEM.EVENT_WINDOW IN ('WINDOW_NAME') THEN
    APP_FOLDER.EVENT('WHEN-WINDOW-RESIZED');    
END IF; 

有时文件夹堆叠画布设置的宽度不起作用，可以在Form触发器下增加如下代码：

--设置FOLDER 和 窗口右边距的距离
IF :GLOBAL.FOLDER_ACTION = 'VIEW-SIZE' THEN
    :GLOBAL.FOLDER_VIEW_SIZE_MARGIN := '0.05';
END IF;

 

设置记录颜色

app_record.highlight('RED_REC');

设置窗口居中

在Form触发器：WHEN-NEW-FORM-INSTANCE增加以下代码

app_window.set_window_position('WINDOW_NAME','CENTER');

设置窗口标题

在Form触发器：WHEN-NEW-FORM-INSTANCE增加以下代码

app_window.set_title('WINDOW_NAME','TITLE_NAME');

设置项属性

set_item_property(ITEMID, insert_allowed, property_false/property_true);--插入
set_item_property(ITEMID, update_allowed, property_false/property_true);--更新
set_item_property(ITEMID, delete_allowed, property_false/property_true);--删除
set_item_property(ITEMID, REQUIRED, property_false/property_true);--必需
set_item_property(ITEMID, ENABLED, property_false/property_true);--可用
set_item_property(ITEMID, DISPLAYED, property_false/property_true); --显示

两项关联：

调用app_field.clear_dependent_fields来将两个（或多个）item建立关联，当父item field变化时，子fields清空。实现：如果master_field为空，则清空后续所有fieldn.可以在Item触发器WHEN-VALIDATE-ITEM使用。

app_field.clear_dependent_fields(master_field varchar2,
                                 field1       varchar2,
                                 field2       varchar2 default null,
                                 field3       varchar2 default null,
                                 field4       varchar2 default null,
                                 field5       varchar2 default null,
                                 field6       varchar2 default null,
                                 field7       varchar2 default null,
                                 field8       varchar2 default null,
                                 field9       varchar2 default null,
                                 field10      varchar2 default null)

附Procedure原码:（在附加库APP_CORE中）

PROCEDURE clear_dependent_fields(master_field VARCHAR2,
                                   field1       VARCHAR2,
                                   field2       VARCHAR2 DEFAULT NULL,
                                   field3       VARCHAR2 DEFAULT NULL,
                                   field4       VARCHAR2 DEFAULT NULL,
                                   field5       VARCHAR2 DEFAULT NULL,
                                   field6       VARCHAR2 DEFAULT NULL,
                                   field7       VARCHAR2 DEFAULT NULL,
                                   field8       VARCHAR2 DEFAULT NULL,
                                   field9       VARCHAR2 DEFAULT NULL,
                                   field10      VARCHAR2 DEFAULT NULL) IS
  BEGIN
    COPY('Entering app_field.clear_dependent_fields.','global.frd_debug');
    if (name_in(master_field) is null) then
      clear_fields(field1, field2, field3, field4, field5,
                   field6, field7, field8, field9, field10);
    end if;
    COPY('Completed app_field.clear_dependent_fields.','global.frd_debug');
  END clear_dependent_fields;

 

禁用F11、CTRL + F11查询

禁用F11查询：
在对应的BLOCK级触发器KEY-ENTQRY中的值赋成NULL;

禁用CTRL + F11查询：
在对应的BLOCK级触发器KEY-EXEQRY中的值赋成NULL;

注：当设置KEY_EXEQRY触发器为NULL时，对应form界面的块查询也将无法执行查询

编译报错：

FRM-30041: Position of item places it off of canvas.　--字段位置超出画布大小

解决方法：把canvas的大小设大些或把字段坐标轴设置在画布内