Как связать 2 фильтра (BD firebird gdb, начинающий)?

@rubasta · Регистрация: 20.12.2016

Студворк — интернет-сервис помощи студентам

Отдельно фильтры работают, как соединить их, чтобы при выборе промежутка дат
фильтрация не сбрасывалась и наоборот.

1 фильтр

Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Button1Click(Sender: TObject);
var myD1,myD2:String;
begin
myD1:=DateToStr(DateTimePicker1.DateTime);
myD2:=DateToStr(DateTimePicker2.DateTime);
IBTable1.Filtered:=True;
IBTable1.Filter:='Datavid>='+QuotedStr(myD1)+ 'and Datavid<='+QuotedStr(myD2);
IBTable1.Last; //сперва взять последнюю запись, а затем ваш код
IBTable1.First;
Edit1.Text:=inttostr(IBTable1.RecordCount);
end;

2 фильтр

Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Button3Click(Sender: TObject);
begin
ComboBox6.Items.LoadFromFile('PR\ДН.txt');
ComboBox6.ItemIndex := ComboBox6.Items.IndexOf(Combobox6.Text);
ComboBox7.Items.LoadFromFile('PR\Служба.txt');
ComboBox7.ItemIndex := ComboBox7.Items.IndexOf(Combobox7.Text);
SetFilter;
IBTable1.Last; //сперва взять последнюю запись, а затем ваш код
IBTable1.First;
Edit1.Text:=inttostr(IBTable1.RecordCount);
end;

Дополнительная информация о проекте

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure TForm1.SetFilter;
var
  f: string;
begin
  IBTable1.Filtered:=false;
  f := '';
  if Combobox6.Text <> '' then f := f + 'dnvid LIKE '+ #39 + Combobox6.Text + '%' + #39 + ' AND ';
  if Combobox7.Text <> '' then f := f + 'slugvid LIKE '+ #39 + Combobox7.Text + '%' + #39 + ' AND ';
  SetLength(f, Length(f) - 5);
  IBTable1.Filter:=f;
  if f <> '' then
    IBTable1.Filtered:=true;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.IBTable1.Active := true;
ComboBox6.Items.LoadFromFile('PR\ДН.txt');
ComboBox7.Items.LoadFromFile('PR\Служба.txt');
end;

@krapotkin · 26.04.2018, 14:16

ну так почему сейчас не так?

Delphi
1
IBQuery1.ParamByName('Param1').AsString:=Combobox1.text+'%';

@rubasta · 26.04.2018, 14:24 **[ТС]**

Кто интересовался темой рабочий код:
А Вам огромнейшее спасибо!

Delphi
1
2
3
4
5
6
7
8
9
10
procedure TForm1.Button1Click(Sender: TObject);
begin
IBQuery1.SQL.Text:='SELECT * FROM OTKAZ_VID WHERE Datavid BETWEEN :date1 AND :date2  AND stancvid LIKE :param1';
IBQuery1.ParamByName('Date1').AsDatetime:=DateTimePicker1.Date;
IBQuery1.ParamByName('Date2').AsDatetime:=DateTimePicker2.Date;
IBQuery1.ParamByName('Param1').AsString:=Combobox1.text + '%';
IBQuery1.Open;
IBQuery1.FetchAll;
Edit1.Text:=inttostr(IBQuery1.RecordCount);
end;

@krapotkin · 26.04.2018, 14:42

но конкретно ЭТОТ код должен быть таким

Delphi
1
2
3
4
5
6
7
8
9
procedure TForm1.Button1Click(Sender: TObject);
begin
IBQuery1.SQL.Text:='SELECT  count(*) as C FROM OTKAZ_VID WHERE Datavid BETWEEN :date1 AND :date2  AND stancvid LIKE :param1';
IBQuery1.ParamByName('Date1').AsDatetime:=DateTimePicker1.Date;
IBQuery1.ParamByName('Date2').AsDatetime:=DateTimePicker2.Date;
IBQuery1.ParamByName('Param1').AsString:=Combobox1.text + '%';
IBQuery1.Open;
Edit1.Text:=IBQuery1.FieldByName('C').Astring;
end;

Новые блоги и статьи Все статьи Все блоги /
сукцессия 33. открытые вопросы от клауде anaschu 19.07.2026 "Что накопилось за эту часть А — тринадцать правок, из которых шесть пришли из ваших вопросов и каждая оказалась реальной ошибкой, а не калибровкой: односторонний симбиоз, отсутствующий листопад,. . .	32 сукцессия anaschu 19.07.2026 сукцессия 28‑мерное ядро стабилизировано Коллеги, фиксирую разбор инженерных правок и их изоморфную проекцию на экономику, меметику и половой отбор. Модель теперь не «подкручивает» сходимость —. . .	сукцессия 31: модель микоризы - это модель ещё нескольких явлений, социальных и экономических anaschu 18.07.2026 Теория «Всего»: апдейт v1. 1. 2 — 28‑мерное ядро стабилизировано Коллеги, фиксирую разбор инженерных правок и их изоморфную проекцию на экономику, меметику и половой отбор. Модель теперь не. . .	сукцессия 30. Массив проверяющих друг друга моделей anaschu 18.07.2026 Архитектура сети взаимопроверяющих моделей микоризной сукцессии (v2. 0) Развитие тензорного ОДУ-ядра и создание кросс-платформенного калибровочного полигона Уважаемые коллеги! В продолжение. . .
Грибы - это женщины, деревья - это мужчины. Анти инь янь для союза мужчины и женщины. anaschu 18.07.2026 ГЛАВНЫЙ НАУЧНО-ФИЛОСОФСКИЙ ВЫВОД: Сексуально-Репродуктивный Капитализм против Государства Моногамии Коллеги, мы вышли на финишную прямую 20-мерного ОДУ-моделирования вековой сукцессии (ветка. . .	Текстовый слайдер с нумерацией страниц и кроссбраузерность. russiannick 18.07.2026 Один мой друг написал текстовый слайдер с нумерацией страниц. Сегодня я расскажу как он умудрился подружить его с кроссбраузерностью. Очевидно сложно угодить с шириной каждому браузеру. Один крадет. . .	Грибы - это мемы, дерево - это человек. Применение микоризной модели к теории меметики Докинза. anaschu 18.07.2026 Меметический изоморфизм теории «всего»: Грибная сукцессия как модель эволюции идей Докинза Базовый код системы ОДУ микоризной сукцессии описывает не просто биологию, а универсальную. . .	Грибы - это корпорации, деревья - это государства. Механизм массонского захвата власти anaschu 18.07.2026 Макроэкономический изоморфизм теории «всего»: Грибная сукцессия как модель транснационального капитализма Базовый код системы ОДУ микоризной сукцессии описывает не просто биологию, а. . .

Как связать 2 фильтра (BD firebird gdb, начинающий)?

Решение