Test de base de datos – Formación profesional de Grado Superior

ALL ON System.alumnos FROM Pedro;

root conn /

all  Miguel, Pedro

 Pedro;

create or replace dia_if(dia_numero number) varchar2 as dia_letras varchar2(10);
begin
dia_numero=7 then dia_letras:=’Domingo’;
   elsif dia_numero=1 then dia_letras:=’Lunes’;
   elsif dia_numero=2 then dia_letras:=’Martes’;
   elsif dia_numero=3 then dia_letras:=’Miercoles’;
   elsif dia_numero=4 then dia_letras:=’Jueves’;
   elsif dia_numero=5 then dia_letras:=’Viernes’;
   elsif dia_numero=6 then dia_letras:=’Sabado’;
;

return ();

end;

create or replace n_mayor(n1 number,n2 ,n3 number) return varchar2
as n_mayor number;
begin

   if (n1>n2) and (n1>n3) then n_mayor:=;
   end if;

   if (n2>n1) and (n2>n3) then n_mayor:=;
   end if;

   if (n3>n1) and (n3>n2) then n_mayor:=;
   end if;

   return ();
end;
/
begin
   dbms_output.put_line(‘El número mayor es ‘|| n_mayor(1,2,3));
end;

create or replace procedure suma(num ) as suma ;
begin
  suma:=0;

  i in 0 .. num loop
    suma:=suma+;
  end ;

dbms_output.put_line();

END;
/
execute suma(4);

create or replace  primo(num int) integer as

esPrimo number;
i number;

begin

when num<=1 then esPrimo:=0; 
when num=2 then esPrimo:=1; 

  i:=2;
  esPrimo:=1;
  num > i.
    if mod(num,i)=0
      then esPrimo:=0;
      exit;
    end if;
  i:=i+1;
  end loop;

end case;

return(esPrimo);

end;
/
begin dbms_output.put_line(primo(45));
end;

• El salario que figura en la tabla «emp» es el sueldo bruto anual.

• Nuestros trabajadores cobran 14 pagas iguales al año.

• Cada mes les pagamos también la comisión correspondiente.

create or replace function (v_empleado emp.emp_no%type) return float as

v_salario emp.salario%type;
v_comision emp.comision%type;
v_salario_mes float;

begin

select salario, comision v_salario, v_comision
from emp
where emp_no=;

v_salario_mes:= (v_salario/)+(/);

return(v_salario_mes);

end;
/
begin dbms_output.put_line((7654));
end;

create table (
number (5) ,
descripcion_cambio varchar2 (100) ,
fecha_cambio
);

Que se llame «auditasueldo» y sirva para que cada vez que se cambie el salario de un empleado se inserte en la tabla «auditaemple» un registro con el mensaje «El salario del empleado codempleado antes era de sueldoantiguo y ahora será sueldonuevo» (donde codempleado es el código del empleado, sueldoantiguo es el sueldo antes del cambio y sueldonuevo es el sueldo después del cambio), la fecha actual y de id_cambio que será el valor más alto que hubiese en la tabla incrementado en 1.

El trigger tendrá por nombre «auditaemple» será una modificación del trigger anterior para añadir que si se da de alta un nuevo empleado se registre en la tabla «auditaemple» el mensaje «Nuevo empleado con código emp_no» (donde emp_noes el valor del campo emp_no para ese registro) con fecha de hoy.

SET SERVEROUTPUT ON

create or replace type empleado_m as
( codigo number,
nombre varchar2(30),
direccion ,
telefono number,
fechanac ,
function edad return number);

create or replace type empleado_m as

member edad return number is

     edad_n number(15);
     mes_system number(15);
     dia_system number(15);
     mes_fnac number(15);
     dia_fnac number(15);

 begin

    edad_n:= (extract (year from sysdate)) – (extract(year from fechanac));
    mes_system:=   extract( from sysdate);
    dia_system:=   extract(day from sysdate);
    mes_fnac:=   extract(month from fechanac);
    dia_fnac:=   extract( from fechanac);

    if mes_system < mes_fnac then

        edad_n:=edad_n-1;

    end if;   

    if mes_fnac = mes_system then

        if dia_fnac < dia_system then

            edad_n := edad_n-1;

        ;

    end if;

    return ;

end;
end;

1. Un objeto dirección_m con los valores calle Futurama n 69, Madrid, Madrid 28040
2. Un objeto de empleado_m con los valores 1234, Miguel Troyano, 666666666, 26/09/1986 y la dirección C/ Pozo n 10, Madrid, Madrid, 28040

declare

   direccion1 ;

   direccion2 direccion_m;

   empleado1 ;

   direccion1:= new direccion_m(‘futurama n 69′,’madrid’, ‘madrid’,28040);

  := new direccion_m(‘c/ pozo n 10,’, ‘madrid’,’, ‘madrid’,’, 28040); 

   empleado1:= empleado_m (1234,’miguel troyano’, direccion2, 666666666, to_date(’26/09/1986′,’dd/mm/yyyy’));

   dbms_output.put_line(direccion1.calle||’ – ‘||direccion1.ciudad||’ – ‘||direccion1.provincia||’ – ‘||direccion1.cp);

   dbms_output.put_line(direccion2.calle||’ – ‘||direccion2.ciudad||’ – ‘||direccion2.provincia||’ – ‘||direccion2.cp);

   dbms_output.put_line(empleado1.codigo||’ – ‘||empleado1.nombre||’ – ‘||empleado1.telefono||’ – ‘||empleado1.fechanac);

end;

Realiza dos insert en la tabla que acabas de crear y especifica a la consulta que nos devuelva todos los campos de la tabla departamento.

create type col_emp as (10) of varchar2(20);
/
table departamentos(
    codigo number(4),
    nombre varchar(20),
    empleados );
/ 
insert into departamentos
values ( 10,’desarrollo’,col_emp(‘Miguel Troyano’, ‘Ismael Troyano’));
/
insert into departamentos
values ( 20,’produccion’,col_emp(‘Miguel redondo’, ‘Ismael redondo’, ‘Pilar redondo’));
/
select * from ;

Además, debe tener un nuevo atributo que indique el tipo de animal que es y un nuevo método de tipo CONSTRUCTOR (con mismo nombre que tipo de objeto y devuelve “self”) que fije el número de patas y sonido que hace igual a:

Ej: Perro -> 4 patas y ladra

create or replace type perro animales(
   especie varchar2(20),
  function perro return self as result,
   constructor function perro (nombre varchar2, fechanac date, sexo varchar2) return self as result,
   member procedure describir_especie);

create or replace type perro as
constructor function perro return self as result as
begin
    self.especie:=’perro’;
    self.npatas:=4;
    self.sonido:=’ladra’;
    ;
end perro;

constructor perro (nombre varchar2, fechanac date, sexo varchar2) return self as result as
mensaje varchar2(70);

begin
   if (sexo=’macho’)
     then self.especie:=’perro’;
      elsif (sexo=’hembra’)
     then self.especie:=’perra’;
   else mensaje:=’el sexo de ‘||nombre||’ no ha sido introducido correctamente!’;
      raise_application_error(-20504,mensaje);
   end if;

self.npatas:=4;
self.sonido:=’ladra’;
self.nombre:=nombre;
self.fechanac:=fechanac;
self.sexo:=sexo;
return;
end perro;

member describir_especie as
begin
    if (self.especie=’perro’)
       then dbms_output.put_line(‘—> ‘||self.nombre||’ es un ‘||self.especie);
       elsif (self.especie=’perra’)
       then dbms_output.put_line(‘—> ‘||self.nombre||’ es una ‘||self.especie);
       else dbms_output.put_line(‘—> la especie ‘||self.especie||’ no es existe para ‘||self.nombre);
end if;
end ;
end;