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

Создайте ехе-файл программы.

Закройте Delphi, запустите созданную программу и выполните вычисления для различных входных данных.

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

Задания:

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 этих объектов.

Ход работы