FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Llamada a Form de Consulta y retorno de informacion
Si hago:
Consulta:=TConsulta.Create(Self); Consulta.Show; Como recupero el codigo que he seleccionado en el form de consulta para el form principal? |
#2
|
|||
|
|||
He probado a poner en el form principal:
codigo:=Consulta.QueryCon.fieldbyName('CODIGO').asinteger; Pero no parece funcionar... |
#3
|
|||
|
|||
si tienes que hacerlo con un Show (en lugar de ShowModal que te facilitaria en trabajo ) lo unico que tienes que hacer el crearte una variable publica en el form llamador y, en el OnClose del form llamado actualizar dicha variable
Otra solucion es crearte un objeto que contenga dicha variable en el form llamador y pasarle como parametro este objeto al form llamado |
#4
|
||||
|
||||
Hola.
No puedes declarar un constructor, que devuelva valores. Para solventarlo yo suelo declarar funciones de clase. Código:
class function Seleccionar: Integer; ... implementation class function TConsulta.Seleccionar: integer; begin with TConsulta.Create(Application) do begin // Abrir DataSets, inicializar controles, ... ShowModal; if ModalResult = mrOk then begin Result := DataSet.FieldByName('Codigo').AsInteger; end else begin Result := -1; end; Release; end; end; Código:
Codigo := TConsulta.Seleccionar; if Codigo <> -1 then begin ... end;
__________________
Marc Guillot (Hi ha 10 tipus de persones, els que saben binari i els que no). Última edición por guillotmarc fecha: 08-07-2003 a las 12:56:08. |
#5
|
|||
|
|||
Soy estudiante de Informatica, y necesito aprender a programar en delphi.
Puede uno de ustedes enviarme un manual, en el cual yo pueda aprender. Tengo una ventaja y es que se programar en pascal. la cual es la plataforma de delphi. Espero que me ayuden!!! aneudicontreras@hotmail.com |
#6
|
|||
|
|||
Cita:
Otra cosa, al cambiar el formulario de MDIChild a FsNormal me da error al hacerle el showModal me da el siguiente erro: cannot make a visible window modal Un Saludo. Para Contreras: Yo tambien estoy empezando y si miras en las secciones de ejemplos y manuales de este foro vas a encontrar todo lo que necesitas. Gracias de antemano. |
#7
|
||||
|
||||
Hola
En efecto, la pones en el mismo formulario de consulta. De esta forma te sirve para cualquier formulario que quiera realizar consultas. Lo único que va en el formulario que hace la llamada a la consulta, es la referencia en el Uses, y el código de llamada (se trata de encapsular el código, cuanto más sencilla se la utilización del modulo desde uno externo, mejor) : Código:
Codigo := TConsulta.Seleccionar; if Codigo <> -1 then begin ... end;
__________________
Marc Guillot (Hi ha 10 tipus de persones, els que saben binari i els que no). |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|