Проектирование информационной системы планирования организационно-технических мероприятий ОАО "Спектр"

Дипломная работа - Компьютеры, программирование

Другие дипломы по предмету Компьютеры, программирование

t;Менеджер" Or CurrentUser = "Директор") Then= CurrentUser.Enabled = FalseIf"Согласование"

===============================================

=================СОГЛАСОВАНИЕ==================

КнопкаРаспечататьПлан.Visible = False

КнопкаПринятьИзменения.Visible = True

===============================================

[Form_Подчиненная Список мероприятий].FilterOn = FalseCurrentUser = "Администратор" Or _= "Менеджер" Or CurrentUser = "Директор" Then

[Form_Подчиненная Список мероприятий].RecordSource = _

"SELECT * FROM [План мероприятий]" + whereCond + " AND [Согласовано]=False"

[Form_Подчиненная Список мероприятий].RecordSource = _

"SELECT * FROM [План мероприятий]" + whereCond + _

" AND [Согласовано]=False and [Исполнитель]=" + CurrentUser + ""If.Enabled = False.Enabled = True

==============================================="Редактирование"

===============================================

================РЕДАКТИРОВАНИЕ=================

[Form_Подчиненная Список мероприятий].FilterOn = FalseCurrentUser = "Администратор" Or _= "Менеджер" Or CurrentUser = "Директор" Then

[Form_Подчиненная Список мероприятий].RecordSource = _

"SELECT * FROM [План мероприятий] " + whereCond + " AND [Согласовано]=False"

[Form_Подчиненная Список мероприятий].RecordSource = _

"SELECT * FROM [План мероприятий] " + whereCond + " AND [Согласовано]=False AND [Заказчик]=" + CurrentUser + ""If

КнопкаРаспечататьДругиеОтчеты.Visible = False

КнопкаПринятьИзменения.Visible = True

===============================================.Enabled = False.Enabled = False.Enabled = False.Enabled = True

==============================================="Утверждение"

===============================================

==================УТВЕРЖДЕНИЕ==================

КнопкаРаспечататьДругиеОтчеты.Visible = False

КнопкаПринятьИзменения.Visible = True

===============================================

[Form_Подчиненная Список мероприятий].RecordSource = "SELECT * FROM [План мероприятий]" + whereCond

[Form_Подчиненная Список мероприятий].Filter = "Согласовано = True and Утверждено = False"

[Form_Подчиненная Список мероприятий].FilterOn = True.Enabled = True.Enabled = True.Enabled = True.Enabled = True.Enabled = True

==============================================="Исполнение"

===============================================

==================ИСПОЛНЕНИЕ===================

[Form_Подчиненная Список мероприятий].FilterOn = False

КнопкаРаспечататьПлан.Visible = False

КнопкаПереносСроков.Visible = True

===============================================CurrentUser = "Администратор" Or _= "Менеджер" Or CurrentUser = "Директор" Then

[Form_Подчиненная Список мероприятий].RecordSource = _

"SELECT * FROM [План мероприятий] " + whereCond + " AND [Утверждено]=True AND [% выполнения] < 100"

[Form_Подчиненная Список мероприятий].RecordSource = _

"SELECT * FROM [План мероприятий] " + whereCond + " AND [Утверждено]=True AND [% выполнения] < 100 " & _

" AND [Заказчик]=" + CurrentUser + ""If.Enabled = True.Enabled = False.Enabled = True

===============================================Else("Error")SelectSub

Blog

Проектирование информационной системы планирования организационно-технических мероприятий ОАО "Спектр"

Дипломная работа - Компьютеры, программирование

Другие дипломы по предмету Компьютеры, программирование