ITPUBÂÛ̳ » Oracle¿ª·¢ » Oracle Developer Suite » ÔÚform6iÖÐÓÃformµ÷ÓÃreport,²¢ÇÒÏòreport´«µÝÒ»¸ö²ÎÊý£¬×ÜÊdzöÏÖ²ÎÊý¶Ô»°¿ò£¬ÈçºÎÈ¥µ
12ÔÂ΢ÈíHyper-VÐéÄ⻯ɳÁúÖ÷ÌâÕ÷¼¯
2004-11-5 10:31 Arraytedagov
ÔÚform6iÖÐÓÃformµ÷ÓÃreport,²¢ÇÒÏòreport´«µÝÒ»¸ö²ÎÊý£¬×ÜÊdzöÏÖ²ÎÊý¶Ô»°¿ò£¬ÈçºÎÈ¥µ

¶àлÁË

2004-11-8 16:07 shirleyzhw
ADD_PARAMETER(T_PARAM,'PARAMFORM',TEXT_PARAMETER,'NO');

2004-11-8 17:51 luna_xx
PROCEDURE Run_Emp_Report IS
  pl_id ParamList;
BEGIN
  /*
  ** Check to see if the 'tmpdata' parameter list exists.
  */
  pl_id := Get_Parameter_List('tmpdata');
  /*
  ** If it does, then delete it before we create it again in
  ** case it contains parameters that are not useful for our
  ** purposes here.
  */
  IF NOT Id_Null(pl_id) THEN
    Destroy_Parameter_List( pl_id );
  END IF;
  /*
  ** Create the 'tmpdata' parameter list afresh.
  */
  pl_id := Create_Parameter_List('tmpdata');
  /*
  ** Add a data parameter to this parameter list that will
  ** establish the relationship between the named query
  ** 'EMP_QUERY' in the report, and the record group named
  ** 'EMP_RECS' in the form.
  */
  Add_Parameter(pl_id,'EMP_QUERY',DATA_PARAMETER,'EMP_RECS');
  /*
  **Pass a Parameter into PARAMFORM so that a parameter dialog will not appear
  **for the parameters being passing in.
  */

  Add_Parameter(pl_id, 'PARAMFORM', TEXT_PARAMETER, 'NO');
  /*
  ** Run the report synchronously, passing the parameter list
  */
  Run_Product(REPORTS, 'empreport', SYNCHRONOUS, RUNTIME,
           FILESYSTEM, pl_id, NULL);
END;
²Î¿¼Ò»Ï£¬ÆäʵÄã¿ÉÒÔÔÚdpµÄ°ïÖúÖмä²érun_product»òÕßRUN_REPORT_OBJECT

Ò³: [1]


Powered by ITPUBÂÛ̳