Fórum Filtro SQL com 3 condições (era: Logica..) #333992

qry.close;
qry.sql.text := 
  ´SELECT * FROM DATA ´+
  ´Where Dia like :Dia and valor1 like :valor1 and valor2 like :valor2 ORDER BY DIA´;

if checkbox1.checked then
  qry.sql.parambyname(´dia´).asstring := edit1.text
else
  qry.sql.parambyname(´dia´).asstring := ´¬´

if combobox1.text <> ´´ then
  qry.sql.parambyname(´valor1´).asstring := combobox1.text
else
  qry.sql.parambyname(´valor1´).asstring := ´¬´

if combobox2.text <> ´´ then
  qry.sql.parambyname(´valor2´).asstring := combobox2.text
else
  qry.sql.parambyname(´valor2´).asstring := ´¬´

qry.open;

SELECT
  CODIGO,
  NOME,
  COALESCE(MODELO,´´) AS MODELO,
  COALESCE(FABRICANTE,´´) AS FABRICANTE
FROM PRODUTOS
WHERE
  CODIGO LIKE :CODIGO AND
  NOME LIKE :NOME AND
  COALESCE(MODELO,´¬¬´) LIKE :MODELO AND
  COALESCE(FABRICANTE,´¬¬´) LIKE :FABRICANTE
ORDER BY
  NOME

with qryPesquisa do begin
    Close;
    ParamByName(´CODIGO´).AsString := ´¬¬´;
    ParamByName(´NOME´).AsString := ´¬¬´;
    ParamByName(´MODELO´).AsString := ´¬¬´;
    ParamByName(´FABRICANTE´).AsString := ´¬¬´;
    case RadioGroup1.ItemIndex of
      0 : ParamByName(´CODIGO´).AsString := texto;
      1, 2, 3 : ParamByName(RadioGroup1.Items[RadioGroup1.ItemIndex]).AsString := texto+´¬´;
    end;
    Open;
    if not IsEmpty then DBGrid1.SetFocus;
  end;