Thursday, 19 March 2015

Deleting Records


1.

2.Code

DECLARE
/* Declaring a variable for later use. */
    chk_button number;
BEGIN
/* Changing the title and Alert_message_text properties of the Alert object named USER_ALERT. */
    set_alert_property('USER_ALERT', title, 'Delete record');
    set_alert_property('USER_ALERT', Alert_message_text, 'Current master entry will be lost permanently. Do you want to proceed?');
    chk_button := show_alert('USER_ALERT');
/* Checking if the user chooses to delete the record. */
    if chk_button = alert_button1 then
    /* Calling an In-built command to delete the current record. */
        delete_record;
    /* Making the changes to the base table permanent. */
        COMMIT;
    end if;
END;



3.Output