MANUAL ORACLE DEVELOPER ESPAÑOL.pdf

END;
/*Ejecutamos la consulta*/
Execute_Query;
27. ¿Cómo pasar parametros de un formulario a otro?
Supongamos que en el formulario de Acceso al darle al botón Aceptar queremos
que se pase el nombre del empleado que se ha identificado de forma que en el
formulario de RecursosHumanos (llamador por Acceso) se nos muestren los
datos de dicho empleado.
Lo primero que tendremos que hacer es modificar el código del botón Aceptar
en el formulario Acceso para que mande el nombre del empleado como
parámetro al llamar al formulario RecursosHumanos:
open usuario;
fetch usuario into tipo;
if :persona.edad = tipo.edad then
/*Creamos la lista de parametros*/
parametros := Create_Parameter_List('datos');
/*Añadimos como parametro la persona que se ha
identificado*/
Add_parameter(parametros,'empleado',TEXT_Parameter,:p
ersona.nombre);
/*Llamamos al formulario de Recursos Humanos*/
Run_PRODUCT(FORMS,'RecursosHumanos',SYNCHRONOUS,
RUNTIME, FILESYSTEM,parametros ,NULL);
/*cerramos el de acceso*/
exit_form;
else
/*En caso de fallo mostramos un Alert diciendo que hay un
acceso erroneo*/
ignora:=Show_Alert('errorAcceso');
/*Limpiamos para empezar de nuevo*/
CLEAR_FORM(NO_VALIDATE);
end if;
close usuario;
END;
Lo segundo que haremos es modificar el formulario de RecursosHumanos para
que se inicialice con la persona que se le pasa como parámetro. Antes de anda
tendremos que definir un nuevo parámetro en el navegador de objetos (dándole a
crear) y le daremos nombre EMPLEADO (el nombre con el que lo llamamos
desde el formulario Acceso) y que sea de tipo carácter. Después modificaremos
el disparador WHEN-NEW-FORM-INSTANCE como en la pregunta anterior
pero cambiando la línea Set_Block_Property(bloquedatos,DEFAULT_WHERE,
' nombre = ''Ignacio'' '); por
86