Указания по выполнению работы. Цель лабораторной работы: приобрести практические навыки разработки оконного программного интерфейса

РАЗРАБОТКА ИНТЕРФЕЙСА ПОЛЬЗОВАТЕЛЯ ПРОГРАММНОЙ СИСТЕМЫ

Цель лабораторной работы: приобрести практические навыки разработки оконного программного интерфейса, закрепить навыки отладки и документирования программного обеспечения.

Задачи лабораторной работы:

• Изучить наборы компонентов «Additional», «Win32» и «Dialogs».

• Отработать технологию передачи данных между окнами приложения.

• Научиться работать со стандартными диалогами Windows.

Многооконное приложение в среде Delphi 7 представляет собой набор форм, взаимодействующих между собой и, как правило, с некоторым набором данных (которые хранятся в оперативной или дисковой памяти). Основная задача данной работы–изучить технологию передачи данных между несколькими формами.

Условным примером будет служить программа–ежедневник. Основные задачи:

− записать, удалить или отредактировать событие;

− просмотреть список событий.

Порядок выполнения работы:

1.Запустите Delphi7:Пуск\Программы\Borland Delphi 7\Delphi7.

2.Создайте новый проект. Сохраните его в новую папку на Вашем диске под именем Lab4.

3.На первой форме расположим главное меню приложения. На панели компонент Standard выберите компоненту TMainMenu и расположите ее на форме. Дважды нажмите на ней левую кнопку мыши. В меню верхнего уровня создайте два пункта: Файл и Событие. В меню Файл создайте подпункты Сохранить, Загрузить и Выход. В меню Событие создайте подпункты Добавить, Удалить и Корректировать (см. Рис. 1).

4.Нажмете два раза на подпункт Выход созданного главного меню. В открывшейся процедуре TForm1.N5Click напишите оператор close. Запросите у пользователя подтверждение на выход из программы, для этого обработайте событие закрытия формы (событие OnClose для формы Form1). Нажмите на событие OnClose в инспекторе объектов и далее клавишу F1. Изучите справку по событию OnClose и обратите внимание, что если возвращаемая переменная Action примет значение caNone, то форма не будет закрыта. Следовательно, если пользователь не подтвердит закрытие формы, то в обработчике события OnClose необходимо выполнить присвоение переменной Action значения caNone. Напишите обработчик. Результат–см. рис. 2.

Рис. 1. Создание главного меню приложения

Рис. 2. Процедура TForm1.FormClose

5.Запустите программу. Проверьте работу написанного вами обработчика, попробовав закрыть форму через главное меню окна или через меню Файл\Выход.

6.Отключите возможность пользовательского изменения размера экрана. Для этого у формы Form1 установите свойство BorderIcons\biMaximize в false и BorderStyle в bsSingle.

7.Создайте еще одну новую форму (File\New Form). Для первой формы (Form1) запишите в свойство Caption – Ежедневник (Фамилия Автора) рис.6.3., а для второй (Form2) – Просмотр Событий рис.4.

Рис. 3. Вид формы Form1

Рис. 4. Вид формы Form2

8.На панели компонент выберите дополнительные компоненты (закладка Additional). Разместите на форме Form2 компонент TBitBtn. Установите для его свойства Kind значение bkОК – это будет кнопка закрытия формы. Разместите на форме Form2 еще одну такую же кнопку. Установите для ее свойства Kind значение bkCancel – это будет кнопка отмены закрытия формы. Исправьте надпись на кнопке с «Cancel» на «Отмена».

9. Перейдите в конструкторе форм к форме Form1 и в главном меню нажмите на пункт Событие\Добавить. В процедуре TForm1.N6Click впишите оператор модального вызова второй формы:

Form2.ShowModal; (модальный вызов означает, что в данном приложении активным может быть только модально вызванное окно).

Здесь же, в тексте первого модуля (Unit1) перейдите выше в раздел Uses послезарезервированного слова i mplementation и допишите там: Unit2. Это необходимо для того, чтобы из первой формы мы могли вызывать вторую.

10.Отключите возможность пользовательского изменения размера и закрытия окна формы Form2 (скорректируйте свойства BorderIcons и BorderStyle у формы Form2).

11.Сохраните, запустите проект и проверьте его работу.

12.Разместите на форме Form1 компонент TStringGrid (набор компонент Additional). Установите для нее свойства ColCount – 3, RowCount – 1, FixedCols – 0, FixedRows – 0, DefaultRowHeight – 16, Options\goRowSelect-true. Возможный вид формы приведен на рис. 3.

13.Сформируйте заголовок таблицы событий. Для этого в обработчике событий OnCreate формы Form1 (это событие генерируется при создании формы) запишите заголовок в таблицу следующими операторами:

StringGrid1.cells[0,0]:='Дата';
StringGrid1.cells[1,0]:='Время';
StringGrid1.cells[2,0]:='Событие';

14.Сохраните, запустите проект и проверьте его работу.

15. Разместите на форме Form2 компоненты (см. рис. 4.):

− две компоненты TLabel (надписи Время и Событие),

− TMemo,

− TMonthCalendar и TDateTimePicker (закладка Win32 панели компонент). При этом для TDateTimePicker в свойстве Kind установите значение dtkTime.

16. Скорректируйте процедуру TForm1.N6Click в модуле Unit1 следующим образом:

procedure TForm1.N6Click(Sender: TObject);

Дата добавления: 2015-05-09