Como transferir datos de un ADOquery a un Formulario

[[Caral]]

Hola maru1981
Copia el codigo del form1 y el from2, el que busca y el que recibe la informacion, le hacemos los ajustes y ya.
Te parece?
Saludos

[maru1981]

mira este es mi codigo en el formulario de busqueda mis datos los tipeo en un edit y los visualizo en un DataGrid este es el codigo que tengo en mi boton de busqueda.

begin
b_nivel.Active:=False;
b_nivel.Parameters.ParamByName('A1').Value:=Edit1.Text;
DBGrid1.DataSource:=nivel;
b_nivel.Active:=true;
end;
 

lo unico que pude hacer es agregar un boton de visualizar busqueda en el formulario de modificar para asi poder ver los datos buscado en mi formulario de busqueda, pero no quiero hacerlo asi quiero que parezcan al dar click en mi boton de aceptar y que salga del formulario de busqueda y transfiera los datos a mi formulario de modificar en los edit

este es el codigo de mi boton de visualizar busqueda en el formulario de modificar

begin
Edit1.Text:=Form32.b_nivel.FieldByName('nive_sall').AsString;
Edit2.Text:=Form32.b_nivel.FieldByName('salario_sal').AsString;
end;

ya declare las variables publicas. espero haberme explicado. gracias de ante mano.

[[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