Void __fastcall tForm1::Button3Click(tObject *Sender)

{

TDateTime Present, eWeek;

Label2->Caption="На этой неделе";

//от текущего дня до конец недели

Present=Now(); //текущая дата

eWeek=EndOfTheWeek(Present);

ADODataSet1->Close();

ADODataSet1->CommandText="SELECT* FROM schedule WHERE aDate BETWEEN DateValue('" + FormatDateTime("dd/mm/yyyy",Present)+"') AND DateValue('" +FormatDateTime("dd/mm/yyyy",eWeek)+"') ORDER BY aDate";

if (CheckBox1->Checked) ShowSQL();

ADODataSet1->Open();

if (!ADODataSet1->RecordCount)

ShowMessage("На эту неделю никаких дел не запланировано.");

}

8. Самостоятельно напишите процедуру для отображения всех запланированных мероприятий.

1. Задание для самостоятельного выполнения:

1. Добавьте на форму кнопку Вчера. Напишите процедуру для отображения мероприятий вчерашнего дня.

2. Напишите процедуру для добавления данных в таблицу.

3. Напишите процедуру для удаления данных из таблицы.

4. Добавьте контекстное меню для возможности редактирования данных таблицы (добавить, удалить, изменить)

5. Добавьте главное меню на форму, в которое добавьте все описанные вами процедуры.

6. Напишите процедуру для отображения данных таблицы в отдельных окнах. Организуйте переход по записям.

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

8. Добавьте возможность фильтрации данных таблицы в соответствии с определённым условием.

9. Напишите справку о программе. Добавьте кнопку вызова справки на форму.

10. Добавьте главное меню для приложения: Файл (Закрыть), Переход (Сегодня, Завтра, Вчера, Эта неделя, Все), Справка (О программе). Организуйте работу всех команд меню.

11. Выполните 10 задание. Добавьте статусную строку на форму, в которой отображайте текущую дату.

12. Выполните все перечисленные выше задания.

Сдайте работу преподавателю

Вопросы для контроля и самоконтроля:

1. Компонент ADOConnection1. Свойства компонента.

2. Как произвести подключение базы данных?

3. С какими новыми методами работы с датой и временем вы познакомились сегодня? Их назначение.

Задание №10. Будильник

Цель занятия: Научиться работать с датой и временем

Студенты должны знать: компоненты для работы с датой и временем

уметь: программировать приложение Будильник

Задание.

1. Выберите в меню Пуск – Программы - CodeGear RAD Studio 2009 - C++Builder 2009

2. Создание новое приложение (File – New – VCL Forms Application).

   1. Проектирование интерфейса приложения

1. Измените свойства компонентов:

   1. Компонент UpDown1: Min = 0, Max=23, Wrap = true, Hint = Часы, ShowHint = true

   2. Компонент UpDown2: Min = 0, Max=59, Wrap = true, Hint = Минуты, ShowHint = true

1. Программирование приложения

   1. Опишите переменные после строчки TForm1 *Form1;

Int cHour, cMinute;

//время на индикаторе

Int alrHour, alrMinute;

//время сигнала

AnsiString __fastcall mm(int m)

// функция преобразования целого числа в строку с ведущим нулём

{ if (m <=9) return "0"+IntToStr(m);

else return IntToStr(m);

}

2. Напишите процедуру для отображения текущего времени в конструкторе формы:

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{cHour= HourOf (Now());

Label1->Caption=IntToStr(cHour);

cMinute= MinuteOf(Now());

Label3->Caption=mm(cMinute);

}

3. Перейдите на модуль Unit1.h. Опишите процедуры: