derek wrote:Привет,
Возможно, попробуйте что-то вроде этого
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;
Post's attachments BRD.zip 335.38 kb, 20 downloads since 2024-03-17