Preencher DBEdit após consulta no DBGrid

[Gabriel Cabral]

Bom dia, galera....

então....preciso preencher várias DBEdit após uma busca em um DBGrid...

a busca dinâmica no DBGrid eu já fiz....então agora eu quero percorrer os registros resultantes no DBGrid e quando eu der um Enter em determinado registro no grid, as DBEdits de um outro form sejam prenchidas com os outros campos desse registro...

eu preciso de um parâmetro para a busca dos outros campos desse registro.....mas como eu devo fazer???

me ajudem por favor......por enquanto meu código está assim..

with dm.QueryBuscaForn do
begin
  Close;
  SQL.Clear;

  SQL.Add('SELECT * FROM FINAFOR.dbf');
  SQL.Add('WHERE FORCOD = :pCOD');

  ParambyName('pCOD')  .AsString := {???????? O QUE COLOCAR AQUI ????????????};
  Open;

  if not(IsEmpty) then
  begin
   frmCadForn.txtCadForn_CodForn.Text := dm.QueryBuscaForn.Fields[0].AsString;
   //e assim por diante com os outros campos....
  end;

end;

Obrigado

[claudyo]

Ola Gabriel Cabral, bom se entendi bem sua duvida, os campos q você quer mostrar nos Dbedits estao na mesma tabela q você esta mostrando no dbGrid, imagino q você tenha um edit pra informar o codigo do produto a ser peskizado então ficaria assim

with dm.QueryBuscaForn do
begin
  Close;
  SQL.Clear;

  SQL.Add('SELECT * FROM FINAFOR.dbf');
  SQL.Add('WHERE FORCOD = :pCOD');

  Parameters.ParambyName('pCOD').Value:=Edit1.text;
  Open;

  if not(IsEmpty) then
  begin
   frmCadForn.txtCadForn_CodForn.Text := dm.QueryBuscaForn.Fields[0].AsString;
   //e assim por diante com os outros campos....
  end;

end;

Se não for isso poste com mais detalhes

Abraço

Editado Novembro 5, 2008 por claudyo