zoukankan      html  css  js  c++  java
  • 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

     

  • 相关阅读:
    [恢]hdu 2098
    [恢]hdu 2049
    [恢]hdu 2027
    [恢]hdu 2111
    [恢]hdu 1202
    [恢]hdu 2131
    Windows Phone 7 文件下载进度和速度显示
    深入WPF中的图像画刷(ImageBrush)之1——ImageBrush使用举例
    深入WPF中的图像画刷(ImageBrush)之2——ImageBrush的铺设方式
    textblock设置属性
  • 原文地址:https://www.cnblogs.com/quanweiru/p/6219963.html
Copyright © 2011-2022 走看看