Продемонстрируйте созданную форму преподавателю. Закончите работу.

Задания:

1.Добавьте к контекстному меню команду «Выход» и запрограммируйте ее.

2. Создайте и запрограммируйте еще одно контекстное меню, содержащее команды «Убрать все флажки», «Включить все флажки», «Включить инверсивно». Такое меню должно появляться после щелчка правой клавишей мыши, установив курсор в любой точке панели с флажками. Не забудьте «привязать» это меню (PopupMenu2) к панели с флажками (см. пункт 19).

Рис. 1 Рис. 2

Рис. 3 Рис. 4 Рис.5

ЛАБОРАТОРНАЯ РАБОТА № 9.

РАБОТА С ФАЙЛАМИ ЗАПИСЕЙ В OBJECT PASCAL. СОЗДАНИЕ ОКОН И СТАНДАРТНЫХ ДИАЛОГОВ. КОМПОНЕНТЫ ДОСТУПА К БАЗАМ ДАННЫХ.

Новые объекты:многостраничный блокнот, комбинированный список. Создание новых окон и стандартных диалогов. Работа с файлами записей в Object Pascal.

Цель работы.Создать программу для работы с базой данных - телефонным справочником, сформированным в виде файла записей. В каждой записи определены поля: фамилия и имя (строки по 20 символов каждая), адрес и номер телефона (строки длиной 100 и 15 символов соответственно). Необходимо реализовать следующие операции: создание и удаление записи, сохранение и считывание файла записей с диска, редактирование, поиск и сортировку данных в алфавитном порядке, просмотр записей и навигацию по базе.

Ознакомиться с новыми объектами: многостраничным блокнотом (PageControl),страницей блокнота (TabSheet),комбинированным списком (ComboBox),диалоговым окном (AboutBox),стандартными диалогами открытия и сохранение файлов (OpenDialog и Save Dialog).

Теоретические сведения

Многостраничный блокнот (PageControl)находится на форме особого вида Tabbed Pages (объект PagesDlg, заголовок "Tabbed Notebook Dialog"). Форму создают командами File => New...=> Закладка Forms => Tabbed Pages => Ok. После её создания ненужную форму "Forml" в случае необходимости можно удалить с помощью кнопки (Remove unit) окна менеджера проекта (Project Manager). Вызов окна менеджера проекта осуществляется командами View => Project Manager. В данной работе активизацию объектов PageControl и PagesDIg можно осуществлять с помощью инспектора объектов. Свойства объекта PagesDIg совпадают со свойствами обычной формы Form. Рассмотрим новые свойства блокнота PageControl:

Свойство	Описание свойства	Примеры значений
ActivePage	Имя активной страницы	TabSheet7
MultiLine	Возможность размещать закладки страниц в не­сколько строк	True (закладки в несколько строк), False (закладки в одну строку)

Свойства отдельной страницы блокнота (объекта TabSheet)аналогичны описанным в предыдущих разделах.

Объект ComboBoxпредназначен для создания раскрывающегося списка. Его новые свойства такие:

Свойство	Описание свойства	Примеры значений
DropDownCount	Количество строк в раскрывающемся списке, которые видимы без использования полос прокручивания
Sorted	Сортировка списка по алфавиту	True (список сортируется), False (не сортируется)
Style	Стиль оформления и использование списка	csOwnerDrawVariable (за­данный программистом), csDropDown (стандартный)

Стандартные диалоги открытия (объект OpenDialog)и сохранение файлов (объект SaveDialog) - это невидимые на форме объекты, предназначенные для создания стандартных в Windows 9х окон: "Open file" и "Save File as" в момент вызова их из про­граммного кода проекта командой OpenDialog1.Execute или SaveDialog1.Execute. Имя выбранного файла возвращается в программу свойством FileName этих объектов.

Ход работы