Фильтрация по возрастным ограничениям

@HaRuKy · Регистрация: 20.03.2011

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

Всем привет!
Мне необходимо отфильтровать записи таблицы по возрастным категориям:
младшая группа (от 7 до 10 лет )
средняя группа (от 11 до 16 лет)
старшая группа (от 17 и 23 лет)

Использую следующий программный код:

Delphi
1
2
3
4
5
6
7
8
9
procedure TForm6.CheckBox1Click(Sender: TObject);
begin
 if CheckBox1.Checked=true then
  begin
   dm.QGroup.Filter:= '[date_r]>='+QuotedStr('31.12.2005')+'and [date_r]<='+QuotedStr('31.12.2008');
   dm.QGroup.Filtered:=true
  end
 else dm.QGroup.Filtered:=false;
end;

Для младшей группы, остальные коды я не вижу смысла дублировать.
Фильтрация работает, но допустим если настанет 2016 год, то в программа фильтрация будет работать не правильно.
Как можно не знаю создать параметр. Можете подсказать?
Точнее не правильно сформулировал вопрос, параметр я знаю как создать, а вот как его применить, не совсем понимаю.
Может кто нибудь объяснить, на примере желательно.

Скандербег · 15.01.2015, 22:55

Так и надо сравнивать не даты, а возрасты.
Например в Аксессе для младшей группы это выглядело бы так:
DateDiff('yyyy', Date_r, Date()) >=7 and DateDiff('yyyy', Date_r, Date()) <= 10;
Но вряд ли свойство Filter Датасета позволит такие вольности с применением функций сервера (впрочем, можно и поэкспериментировать).
Решение проблемы в использовании SQL запросов.

@HaRuKy · 15.01.2015, 23:09 **[ТС]**

Это получается мне потребуется три запроса.
Потому что я хочу реализовать фильтрацию через компоненты CheckBox.
И при нажатий на чекбокс будет переключение между запросами. Я правильно понял? Или все гораздо проще?

Скандербег · 15.01.2015, 23:10

В MS SQL Server есть такая же функция:
DATEDIFF(yyyy, Date_r, GETDATE())

@HaRuKy · 15.01.2015, 23:12 **[ТС]**

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

Скандербег · 15.01.2015, 23:13

Ну если три разных запроса составляют проблему, то можно ограничится применением параметров, обозначающих начало и конец диапазона возрастных групп.

@HaRuKy · 15.01.2015, 23:14 **[ТС]**

Нет параметр тогда мне придется вбивать вручную.

Добавлено через 29 секунд
и нет смысла в чекбоксе, я буду их вбивать либо в поле эдита или дататаймпикера

Добавлено через 27 секунд
Все понял спасибо

Скандербег · 15.01.2015, 23:16

Что-то типа такого:
DATEDIFF(yyyy, Date_r, GETDATE()) >= :B and DATEDIFF(yyyy, Date_r, GETDATE()) <= :E
При переключении вида фильтра присваивать этим двум параметрам нужные значения.

Добавлено через 1 минуту
В начале сказано: есть три группы. Так?
Это означает, что количество значений для параметров ограничено тремя парами.
Чего проще эти значения присваивать при переключении радиобаттонов (не чекбоксов, конечно).
Зачем их вбивать через едиты?

@HaRuKy · 15.01.2015, 23:19 **[ТС]**

В принципе понял как сделать, покажу завтра преподу старый вариант если будет возникать, то изменю на новый.

Новые блоги и статьи Все статьи Все блоги /
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	Контроль уникальности заводского номера - вариант №2 Maks 24.03.2026 В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .
SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера - вариант №1 Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере нетипового документа выдачи шин для спецтехники с табличной частью, разработанного в конфигурации КА2. Данные берутся из. . .

Скандербег 1076 / 989 / 340 Регистрация: 07.08.2012 Сообщений: 2,790
	15.01.2015, 22:55
	Так и надо сравнивать не даты, а возрасты. Например в Аксессе для младшей группы это выглядело бы так: DateDiff('yyyy', Date_r, Date()) >=7 and DateDiff('yyyy', Date_r, Date()) <= 10; Но вряд ли свойство Filter Датасета позволит такие вольности с применением функций сервера (впрочем, можно и поэкспериментировать). Решение проблемы в использовании SQL запросов. 0

@HaRuKy 5 / 5 / 3 Регистрация: 20.03.2011 Сообщений: 299
	15.01.2015, 23:09 [ТС]
	Это получается мне потребуется три запроса. Потому что я хочу реализовать фильтрацию через компоненты CheckBox. И при нажатий на чекбокс будет переключение между запросами. Я правильно понял? Или все гораздо проще? 0

Скандербег 1076 / 989 / 340 Регистрация: 07.08.2012 Сообщений: 2,790
	15.01.2015, 23:10
	В MS SQL Server есть такая же функция: DATEDIFF(yyyy, Date_r, GETDATE()) 1

@HaRuKy 5 / 5 / 3 Регистрация: 20.03.2011 Сообщений: 299
	15.01.2015, 23:12 [ТС]
	Нет это я понял. Я имею в виду, что для каждой группы будет свой отдельный запрос получается. Ну в принципе да в один по любому ни как не засунешь! 0

Скандербег 1076 / 989 / 340 Регистрация: 07.08.2012 Сообщений: 2,790
	15.01.2015, 23:13
	Ну если три разных запроса составляют проблему, то можно ограничится применением параметров, обозначающих начало и конец диапазона возрастных групп. 0

@HaRuKy 5 / 5 / 3 Регистрация: 20.03.2011 Сообщений: 299
	15.01.2015, 23:14 [ТС]
	Нет параметр тогда мне придется вбивать вручную. Добавлено через 29 секунд и нет смысла в чекбоксе, я буду их вбивать либо в поле эдита или дататаймпикера Добавлено через 27 секунд Все понял спасибо 0

Скандербег 1076 / 989 / 340 Регистрация: 07.08.2012 Сообщений: 2,790
	15.01.2015, 23:16
	Что-то типа такого: DATEDIFF(yyyy, Date_r, GETDATE()) >= :B and DATEDIFF(yyyy, Date_r, GETDATE()) <= :E При переключении вида фильтра присваивать этим двум параметрам нужные значения. Добавлено через 1 минуту В начале сказано: есть три группы. Так? Это означает, что количество значений для параметров ограничено тремя парами. Чего проще эти значения присваивать при переключении радиобаттонов (не чекбоксов, конечно). Зачем их вбивать через едиты? 1

@HaRuKy 5 / 5 / 3 Регистрация: 20.03.2011 Сообщений: 299
	15.01.2015, 23:19 [ТС]
	В принципе понял как сделать, покажу завтра преподу старый вариант если будет возникать, то изменю на новый. 0