FORM开发

最新推荐文章于 2025-06-21 12:21:05 发布

润物wu声

最新推荐文章于 2025-06-21 12:21:05 发布

阅读量1.6k

点赞数

CC 4.0 BY-SA版权

分类专栏： EBS版块

本文链接：https://blog.youkuaiyun.com/rungui2013/article/details/14161939

这篇博客详细介绍了Oracle Forms的开发过程，包括修改FORM级触发器，如PRE-FORM和WHEN-NEW-FORM-INSTANCE，设置块和项的属性，使用QFIND画布，创建CUXCRVAS块并定制其触发器，以及LOV设置。此外，还涉及了程序单元的修改，如APP_CUSTOM包、CUX_CONTROL包、CUX_EVENT包和CUX_PRIVATE包的编写。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

一、修改FORM级触发器

1.PRE-FORM

app_window.set_window_position('CUXCRVAS', 'FIRST_WINDOW');

2.WHEN-NEW-FORM-INSTANCE

FDRCSID('$Header: TEMPLATE.fmb 115.12 level:6 2013/11/05 10:00:48 pkm ship                                                                                                                                                                                                                                                             $');
APP_STANDARD.EVENT('WHEN-NEW-FORM-INSTANCE');
--
-- app_folder.define_folder_block('template test', 'folder_block', 'prompt_block', 'stacked_canvas', 'window', 'disabled functions');
-- app_folder.event('VERIFY');
--
cux_control.botton_control('when-new-form');

二、创建数据块

1.为QFIND快添加项

设置块和项的属性：

QFIND画布

修改块级触发器KEY-NXTBLK：

:parameter.G_query_find := 'TRUE';
app_find.find('CUX_CRVAL');
:parameter.G_query_find := 'FALSE';

分别编写以下触发器：

app_find.clear;

app_find.new('CUX_CRVAL');

:parameter.G_query_find := 'TRUE';
app_find.find('CUX_CRVAL');
:parameter.G_query_find := 'FALSE';

三、创建CUXCRVAS块

画布CUXCRVAS效果：

设置块和项属性

修改ITEM级触发器WHEN_CHECKBOX_CHANGED

BEGIN
        IF :CUX_CRVAL.ATTRIBUTE1 IS NULL THEN
             :CUX_CRVAL.END_DATE := NULL;
             app_item_property.set_property('CUX_CRVAL.END_DATE',INSERT_ALLOWED,PROPERTY_FALSE);
              app_item_property.set_property('CUX_CRVAL.END_DATE',UPDATE_ALLOWED,PROPERTY_FALSE);  
        ELSE
            app_item_property.set_property('CUX_CRVAL.END_DATE',INSERT_ALLOWED,PROPERTY_TRUE);
            app_item_property.set_property('CUX_CRVAL.END_DATE',UPDATE_ALLOWED,PROPERTY_TRUE);  
        END IF;
END;

修改块级触发器：

1、QUERY_FIND

NULL;
APP_FIND.QUERY_FIND('CUXCRVAS','QFIND','QFIND');

2、PRE_INSERT

cux_private.per_insert;

3、PRE_UPDATE

cux_private.per_update;

4、PRE_DELETE

cux_private.per_delete;

5、PRE_QUERY

NULL;
IF :Parameter.G_query_find='TRUE' THEN
:CUX_CRVAL.CUSTOMER_ID:=:QFIND.CUSTOMER_ID;
--:CUX_CRVAL.CUSTOMER_NUMBER:=:QFIND.CUSTOMER_NUMBER;
--:CUX_CRVAL.CUSTOMER_NAME:=:QFIND.CUSTOMER_NAME;
:CUX_CRVAL.STATUS:=:QFIND.STATUS;
:Parameter.G_query_find:='