Como filtrar campos em um table digitando so a aprimeira letra

19/02/2013

1

Boa noite amigos estou tentando filtrar campos no IBTable com o comando filter e buscar as palavras com o comando locate e [lopartialkey,locaseinsensitive], mas não consigo fazer com que ele busque a descrição digitando apenas a primeira palavra.
alguem poderia me dar uma força????
Responder

Posts

Boa noite amigos estou tentando filtrar campos no IBTable com o comando filter e buscar as palavras com o comando locate e [lopartialkey,locaseinsensitive], mas não consigo fazer com que ele busque a descrição digitando apenas a primeira palavra.
alguem poderia me dar uma força????


Como você está fazendo, e qual tipo desse campo descrição? Porque você não usa Query?


Boa sorte e bons códigos!
Responder
Eu estou desenvolvendo esse programa para um almoxarifado então quando o cliente não sabe o codigo do material e pede pela descrição ou seja ele diz eu quero um parafuso de 5MM então eu digito parafuso e o programa me da a relação de todos os parafusos listados.
segue oscodigos que eu implementei.

obrigado por enquanto.

begin
ibTable1.filtered := false;
if (edit2.Text<> '') then
begin
ibTable1.filter := 'descricao = '+ QuotedStr(Edit2.text);
ibTable1.filtered := true;
ibTable1.locate('descricao',Edit2.Text,[ locaseinsensitive,lopartialkey ]);
end;
end;
end.
Responder

20/02/2013

Douglas

Martins,

concordo com você. Se ele fizer isto

o código ficaria assim.

begin
QryExemplo.Close;
QryExemplo.SQL.Clear;
QryExemplo.SQL.Add('SELECT * FROM EXEMPLO');
QryExemplo.SQL.Add('WHERE NOMEEXEMPLO LIKE' + QuotedStr(edit2.Text) +'%');
QryExemplo.Open;

// DAQUI EM DIANTE É SÓ CARREGAR O RESULTADO DA QUERY NO QUE VOCÊ QUER.

EX : LABEL1.CAPTION := QryExemplo.FieldByName('NOMEEXEMPLO').AsString;
 


Obs: Deixando claro que o código acima é apenas um exemplo

Boa Sorte.
Responder

20/02/2013

Douglas

Martins,

concordo com você. Se ele fizer isto

o código ficaria assim.

begin
QryExemplo.Close;
QryExemplo.SQL.Clear;
QryExemplo.SQL.Add('SELECT * FROM EXEMPLO');
QryExemplo.SQL.Add('WHERE NOMEEXEMPLO LIKE' + QuotedStr(edit2.Text+'%')); // Acerte este ponto para não ter problema.
QryExemplo.Open;

// DAQUI EM DIANTE É SÓ CARREGAR O RESULTADO DA QUERY NO QUE VOCÊ QUER.

EX : LABEL1.CAPTION := QryExemplo.FieldByName('NOMEEXEMPLO').AsString;
 


Obs: Deixando claro que o código acima é apenas um exemplo

Boa Sorte.
Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira