Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications стр.86
Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications стр.86 Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications

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

UserForm Initialize

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

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

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

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

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

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

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

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

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

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

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

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

SpinButtonl _ Change

Вводит значение в поле Продолжительность тура

ToggleButtonl _CIick

Отображает текстовое поле в выбранном состоянии и удаляет его - в снятом состоянии

Заголовок-РабочегоЛиста

Создает заголовки полей базы данных о регистрации туристов. Эти заголовки отображаются с примечаниями

Private Sub CornmandButtonl_Click () ' Процедура считывания информации

* из диалогового окна' и записи,

х ее в базу данных на рабочем листе

' Смысл переменных однозначно определен

* их названиями

Dim Фамилия As String * 2 0 Dim Имя As String * 20 Dim Пол As String * 3 Dim ВыбранныйТур As String * 2 0 Dim Оплачено As String * 3 Dim Фото As String * 3 Dim Паспорт As String * 3 Dim Срок As String * 3 Dim НомерСтроки As Integer ' НомерСтроки - номер первой пустой х строки рабочего листа НомерСтроки=_ Application.CountA(ActiveSheet.Columns(1)) + 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


⇐ Предыдущая Следующая ⇒
 
 
 
Powered by Exponenta