F�rum Pesquisa com v�rios campos de busca #581208

10/05/2017

Boa tarde! Em um formul�rio de pesquisa tenho 4 edits, EditNome onde busca pelo nome, EditProntGrad, EditProntPos, EditProntEmer (ambos buscam pelo n�mero do prontu�rio). O usu�rio tem a op��o de preencher um ou varios campos. Estou usando dbexpress, na sql da query coloquei:

select * from pacientes
where UPPER (nome_paciente) like UPPER (:NomePaciente)
or pront_grad = :ProntGrad
or pront_pos = :ProntPos
or pront_emerg = :ProntEmerg

No c�digo fiz o seguinte:

  ClientPacientes.Close;
  QueryPacientes.Close;
// Edit Nome
   if EditPaciente.Text <> ' ' then
   begin
    QueryPacientes.ParamByName('NomePaciente').AsString
    := '%' + EditPaciente.Text + '%';
   end
    else
     begin
      QueryPacientes.ParamByName('NomePaciente').AsString := '%%';
     end;
 //Edit Pront Grad
   if EditGrad.Text <> ' ' then
   begin
     QueryPacientes.ParamByName('ProntGrad').AsString := EditGrad.Text;
   end;
// Edit Pront Pos
   if EditPos.Text <> ' ' then
   begin
     QueryPacientes.ParamByName('ProntPos').AsString := EditPos.Text;
   end;
if EditEmerg.Text <> ' ' then
   begin
     QueryPacientes.ParamByName('ProntEmerg').AsString := EditEmerg.Text;
   end;

QueryPacientes.Open;
ClientPacientes.Open;

Se o usuario digita no campo nome a pesquisa est� ok, mas se digita em algum dos campos de pront a dbgrid me traz todos os dados e n�o somente o desejado. Algu�m pode me ajudar na solu��o?

Deise Souza

Curtir t�pico

+ 0

Responder

Post mais votado

10/05/2017

Ol�! No seu comando SQL voc� precisa colocar um "and" ao inv�s de "or". Nesse caso, eu sugiro que voc� construa o SQL dinamicamente de acordo com o que o usu�rio selecionar na interface, e passando esse comando para a query (qry.Sql.Add)

Jones Granatyr

Responder

Gostei + 2

Mais Posts

11/05/2017

Natanael Ferreira

Isso mesmo, monte sua consulta de maneira din�mica.

Segue exemplo:

var
  SqlWhereAnd: string;
begin
  ClientPacientes.Close;

  with QueryPacientes do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from pacientes');

    SqlWhereAnd := 'where';
    // Edit Nome
    if Trim(EditPaciente.Text) <> EmptyStr then
    begin
      SQL.Add(SqlWhereAnd + ' UPPER(nome_paciente) like UPPER(:NomePaciente)');
      ParamByName('NomePaciente').AsString := '%' + EditPaciente.Text + '%';
      SqlWhereAnd := ' and ';
    end;

    // Edit Pront Grad
    if EditGrad.Text <> EmptyStr then
    begin
      SQL.Add(SqlWhereAnd + ' pront_grad = :ProntGrad');
      ParamByName('ProntGrad').AsString := EditGrad.Text;
      SqlWhereAnd := ' and ';
    end;

    // Edit Pront Pos
    if EditPos.Text <> EmptyStr then
    begin
      SQL.Add(SqlWhereAnd + ' pront_pos = :ProntPos');
      ParamByName('ProntPos').AsString := EditPos.Text;
      SqlWhereAnd := ' and ';
    end;

    if EditEmerg.Text <> EmptyStr then
    begin
      SQL.Add(SqlWhereAnd + ' pront_emerg = :ProntEmerg');
      ParamByName('ProntEmerg').AsString := EditEmerg.Text;
      SqlWhereAnd := ' and ';
    end;

    Open;
  end;

  ClientPacientes.Open;
end;

Responder

Gostei + 1

12/05/2017

Deise Souza

E na propriedade sql da query eu deixo como?

Responder

Gostei + 0

12/05/2017

Natanael Ferreira

Se voc� usa esta Query apenas para esta consulta, voc� pode deixar em branco ou apenas:

select * from pacientes

No exemplo que passei esta propriedade ser� limpada e preenchida dinamicamente quando aquele c�digo for chamado.

Responder

Gostei + 1