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:
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.
Date Picker Calendar For Oracle Forms 6i
原文：http://www.cnblogs.com/quanweiru/p/6219963.html
