Search

Join this Blog for direct reference of any post into your inbox. To join just click on "Join this Site" under "Follower" then Login with your Email.*** DECLARATION: I Maintain this Blog for Helping Myself While at Work and Welcome any body Needing Help!!!.*** CAUTION: Using any of the script from this Blog may contain at Own Risk. These scripts May or May not have been Tested.***

Tuesday, 25 February 2014

How to display database define ‘LOGO’ or ‘COMP_NAME’ or ‘CUSTOM_ERROR_MESSAGE’ through Oracle Forms.

Display Database Defined ‘LOGO’
Create an image Item: Logo on the form set with required image size
Item_Type: Image
Enabled: Yes
Image Format: TIFF
Image Depth: Original
Display Quality: High
Database Item: No
Write Form Level Trigger ‘When_New_Form_Instance
declare
      logo_path varchar2(250);
begin
select logo into   logo_path from   logo;
      Read_Image_File(logo_path, 'ANY', 'logo');
exception
      when   no_data_found then
             null;
  when   others then
         show_message(2,2);
end;
Display System Date and Time on the Form
Create two Item ‘Date’ and ‘Time’ on the Top of the form
Item_Name: Date
Item_Type: Text_Item
Data Type: Date
Initial Value: $$DATE$$
Format Mask: Dy  DD-MM-YYYY

Item_Name: Time
Item_Type: Text_Item
Data Type: char
Initial Value: $$TIME$$
Format Mask: Dy  DD-MM-YYYY
Display Database Defined ‘COMP_NAME’
Create an Item on Form: COMP_NAME
Item_Type: Display Item
Data type = 40 char
Database item: NO
Write a procedure GET_COMP_NAME on Program Unit
PROCEDURE get_comp_name(p_comp in out varchar2) IS
  BEGIN
  SELECT COMP_ENAME
  into   p_comp
  FROM   COMP_PROFIL;
exception
      when   no_data_found then
             p_comp := null;
  when   others then
         show_message(2,2);
END;
Write a form level trigger ‘When_New_Form_Instance’ to fetch above procedure
Get_comp_name(:comp_name);
Display Login User’s into form:
Create an Item on Form: USERNAME
Item_Type: Display Item
Data type = 60 char
Database item: NO
Initial value: :GLOBAL.USER
Then simply write into form level trigger ‘When_New_Form_Instance
:block_name.USERNAME := :GLOBAL.USER;
Display Custom Error Message:
PROCEDURE get_mess(mess_code in number) IS
v_message varchar2(70);
s_message varchar2(70);
BEGIN
      s_message := 'message code not defined';
 
  select mes_desc into v_message
  from   error_message
  where  mes_no  = mess_code;
  show_message(1,v_message);
-- Error_message is a database table defining all the error_message code and description
  raise  form_trigger_failure;
EXCEPTION
      when   no_data_found then
             show_message(1,s_message);
             raise form_trigger_failure;
  when   form_trigger_failure then
         raise form_trigger_failure;
  when   others then
         show_message(2,s_message);
         raise form_trigger_failure;
END;
PROCEDURE show_message(mess_code in number, mess_desc in varchar2) IS
BEGIN
      if mess_code = 1 then
   message(mess_desc);
   message(mess_desc);
      elsif mess_code = 2 then
   message(sqlerrm);
   message(sqlerrm);
      end if;
     
END;

0 comments:

Post a Comment