Базы данных и знаний. Мартьянова А.Е. - 174 стр.

UptoLike

ВУЗ: 

АГТУ | Астрахань

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

Рубрика: 

Мартьянова А.Е. Базы данных и знаний 174
Таблица II.34. Возвращаемые значения для MsgBox
Константа Значение Описание
vbOK 1 Нажата OK
vbCancel 2 Нажата Cancel
vbYes 6 Нажата Yes
vbNo 7 Нажата No
Окно ввода, как и окно сообщения, может отображаться операто-
ром или функцией. С его помощью можно выв
данные
к
I о
тве ку, которая бу-
дет по умолчани лении окна диалога.
Когда
пользоват мое поля ввода при-
сваивается пере пку Cancel, воз-
вращается строк
Для прави опций в окно кода
необходимо вве
Private Sub cmdTas
rc = InputBox("Вве
I едра" T
rc = abc
lblFaculty.Enab
lblDean.Enabled = False
lblTeachingDe
lblAll.Enabled
mnuTaskDean.
TaskFacul
mnuTaskTeach
mnuGroup.Ena
mnuStudent.En
mnuFaculty.En
mnuTeacher.E
ine
mnuStudying.E
mnuAdvanced.Enabled = False
Inquiry.En
ElseIf rc = "Декана
rc = abc
lblFaculty.Enab
.Enable
lblTeachingDe
ести сообщение и ввести
.
Сокращен
nputBox (<Со
В качес
ный синтаксис функции выглядит та
бщение>, <Заголовок>,<Умолчание
параметра умолчание можно задать
ю находиться в поле ввода при появ
ель нажимает кнопку OK, содержи
менной. Если пользователь нажал кно
а нулевой длины.
льного включения соответствующих
сти дополнительно следующий текст:
k_Click()
дите пароль!", "Регистрация", "Пароль")
:
>)
стро
f rc = "Каф hen
led = True
partment.Enabled = False
= False
Enabled = False
mnu ty.Enabled = True
ingDepartment.Enabled = False
bled = False
abled = False
abled = False
nabled = False
mnuDiscipl .Enabled = False
nabled = False
mnu abled = False
т" Then
led = False
lblDean d = True
partment.Enabled = False
174
174                                      Мартьянова А.Е. Базы данных и знаний


                              Таблица II.34. Возвращаемые значения для MsgBox

      Константа              Значение                       Описание
 vbOK                           1             Нажата OK
 vbCancel                       2             Нажата Cancel
 vbYes                          6             Нажата Yes
 vbNo                           7             Нажата No

      Окно ввода, как и окно сообщения, может отображаться операто-
ром или функцией. С его помощью можно вывести сообщение и ввести
данные.
      Сокращенный синтаксис функции выглядит так:
InputBox (<Сообщение>, <Заголовок>,<Умолчание>)
      В качестве параметра умолчание можно задать строку, которая бу-
дет по умолчанию находиться в поле ввода при появлении окна диалога.
Когда пользователь нажимает кнопку OK, содержимое поля ввода при-
сваивается переменной. Если пользователь нажал кнопку Cancel, воз-
вращается строка нулевой длины.
      Для правильного включения соответствующих опций в окно кода
необходимо ввести дополнительно следующий текст:
Private Sub cmdTask_Click()
rc = InputBox("Введите пароль!", "Регистрация", "Пароль")
If rc = "Кафедра" Then
      rc = abc
      lblFaculty.Enabled = True
      lblDean.Enabled = False
      lblTeachingDepartment.Enabled = False
      lblAll.Enabled = False
      mnuTaskDean.Enabled = False
      mnuTaskFaculty.Enabled = True
      mnuTaskTeachingDepartment.Enabled = False
      mnuGroup.Enabled = False
      mnuStudent.Enabled = False
      mnuFaculty.Enabled = False
      mnuTeacher.Enabled = False
      mnuDiscipline.Enabled = False
      mnuStudying.Enabled = False
      mnuAdvanced.Enabled = False
      mnuInquiry.Enabled = False
ElseIf rc = "Деканат" Then
      rc = abc
      lblFaculty.Enabled = False
      lblDean.Enabled = True
      lblTeachingDepartment.Enabled = False


                                        174

Страницы