Como localizar registro?

Delphi

17/02/2004

Alguém poderia me ajudar?, meu problema é o seguinte construi um formulário para pesquisar pelo nome em uma tabela Paradox 7, Até ai tudo está funcionando, Mas o que eu quero é o seguinte como eu faço para apresentar os dados do nome localizado como telefone, endereço etc. Em outro formulário quando pressionar enter ou clicar em um botao por exemplo.


Agradeço qualquer ajuda!


Juntal

Juntal

Curtidas 0

Respostas

Lucas Silva

Lucas Silva

17/02/2004

Coloca no Sql da query um parametro (a chave da tabela);

quando você quiser localizar é só jogar um valor p/ o parametro....
with query do
 begin
 Close;
 Params[0].Asstring := Edit.text;
 Open;
;

Você pode usar também o Locate...


GOSTEI 0
Rodolpho123

Rodolpho123

17/02/2004

Olá amigo!
Vc diz o seguinte: Vc quer que quando vc fechar o seu Formulário pesquisa, os dados desta pesquisa estejam em outro formulário?
Onde está localizada a sua tabela? Em um Form ou DataModule?
Aguardo sua resposta para tentá-lo ajudar.
Abraços..........!


GOSTEI 0
Juntal

Juntal

17/02/2004

Olá amigo! Vc diz o seguinte: Vc quer que quando vc fechar o seu Formulário pesquisa, os dados desta pesquisa estejam em outro formulário? Onde está localizada a sua tabela? Em um Form ou DataModule? Aguardo sua resposta para tentá-lo ajudar. Abraços..........!



Exatamente isto! tenho um formulario para pesquisa com edit usando locate, e um dbgrid mostrando os dados da tabela, o que eu quero é quando localizar o nome no dbgrid e pressiono um botão o formulario deve ser fechado e os dados daquele nome localizado seja mostrado em outro formulario, no meu formulário coloquei uma table e um datasource.


Obrigado e abraços...


GOSTEI 0
Godzilla_xf

Godzilla_xf

17/02/2004

Olá amigo espero poder te ajudar com esta dica.
vc faz o seguinte

no form onde vc faz a localização do registro por exemplo no botão do form de pesquisa digite:

With TabPesquisa do
begin
close;
filtered := false;
Filter := ´NomeCliente = ´+ QuotStr(Edit1.text);
Filtered := true;
Open;
if TabPesquisa.recordcont <> ´´ then
begin
// localiza o mesmo cliente da tabela de pesquisa no outro form certo
FormCliente.TabCliente.Locate(´NomeCLiente´, TabPesquisa.FieldByName(´NomeCliente´).value, [LoCaseInsensitive, LoPartialKey]);
// essa linha fecha o form de pesquiza pois a condição acima é verdadeira
self.release;
end
else
showmessage(´Cliente não encontrado´);
edit1.setfocus;
end;

espero ter ajudado com essa dica, mais caso vc tenha duvidas mande MP...

blz...


GOSTEI 0
POSTAR