Date Picker Calendar For Oracle Forms 6i

Giving date picker calendar option to user for date type fields in Oracle Forms. I am providing you the form (FoxCal.Fmx) and two libraries (General.plx and Calendar.pll). You can download these files by clicking below link:

Download Form and required PLL

Like us to get notifications for free source code in future, thanks.

How To Use

It is very simple to use, no need to attache any library to your form, just copy all three files to your current working directory of your application. Suppose you have a form and there is one or many date date type fields in the form. You have to create key-listval trigger for those date type fields or create a push button adjacent to those fields and paste the below code in when-button-pressed trigger:

 

DECLARE
pl_id paramList;
begin
:GLOBAL.G_LOV_DATE := TRUNC(SYSDATE);
  pl_id := Get_Parameter_List('foxcal'); 
  IF NOT Id_Null(pl_id) THEN   
    destroy_parameter_list(pl_id);
  end if;
  pl_id := create_parameter_list('foxcal');
  add_parameter(pl_id, 'XPOS', text_parameter, to_char(50));
  add_parameter(pl_id, 'YPOS', text_parameter, to_char(100));
  add_parameter(pl_id, 'CURRDATE', text_parameter, to_char(Sysdate));
  add_parameter(pl_id, 'Label', text_parameter, 'Date Picker');
  CALL_FORM('foxcal', no_hide, do_replace, query_only, no_share_library_data, pl_id);
  :yourdateitem := :Global.G_LOV_Date;
  erase('Global.G_LOV_DATE');
END;

Note: Your current working directory for form designer and runtime should be the directory where you copied the above mentioned three files.

Download the demo form from the following link Date Picker Demo

 

See also: Oracle Forms Recipes

转载于:https://www.cnblogs.com/quanweiru/p/6219963.html