Form:符合在某个条件下记录不能修改，并且背景显示灰色

这是一种常见的用户需求，实现如下：

1.符合某个条件下记录不能修改，就是在when-validate-record(block级)

IF :CUX_MRP_MDS_DATA.TYPE_ID=2 THEN
set_record_property (:System.Cursor_Record,'CUX_MRP_MDS_DATA',status,query_status);
END IF;

2.背景显示灰色，

A.先VISUAL_ATTRIBUTE对象处，建立一个，并设定其对应的backgroud color为灰色，

B.在post-query(bock级)

Declare

ITEM1 ITEM;--(此仅仅是某个数据项为灰色，若为一行记录为灰色，就要定义多个ITEM,类同)

begin

ITEM1 := FIND_ITEM('CUX_MRP_MDS_DATA.ITEM');

IF :CUX_MRP_MDS_DATA.TYPE_ID=2 THEN
SET_ITEM_INSTANCE_PROPERTY(ITEM1, CURRENT_RECORD,VISUAL_ATTRIBUTE,'VISUAL_GRAY');

end if;

end;