Filtro SQL ao digitar no Edit

25/03/2016

Boa tarde,
Atualmente eu efetuo o filtro SQL com Like atrav�s de um edit simples sem problemas, por�m gostaria de ajuda nessa mesma natureza:

Na tabela de colaboradores eu defino se ele � Ajudante ou Motorista no campo Tipo (A ou M), ou seja, eu queria filtrar ao digitar o nome no edit por Tipo (apenas ajudantes ou motoristas com o nome digitado).

Esse � o c�digo que uso para abrir o mesmo Form no qual ocorre o Select :

procedure TFRMVEICULOS.btn_select_motClick(Sender: TObject);
begin
   FRMSELECTCOLAB.Caption := 'Selecione o Motorista';
   Dm.ZQuery_colab_mot.Active := false;
   Dm.ZQuery_colab_mot.SQL.Clear;
   Dm.ZQuery_colab_mot.SQL.Add('Select * from Colaboradores where Tipo LIKE  ''%M%''ORDER BY ID ASC'); //   ASC ou DESC      e ''%M%'' Motorista
   Dm.ZQuery_colab_mot.Open;

   FRMSELECTCOLAB.ShowModal;

end;

procedure TFRMVEICULOS.btn_select_ajudanteClick(Sender: TObject);
begin
   FRMSELECTCOLAB.Caption := 'Selecione o Ajudante';
   Dm.ZQuery_colab_mot.Active := false;
   Dm.ZQuery_colab_mot.SQL.Clear;
   Dm.ZQuery_colab_mot.SQL.Add('Select * from Colaboradores where Tipo LIKE ''%A%''ORDER BY ID ASC'); //   ASC ou DESC
   Dm.ZQuery_colab_mot.Open;

   FRMSELECTCOLAB.ShowModal;
end;

Muito Obrigado antecipado!!!!

Mauro Monteiro

Curtir t�pico + 0

Responder

Post mais votado

25/03/2016

Boa noite .
Usa dois edits e filtra pelos campos nome e tipo

FRMSELECTCOLAB.Caption := 'Selecione o Motorista';
Dm.ZQuery_colab_mot.Active := false;
Dm.ZQuery_colab_mot.SQL.Clear;
Dm.ZQuery_colab_mot.SQL.Add('Select * from Colaboradores where nome like'+QuotedStr(edtNome.text+'%'));
Dm.ZQuery_colab_mot.SQL.Add('and Tipo like '+QuotedStr(edtTipo.text));
Dm.ZQuery_colab_mot.Open;

Romulo Silva

Responder

Gostei + 1

Mais Posts

25/03/2016

Mauro Monteiro

Muito obrigado, deu certo !!!!

Responder

Gostei + 0