DELPHI 7.0

Лабораторна робота № 5.

Тема: Задача про телефонний довідник. Нові об'єкти: багатосторінковий блокнот, комбінований список. Створення нових вікон і стандартних діалогів. Робота з файлами записів.

Мета роботи. Створити програму для роботи з базою даних телефонним довідником, сформованим у вигляді файлу записів. У кожному записі визначені поля: прізвище і ім'я (рядки завдовжки по 20 символів кожна), адреса і номер телефону (рядки завдовжки 100 і 15 символів відповідно). Необхідно реалізувати наступні операції: створення і видалення запису, збереження і причитування файлу записів з диска, редагування, пошук і сортування даних в алфавітному порядку, проглядання записів і навігацію по базі. Ознайомитися з новими об'єктами: багатосторінковим блокнотом (PageControl), сторінкою блокнота (TabSheet), комбінованим списком (ComboBox), діалоговим вікном (AboutBox), стандартними діалогами відкриття і збереження файлів (OpenDialog і SaveDialog)

Виконання роботи

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

2. Відкрийте нову форму з багатосторінковим блокнотом.

Виконайте File NewOtherЗакладка Forms  Tabbed Pages Ok.

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

4. Поміняйте заголовок форми з «Tabbed Notebook Dialog» на «Телефонний довідник» і поміняйте стиль межі вікна (BorderStyle) на bsSizeable (здатний міняти розмір).

Для цього спочатку у вікні Object TreeView виберіть об'єкт PagesDIg (вікно форми з багатосторінковим блокнотом). Тільки тепер можна поміняти його заголовок і стиль.

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

Будьте уважні і не видалите весь багатосторінковий блокнот - об'єкт PageControl1. У разі потреби Ви можете відмовитися від неправильної дії командою Edit Undelete. Додати нову сторінку в блокнот можна командою New Page контекстного меню об'єкту PageControl (блокнот) або TabSheet (сторінка блокнота).

6. Замініть заголовки (властивість Caption) першої і другої сторінок блокнота (об'єктів TabSheetl і TabSheet2) на «Список всіх записів» і «Редагування і пошук записів» відповідно.

7. Заповніть обидві сторінки форми візуальними об'єктами так, як це показано на малюнку.

Перша сторінка

Задайте такі значення властивостей об'єкту StringGrid1:

Властивість	Значення
ColCount	4
FixedCols	0
RowCount	100
FixedRows	1
Options  goEditing	True

За допомогою миші задайте ширину стовпців таблиці, наприклад так, як показано на малюнку. Для цього мишею пересуньте межу між двома стовпцями в першому рядку таблиці StringGrid1.

He допускайте появи горизонтальної смуги прокручування в таблиці.

Друга сторінка

Для створення об'єкту Комбінований Список скористайтеся кнопкою (ComboBox) на закладці Standard палітри компонентів. Кнопки «Попередній» - «Наступний» називаються Button1— Button4 відповідно. Очистите поля властивості Text об'єктів Edit1 - Edit5 і ComboBox1. Встановіть властивість Style об'єкту ComboBox1 в csDropDownList (випадний список).