Фамилия Имя Пол Тур Начало тура Конец тура
Лабораторная работа № 4.
VBA. Табличная база данных туристической фирмы.
1. Создайте проект с табличной базой данных туристической фирмы.
2. Запустите электронную таблицу Microsoft Excel, состоящую из двух рабочих листов.
3. Переименуйте листы в Туры и База данных.
4. В ячейку диапазона A1:A9 листа Туры введите список предлагаемых фирмой туров.
Лондон
Париж
Нью-Йорк
Прага
Осло
Хельсинки
Копенгаген
Берлин
Цюрих
5. В ячейки диапазона A1 :F1 листа База данных введите название полей табличной базы данных.
Фамилия Имя Пол Тур Начало тура Конец тура
6. Для того, чтобы название полей всегда отображалось на экране при вертикальной прокрутке листа, выберите вторую строку листа База данных, а затем укажите команду Вид – Окно – Закрепить области.
7. Создайте на рабочем листе База данных две кнопки.
8. При помощи окна свойств Properties установите им следующие значения свойств:
| Кнопка «Регистрация» | Name | cmdCheckIn |
| Caption | Регистрация | |
| Кнопка «Поиск» | Name | cmdSearch |
| Caption | Поиск |
9. Запустите редактор VBA. Выполните команду Разработчик - Код - Редактор VB.
10. Создайте модуль. Выполните команду Insert - Module. Введите программу
11. Установите защиту на рабочий лист Туры, но так, чтобы в нем возможно было производить выбор диапазонов ячеек. Это нам потребуется, чтобы можно было заполнить список данными, содержащимися на этом рабочем листе.
Для этого, находясь в редакторе VBA, сделайте двойной щелчок на значок ЭтаКнига в левой части экрана. В появившемся модуле введите программу:
12. В модуле рабочего листа База данных наберите код двух процедур, обрабатывающий событие - нажатие соответствующей кнопки. При нажатии кнопки Регистрация появляется окно Регистрация, а кнопки Поиск - окно Поиск.
Для этого, находясь в редакторе VBA, сделайте двойной щелчок на значок Лист1(База данных) в левой части экрана. В появившемся модуле введите программу:
13. Перейдем к конструированию формы для окон Регистрация и Редактирование.
ü В проекте добавьте форму (Insert - UserForm), на которой расположите пять надписей (Label), четыре поля ввода (TextBox), две рамки (Frame), список (ListBox), два переключателя (OptionButton), три кнопки (CommandButton) и календарь (Calendar) (см. рис 1).
ü Для добавления дополнительных элементов управления на панель элементов необходимо выбрать команду Tools - Additional Controls. В появившемся окне Дополнительные элементы необходимо установить флажок напротив добавляемого элемента. В нашем случаи напротив Элемент управления Календарь 11.0. Нажмите ОК. В результате значок выбранного элемента управления появится в панели элементов.
Рис.1. Форма окна Регистрации.
14. При помощи окна Properties устаноновите для них следующие значения свойств:
| Форма | Name | frmReg |
| Кнопка (CommandButton) | Name | cmdSave |
| Caption | Сохранить | |
| Кнопка (CommandButton) | Name | cmdCancel |
| Caption | Отмена | |
| Кнопка (CommandButton) | Name | cmdDelete |
| Caption | Удалить | |
| Надпись (Label1) | Caption | Фамилия |
| Поле ввода (TextBox) | Name | txtLastName |
| Надпись (Label2) | Caption | Имя |
| Поле ввода (TextBox) | Name | txtFirstName |
| Рамка (Frame) | Caption | Пол |
| Переключатель (OptionButton) | Name | optMale |
| Caption | муж | |
| Переключатель (OptionButton) | Name | optFemale |
| Caption | жен | |
| Рамка (Frame) | Caption | Даты тура |
| Надпись (Label3) | Caption | Начало |
15. В модуле формы наберите код. Для этого на свободном месте формы нажмите правую кнопку мыши и в появившемся меню выберите команду View Code.
16. Перейдем к конструированию формы для окна Поиск. В проекте добавьте форму (Insert - UserForm), на которой расположите две надписи (Label), поле ввода (TextBox), поле ввода со списком (ComboBox) и три кнопки (CommandButton) (см.рис.2)
Рис.2. Форма окна Поиск.
17. При помощи окна Properties установите следующие значения свойств:
| Форма | Name | frmSearch |
| Caption | Поиск | |
| Кнопка (CommandButton) | Name | cmdSearch |
| Caption | Поиск | |
| Кнопка (CommandButton) | Name | cmdCancel |
| Caption | Выход | |
| Кнопка (CommandButton) | Name | cmdEdit |
| Caption | Редактирование | |
| Надпись (Label) | Caption | Фамилия |
| Поле ввода (TextBox) | Name | txtLastName |
| Надпись (Label) | Caption | Найденные варианты |
| Поле со списком (ComboBox) | Name | cboFound |
18. В модуле формы наберите код. Для этого на свободном месте формы нажмите правую кнопку мыши и в появившемся меню выберите команду View Code.
19. Проект готов. Начните заполнять нашу базу данных, используя кнопку Регистрация. Количество клиентов - 15 человек. Фамилии и все данные вводите произвольно.
Пример готовой базы данных Турфирма см.рис.3. Проверьте работоспособность кнопки Поиск, при нажатии на нее появляется форма Поиск. Сохраните созданную работу в рабочей папке.
Рис.3. Готовая база данных Турфирма.