Проблема с фильтрацией

[Kuraj]

Здравствуйте есть код

procedure TForm1.btn1Click(Sender: TObject);
var i,Found,k : Integer;
          c : TComponent;
begin
  qry1.Close;
  k:=0;
  qry1.SQL.Add('select * from otkaz where îì_ðîâä=:0 and ãîä=:1 and îòêàçíîé=:2 and äàòà=:3'+
  ' and êâàëèô=:4 and îòêàç=:5 and èñïîëíèë=:6 and óòâåðäèë=:7 and ñîâåðøåíî=:8 and âðåìÿ=:9 and àäðåñ=:10 and ìåñòî=:11'+
  ' and ïðåäì=:12 and ôàáóëà=:13 and çàÿâèòåëü=:14 and àäðåñ_çàÿâèò=:15 and ïðîêóðàòóðà_íàïðàâ=:16'+
  ' and ïîëó÷åíî=:17 and ðåøåíèå=:18 and äàòà_ðåøåíèÿ=:19 and íîìåð_äîê=:20 and äàòà_äîê=:21 and êâàëèô_=:22'+
  ' and íàïðàâëåí=:23 and îñîáîòì=:24 and ââîä_îïåðàòîð=:25 and êîððåêò_îïåðàòîð=:26');
  //ShowMessage(IntToStr(qry1.Parameters.Count));
  for i:=1 to Form1.ComponentCount-1 do
    begin
      c:=Form1.FindComponent(Form1.Components[i].Name);
      Found := Pos('edt', c.Name);
      IF Found > (0) then
       if (((c as TEdit).Text='') or ((c as TEdit).Text='*')) then
        begin
           (c as TEdit).Text:='*';
           qry1.Parameters[k].Value := '*';
           Inc(k);
        end else
         begin
           qry1.Parameters[k].Value:=(c as TEdit).Text;
           Inc(k);
         end;
    end;
  qry1.Active:=True;
end;

Есть форма в котором много полей и по ним должен ввестись вестись поиск...
Проблема в том что получается так если не чего не введено то ставится звездочка и по идее он должен искать все значения а он ищет только звездочку.. Как можно это исправить? Есть ли какойнить специальный символ?

ps сори за проблеммы с кодировкой если исправлю отредактирую

[vovk]

В запросах для строковых значений используйте не = а Like

[Kuraj]

Не нашел ответа что в параметрах можно поставить что бы выбиралось все пришлось делать через жопу.... типа такой фильтрации на каждый ввод

qry1.Close;                                     // a:=<>''
qry1.SQL.Clear;
x:=0;
sql_s:='select * from otkaz where';
if edt1.text<>''  then
  begin
    sql_s:=sql_s+' ом_ровд='+chr(39)+edt1.text+chr(39);
    x:=1;
  end;


if (edt2.text<>'') and (x=1) then
  begin
    sql_s:=sql_s+' and год='+chr(39)+edt2.text+chr(39);
  end;
if (edt2.text<>'') and (x=0) then
  begin
      sql_s:=sql_s+' год='+chr(39)+edt2.text+chr(39);
      x:=1;
  end;

if (edt3.text<>'') and (x=1) then
  begin
    sql_s:=sql_s+' and отказной='+chr(39)+edt3.text+chr(39);
  end;
if (edt3.text<>'') and (x=0) then
  begin
    sql_s:=sql_s+' отказной='+chr(39)+edt3.text+chr(39);
    x:=1;
  end;



qry1.SQL.Add(sql_s)   ;
 qry1.Active:=True;

[Serge_Bliznykov]

ну и нормальное решение!
Генерация запроса "на лету"

Единственное. я бы рекомендовал чуть другой подход.
Можно обойтись без переменной X
сделать это можно двумя способами.
1) можно написать так:

sql_s:='select * from otkaz where 1 = 1';

if edt1.text<>''  then 
  sql_s:= sql_s + ' and  ом_ровд='+QuotedStr(edt1.text);

if (edt2.text<>'') then
  sql_s:=sql_s+' and год='+QuotedStr(edt2.text);
 
// ... ещё куча проверок Edt (чекбоксов и т.д.)

....

либо, второй подход (если не нравится в запросе 1=1)

