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

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

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

Ход работы