TAB页制作

tab标签画布和fixed画布的应用

加标签画布，继承子类信息

tab画布添加标签，按照需求添加

设置标签的子类信息

创建与标签同名的堆叠画布，有几个标签建几个画布，继承子类信息

数据块的项分别显示在不同的画布上

每个画布里的内容设置位置，不同画布被切割大小要相同（美观），项的起始位置也要相同，效果如下

tab画布，fixed画布与第一个标签画布堆叠在主画布上MAIN

调整各个画布的位置，效果如下

调完第一个标签画布的位置后，要以此调整所有标签画布的位置与第一画布重叠

在程序单元的增删改查包中增加一个存储过程代码如下：

procedure line_tab(event in varchar2) is

curr_canvas_name varchar2(30) := get_item_property(:system.cursor_item,

item_canvas);

current_tab varchar2(30) := get_canvas_property(‘LINE_TAB‘,

topmost_tab_page);

target_canvas_name varchar2(30) := :system.tab_new_page;

begin

if (event = ‘WHEN-TAB-PAGE-CHANGED‘) then

if curr_canvas_name in (‘MAIN‘) then

show_view(target_canvas_name);

go_item(:system.cursor_item);

else

validate(item_scope);

if not form_success then

set_canvas_property(‘LINE_TAB‘,topmost_tab_page, :system.tab_previous_page);

return;

end if;

if target_canvas_name = ‘LINE_MAIN‘ then

go_item(‘ORDER_HEADERS_V.VENDOR_ID‘);

elsif target_canvas_name = ‘LINE_ADDITION‘ then

go_item(‘ORDER_HEADERS_V.OTHER1‘);

elsif target_canvas_name = ‘LINE_OTHERS‘ then

go_item(‘ORDER_HEADERS_V.OTHER6‘);

end if;

end if;

elsif (event = ‘WHEN-NEW-ITEM-INSTANCE‘) then

if ((curr_canvas_name in (‘LINE_MAIN‘,‘LINE_ADDITION‘,‘LINE_OTHERS‘)) and (curr_canvas_name != current_tab)) then

set_canvas_property(‘LINE_TAB‘,topmost_tab_page,curr_canvas_name);

end if;

elsif (event = ‘INIT‘) then

show_view(‘LINE_TAB‘);

show_view(‘LINE_FIXED‘);

hide_view(‘LINE_OTHERS‘);

hide_view(‘LINE_ADDITION‘);

show_view(‘LINE_MAIN‘);

else

app_exception.invalid_argument(‘LINE_TAB‘,

‘EVENT‘, event);

end if;

end line_tab;

1. form级别触发器WHEN-TAB-PAGE-CHANGED,代码如下

declare

the_canvas varchar2(30) := :system.event_canvas;

begin

if the_canvas = ‘LINE_TAB‘ then

ORDER_HEADERS_V_PRIVATE.line_tab(‘WHEN-TAB-PAGE-CHANGED‘);

end if;

end;

form级别触发器WHEN-NEW-FORM-INSTANCE，增加如下代码

每个标签的开始项和结束项item下增加触发器WHEN-NEW-ITEM-INSTANCE