Hide And Unhide Oracle Forms 6i Button

[elhussein zaid]

[center][size=5][left][center]



PROCEDURE HIDE_ITEM( item_name VARCHAR2, hide_it BOOLEAN) IS
it_id Item;

BEGIN
it_id := Find_Item(item_name);

IF Id_Null(it_id) THEN
Message('No such item: '||item_name);
RAISE Form_Trigger_Failure;

ELSE
IF hide_it THEN
Set_Item_Property(it_id,VISIBLE,PROPERTY_FALSE);

ELSE

Set_Item_Property(it_id,VISIBLE,PROPERTY_TRUE);
Set_Item_Property(it_id,ENABLED,PROPERTY_TRUE);
Set_Item_Property(it_id,NAVIGABLE,PROPERTY_TRUE);

END IF;

END IF;



بختصار شديد بعد ما تعمل الفورم وتجهز عليه 2 زر وتعمل واحد ايتم تكتب التريجر  عليه


اذا كنت عايز   trigger  

اظهار item 

Set_Item_Property('item_name',VISIBLE,PROPERTY_TRUE);




اخفاء

Set_Item_Property('item_name',VISIBLE,PROPERTY_FALSE);



END; [/left]
[/center][/size][/center]

تم تعديل 10 فبراير 2009 بواسطة elhussein zaid