Фильтрация по нескольким полям

[Neksion]

Здравствуйте.
В программе существует фильтрация по нескольким полям, всего их пять.
И прописывать кодом все возможные комбинации будет довольно сложно и выглядеть это будет примерно так:

 Form1.Film.Filtered:=False;
        if (DBLookupCombo1.text<>'')and(DBLookupCombo2.text='')and(DBLookupCombo3.text='')and(Edit1.text='')then
          Form1.Film.Filter:='kod_zh='+quotedstr(Form1.GenreKod.asstring);
        if (DBLookupCombo2.text<>'')and(DBLookupCombo1.text='')and(DBLookupCombo3.text='')and(Edit1.text='')then
          Form1.Film.Filter:='kod_voz='+quotedstr(Form1.AgeKod.asstring);
        if (DBLookupCombo3.text<>'')and(DBLookupCombo1.text='')and(DBLookupCombo2.text='')and(Edit1.text='')then
          Form1.Film.Filter:='direc='+quotedstr(Form1.DirectorKod.asstring);
        if (Edit1.text<>'')and(DBLookupCombo1.text='')and(DBLookupCombo2.text='')and(DBLookupCombo3.text='') then
          Form1.Film.Filter:='name_f='+quotedstr(Edit1.Text);
        if (DBLookupCombo1.text<>'')and(DBLookupCombo2.text<>'')and(DBLookupCombo3.text='')and(Edit1.text='')then
          Form1.Film.Filter:='kod_zh='+quotedstr(Form1.GenreKod.asstring)+'and kod_voz='+quotedstr(Form1.AgeKod.asstring);
        if (DBLookupCombo1.text<>'')and(DBLookupCombo2.text='')and(DBLookupCombo3.text<>'')and(Edit1.text='')then
          Form1.Film.Filter:='kod_zh='+quotedstr(Form1.GenreKod.asstring)+'and direc='+quotedstr(Form1.DirectorKod.asstring);
        if (DBLookupCombo1.text='')and(DBLookupCombo2.text<>'')and(DBLookupCombo3.text<>'')and(Edit1.text='')then
          Form1.Film.Filter:='direc='+quotedstr(Form1.DirectorKod.asstring)+'and kod_zh='+quotedstr(Form1.GenreKod.asstring);
      Form1.Film.Filtered:=true;

Сравнений будет порядком более 20.
Есть ли какой-нибудь простой способ осуществить фильтрацию, не прописывая страницы кода?
Заранее благодарю.

[Sciv]

Есть ли какой-нибудь простой способ осуществить фильтрацию, не прописывая страницы кода?

SQL-запрос с параметрами

[Stilet]

and(DBLookupCombo2.text='')and(DBLo okupCombo3.text='')and(Edit1.text=' ')

А зачем тут эти условия?

[Neksion]

Есть ли какой-нибудь простой способ осуществить фильтрацию, не прописывая страницы кода?

Нужно без SQL.

А зачем тут эти условия?

Проверка изменен ли параметр для фильтрации, или же он пустой.

[Stilet]

Проверка изменен ли параметр для фильтрации

Ну а зачем такая проверка нужна? Какой в ней смысл, если ты вызываешь эту фильтрацию при определенных условиях все равно.

[eval]

не знаю прокатит ли.. попробуйте

Filter := Format("(%1:s=10 or field=%1:s)", [10]);

ежели чего то есть OnFilter (как то так вроде)

[Neksion]

Ну а зачем такая проверка нужна? Какой в ней смысл, если ты вызываешь эту фильтрацию при определенных условиях все равно.

 if (DBLookupCombo1.text<>'') then

Понятно.. спасибо.

Если другого способа нету, не подскажете тогда, что нужно почитать в SQL, чтобы создавать подобные запросы? 120 сравнений писать - на это весь день уйдет

[Stilet]

Опиши подробно задачу фильтрации.

[Neksion]

Опиши подробно задачу фильтрации.

Есть DBGrid-таблица с пятью полями, условно: Наименование, Тип, Вид, Автор, Компания. Последние четыре поля формируются из других таблиц.
Так же на форме присутствует четыре DBLookupCombo, в которых выбираются Тип, Вид, Автор, Компания. И есть один Edit, в который вписывается Наименование.
И вот по этим полям нужно отфильтровывать записи по кнопке.

[Neksion]

Вот придумал способ, но выдает ошибку "project Profect1.exe raised exception class econverterror with message ''' is not a valid integer value" при выборе значения в Combobox'e или в Edit'e. Отладчик показал проблему в строчке:

Form1.Maintable.Filter:=stroka;

Вот сам код:

function func(stroka:string):Boolean; //Строка не пуста = истина
begin
    If Length(stroka)<>0 then
        result:=true
    else
        result:=False;
end;

procedure Filtration;
var stroka:string;
begin
    stroka:='';
    If Form3.Edit1.Text<>'' then
    Begin
        if func(stroka) then
            stroka:=stroka+' and ';
        stroka:=stroka+'Naim= '+QuotedStr(Form3.Edit1.Text+'*');
    end;
    If Form3.ComboBox1.ItemIndex<>0 then
    begin
        Form1.Typedoc.Filter:='naim= '+QuotedStr(Form3.ComboBox1.Text);
        Form1.Typedoc.Filtered:=true;
        if func(stroka) then
            stroka:=stroka+' and ';
        stroka:=stroka+'id= '+QuotedStr(Form1.TypedocId.AsString);
        Form1.Typedoc.Filtered:=false;;
    end;
    If Form3.ComboBox2.ItemIndex<>0 then
    begin
        Form1.Sort.Filter:='naim= '+QuotedStr(Form3.ComboBox2.Text);
        Form1.Sort.Filtered:=true;
        if func(stroka) then
            stroka:=stroka+' and ';
        stroka:=stroka+'id= '+QuotedStr(Form1.SortId.AsString);
        Form1.Sort.Filtered:=false;;
    end;
    If Form3.ComboBox3.ItemIndex<>0 then
    begin
        Form1.Company.Filter:='naim= '+QuotedStr(Form3.ComboBox3.Text);
        Form1.Company.Filtered:=True;
        if func(stroka) then
            stroka:=stroka+' and ';
        stroka:=stroka+'id= '+QuotedStr(Form1.CompanyId.AsString);
        Form1.Company.Filtered:=false;
    end;
    If Form3.ComboBox4.ItemIndex<>0 then
    begin
        Form1.Avtor.Filter:='FIO= '+QuotedStr(Form3.ComboBox4.Text);
        Form1.Avtor.Filtered:=True;
        if func(stroka) then
            stroka:=stroka+' and ';
        stroka:=stroka+'id= '+QuotedStr(Form1.AvtorId.AsString);
        Form1.Avtor.Filtered:=false;
    end;
    Form1.Maintable.Filter:=stroka;  //Вот эта та самая строка
    Form1.Maintable.Filtered:=true;
    if Form1.Maintable.IsEmpty then    //Если таблица пустая
    Begin
        Application.MessageBox('Запрашиваемых документов нет','Ошибка',MB_OK+mb_IconInformation);
        Form1.Maintable.Filtered:=False;
        Form3.ComboBox1.ItemIndex:=0;
        Form3.ComboBox2.ItemIndex:=0;
        Form3.ComboBox3.ItemIndex:=0;
        Form3.ComboBox4.ItemIndex:=0;
        Form3.Edit1.Text:='';
    end;
end;