Сразу несколько вопросов.

@Неумеха · Регистрация: 26.04.2011

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

Всем здравствуйте!

1. У меня компонент CCalendar. Необходимо, чтобы выборе мышью одной из его ячеек он становился невидимым. Пишу так:

C++
1
2
3
4
void __fastcall TForm4::CCalendar1Click(TObject *Sender)
{
CCalendar1->Visible=false;
}

Событие onChange не подходит, т.к. там другие действия должны происходить. Проверяла пошагово, при клике мышью на CCalendar1 события onClick вообще не происходит. Что делать?

2.Соединение с базой через ADOTable. Пытаюсь сделать сортировку по дате.

C++
1
2
3
4
5
  TADOQuery * QuerySort = new TADOQuery(this);
       QuerySort->Connection = ADOConnection1;
       QuerySort->SQL->Text = "SELECT key FROM work_list ORDER BY dat ASC";
       QuerySort->Open();
       delete QuerySort;

Не работает. Не совсем понимаю, при каком событии эта сортировка должна происходить.

3. Вот условие: if (StrToDate(ADOTable2dat)-Date()<=7)
Но тоже не работает....

Заранее всем спасибо большое за помощь

@MsGuns · 10.05.2011, 12:45

>Событие onChange не подходит, т.к. там другие действия должны происходить. Проверяла пошагово, при клике мышью на CCalendar1 события onClick вообще не происходит. Что делать?

При использовании сторонних компонентов искать и читать справку по ним

>2.Соединение с базой через ADOTable. Пытаюсь сделать сортировку по дате.
>QuerySort->Open();
>delete QuerySort;

Это что, ритуальное убийство ? И почему Вы решили, что "не работает" ? Оно вполне работает, просто Вы сразу его прибили

>3. Вот условие: if (StrToDate(ADOTable2dat)-Date()<=7)
>Но тоже не работает....

Неправда, вполне работает. Т.е. определяет разницу между двумя ЧИСЛАМИ, сравнивая ее с 7. ЧИСЛАМИ, но не ДНЯМИ. Для того, чтобы определить разницу в ДНЯХ, используйте соответствующую функцию (см. VCL.DateUtils)

@Неумеха · 11.05.2011, 15:18 **[ТС]**

Искала я справку о CCalendar. не нашла. надеялась на то, что кто-то уже сталкивался с этим и уже знает что к чему.

По поводу второго вопроса. Мне что, последнюю строку нужно убрать? Пробовала, все равно не сортирует.

Я только учусь. Многое не получается. Ищу ответы в инете. В основном всегда на форумы натыкаюсь. А там не совсем то, что мне надо, либо я просто не понимаю, о чем идет речь, потому что знаний недостаточно.

@MsGuns · 11.05.2011, 16:06

Чем не угодил стандартный TMonthCalendar с закладки Win32, нет "рюшечек" ? Зато по нему имеется полноценная справка

С чего Вы взяли, что "не сортирует" ? У вас QuerySort просто не отображается.
Очевидно, в гриде Вы отображаете один датасет, а сортируете другой.

Добавлено через 3 минуты
Сделайте просто ADOTable1->Sort = "dat" сразу после его открытия либо в событии Form1OnShow если в дизайне у вас ADOTable1.Active = true

Новые блоги и статьи Все статьи Все блоги /
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек SDL3 и Box2D из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия SDL 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual. . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»

@MsGuns 1497 / 1238 / 245 Регистрация: 04.04.2011 Сообщений: 4,363
	10.05.2011, 12:45
	>Событие onChange не подходит, т.к. там другие действия должны происходить. Проверяла пошагово, при клике мышью на CCalendar1 события onClick вообще не происходит. Что делать? При использовании сторонних компонентов искать и читать справку по ним >2.Соединение с базой через ADOTable. Пытаюсь сделать сортировку по дате. >QuerySort->Open(); >delete QuerySort; Это что, ритуальное убийство ? И почему Вы решили, что "не работает" ? Оно вполне работает, просто Вы сразу его прибили >3. Вот условие: if (StrToDate(ADOTable2dat)-Date()<=7) >Но тоже не работает.... Неправда, вполне работает. Т.е. определяет разницу между двумя ЧИСЛАМИ, сравнивая ее с 7. ЧИСЛАМИ, но не ДНЯМИ. Для того, чтобы определить разницу в ДНЯХ, используйте соответствующую функцию (см. VCL.DateUtils) 0

@Неумеха 0 / 0 / 0 Регистрация: 26.04.2011 Сообщений: 25
	11.05.2011, 15:18 [ТС]
	Искала я справку о CCalendar. не нашла. надеялась на то, что кто-то уже сталкивался с этим и уже знает что к чему. По поводу второго вопроса. Мне что, последнюю строку нужно убрать? Пробовала, все равно не сортирует. Я только учусь. Многое не получается. Ищу ответы в инете. В основном всегда на форумы натыкаюсь. А там не совсем то, что мне надо, либо я просто не понимаю, о чем идет речь, потому что знаний недостаточно. 0

@MsGuns 1497 / 1238 / 245 Регистрация: 04.04.2011 Сообщений: 4,363
	11.05.2011, 16:06
	Чем не угодил стандартный TMonthCalendar с закладки Win32, нет "рюшечек" ? Зато по нему имеется полноценная справка С чего Вы взяли, что "не сортирует" ? У вас QuerySort просто не отображается. Очевидно, в гриде Вы отображаете один датасет, а сортируете другой. Добавлено через 3 минуты Сделайте просто ADOTable1->Sort = "dat" сразу после его открытия либо в событии Form1OnShow если в дизайне у вас ADOTable1.Active = true 0