第15章.txt

oracle操作基础基础基础基础基础基础基础基础基础基础基础基础

例15.1
function B_1FormatTrigger return boolean is
begin
  if :comm IS NULL then
     return (TRUE);
  else
     return (FALSE);
  end if;  	
end;

例15.2 
function DESTYPEValidTrigger return boolean is
begin
  IF :destype='PRINTER' THEN
     return (TRUE);
  ELSE
  	 return(FALSE);
  END IF;
end;

例15.3 
declare
  ret number;
  pl_id   ParamList;
begin
  if :system.form_status='CHANGED' then
     ret:=show_msg1('数据已改变，请先保存或恢复数据');
     return;
  end if;
  pl_id := Get_Parameter_List('tmpdata'); 
  IF NOT Id_NULL(pl_id) THEN 
    Destroy_Parameter_List( pl_id ); 
  END IF; 
  pl_id := Create_Parameter_List('tmpdata');
  Add_Parameter(pl_id,'P_XH',TEXT_PARAMETER,:sctzd.xh);
  Add_Parameter(pl_id,'DESTYPE',TEXT_PARAMETER,'printer');
  Run_Product(REPORTS, Replace(GetPath,'\form\','\')||'rpt\sctzd', SYNCHRONOUS, RUNTIME, 
                              FILESYSTEM, pl_id, NULL); 
end;