form 笔记

谭明 — Fri, 23 May 2008 06:34:00 GMT

1.如何启动自定义的触发器
    execute_trigger('MEMU_CHECK_TRR');
2.提交
    COMMIT_FORM;
3.参数列表
DECLARE
W_PL   PARAMLIST; //定义一个参数列表
BEGIN
    W_PL := CREATE_PARAMETER_LIST('FORM');
    ADD_PARAMETER(W_PL, 'ORDSEQ', TEXT_PARAMETER, W_ORDSEQ); //增加参数
    CALL_FORM('PC', NO_HIDE, DO_REPLACE, NO_QUERY_ONLY, NO_SHARE_LIBRARY_DATA, W_PL);
    //调用一个FORM
    DESTROY_PARAMETER_LIST(W_PL); //销毁
END;

4.LOV调用不同的RECORD_GROUP
if SUBSTR(:pdc_1,1,1)='A' then
   SET_LOV_PROPERTY('LOV',GROUP_NAME,RECORD1);
else
   SET_LOV_PROPERTY('LOV',GROUP_NAME,RECORD2);
end if;

5.更改record_group的查询语句
populate_group_with_query(recordgroup_name,query)
在第二个参数里输入select查询，修改记录组，从而修改lov
POPULATE_GROUP_WITH_QUERY('NAME','SELECT ORDNO FROM ORD')

6.record_group记录组
     RG_ID := FIND_GROUP('NAME1');
     IF NOT ID_NULL(RG_ID) THEN
         DELETE_GROUP(RG_ID);
     END IF;
     RG_ID := CREATE_GROUP('NAME');
     RG_ID := CREATE_GROUP_FROM_QUERY('NAME1',W_QUERY);
     IF GET_LOV_PROPERTY('NAME',GROUP_NAME) = 'NAME' THEN
         SET_LOV_PROPERTY('NAME',GROUP_NAME,RG_ID);
     END IF;
     W_LOV := SHOW_LOV('NAME');

谭明 2008-05-23 14:34 发表评论

在Form中动态创建LOV和Record Group的例子

谭明 — Fri, 23 May 2008 06:17:00 GMT

DECLARE
    l_group_id      recordgroup;
    l_group_errcode NUMBER;
BEGIN
    -- 检查是否已经存在该 RECORD_GROUP
    l_group_id := find_group(proj_rg_name);

    -- 如果不存在
    IF id_null(l_group_id) THEN
        -- 创建RECORD_GROUP
        l_group_id := create_group_from_query('MY_REC_NAME',
                                              'SELECT NULL FROM DUAL');
        -- 错误代码
        l_group_errcode := populate_group(l_group_id);
    END IF;

    -- 设置 LOV 的RECORD_GROUP
    set_lov_property('MY_LOV_NAME', group_name, 'MY_REC_NAME');
    set_item_property('MY_BLOCK.MY_ITEM', lov_name, 'MY_LOV_NAME');
END;

谭明 2008-05-23 14:17 发表评论

BlogJava-清睛仪明-文章分类-Developer Forms

form 笔记

在Form中动态创建LOV和Record Group的例子