TAB页制作

Posted 2020-09-21 Akami

 

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