sql_s:='select * from otkaz ';
WhereSQL := '';

if edt1.text<>''  then begin
   if WhereSQL<>'' then WhereSQL := WhereSQL + ' and ';
   WhereSQL := WhereSQL + 'ом_ровд='+QuotedStr(edt1.text);
end;

if (edt2.text<>'') then begin
    if WhereSQL<>'' then WhereSQL := WhereSQL + ' and ';
    WhereSQL :=  WhereSQL +'год='+QuotedStr(edt2.text);
end;

// ... ещё куча проверок Edt (чекбоксов и т.д.)

{завершение - формируем строчку запроса}
if WhereSQL<>'' then
  sql_s := sql_s + ' where ' + WhereSQL;

p.s. я чаще пользуюсь вторым подходом, хотя первый короче... Так что - выбирайте, что Вам больше нравится!

Да. Ещё. Длина одной строки в запросе SQL (Query / AdoQuery ) не может быть более 255 символов. Если у Вас много эдитов, тогда строчку формируйте и записывайте сразу в SQL каждое условие через SQL.Add(...AND очередное условие );

[rumil]

Дблукап

filtr_str:='';

//использовать населенный пункт
if (place_CheckBox.Checked)  AND (place_DBLookupComboBox.KeyValue<>null)
  then  filtr_str:= 'id_place='''+inttostr(place_DBLookupComboBox.KeyValue);

 //использовать сектор
if (sektor_CheckBox.Checked) AND (sektor_DBLookupComboBox.KeyValue<>null) then
   begin
    if filtr_str<>'' then
      filtr_str:=filtr_str+ ''' AND id_sektor='''+inttostr(sektor_DBLookupComboBox.KeyValue)
    else
      filtr_str:='id_sektor='''+inttostr(sektor_DBLookupComboBox.KeyValue);
   end;

 //использовать пол
if (gender_CheckBox.Checked) AND (gender_DBLookupComboBox.KeyValue<>null) then
   begin
    if filtr_str<>'' then
      filtr_str:=filtr_str+ ''' AND gender='''+inttostr(gender_DBLookupComboBox.KeyValue)
    else
      filtr_str:='gender='''+inttostr(gender_DBLookupComboBox.KeyValue);
   end;

 //использовать профессию
if (prof_CheckBox.Checked) AND (prof_DBLookupComboBox.KeyValue<>null) then
   begin
    if filtr_str<>'' then
      filtr_str:=filtr_str+ ''' AND id_prof='''+inttostr(prof_DBLookupComboBox.KeyValue)
    else
      filtr_str:='id_prof='''+inttostr(prof_DBLookupComboBox.KeyValue);
   end;

 //использовать национальности
if (national_CheckBox.Checked) AND (national_DBLookupComboBox.KeyValue<>null) then
   begin
    if filtr_str<>'' then
      filtr_str:=filtr_str+ ''' AND id_national='''+inttostr(national_DBLookupComboBox.KeyValue)
    else
      filtr_str:='id_national='''+inttostr(national_DBLookupComboBox.KeyValue);
   end;

if filtr_str='' then exit;
// если есть фильтр добавляем ключевое  слова
if filtr_str<>'' then filtr_str:= ' WHERE '+ filtr_str+'''';

// выводим точто получилось
basic_table.SQL.Text:=  'SELECT * FROM doz_basic'+filtr_str ;

basic_table.Execute;

В случае с эдитами

filtr_str:='';

 //использовать фамилию
if edit1.Text<>'' then
      filtr_str:='lastname LIKE (''%'+edit1.Text+'%'')';

    //использовать имя
if edit2.Text<>'' then
   begin
    if filtr_str<>'' then
      filtr_str:=filtr_str+ ''' AND firstname LIKE (''%'+edit2.Text+'%'')'
    else
      filtr_str:='firstname LIKE (''%'+edit2.Text+'%'')';
   end;
   
if filtr_str='' then exit;

// если есть фильтр добавляем ключевое  слова
if filtr_str<>'' then filtr_str:= ' WHERE '+ filtr_str+'';

// выводим точто получилось
basic_table.SQL.Text:=  'SELECT * FROM doz_basic'+filtr_str ;
basic_table.Execute;