Como transferir datos de un ADOquery a un Formulario

[[Caral]]

Hola
Vamos por partes:
1- Form Modificar. (Form33)
2- Form Busqueda.(Form32)
Primero:
El form Modificar, llama al form Busqueda con un boton1, supongo que lo llamas con el metodo convencional asi:
En el Boton1 que llama al from Busqueda.

Código Delphi [-]
   Form32:=TForm32.Create(self);
   try
    Form32.ShowModal;
   finally
   If Form32.nive_sall <> '' then
   Edit1.Text := Form32.nive_sall;
   Edit2.Text := Form32.salario_sal;
   Form32.Free;
   end;

Como ves, el form Modificar indica que quiere de regreso los datos del from Busqueda.
Ahora en el From Busqueda:
Declaramos las variables del from Modificar, como publicas:

Código Delphi [-]
 private
    { Private declarations }
  public
    { Public declarations }
     nive_sall: string;
     salario_sal: string;
  end;

En el boton que cierra el Form Busqueda:
Aqui estoy asumiendo que los campos se llaman, nive_sall y salario_sal igual que las variables y que el adotable o adoquery se llama b_nivel, si no es asi, verifica los nombres y los cambias.

Código Delphi [-]
  nive_sall := b_nivelnive_sall.AsString;
  salario_sal := b_nivelsalario_sal.AsString;
  Close;

Como ves lo que indico es que cuando se salga del form se mantengan las variables.
Espero lo entiendas mejor.
Saludos

[maru1981]

Hola caral mira ya lo hice pero me manda un error en mi formulario de busqueda en esta linea

[code]
nive_sall := b_nivelnive_sall.AsString;
salario_sal := b_nivelsalario_sal.AsString;
Close;
[/close]

el error que manda es este

[Error] Unit32.pas(62): Undeclared identifier: 'nive_sall'
[Error] Unit32.pas(63): Undeclared identifier: 'salario_sal'
[Error] Unit32.pas(63): Missing operator or semicolon
 
 

que hago mal? gracias por tu atencion...

[[Caral]]

Hola
Creo segun entiendo tienes un ADOTable, este ve la tabla, bueno, dale doble click y te saldra una pantallita pequeña, dale click derecho y add, selecciona todos los campos , hecho esto, estaran en la pantallita, bien, aqui veras los nombres de los campos a los que vas a llamar, son estos los que vas a poner en la linea que te da error, asi:

Código Delphi [-]
  nive_sall   := b_nivelELNOMBREDELCAMPO1.AsString;
  salario_sal := b_nivelELNOMBREDELCAMPO2.AsString;

Si los nombres coinciden y estan en la pantallita, no tendras problemas.
Espero lo entiendas ahora, si no, pues a seguir.
Saludos

[maru1981]

ya lo hice eres un genio gracias por tu ayuda me es mucha ayuda en estos momento ya que tengo que entregar este pequeño sistema para mañana y no tenia ni idea de como empezar..

saludos!!!

[[Caral]]

Hola
Me alegro que te funcione.
Saludos