Skip to main content

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

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;

Comments

Post a Comment

Popular posts from this blog

Tablespace Management using Toad

You can view all of your tablespace information using toad tablespace screen from Database –> Administer –> Tablespaces Here each table describes different detailed information across all the tablespaces in database. If you open this screen from the toad DBA module then you are also able to see the “space history” and “IO history” tab along with Files, Free space, object, Fragmentation. With these tab you are able to able perform space monitoring and planning steps. These tab permits you check graphically space and IO usage over time. Through this way DBA are also able to estimate ‘Object size’ based on this estimation. From the below “alter tablespace” tab you can §          Modify the tablespace and datafile size. §          Add new datafile to the tablespace.
Post a Comment
Read more

Import Excel Data into Oracle using Oracle form Button

Import Excel Data into Oracle using Oracle form Button 1. Create a button on the form with the name "IMPORT_EXCEL" and write a pl/sql on "WHEN BUTTON PRESSED" trigger. BEGIN IF :System.Cursor_Block<>'GL_DAILY_COMPOUND_HEADER' THEN   Go_Item('GL_DAILY_COMPOUND_HEADER.V_DATE'); END IF; IF :System.Mode = 'NORMAL' AND :System.Record_Status IN ('NEW','INSERT') THEN   IMPORT_EXCEL_PROC;   ---Form procedure ELSE  MESSAGE('Import allowed only for new entry!!!');  MESSAGE('Import allowed only for new entry!!!'); END IF; END; 2. Now write the procedure "IMPORT_EXCEL_PROC" into the program unit. Don't forget to create required table and folder for procedure IMPORT_EXCEL_PROC PROCEDURE IMPORT_EXCEL_PROC IS application    OLE2.Obj_Type; workbooks      OLE2.Obj_Type; workbook       OLE2.Obj_Type; worksheets      OLE2.Obj_Type; worksheet       OLE2.Obj_Type; ce...
Post a Comment
Read more

Changing National Character Set AL16UTF16 to UTF8

Changing National Character Set AL16UTF16 to UTF8 The national character set is used for data that is stored in table columns of the types NCHAR, NVARCHAR2, and NCLOB.  In contrast, the database character set is used for data stored in table columns of the types CHAR, VARCHAR2 and CLOB. Like the database character set, the national character set is defined when the database is initially created and can usually no longer be changed, at least not easily or without involving quite a lot of work (export, recreate database, import). Except when creating the database, where the national character set is defined explicitly, it can change implicitly even when upgrading the database from Oracle8i to Oracle9i (or Oracle10g). You require SYSDBA authorization to change the national character set. Changing the national character set means changing an Oracle Dictionary entry, but no data is changed.  $sqlplus /nolog SQL> CONNECT / AS SYSDBA SQL> Select property_...
Post a Comment
Read more