consultas por filtragem
No meu projeto estou o seguinte metodo de consulta:
if not dm.clientes.Locate(´Nome´,trim(edit1.text),[locaseinsensitive,lopartialkey]) then
showmessage(´Cliente não encontrado!´)
Só que está sendo muito simples. Gostaria de saber como faço para fazer um consulta pelo nome do cliente, onde o sistema agrupa-se os resultados conforme o parametro escolhido.
Ex.: mar
Resultado: maria, marcos, marcia, etc.
Isto é, todos os nomes que iniciem com o parametro escolhido pelo usuario.
if not dm.clientes.Locate(´Nome´,trim(edit1.text),[locaseinsensitive,lopartialkey]) then
showmessage(´Cliente não encontrado!´)
Só que está sendo muito simples. Gostaria de saber como faço para fazer um consulta pelo nome do cliente, onde o sistema agrupa-se os resultados conforme o parametro escolhido.
Ex.: mar
Resultado: maria, marcos, marcia, etc.
Isto é, todos os nomes que iniciem com o parametro escolhido pelo usuario.
Luc2403
Curtidas 0
Respostas
Leanribas
04/08/2003
Se vc quer fazer esse tipo de consulta vc pode fazer assim:
No OnClick de algum botao:
with Qry do
begin
Close;
Sql.Text := ´select * from CadCliente where nome Like :nome´;
ParambyName(´nome´).asString := QuotedStr(Edit1.text+´¬´);
Open;
end;
Caso o usuario digite ´M´ no edit1 e mande executar a pesquisa, entao serao mostrados todos os clientes onde o nome comece com a letra ´M´
Falou.
No OnClick de algum botao:
with Qry do
begin
Close;
Sql.Text := ´select * from CadCliente where nome Like :nome´;
ParambyName(´nome´).asString := QuotedStr(Edit1.text+´¬´);
Open;
end;
Caso o usuario digite ´M´ no edit1 e mande executar a pesquisa, entao serao mostrados todos os clientes onde o nome comece com a letra ´M´
Falou.
GOSTEI 0