Como filtrar campos em um table digitando so a aprimeira letra

Firebird

19/02/2013

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????
Flavio Oliveira

Flavio Oliveira

Curtidas 0

Respostas

Perivaldo Martins

Perivaldo Martins

19/02/2013

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!
GOSTEI 0
Flavio Oliveira

Flavio Oliveira

19/02/2013

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.
GOSTEI 0
Douglas

Douglas

19/02/2013

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.
GOSTEI 0
Douglas

Douglas

19/02/2013

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.
GOSTEI 0
POSTAR