19. Заполнение базы данных

Разработаем приложение, позволяющее при помощи диалогового окна заполнять базу данных ([4]).

Конструируя данное приложение, вы сможете освоить такие операции, как:

• последовательное заполнение плоской базы данных,

• программирование примечаний,

• программирование текстовых полей на рабочем листе,

• использование переключателя и флажков,

• создание пользовательского заголовка окна приложения,

• программное закрепление области на рабочем листе.

Для заполнения базы данных на рабочем листе с помощью редактора пользовательских форм создадим диалоговое окно Регистрация туристов фирмы «Маяк» (рис. 19.1).

При инициализации диалогового окна программа проверяет, есть ли заголовки у полей создаваемой базы данных о регистрации туристов. Если этих заголовков нет, то программа автоматически создает их, снабжая примечаниями, имеющими пояснительный текст о содержании полей. Выбор переключателя о программе приведет к отображению на экране текстового поля с пояснениями к данной программе. Снятие этого флажка удаляет данное поле. Обратите внимание, что у окна приложения пользовательское имя Регистрация. База данных туристов.

Обсудим, как приведенная ниже программа решает перечисленные задачи и что происходит в программе.

Г1 Файл Правка Вид Вставка Формат Охлаака Запуск Сервис Qkho 2

JserForm4 UserPorm 3

По алфавиту j по категориям

UserForm4

□ йнвооооос"

&Н8000001 О - fmBorderSt Регистрация О - f mCycleAIIF 32000 True Tahoma

&H8000001 291

HelpContextID 0 KeepScrolBarsV 3-fmScrollBar Left 0

Mouselcon (Нет) MousePointer 0 - fmMousePc Picture (Нет)

PictureAhgnmen 2 - f mPictureAl PictureSizeModeO - fmPictureSi PictureTiling False

ScrollBars

ScrollHeight

ScroHeft

ScrollTop

ScroJWidth

SpecialEffect

• f mScrollBar

fmSpecialEf 1

r жен

f- Оплата и до1

Г" Оплачено Г" Фото сданы Г" Паспорт сдан

• Направление тура

• Продолжительность тура

"3

Рис. 19.1. Диалоговое окно «Регистрация туристов фирмы "Маяк"»

UserForm Initialize

1. Активизирует диалоговое окно.

2. Назначает клавише Esc функцию кнопки Отмена, а клавише Enter - Вычислить. Назначает кнопкам Вычислить, Отмена и Переключателю всплывающие Подсказки.

3. Закрепляет первую строку так, чтобы она всегда отображалась на экране. Создает заголовки полей базы данных, если они еще

не были созданы.

4. Устанавливает начальное значение переключателя о программе.

5. Заполняет раскрывающийся список.

6. Устанавливает текст заголовка окна приложения

Нажатие кнопки Вычислить запускает на выполнение процедуру Сот-mandButtonl Click

1. Определяет номер первой пустой строки в базе данных о регистрации туристов, куда будет введена новая запись.

2. Считывает данные из диалогового окна.

3. Вводит их в первую пустую строку

Private Sub CorninandButtonl Click () Процедура считывания информации из диалогового окна и записи, ее в базу данных на рабочем листе Смысл переменных однозначно определен их названиями Dim Фамилия As String * 2 0 Dim Имя As String * 20 Dim Пол As String * 3 Dim ВыбранныйТур As String * 20 Dim Оплачено As String * 3 Dim Фото As String * 3 Dim Паспорт As String * 3 Dim Срок As String * 3 Dim НомерСтроки As Integer НомерСтроки - номер первой пустой строки рабочего листа НомерСтроки= Application.CountA(ActiveSheet.Columns(1)) + Считывание информации из диалогового окна в переменные With UserForml Фамилия = .TextBoxl.Text Имя = .TextBox2.Text Срок = .TextBox3.Text If .OptionButtonl.Value = True Then Пол = "Муж" Else Пол = "Жен"

End If If .CheckBoxl.Value = True Then Оплачено = "Да" Else Оплачено = "Нет" End If

If .CheckBox2.Value = True Then Фото = "Да" Else Фото = "Нет" End If