Ir al contenido


Foto

Hacer busqueda llamando otro formulario...


  • Por favor identifícate para responder
2 respuestas en este tema

#1 ZiriusB

ZiriusB

    Newbie

  • Miembros
  • Pip
  • 2 mensajes

Escrito 15 noviembre 2010 - 12:18

Buenas;
Estoy haciendo una aplicacion en la cual quiero tener un FORMULARIO DE BUSQUEDA donde introducire CODIGO DEL TRABAJADOR y al hacer clic en Buscar este me abra otro formulario en donde me cargue el nombre del trabajador, mes actual, etc (por dar algunos ejemplos) como puedo hacer esto...
Espero sus respuestas y gracias por la ayuda!
  • 0

#2 felipe

felipe

    Advanced Member

  • Administrador
  • 3.283 mensajes
  • LocationColombia

Escrito 16 noviembre 2010 - 09:06

Hola,
¿tu consulta es por parámetros?

De ser así simplemente pasas ese valor y al momento de abrir tu formulario sería algo como esto:



delphi
  1. MiFormulario := TMiFormulario.Create(Self);
  2. MiQuery.Open;



Así, creas tu formulario y despues ejecutas la consulta.


Saludos!
  • 0

#3 razadi

razadi

    Advanced Member

  • Miembro Platino
  • PipPipPip
  • 681 mensajes
  • LocationMéxico D.F.

Escrito 16 noviembre 2010 - 11:51

Saludos Amigo, bienvenido al foro, yo lo haría de la siguiente manera:

Tengo dos Forms Form1 y Form2 donde Form1 tiene el query y un grid relacionado al query, por supuesto, al presionar una tecla en mi caso "F3" se abre el form2 quien tiene una propiedad de tipo dataset donde relaciono el query qwue tengo en el form1 lo llamo asi:



delphi
  1. {Cuando presiono el F3, puede ser en un Action o directamente en el KeyDown del form del form1}
  2. ...
  3. form2 := Tform2.create(nil);
  4. try
  5.   if form2.busca=mrOK then begin
  6.     query.params[0].AsString=ValRegresado;
  7.     ...
  8.   end;
  9. finally
  10.   form2.Free;
  11. end;
  12.  
  13. {esto es en el form2}
  14. var
  15.   ValRegresado: string;
  16.  
  17. function busca: integer;
  18. begin
  19.   Result := ShowModal;
  20.   if ModalREsult=mrOK then
  21.     ValRegresado := 'Valor a Regresar';
  22. end;



De esta manera al momneto de darle aceptar a tu form2 lo liberas y regresa lo que se haya consultado para filtrar tu grid, o lo que necesites, saludos.
  • 0




IP.Board spam blocked by CleanTalk.