Consulta simples!
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
Curtidas 0
Respostas
Ivonei
11/07/2003
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:
GOSTEI 0
Anarchybra
11/07/2003
valeu Ivonei, brigadão!!
GOSTEI 0