Как связать 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;

Новые блоги и статьи Все статьи Все блоги /
[golang] Конкурентный fetcher с ограничением максимального количества одновременных HTTP запросов. alhaos 10.06.2026 Задача Реализовать конкурентный fetcher с ограничением максимального количества одновременных HTTP запросов. Сигнатура func Fetch(urls string, maxConcurrent int) Result Пример urls :=. . .	[golang] Состояние гонки (race condition) alhaos 10.06.2026 Состояние гонки (race condition) Состояние гонки (Race Condition) — это ошибка, возникающая при одновременном доступе нескольких горутин к одним и тем же данным без должной синхронизации. При этом. . .	Взрослые отношения, и почему они не получаются kumehtar 09.06.2026 Когда в детстве ребёнок не получает от родителей чего-то важного, он лишается не просто приятных переживаний, а основы для формирования определённых внутренних качеств и навыков. Если ребёнок не. . .	[golang] Worker Pool alhaos 09.06.2026 Worker Pool Worker Pool — паттерн конкурентной обработки задач в Go. Суть: фиксированное количество горутин-воркеров читают задачи из общего канала и пишут результаты в общий канал результатов. . . .
[golang] Pipeline alhaos 08.06.2026 Pipeline Pipeline — паттерн конкурентной обработки данных в Go. Суть: данные проходят через цепочку независимых стадий, каждая из которых работает в своей горутине и общается с соседями через. . .	Свет внутри себя kumehtar 07.06.2026 Пусть это будет здесь lIs4oanZS9Y	Программа для com-порта Uhbif79 05.06.2026 Всем привет, давно хотел изучить Qt, начинал, бросал, потом снова начинал. И сейчас вот смог написать свою первую программу. До этого имел опыт программирования микроконтроллеров, писал прошивки на. . .	Транскрипция 55-минутного видео через Whisper: WhisperDesktop облажался, спас Google Colab[ anaschu 01.06.2026 Понадобилось получить текст из свежезагруженного видео на YouTube. Казалось бы, задача на пять минут. Заняла полтора часа. Делюсь опытом — может кому пригодится последовательность решений. . . .

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

Решение