Pasar parámetros de un formulario a otro
Estoy haciendo una aplicación utilizando como herramienta Delphi 5 y como base de datos Interbase 6. Lo que pretendo es que el usuario elija las opciones de su consulta en un formulario con Edit, RadioGroup o CheckBox. Luego se debe abrir otro formulario donde se debe formar el query a partir de los parámetros recibidos del anterior. Mi pregunta en concreto es : ¿Cómo pasar, recibir e insertar en el query estos parámetros?.
1 respuesta
Respuesta de radaalvaro
1
Bien, lo que necesitas es lo siguiente:
Para abrir el segundo formulario tienes las siguientes lineas de código en el primero.
/*** mira bien esto.....
unit Unit1;
interface
Uses ..... Unit2;
/////-----
de esta manera le dices:
form2:=tform2.create(form2);
Así abres el segundo... ahora para pasar parámetros del primero al segundo, debes añadir lo siguiente.
//--- mira bien las lineas de codigo.
//esto es en el sector de implementation
var form2: tform2;
implementation
//debes añadir esto
Uses Unit1;
con esto puedes hacer referencia a cualquiera de los campos...
Y luego tranquilamente puedes acceder al edit o a radiobutton del primer formulario haciendo lo siguiente.
var
cadena:=string;
k:boolean;
begin
cadena:=Form1.edit1.text;
k:=radiobutton1.checked;
end;
Espero que te haya servido, si no me explique bien, con gusto lo volveré a hacer más detalladamente.
Para abrir el segundo formulario tienes las siguientes lineas de código en el primero.
/*** mira bien esto.....
unit Unit1;
interface
Uses ..... Unit2;
/////-----
de esta manera le dices:
form2:=tform2.create(form2);
Así abres el segundo... ahora para pasar parámetros del primero al segundo, debes añadir lo siguiente.
//--- mira bien las lineas de codigo.
//esto es en el sector de implementation
var form2: tform2;
implementation
//debes añadir esto
Uses Unit1;
con esto puedes hacer referencia a cualquiera de los campos...
Y luego tranquilamente puedes acceder al edit o a radiobutton del primer formulario haciendo lo siguiente.
var
cadena:=string;
k:boolean;
begin
cadena:=Form1.edit1.text;
k:=radiobutton1.checked;
end;
Espero que te haya servido, si no me explique bien, con gusto lo volveré a hacer más detalladamente.
