Fórum Consulta simples! #37341
11/07/2003
0
Olá amigos,
tenho duas tabelas: PRODUTO e FORMULAS.
No meu sistema, quando o usuário entrar com uma fórmula num TEDIT ele deveria buscar o produto correspondente e mostrar sua descrição num TLabel.
Tabela produto: DESCR_PRODUTO, COD_PRODUTO, etc...
Tabela Fórmulas: COD_FORMULA, REV_FORMULA, etc...
sendo que a DESCR_PRODUTO está relacionado ao COD_FORMULA.
Me ajudem poor favor, não sei nem por onde começar....
Valeu!
tenho duas tabelas: PRODUTO e FORMULAS.
No meu sistema, quando o usuário entrar com uma fórmula num TEDIT ele deveria buscar o produto correspondente e mostrar sua descrição num TLabel.
Tabela produto: DESCR_PRODUTO, COD_PRODUTO, etc...
Tabela Fórmulas: COD_FORMULA, REV_FORMULA, etc...
sendo que a DESCR_PRODUTO está relacionado ao COD_FORMULA.
Me ajudem poor favor, não sei nem por onde começar....
Valeu!
Anarchybra
Curtir tópico
+ 0
Responder
Posts
11/07/2003
Ivonei
Acho que você poderia adicionar um campo lookup ´Descricao´ na tabela fórmula, relacionando o COD_PRODUTO com COD_FORMULA para visualizar a DESCR_PRODUTO. E no on exit do Edit1 colocar:
if edit1.caption<>´´ then
begin
if TabelaFORMULA.Locate(´COD_FORMULA´,edit1.text,[loPartialKey])=True then
Label1.caption:= TabelaFORMULA.Descricao.value
else
showmessage(´Este produto não existe´);
end;
Espero que ajude. :wink:
if edit1.caption<>´´ then
begin
if TabelaFORMULA.Locate(´COD_FORMULA´,edit1.text,[loPartialKey])=True then
Label1.caption:= TabelaFORMULA.Descricao.value
else
showmessage(´Este produto não existe´);
end;
Espero que ajude. :wink:
Responder
Gostei + 0
27/07/2003
Anarchybra
valeu Ivonei, brigadão!!
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)