linux窗口列表,实现弹出窗口、list列表、背景颜色

如何实现弹出窗口

定义消息：

fnd_message.clear;

fnd_message.set_string('删除记录'|| :packing_header.packing_number ||

'吗？');

IF NOT (fnd_message.warn) THEN

RAISE form_trigger_failure;

END IF;

清除记录的时候用block级别的那个trigger：

例子：  在块级别的trigger的KEY-DELREC中添加代码

fnd_message.clear;

fnd_message.set_string('你确定要删除'||:main.txn_id ||'这条记录吗？');

IF NOT (fnd_message.warn) THEN

RAISE form_trigger_failure;

else

Delete_Record;

END IF;

如何使用highlight

1.  先定义一个Visual Attributes如Red_color，yellow_color

2.  设置Red_Color的属性为红色

在对应的触发器里面调用，就可以使记录的颜色或者背景色，字段变成自己定义的属性。

app_record.highlight('RED_COLOR');

例子：

PROCEDURE color IS

BEGIN

IF :MAIN.STATUS = 'E' THEN

app_record.highlight('RED_COLOR');

ELSIF :MAIN.STATUS = 'W' THEN

app_record.highlight('YELLOW_COLOR');

ELSIF :MAIN.STATUS IN ('P', 'S') THEN

app_record.highlight('OLD_COLOR');

END IF;

END;

在post-query中调用，如果要批量提交，则应该在循环中应用

设置单个item的背景颜色

例子：

PROCEDURE color IS

BEGIN

IF :MAIN.STATUS = 'E' THEN

-- app_record.highlight('RED_COLOR');

set_item_instance_property('MAIN.STATUS',

To_Number(:SYSTEM.TRIGGER_RECORD),

VISUAL_ATTRIBUTE,

'RED_COLOR');

ELSIF :MAIN.STATUS = 'W' THEN

--app_record.highlight('YELLOW_COLOR');

set_item_instance_property('MAIN.STATUS',

To_Number(:SYSTEM.TRIGGER_RECORD),

VISUAL_ATTRIBUTE,

'YELLOW_COLOR');

ELSIF :MAIN.STATUS IN ('P', 'S') THEN

--app_record.highlight('OLD_COLOR');

set_item_instance_property('MAIN.STATUS',

To_Number(:SYSTEM.TRIGGER_RECORD),

VISUAL_ATTRIBUTE,

'OLD_COLOR');

END IF;

END;

怎样实现List功能。

例子：

在对应的item中加入trigger，when-list-changed

BEGIN

IF :MAIN.business_type = 'MISC_IN' THEN

:MAIN.transaction_type_id := 41;

ELSE

:MAIN.transaction_type_id := 31;

END IF;

END;