第16章.txt

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

例16.1 
PROCEDURE col1(elem IN og_object, query IN og_query) IS
  data_value number;
BEGIN
  data_value:=og_get_numcell(query,og_newdata,'deptno');
  if data_value=10 then
  	 og_set_fillcolor(elem,'RED');
  elsif data_value=20 then
  	 og_set_fillcolor(elem,'GREEN');
  elsif data_value=30 then
  	 og_set_fillcolor(elem,'BLUE');
  end if;
END;

例16.2 
PROCEDURE OGBUTTONPROC0 (buttonobj IN og_object,
                         hitobj IN og_object,
                         win IN og_window,
                         eventinfo IN og_event) IS
    home_layer  OG_LAYER;
    next_layer    OG_LAYER;
BEGIN
    home_layer:=OG_GET_LAYER('layer0');
    next_layer:=OG_GET_LAYER('layer1');
    OG_ACTIVATE_LAYER(next_layer);
    OG_SHOW_LAYER(next_layer);
    OG_HIDE_LAYER(home_layer);
END;

16.4节
DECLARE 
  pl_id   ParamList;
begin
  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,'pyear',TEXT_PARAMETER,to_char(:v_toolbar.s_date,'YYYY'));
  go_block('tu');
  og.open(getpath||'jyjlb.ogr','jyjlb',true,true,pl_id);
end;