Лабораторна робота № 5. Тема: Задача «Телефонний довідник».
Мета роботи. Створити програму для роботи з базою даних телефонним довідником, сформованим у вигляді файлу записів. У кожному записі визначені поля: прізвище і ім'я (рядки завдовжки по 20 символів кожна), адреса і номер телефону (рядки завдовжки 100 і 15 символів відповідно). Необхідно реалізувати наступні операції: створення і видалення запису, збереження і причитування файлу записів з диска, редагування, пошук і сортування даних в алфавітному порядку, проглядання записів і навігацію по базі. Ознайомитися з новими об'єктами: багатосторінковим блокнотом (PageControl), сторінкою блокнота (TabSheet), комбінованим списком (ComboBox), діалоговим вікном (AboutBox), стандартними діалогами відкриття і збереження файлів (OpenDialog і SaveDialog)
Хід роботи.
Завантажте систему візуального програмування Delphi.
Відкрийте нову форму з багатосторінковим блокнотом.
Виконайте File NewOtherЗакладка Forms Tabbed Pages Ok.
Виділіть і видаліть клавішею Delete панель (Panel) з кнопками Ok, Cancel і Help в нижній частині відкритої форми.
Поміняйте заголовок форми з «Tabbed Notebook Dialog» на «Телефонний довідник» і поміняйте стиль межі вікна (BorderStyle) на bsSizeable (здатний міняти розмір).
Для цього спочатку у вікні Object TreeView виберіть об'єкт PagesDIg (вікно форми з багатосторінковим блокнотом). Тільки тепер можна поміняти його заголовок і стиль.
Виділіть (клацнувши усередині сторінки мишею) і видаліть (Delete) третю сторінку блокнота TabSheet3.
Будьте уважні і не видалите весь багатосторінковий блокнот - об'єкт PageControl1. У разі потреби Ви можете відмовитися від неправильної дії командою Edit Undelete. Додати нову сторінку в блокнот можна командою New Page контекстного меню об'єкту PageControl (блокнот) або TabSheet (сторінка блокнота).
Замініть заголовки (властивість Caption) першої і другої сторінок блокнота (об'єктів TabSheetl і TabSheet2) на «Список всіх записів» і «Редагування і пошук записів» відповідно.
Заповніть обидві сторінки форми візуальними об'єктами так, як це показано на малюнку.
Перша сторінка
Задайте такі значення властивостей об'єкту 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 (випадний список).