Информатика в управлении и экономике. Боброва Л.В - 205 стр.

UptoLike

ВУЗ: 

СЗТУ | Санкт-Петербург

Составители: 

Рубрика: 

215
Private Sub CommandButton1_Click
If TextBox2 = “” Then
MsgBox (”Пожалуйста, введите Фамилию И.О. студента”)
TextBox2.SetFocus
Exit Sub
End If
If TextBox3 = “” Then
MsgBox(”Пожалуйста, введите название факультета”)
TextBox3.SetFocus
Exit Sub
End If
Unload Me
End Sub .
4. Перейдите в рабочую книгу и щёлкните по командной кнопке,
открывающей форму.
5. Щёлкните по кнопке Сохранить. Появится окно с сообщением
«Пожалуйста, введите Фамилию И.О. студента».
6. Щёлкните по кнопке ОК, чтобы закрыть окно сообщения. На экране
наша форма. Курсор находится в поле ввода Фамилия И.О. студента. Введите
в
это поле следующие данные: Иванов И.И. и щёлкните по кнопке Сохранить.
7. Появится окно с сообщением Пожалуйста, введите название
факультета.
8. Щёлкните по кнопке ОК, чтобы закрыть окно сообщения. На экране
наша форма. Курсор находится в поле ввода Факультет. Введите в это поле
слово ФИТСУ щёлкните по кнопке
Сохранить. Форма исчезнет с экрана.
14.6.2. Процедура сохранения вводимых данных
Данные, введённые в форму, следует сохранить в рабочем листе книги. Для этого
:
1. Перейдите на рабочий Лист 3 и Дайте ему имя Форма (если в рабочей
книге нет Листа 3, поставьте указатель мыши на имя Лист1 и выполните
команды Добавить - Лист).
2. В первой строке листа создайте строку заголовков, повторяющих
названия элементов управления. За образец возьмите рабочий лист,
показанный на рис. 15.15.
A B C D E
1 Дата
занятия
Фамилия И.О.
студента
Форма
обучения
Тема занятия Имя файла на
дискете
2 04.12.05 Иванов И.И. ФИТСУ СУБД Access Список абонентов
3
4
Рис. 15.15
3. Перейдите в редактор Visual Basic и отобразите экранную форму.
4. Чтобы открыть окно процедуры CommandButton1_Click, дважды
щелкните по кнопке Сохранить.

Страницы