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

UptoLike

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

Мартьянова А.Е. Базы данных и знаний 172
Priva
Priva
End Sub
При и
другие lDean,
lblTea
пароля свойство Enabled
соотв
ложения приве-
ден на
te Sub cmdfrmPlanStudingGroups_Click()
frmPlanStudingGroups.Show
End Sub
te Sub cmdzPlanStudingGroup_Click()
frmzPlanStudingGroup.Show
необходимости на запускающую форму можно поместить
объекты, например, ярлыки (lblFaculty, lb
chingDepartment, lblAll), имеющие свойство Enabled = False и
кнопку (cmdTask), при нажатии на которую запрашиваются пароли (рис.
II.66) для входа в ту или иную задачу (пароли «Кафедра», «Деканат»,
«Учебная часть», «Всё»). При вводе верного
етствующего
ярлыка становится равным True и разрешается доступ
к соответствующим пунктам меню. При вводе неверного пароля выдает-
ся окно сообщенийрис. II.67. Окончательный вид при
рис. II.68.
Рис. II.66. Запрос пароль для входа в задачу
Рис. II.67. Окно сообщений при неверном вводе пароля
172
172                                        Мартьянова А.Е. Базы данных и знаний


Private Sub cmdfrmPlanStudingGroups_Click()
frmPlanStudingGroups.Show
End Sub

Private Sub cmdzPlanStudingGroup_Click()
frmzPlanStudingGroup.Show
End Sub
       При необходимости на запускающую форму можно поместить и
другие     объекты,    например,    ярлыки    (lblFaculty, lblDean,
lblTeachingDepartment, lblAll), имеющие свойство Enabled = False и
кнопку (cmdTask), при нажатии на которую запрашиваются пароли (рис.
II.66) для входа в ту или иную задачу (пароли «Кафедра», «Деканат»,
«Учебная часть», «Всё»). При вводе верного пароля свойство Enabled
соответствующего ярлыка становится равным True и разрешается доступ
к соответствующим пунктам меню. При вводе неверного пароля выдает-
ся окно сообщений – рис. II.67. Окончательный вид приложения приве-
ден на рис. II.68.




                    Рис. II.66. Запрос пароль для входа в задачу




              Рис. II.67. Окно сообщений при неверном вводе пароля




                                        172