Практическое занятие №34

Наименование: Разработка оконного приложения

1.ЦЕЛЬ РАБОТЫ:

Научится работать с оконными приложениями при программирование в Delphi. Сформировать компетенцию ОК 6; овладеть знаниями и умениями для освоения ПК 1.4, ПК 3.1.

     

2.ПОДГОТОВКА К ЗАНЯТИЮ:

2.1. Изучить предложенную литературу.

2.2. Подготовить бланк отчёта.

3.ЛИТЕРАТУРА:

3. 1 Игнатов А.С. Основы программирования. Учебное пособие, КС ПГУТИ, 2017

3.2 Белов В.В., Чистякова В.И. Программирование в Delphi: процедурное, объектно-ориентированное, визуальное. Учебное пособие. – М.: Горячая линия – Телеком, 2014

 

4. ПЕРЕЧЕНЬ ОБОРУДОВАНИЯ И ПРОГРАММНОГО ОБЕСПЕЧЕНИЯ:          
4.1. Персональный IBM PC.

5.ЗАДАНИЕ:

5.1 Выполнить задачу из приложения.

5.2 Измените пример приложения. Создайте и запрограммируйте кнопку «Поиск» записи.

5.3 Измените пример приложения. Результат поиска должен выводится в другую форму. При нажатие выхода из приложения выводилось диалоговое окно с подтверждением выхода. («Да» или «Нет»).

6. ПОРЯДОК ВЫПОЛНЕНИЯ РАБОТЫ:

6.1 По предложенной литературе изучить необходимый материал;

6.2 Выполнить задания;

6.3 Оформить отчет;

7. СОДЕРЖАНИЕ ОТЧЕТА:

7.1 Наименование и цель работы

7.2 Записать результат (листинг) выполненных заданий.

7.3 Ответы на контрольные вопросы

7.4 Вывод о проделанной работе

 

8. КОНТРОЛЬНЫЕ ВОПРОСЫ:

8.1.Что такое VAR?

8.2  Как преобразовать переменную в другой тип данных?

8.3 Как открыть фаил (при помощи какой компоненты)? (Пример)

8.4 В чем отличие procedure и function?

ПРИЛОЖЕНИE:

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

 

1. Загрузите среду визуального программирования Delphi.

2. Откройте новую форму с многостраничным блокнотом.

File -> New -> Закладка Forms -> Tabbed Pages ->Ok.

3. Выделите и удалите клавишей Delete панель (Panel) с кнопками Ok, Cancel и Help в нижней части открытой формы.

4. Поменяйте заголовок формы с “Tabbed Notebook Dialog” на “Телефонный справочник” и поменяйте стиль границы окна (BorderStyle) на (Sizeable) (способный менять размер).

Для этого сначало в окне Object Inspector в списке компонентов текущей формы выберите  объект Pages Dlg (окно формы с многостраничным блокнотом). Только теперь можно поменять его заголовок и стиль.

5. Выделите (щелкнув внутри страницы мышью) и удалите третью страницу блокнота TabSheet3.

6. Замените заголовки (свойство Caption) первой и второй страницы блокнота (объектов TabSheet1 и TabSheet2) на “Список всех записей” и “Редактирование и поиск записей ” соответсвенно.

7. Заполните обе страницы формы визуальными объектами.

Для создания объекта Комбинированный Список воспользуйтесь кнопкой ComboBox на закладке Standard палитры компонентов. Кнопки «Предыдущий» - «Следующий» называются Buttom1 – Buttom4 соответственно. Очистите поля свойства Text объектов Edit1 – Edit5 и ComboBox1. Установите свойство Style объекта ComboBox1 в csDropDownList (выпадающий список). Задайте такие значения свойств объекта StringGrid1:

 

Свойство	Значения
ColCount	4
FixedCols	0
RowCount	100
FixedRows	1
Option -> goEditing	True

 

8. Добавьте на форму главное меню и введите название его команд.

9.  Создайте окно формы «О программе».

Прибавьте к проекту новое окно формы типа About box (File -> New -> Закладка Forms -> About box ->Ok).

10. Запрограммируйте команду “О программе” главного меню окна “Телефонный справочник” так, чтобы в момент ее выполнения на экране появилась только что спроектированное окно.

В заголовке процедуры обработки этой команды введите строку для вызова метода Show (показать) объекта AboutBox:

 AboutBox.Show;

11. Запрограммируйте кнопку OK окна «О программе».

Для этого возвратитесь к форме «О программе» и в процедуре OKButtonClick кнопки ОК введите команду закрытия активной формы:

Close;

12. Удалите ненужную пустую форму Form1 из проекта.

13. Запрограммируйте команду Файл -> Выход главной формы.

14. Опешите глобальные переменные и типы данных программы:

Для этого перед разделом реализации implementation добавьте такие команды:

info=record

familia, imja:string[20];

adres:string[100];

tel:string[15];

end;

var

PagesDlg: TPagesDlg;

f:file of info;

r:info;

n:integer;