GARANTIR DESCONTO

Fórum Select em um Edit #424476

24/09/2012

0

Pessoal Boa tarde !

Alguem pode me ajudar, estou querendo fazer assim no meu programinha , assim que o usuario digitar o codigo do produto no edit 1 ,a descrição do produto aparecesse automatico no edit 2 .

Alguem pode me falar como é o comando ,que devo usar no edit ?

Abraço a todos
Watson Rocha

Watson Rocha

Responder

Posts

24/09/2012

Wilton Júnior

Vai no evento onchange do edit e faz assim
with query do
begin
close;
sql.clear;
sql.add('select * from tabela where codigo like ' + #39 + '%' + edit1.text + '%' + #39);
open;
end;

if not query.isempty
edit2.text querydescricao.asstring;

Simples assim.

Espero ter ajudado
Deus o abençoe.
Responder

Gostei + 0

24/09/2012

Watson Rocha

Wilton ,primeiramente amém !!

Viu fiz dessa forma .
begin
Sqlquery1.Close;
Sqlquery1.SQL.Clear;
Sqlquery1.SQL.Add('select * from almox where Codigo like'+#39 +'%'+edit6.Text+'%'+#39);
Sqlquery1.Open;
end;
if not Sqlquery1.isempty <<---- aqui nessas duas ultimas linhas está dando erro
edit1.textSqlquery1.asstring;
Responder

Gostei + 0

24/09/2012

Bruno Leandro

Watson acredito que o codigo deveria ser algo desse genero a baixo, substitua conforme modelo a seguir e verifique

if not( Sqlquery1.IsEmpty ) then
edit2.text := Sqlquery1.fieldbyname('campo_descricao').asstring;
Responder

Gostei + 0

24/09/2012

Watson Rocha

pessoal deu certo..

RESOLVIDO !
Responder

Gostei + 0

25/09/2012

Joel Rodrigues

Que bom que deu certo.
Estou encerrando o tópico.
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar