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

@qwertehok · 24.04.2018, 16:35

1) использовать Query и SQL запрос
2) перед присваиванием f в IBTable1.Filter посмотреть что же я такого туда запихнул)

@rubasta · 24.04.2018, 17:09 **[ТС]**

Через IBQuery выборку дат делал так (выбирает), так связать с фильтрацией через combobox не получается

Delphi
1
2
3
4
IBQuery1.SQL.Text:='SELECT * FROM OTKAZ_VID WHERE Datavid BETWEEN :date1 AND :date2';
IBQuery1.ParamByName('Date1').AsDatetime:=DateTimePicker1.Date;
IBQuery1.ParamByName('Date2').AsDatetime:=DateTimePicker2.Date;
IBQuery1.Open;

@qwertehok · 24.04.2018, 18:05

Сообщение от rubasta

так связать с фильтрацией через combobox не получается

вот это не понял

@rubasta · 24.04.2018, 19:02 **[ТС]**

предыдущие 2 фильтра были привязаны к ibtable
Просто переделал проект все запросы и фильтры пытаюсь на IBQuery переделать.
Этот фильтр на выборку дат

Добавлено через 2 минуты
типа 2 проекта 1 программы: в 1 привязка к DBgrid через ibtable, во 2 через IBQuery.

Добавлено через 33 минуты
Вот к этому фильтру пытаюсь привязать фильтр выбора записей между 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;

@krapotkin · 24.04.2018, 21:34

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

у вас есть запрос с параметрами
если параметры изменяются, вы их заполняете, и переоткрываете запрос
это и есть ваша "фильтрация"

как там и в какой момент вы будете фильтровать, ну никого не волнует совсем
SQL тоже переписывать 100 раз не нужно, один раз и оставьте его в покое.
параметры именно для этого и придумали

Delphi
1
2
3
IBQuery1.SQL.Text:='SELECT * FROM OTKAZ_VID WHERE Datavid BETWEEN :date1 AND :date2'+
  ' and (:param1 is null or dnvid LIKE :param1) ' +
  ' and (:param2 is null or slugvid LIKE :param2) ';

писал от фонаря, исключительно по мотивам вашего творчества

@rubasta · 24.04.2018, 22:11 **[ТС]**

txt могут дополняться, но они завязаны только на выбор в combobox при добавлении новой записи и при фильтрации.

@krapotkin · 25.04.2018, 06:57

ну тогда вот
заполняйте параметры и переоткрывайте запрос

@rubasta · 25.04.2018, 10:44 **[ТС]**

Через параметры вот так сделал фильтр по дате.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
 Par: TParams;
begin
Par:= TParams.Create;
Par.CreateParam(ftDate, 'Date1', ptInput);
Par.CreateParam(ftDate, 'Date2', ptInput);
Par[0].AsDate := DateTimePicker1.Date;
Par[1].AsDate := DateTimePicker2.Date;
IBQuery1.SQL.Clear;
IBQuery1.Close;
IBQuery1.SQL.Text:='SELECT * FROM OTKAZ_VID WHERE Datavid BETWEEN :Date1 AND :Date2';
IBQuery1.Params:=Par;
IBQuery1.Open;
IBQuery1.Last; //сперва взять последнюю запись, а затем ваш код
IBQuery1.First;
Edit1.Text:=inttostr(IBQuery1.RecordCount);

Как параметр присвоить полю DNVID

Delphi
1
2
ComboBox6.Items.LoadFromFile('PR\ДН.txt');
ComboBox6.ItemIndex := ComboBox6.Items.IndexOf(Combobox6.Text);

@qwertehok · 25.04.2018, 11:08

а 14 и 15 строка зачем?

@rubasta · 25.04.2018, 11:10 **[ТС]**

без них счетчик неправильно подсчитает строки

@qwertehok · 25.04.2018, 12:08

а неправильно потому что ты книжки не читаешь
у Query есть параметр кеширования в 50 строк, и по запросу RecordCount равен размеру кэша
что бы такого не было нужно поменять другой параметр - FetchAall и будет хорошо

а вообще число строк нужно получать sql запросом

SQL
1
SELECT COUNT() FROM T

@rubasta · 25.04.2018, 12:22 **[ТС]**

программу для себя делаю, с нового года только познакомился с делфи, да и на 6 десятке лет тяжело дается

@krapotkin · 25.04.2018, 12:33

брр. у вас же был правильный кусок в #3

нужно где -то в начале. или вообще в design-time заполнить

Delphi
1
2
3
IBQuery1.SQL.Text:='SELECT * FROM OTKAZ_VID WHERE Datavid BETWEEN :date1 AND :date2 '+
' and (:param1 is null or dnvid LIKE :param1) ' +
' and (:param2 is null or slugvid LIKE :param2) ';

для применения фильтра

Delphi
1
2
3
4
5
6
IBQuery1.Close;
IBQuery1.ParamByName('Date1').AsDatetime:=DateTimePicker1.Date;
IBQuery1.ParamByName('Date2').AsDatetime:=DateTimePicker2.Date;
IBQuery1.ParamByName('Param1').AsString:=Combobox1.text;
IBQuery1.ParamByName('Param2').AsString:=Combobox2.text;
IBQuery1.Open;

@rubasta · 25.04.2018, 14:06 **[ТС]**

вопросов появилось еще больше, буду разбираться

@rubasta · 26.04.2018, 12:10 **[ТС]**

решил 1 параметр побороть для начала:

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 (:param1 is Null or 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, 13:35

попробуйте вот так

SQL
1
SELECT * FROM OTKAZ_VID WHERE Datavid BETWEEN :date1 AND :date2 AND stancvid LIKE :param1

@rubasta · 26.04.2018, 13:54 **[ТС]**

ошибка ушла но записи не находит
это код параметра

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

Добавлено через 13 минут
Таблица DBGrid очищается

@krapotkin · 26.04.2018, 14:02

значит нет записей, удовлетворяющих вашему условию

вы отдаете себе отчет, что
stancvid Like Combobox1.text
это ровно то же что
stancvid = Combobox1.text
?
насколько я помню, изначально вы пихали туда
Combobox1.text + '%';

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

Delphi
1
if Combobox1.Text <> '' then f := f + 'stancvid LIKE '+ #39 + Combobox1.Text + '%' + #39 + ' AND ';

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

@qwertehok 5975 / 4550 / 1095 Регистрация: 29.08.2013 Сообщений: 28,170 Записей в блоге: 3
	24.04.2018, 16:35
	1) использовать Query и SQL запрос 2) перед присваиванием f в IBTable1.Filter посмотреть что же я такого туда запихнул) 0

@rubasta 0 / 0 / 0 Регистрация: 20.12.2016 Сообщений: 136
	24.04.2018, 22:11 [ТС]
	txt могут дополняться, но они завязаны только на выбор в combobox при добавлении новой записи и при фильтрации. 0

@krapotkin 6849 / 4676 / 1464 Регистрация: 14.04.2014 Сообщений: 20,670 Записей в блоге: 21
	25.04.2018, 06:57
	ну тогда вот заполняйте параметры и переоткрывайте запрос 0

@qwertehok 5975 / 4550 / 1095 Регистрация: 29.08.2013 Сообщений: 28,170 Записей в блоге: 3
	25.04.2018, 11:08
	а 14 и 15 строка зачем? 0

@rubasta 0 / 0 / 0 Регистрация: 20.12.2016 Сообщений: 136
	25.04.2018, 11:10 [ТС]
	без них счетчик неправильно подсчитает строки 0

@rubasta 0 / 0 / 0 Регистрация: 20.12.2016 Сообщений: 136
	25.04.2018, 12:22 [ТС]
	программу для себя делаю, с нового года только познакомился с делфи, да и на 6 десятке лет тяжело дается 0

@rubasta 0 / 0 / 0 Регистрация: 20.12.2016 Сообщений: 136
	25.04.2018, 14:06 [ТС]
	вопросов появилось еще больше, буду разбираться 0

@krapotkin 6849 / 4676 / 1464 Регистрация: 14.04.2014 Сообщений: 20,670 Записей в блоге: 21
	26.04.2018, 14:02
	значит нет записей, удовлетворяющих вашему условию вы отдаете себе отчет, что stancvid Like Combobox1.text это ровно то же что stancvid = Combobox1.text ? насколько я помню, изначально вы пихали туда Combobox1.text + '%'; 0