How to set on block query only

Question

dear all
i want to set on block update,inset,delete as property false,
and set query property true, and i want in same time enable to user to set values to execute query on this value.
help me plz
Message was edited by:
Hshihadah

Answer 1

** Built–in: SET_BLOCK_PROPERTY
** Example: Prevent future inserts, updates, and deletes to
** queried records in the block whose name is
** passed as an argument to this procedure.
PROCEDURE Make_Block_Query_Only( blk_name IN VARCHAR2 )
IS
blk_id Block;
BEGIN
/* Lookup the block’s internal ID */
blk_id := Find_Block(blk_name);
** If the block exists (ie the ID is Not NULL) then set
** the three properties for this block. Otherwise signal
** an error.
IF NOT Id_Null(blk_id) THEN
Set_Block_Property(blk_id,INSERT_ALLOWED,PROPERTY_FALSE);
Set_Block_Property(blk_id,UPDATE_ALLOWED,PROPERTY_FALSE);
Set_Block_Property(blk_id,DELETE_ALLOWED,PROPERTY_FALSE);
ELSE
Message(’Block ’||blk_name||’ does not exist.’);
RAISE Form_Trigger_Failure;
END IF;
END;