Лабораторна робота № 4. Файли записів

Мета роботи. Створити програму, яка працюватиме з базою да­них — адресною (записною) книжкою, сформованою у вигляді файлу записів (рис. 16). Полями кожного запису є: прізвище і ім'я (рядок символів довжиною до 50 символів) та особисті дані (рядок довжиною до 500 символів). Необхідно реалізувати наступні опе­рації: створення та вилучення запису, збереження та зчитування з диска файлу записів, редагування та пошук потрібних даних,

перегляд записів та навігацію по них.

Теоретичні відомості. Опис глобальних типів у Visual Basic здійснюється в окремому модулі. Вікно модуля можна відкрити за допомогою команди головного меню Project / Add Module / Open (Відкрити). Заготовку власної функції чи процедури можна вставити у код програми за допомогою команди головного меню Tools / Add Procedure. Перехід по потрібних модулів і форм проекту здійснюється за допомогою вікна, яке відкривається коман­дою головного меню View / Project Explorer (рис. 14).

Рис. 14

Відкрити потрібний компонент проекту можна, двічі клацнувши по ньому мишею у вікні проекту.

Хід роботи

1. Завантажте середовище Visual Basic.

2. Заповніть форму візуальними об'єктами (рис. 15).

Назви кнопок показані на рис. 16. Властивість MultiLine об'єкта Text2 задайте True.

З. Значення властивості ScrollBars об'єкта Text2 задайте Both. Властивість BorderStyle форми задайте Fixed Single.

4. Збережіть проект у своїй папці.

5. Введіть опис типу запису TPerson і опис глобальних змінних програми.

Для цього відкрийте вікно нового модуля за допомогою команди головного меню Project / Add Module / Open (Відкрити) і введіть у нього опис типу TPerson:

Поверніться у вікно коду форми і введіть у нього опис глобальних змінних програми:

Зауваження. Одержати доступ до секції опису глобальних змінних можна, вибравши у лівому верхньому комбінованому списку редактора коду елемент (General), а у правому списку — елемент (Declarations).

Рис. 15 Рис. 16

6. Запрограмуйте процедуру створення форми Form_Load():

Двічі клацніть на вільному місці форми і введіть текст процедури:

17. Створіть власні процедури зчитування запису з файлу у форму (ReadPerson) і збереження активного запису у файлі (WritePerson).

Для цього клацніть на формі і виконайте команду головного ме­ню Tools / Add Procedure. У рядку Name введіть ім'я процедури ReadPerson. Встановіть перемикачі групи Туре у позицію Sub (процедура), а групи Scope у позицію Public (загальнодоступна) / Ok. Заповніть одержану заготовку кодом:

Аналогічно створіть процедуру WritePerson:

8. Запрограмуйте командні кнопки.

9. 3бережіть роботу і запустіть проект на виконання.

Введіть декілька записів і переконайтеся у правильності роботи командних кнопок. Закінчіть роботу кнопкою Кінець. Запустіть програму ще раз і переконайтеся у тому, що записи правильно зчитано з файлу. Додайте ще один запис, введіть у нього дані і відразу закрийте вікно системною кнопкою. Запустіть програму на виконання і перевірте останній запис. Чому запис не зберігся?

10. Забезпечте збереження останнього запису і всього файлу після закриття вікна програми системною кнопкою чи командами системного меню.

Для цього у лівому верхньому комбінованому списку редактора коду виберіть об'єкт Form, а у правому подію Unload (вивантажити) для цього об'єкта. У вікні коду з'явиться заготовка процедури Form_Unload, яка виконуватиметься у момент закриття вікна. Введіть команду виклику процедури Command4_Click кнопки "Кінець":

11. Збережіть роботу, запустіть програму і переконайтеся у прави­льності її роботи.

Домашнє завдання

Задача 4.1. Вставте і запрограмуйте кнопку "Перейти на останній запис".

Задача 4.2. Вставте і запрограмуйте кнопку "Перейти на перший запис".

Задача 4.3. Вставте і запрограмуйте кнопку "Знайти наступ­ний" так, щоб після натискання на неї здійснювався перехід вперед у файлі на запис, значення поля Name якого збігається з рядком, уведеним у додаткове поле редагування.

Задача 4.4. Вставте і запрограмуйте кнопку "Знайти поперед ній" так, щоб після натискання на неї здійснювався перехід назад у файлі на запис, значення поля Name якого збігається з рядком, уведеним у додаткове поле редагування.

Задача 4.5. Вставте і запрограмуйте кнопку "Вилучити запис" так, щоб після натискання на неї вилучався активний запис.

Підказка. У процедуру цієї кнопки введіть цикл перезапису всіх записів файлу, що містяться за вилученим, на одну позицію назад: