oracle forms builder datablock,ORACLE FORMS BUILDER 开发实战.doc

ORACLE FORMS BUILDER 开发实战

ORACLE FORM 开发实战

李正海

2008/09/22

目 录

1一个基础的FORM3

2一个查询FORM12

3多画布的操作方法13

4LOV使用15

5LIST的使用22

6FORM的参数调用23

7包含主从表的FORM26

8加入自定义菜单29

9加入图像的方法31

10一个选择的范例32

11常用系统热键35

一个基础的FORM

在文件中选择新建，表格，从而新增出一个FORM。

建立数据块

在导航器中点击该FORM，选择数据块向导

输入表名，点刷新，显示出字段名

使用，把字段全部选择到数据库项中。

点下一步，注意使用默认的：“请先创建数据库，然后调用布局向导”。

建立布局

进入布局向导

选择默认的布局向导

选择显示项，把可用项全部变成显示项

选择框架风格为默认的表格

指定框架的名称及显示记录数

完成布局向导

运行FORM

运行FORM

点击查询中的执行，显示出所有数据

点增加，新建立一条记录，输入数据，点保存，完成一条记录的输入

在某条记录中，改变数据内容，点保存，完成一条记录的修改

点删除，则删除该记录

点退出，结束FORM运行

一个查询FORM

新建一个块

加入一个框架

加入数据项

加入按纽，输入如下代码：

GO_BLOCK('LZHTEST001');

SET_BLOCK_PROPERTY('LZHTEST001',DEFAULT_WHERE,'NAME LIKE :block15.text_item21||''%''');

EXECUTE_QUERY;

多画布的操作方法

加入一个画布，再加入一个堆叠式画布。

加入两个块

设置块的关系

加入向子画布切换的按纽

其对应的WHEN_BUTTON_PRESSED语句为

go_block('lzhtest0011'); --lzhtest0011为子块名

加入子画布隐藏的按纽

HIDE_VIEW('CANVAS39');-- CANVAS39为子块所在的画布名

GO_BLOCK('LZHTEST001');-- LZHTEST001为主块名

LOV使用

设置LOV的基本过程包括如下：

增加LOV，点击在导航器中的LOVS，点后，进行LOV添加。

使用LOV向导

输入SQL语句

指定记录组列

指定列宽度

指定返回值

指定标题

指定显示行数等设置

指定分配项

完成向导设置

调用该LOV 的过程包括：

点击CAT_C项

点击显示列表

选择某条列表后，确定后，选择的值输入到CAT_C项中。

点击入项CAT_C,点击显示列表，则显示如下对话框。

选择一条记录后，则在CAT_C中显示出选择的CAT_C值，如下图。

LIST的使用

加入一个LIST

加入一个文本域，用于显示LIST改变后的值

加入一个按纽，用于初始化LIST的信息，其WHEN_BUTTON_PRESSED 语句为：

DECLARE

RG_ID RECORDGROUP;

ERRCODE NUMBER;

BEGIN

RG_ID := FIND_GROUP('REPORT_TYPE');

IF ID_NULL(RG_ID) THEN

RG_ID := CREATE_GROUP_FROM_QUERY('REPORT_TYPE','SELECT ''[''||MS1||'']''||MS2,ms1 FROM RB_SET WHERE ID=4000 ORDER BY va5');

ERRCODE := POPULATE_GROUP('REPORT_TYPE');

POPULATE_LIST('BLOCK2.LIST5','REPORT_TYPE');

END IF;

END;

为LIST加入事件，改变值

:TEXT_ITEM7 := :BLOCK2.LIST5 ;

FORM的参数调用

建立主FORM

建立布局，加入一个文本项，一个按纽，为按纽加入语句：

declare List_id ParamList;

begin

List_id:=Get_Parameter_List('input_params');

IF NOT Id_null(list_id) THEN

Destroy_Parameter_List(List_id);

end if;

List_id:=Create_Parameter_List('input_params');

Add_Parameter(List_id,'P_GIVEPARAVALUE',TEXT_PARAMETER,:BLOCK3.TEXT_ITEM5);

call_form('STEP006B',no_hide,no_replace,no_query_only,