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

@Неумеха · Регистрация: 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

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.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