Привет Новичок,
Взгляните на BRD1 во вложении, который, я думаю, делает все, о чем вы просили.
Я не был уверен, почему вам нужно использовать отдельные формы (Form3 и Form4) для ведения учета и поиска дней рождения по месяцам.
Возможно, вы могли бы упростить это и просто сделать все на Форме 1 (см. BRD2 во вложении).
Кроме того, мне понравился ваш код для определения дней рождения на сегодня и завтра.
С уважением,
Derek.

DEREK огромное спасибо, мне очень понравились два примера.
Я обязательно попробую выбрать самый подходящий для меня вариант.

  БОЛЬШОЕ СПАСИБО ЗА ПОМОЩЬ

Привет,
Возможно, попробуйте что-то вроде этого
Derek

DEREK
Спасибо за такое решение. Немного не то, что я хотел.

Я сделал проект по которому у меня вопрос.

1. Как сделать так, что бы при открытии Form4 отображался сразу текущий месяц МАРТ со списком работающих и у кого день рождение в марте (сортировка по дате по увеличению)/ Необходимо отобразить именинников в текущем месяце.
2. Как менять список именинников в Form4 при смене месяца в DateTimePicker1
3. Подскажите, этот рабочий код правильно написан или его можно упростить или переписать:

procedure Form1_TableGrid1_OnChange (Sender: TObject);
begin
    Form1.Label1.Caption := SQLExecute('SELECT  COUNT(*) FROM tbuser WHERE work=1 AND strftime(''%d.%m'', user_data)=strftime(''%d.%m'', ''now'')');
    Form1.Label3.Caption := SQLExecute('SELECT  COUNT(*) FROM tbuser WHERE work=1 AND strftime(''%d.%m'', user_data)=strftime(''%d.%m'', ''now'',''+1 day'')');
end;

1. Как отсортировать даты по определенному месяцу и вывести все года в таблицу.
2. Порядок вывода в таблицу по возрастании даты.
3. Как посчитать количество именинников на текущий день.

Пример проекта - Derek (https://myvisualdatabase.com/forum/view … hp?id=8885)