Foros Club Delphi - selecciona el primer registro de mi tabla!!

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - selecciona el primer registro de mi tabla!! (https://www.clubdelphi.com/foros/showthread.php?t=46442)

selecciona el primer registro de mi tabla!!

hola chicos quisiera su ayuda para ver si me ayudan a resolver mi problema tengo un formulario de busqueda de salarios con un edit1 DBGrid y botones de buscar aceptar y salir. al hacer la busqueda busca el campo ahi no tengo problemas pero como tranfiero mis datos a otro formulario al hacer click en el boton aceptar me manda el primer registro de mi tabla y no el dato que busco

este esel codigo de mi boton aceptar del formulario busqueda

Código:

begin

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;

ya declare mis variables publicas y este es mi codigo del boton buscar de mi formulario de modificar

Código:

begin

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;

no se si este mal mi sentencia en el SQL de mi ADOQuery es esta

Código:



SELECT * FROM salario

WHERE nive_sall=:A1

gracias de antemano por la ayuda...:o

Creo que en vez de declarar variables públicas, y asumiendo que el ADOQuery está en Form32, antes de hacer un Free sobre el formulario, deberías tomar directamente los valores desde el Query..

Código:

begin

Form32:=TForm32.Create(self);

   try

    Form32.ShowModal;

   finally

   If NOT Form32.ADOQuery.IsEmpty then

   Begin

   Edit1.Text := Form32.ADOQuery.FieldByName('nive_sall')AsString;

   Edit2.Text := Form32.ADOQuery.FieldByName('salario_sall')AsString;;

   End;

   Form32.Free;

   end;