Разработка модуля поддержки процессов организации повышения квалификации преподавателей в рамках АСУ МИИТ

Вид работы:

Дипломная (ВКР)
Предмет:

Информационное обеспечение, программирование
Язык:

Русский
,
Формат файла:
MS Word

3,38 Мб
Опубликовано:

2013-07-27

Все дипломные работы по информационному обеспечению

Скачать дипломную работу Читать текст online Заказать дипломную
*Помощь в написании! Посмотреть все дипломные работы

Вы можете узнать стоимость помощи в написании студенческой работы.

Разработка модуля поддержки процессов организации повышения квалификации преподавателей в рамках АСУ МИИТ

Аннотация

Данный дипломный проект посвящен разработке модуля поддержки процессов организации повышения квалификации преподавателей в рамках АСУ МИИТ.

В дипломном проекте анализируется деятельность факультета повышения квалификации преподавателей (ФПКП), а также его взаимодействие с управлением финансов и бухгалтерского учета (УФБУ), управлением кадров (УК) и руководством университета, а также с рядом других подразделений или филиалов МИИТа. В работе описана существующая технология организации повышения квалификации преподавателей, определены ее недостатки, сформулированы требования к разрабатываемой задаче и обоснована целесообразность модуля поддержки процессов организации повышения квалификации преподавателей.

В ходе работы дипломного проекта разрабатывается приложение, автоматизирующее технологию организации повышения квалификации. Данное приложение интегрировано в существующую корпоративную систему АСУ МИИТа.

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

Производится расчет, позволяющий оценить время реакции системы.

Кроме того, в дипломном проекте освещаются вопросы человеко-машинного взаимодействия.

приложение архитектура данный пользователь

Содержание

Аннотация

Введение

Обозначения и сокращения

. Анализ существующей технологии организации повышения квалификации преподавателей. Обоснование целесообразности

.1 Цель проектирования

.2 Постановка задачи

.3 Анализ существующей технологии организации повышения квалификации преподавателей

.3.1 Описание предметной области

.3.2 Описание процесса организации повышения квалификации преподавателей в МИИТе

.3.3 Анализ существующей технологии организации повышения квалификации преподавателей в МИИТе

.4 Обоснование целесообразности разработки

.5 Требования к разрабатываемому приложению

.5.1 Требования к архитектуре

.5.2 Требования ко времени выполнения запросов

.5.3 Требования к функциям программного обеспечения

.5.4 Требования к защите информации от несанкционированного доступа

.5.5 Требования к программному и аппаратному обеспечению

.5.6 Анализ исходных данных

. Разработка задачи организации повышения квалификации преподавателей

.1 Архитектура создаваемого приложения

.2 Моделирование предметной области

.3 Разработка модели данных

.4 Разграничение прав доступа

.5 Разработка структуры ПО

.5.1 Описание основных модулей, используемых в приложении

.5.2 Описание основных SQL-запросов, используемых в приложении

.6 Инструкция пользователя

.6.1 Общие сведения

.6.2 Начало работы

.6.2.1 Пользователь и пароль

.6.2.2 Подключение к тестовой базе данных

.6.3 Справочники

.6.3.1 Программы обучения

.6.3.2 Организаторы обучения

.6.4 Содержание программ

.6.5 Мероприятия

.6.5.1 Планирование мероприятий

.6.5.2 Проведение обучения

.6.6 О программе

.6.6.1 Текущий пользователь

.6.6.2 Изменение пароля

.6.7 Сохранение параметров

. Системотехнические расчеты

.1 Расчет времени реакции системы

.1.1 Обоснование расчета времени реакции

.1.2 Описание технологии передачи работы системы

.1.3 Переход к модели в терминах СМО

.1.4 Исходные данные для расчета времени реакции

.1.5 Расчет среднего времени реакции системы

.2 Вывод

. Человеко-машинное взаимодействие

.1 Профессиограмма - «Инспектор факультета повышения квалификации преподавателей»

.2 Вывод

Экономическая часть

.1 Постановка экономической задачи

.2. Расчет затрат, связанных с разработкой проекта автоматизации

.2.1 Расчет затрат на техническое обеспечение

.2.2 Затраты на создание программных комплексов

.2.3 Затраты на приобретение аппаратных комплексов

.2.4 Затраты на создание информационного и организационного обеспечения

.2.5 Суммарные капитальные затраты на разработку и внедрение проекта

.2.6 Текущие затраты на эксплуатацию внедряемых систем

.3 Расчет экономической эффективности

Заключение

Список литературы

Приложение

Приложение А. Описание ER-модели

Приложение Б. Код программы

Приложение В. Текст запросов

Приложение Г. Образцы документов

Введение

Московский государственный университет путей сообщения (МИИТ) представляет собой организацию со сложной иерархически разветвленной структурой и тесно связанными бизнес-процессами.

Управление подобным предприятием требует использования современных информационных технологий для повышения качества процесса управления в целом. Для достижения этих целей в МИИТе создана корпоративная система АСУ МИИТ. На сегодняшний день в рамках АСУ МИИТ реализовано множество приложений, автоматизирующих различные бизнес-процессы. Результатом этой автоматизации является взаимодействие различных отделов подразделений университета в общем информационном пространстве.

Процесс организации повышения квалификации преподавателей на данный момент автоматизирован, но лишь в локальной информационной системе, которая не имеет связи с АСУ МИИТ. В ходе его выполнения необходимо согласование ряда документации между организацией (подразделением), факультетом повышения квалификации (ФПКП), управлением финансов и бухгалтерского учета (УФБУ), управлением кадров и руководством университета.

Для повышения эффективности деятельности ФПКП, УФБУ, управления кадров и других структурных подразделений МИИТа, которые участвуют в организации повышения квалификации преподавателей, предлагается разработать приложение, автоматизирующее технологию и представляющее из себя модуль АСУ МИИТ.

Обозначения и сокращения

ФПКП - факультет повышения квалификации преподавателей

УФБУ - управление финансового и бухгалтерского учета

ЕСН - Единый Социальный Налог

УК - управление кадровСУ МИИТ - автоматизированная система управления Московского государственного университета путей сообщения

1. Анализ существующей технологии организации повышения квалификации преподавателей. Обоснование целесообразности

.1 Цель проектирования

Данная разработка предназначена для совершенствования работы факультета повышения квалификации преподавателей (ФПКП), управления финансов и бухгалтерского учета (УФБУ), управления кадров (УК), а также ряда подразделений/филиалов, которые участвуют в организации повышения квалификации преподавателей.

Конечной целью является:

разработка приложения, автоматизирующего технологию организации повышения квалификации преподавателей;

интеграция приложения в существующую корпоративную систему АСУ МИИТа.

Основными результатами автоматизации технологии организации повышения квалификации преподавателей являются:

автоматизированная обработка информации на всех этапах организации повышения квалификации (создание документов, заполнение содержимого документов, корректировка документов, подпись документов);

соответствие требованиям к времени выполнения запросов, что существенно ускорит процесс формирования документов;

реализация заявленного в требованиях функционала;

разработка интуитивно понятного интерфейса, что позволит ускорить процесс освоения пользователем приложения, а так же ускорить процесс организации повышения квалификации путем минимизации действий пользователя.

1.2 Постановка задачи

Необходимо улучшить организацию работы и повысить эффективность деятельности факультета повышения квалификации преподавателей (ФПКП), управления финансов и бухгалтерского учета (УФБУ), управления кадров (УК), а также ряда подразделений/филиалов, которые участвуют в организации повышения квалификации преподавателей.

При этом необходимо учитывать следующие данные:

архитектуру АСУ МИИТ;

существующую технологию организации повышения квалификации преподавателей;

количество пользователей около 42 человек;

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

В ходе выполнения дипломного проектирования должны быть выполнены следующие задачи:

анализ технологии организации повышения квалификации преподавателей в рамках АСУ МИИТ;

анализ исходных данных;

моделирование соответствующей предметной области;

разработка модели данных;

определение функциональных, аппаратных и программных требований к разрабатываемому приложению с учетом существующей корпоративной системы АСУ МИИТ;

разработка приложения.

Основным результатом внедрения приложения должны стать:

удобство интерфейса и простота использования;

согласованность работы факультета повышения квалификации преподавателей (ФПКП), управления финансов и бухгалтерского учета (УФБУ), а также ряда подразделений/филиалов, которые участвуют организации повышения квалификации преподавателей.

.3 Анализ существующей технологии организации повышения квалификации преподавателей

.3.1 Описание предметной области

Повышения квалификации - вид профессионального обучения работников, имеющий целью повышение уровня их теоретических знаний, совершенствование практических навыков и умений. Повышение квалификации преподавателей - это обучение, направленное на обновление и углубление теоретических и практических знаний в психолого-педагогической, научно-профессиональной и общекультурной деятельности на основе современных достижений науки, прогрессивной техники и технологии.

Согласно Федерального закона «О высшем и послевузовском профессиональном образовании» от 22 августа 1996 г. № 125-ФЗ (Глава III. Статья 21) государство гарантирует создание необходимых условий для повышения квалификации (не реже одного раза в пять лет) научно-педагогических работников государственных высших учебных заведений и научно-педагогических работников государственных научных учреждений и организаций, действующих в системе высшего и послевузовского профессионального образования, выделяя на эти цели необходимые средства за счет федерального бюджета [1].

Повышение квалификации научно-педагогических работников может осуществляться также по договорам, заключенным физическим лицом и (или) юридическими лицами с высшим учебным заведением и научными организациями или учреждениями, за счет средств физических и (или) юридических лиц.

Целью повышения квалификации является обновление теоретических и практических знаний преподавателей в связи с повышением требований к уровню квалификации и необходимостью освоения современных методов решения профессиональных задач. Повышение квалификации включает следующие виды обучения:

краткосрочное (не менее 72 часов);

тематические и проблемные семинары (от 72 до 100 часов);

длительное (свыше 100 часов);

стажировка;

профессиональная переподготовка;

профессиональная переподготовка для получения дополнительной квалификации.

По окончании обучения слушателям, выполнившим учебный план, выдаются документы государственного образца:

удостоверение о краткосрочном повышении квалификации - слушателям, прошедшим краткосрочное обучение или участвовавшим в работе тематических и проблемных семинаров по программе в объеме от 72 до 100 часов;

свидетельство о повышении квалификации - слушателям, прошедшим обучение по программе в объеме от 100 часов до 500 часов;

диплом о профессиональной переподготовке - слушателям, прошедшим обучение по программе в объеме свыше 500 часов аудиторной нагрузки;

диплом о дополнительном (к высшему) образовании с присвоением дополнительной квалификации - слушателям, прошедшим обучение по программе в объеме свыше 1000 часов.

При направлении работников для повышения квалификации с отрывом от работы за ними сохраняется место работы (должность) и производятся выплаты, предусмотренные законодательством [ст.112 КЗоТ]. Так, за работниками организаций независимо от форм собственности, направленным на курсы повышения квалификации с отрывом от работы, сохраняется средняя заработная плата по основному месту работы на время их обучения. Иногородним слушателям, направленным на обучение с отрывом от работы, сохраняется средняя заработная плата по основному месту работы и выплачиваются в течение первых 2 месяцев суточные по нормам, установленным при командировках на территории РФ, а в последующий период - стипендии в размере минимальной оплаты труда, утвержденной в установленном порядке, если иная оплата не предусмотрена договором между руководителем организации и лицом, направленным на обучение. На время обучения слушатели обеспечиваются общежитием гостиничного типа с оплатой расходов за счет направляющей стороны.

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

.3.2 Описание процесса организации повышения квалификации преподавателей в МИИТе

Планирование повышения квалификации преподавателей осуществляется на основании:

заявки от подразделения (организации) на проведение повышение квалификации со списком сотрудников;

норм прохождения повышения квалификации преподавателей, установленных Министерством образования и науки РФ.

Составляются план повышения квалификации преподавателей на год и нормативный план.

План повышения квалификации преподавателей на год содержит:

тип обучения (краткосрочное, длительное и т.д.);

наименование учебной программы;

объем часов;

форму обучения;

ориентировочные сроки проведения;

кафедру-организатора.

Этот план утверждается руководством университета в конце текущего года на следующий год.

Нормативный план содержит:

наименование подразделения;

количество человек (всего);

количество человек, которые должны пройти повышение квалификации.

Нормативный план также утверждается руководством университета в конце текущего года на следующий год.

Далее начинается процесс проведения мероприятий: заключаются договора между МИИТом и какой-либо организацией на проведение повышения квалификации, выписываются направления на оплату. После оплаты квитанций формируются приказы о зачислении слушателей в определенные учебные группы. Списки зачисленных слушателей передаются в управление финансов и бухгалтерского учета (УФБУ).

После завершения учебного процесса, между МИИТом и организацией-заказчиком подписываются акты сдачи-приемки оказанных услуг, формируются приказы об окончании обучения. Слушателям выдаются сертификаты о прохождении повышения квалификации.

Структурный анализ процесса организации повышения квалификации преподавателей в МИИТе показан на Рис. 1.1 и Рис. 1.2.

Рис.1.1 Контекстная диаграмма

Рис.1.2 DFD-диаграмма, описывающая процесс организации повышения квалификации преподавателей

1.3.3 Анализ существующей технологии организации повышения квалификации преподавателей в МИИТе

Процессом организации повышения квалификации преподавателей в МИИТе занимается факультет повышения квалификации преподавателей (ФПКП). До 2009 года этот процесс производился ручным набором документов в Microsoft Word/Microsoft Excel.

В 2010 году была создана локальная информационная система, которая имеет свои преимущества и недостатки.

К преимуществам можно отнести:

небольшая стоимость разработки и внедрения, в следствие чего уменьшаются затраты на разработку и внедрение, т.к. локальная система требует на эти процессы меньшее количество человеко-часов;

низкие системные требования, в следствие чего уменьшаются затраты на аппаратное обеспечение;

частичная автоматизация процесса (реализация части необходимого функционала системы), в следствие чего сокращается время, потраченное на организацию повышения квалификации преподавателей (по сравнению с ранее существующей технологией).

Основными недостатками являются:

отсутствие связи с общей базой университета - обуславливается отсутствием в локальной системе необходимых для работы данных, за ввод которых отвечают другие подразделения, в следствие чего происходит многократный ввод данных, возможны потеря достоверности и оперативности данных, а также финансовые потери;

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

реализованная архитектура локальной системы не позволяет обеспечить необходимую масштабируемость для подключения к ней филиалов, т.к. при ее разработке учитывалось ограниченное число пользователей и ограниченные требования к взаимосвязям.

Пример взаимодействия локальных систем университета приведен на Рис. 1.3.

Рис. 1.3 Взаимодействие локальных информационных систем в университете

Но в то же время в университете имеется корпоративная сеть, выход в Интернет и корпоративная информационная система, т.е. вся необходимая информационно-техническая инфраструктура для включения описанной задачи в общее информационное пространство и обеспечения возможности прозрачного информационного взаимодействия со смежными подразделениями.

.4 Обоснование целесообразности разработки

На сегодняшний день, как упоминается ранее, технология организации повышения квалификации преподавателей автоматизирована частично в локальной информационной системе. Взяв во внимание выявленные недостатки данной системы и учитывая такие факторы, как географически распределенная структура (около 40 филиалов), масштаб, сильно связанные по данным бизнес-процессы, высокие требования к оперативности и достоверности данных, необходимость построения сводных отчетов о деятельности филиалов и т.д., можно сделать следующие выводы о необходимости разработки данной задачи как части единой корпоративной системы университета.

Приложение, автоматизирующее технологию организации повышения квалификации в рамках АСУ МИИТ, ликвидирует выявленные недостатки данной системы, улучшит организацию работы и повысит эффективность деятельности факультета повышения квалификации преподавателей (ФПКП), а также взаимодействия с такими подразделениями, как управление финансов и бухгалтерского учета (УФБУ), управление кадров и другие структурных подразделения МИИТа (организаций), которые участвуют в организации повышения квалификации преподавателей.

Рассматривая перечисленные выше доводы, можно сделать обоснованный вывод о целесообразности разработки приложения, автоматизирующего технологию организации повышения квалификации преподавателей в рамках корпоративной информационной системы АСУ МИИТ.

.5 Требования к разрабатываемому приложению

.5.1 Требования к архитектуре

Приложение должно функционировать в рамках корпоративной системы Университета и опираться на ее архитектуру.

.5.2 Требования ко времени выполнения запросов

Требования к времени выполнения запросов приведены в таблице 1.1.

Таблица 1.1 Требования к времени выполнения запросов

Операция	Среднее время реакции, сек.
Оперативный запрос	1
Составление отчетов	5
Аналитический запрос	10

Оперативным запросом будем считать простейший запрос, сделанный к СУБД (выборка данных из одной или нескольких таблиц), в котором не используются агрегатные функции.

Аналитическими запросами к базе данных принято называть запросы, сводные (агрегатные) результаты которых вычисляются над детальными данными, хранящимися в таблицах базы данных. В этом смысле любой запрос на языке SQL, результат которого основан на вычислении агрегатных функций, можно назвать аналитическим. Характерная особенность аналитических запросов состоит в том, что, как правило, они применяются к большим по объему базам данных, и выполнение таких запросов вызывает существенные накладные расходы СУБД [2].

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

Требования к допустимому времени выполнения запросов сделаны на основе результатов тестирования пользователей, полученных Якобом Нильсеном [3].

.5.3 Требования к функциям программного обеспечения

Функции, которые должно выполнять разработанное приложение:

сбор данных для организации повышения квалификации преподавателей;

работа со справочниками: добавление, удаление и редактирование записей в списках учебных программ, организаторов обучения, учебных групп и т.д.;

зачисление слушателей в учебные группы повышения квалификации;

отчисление слушателей из учебных групп повышения квалификации;

создание и редактирование учебных групп, и установление точных сроков проведения мероприятий по повышению квалификации;

создание и формирование следующей документации:

план повышения квалификации на год;

договор;

акт;

заявление на оплату;

список зачисленных слушателей;

список слушателей, прошедших повышение квалификации;

приказ о зачислении;

приказ об отчислении;

сертификат о прохождении повышения квалификации;

возможность отмены, возврата с подписи и доработки документов (навигация по документам);

просмотр и отправка на печать документации;

просмотр анкеты слушателя: личные данные, документы, контакты, адреса, трудовая деятельность и т.д.;

просмотр списка приказов на слушателя, формирование выбранного приказа;

просмотр статистики по преподавателям, прошедшим повышение квалификации.

1.5.4 Требования к защите информации от несанкционированного доступа

Необходимо определить политику ролей, в соответствии с которой разграничить доступ на уровне СУБД (объектные привилегии) и на уровне приложения (программные роли).

.5.5 Требования к программному и аппаратному обеспечению

.5.5.1 Аппаратные:

Серверные (используются аппаратные средства КИС АСУ МИИТ):

сервер базы данных (для хранения информации);

сервер приложений (для выполнения SQL-запросов и формирования отчетов).

Клиентские:Клиентские аппаратные требования приведены в таблице 1.2.

Таблица 1.2 Клиентские аппаратные требования

№ п/п	Характеристика	Минимальные параметры	Рекомендуемые параметры
1.	CPU	не ниже P4 - 1,6 ГГц	Core 2 Duo - 1,6 ГГц
2.	RAM	не менее 512 МБ	2048 МБ
3.	HDD	не менее 80 ГБ	160 ГБ
4.	Сетевая плата	наличие обязательно	наличие обязательно
5.	Экран	1024х768, 17''	1280х1024, 19''

.5.5.2 Программные (используются программные средства КИС АСУ МИИТ):

серверные:

операционная система на сервере приложений: Windows 2003 и старше, на сервере БД: Red Hat Enterprise Linux 5.4;

СУБД - Oracle Database 11g Release 2;

клиентские:

операционная система - Windows XP и старше;

средства разработки:RAD Studio Delphi 2010;Express VCL Products;/SQL Developer 7.1;

CA Erwin Data Modeler 7.3.

.5.6 Анализ исходных данных

Исходные данные, необходимые для функционирования разрабатываемого приложения:

данные о специальностях и дисциплинах;

данные о преподавателях;

данные о сертификатах и документах;

данные о договорах;

данные о подразделениях;

данные об учебных группах;

данные о бумагах и приказах;

данные о пользователях системы.

В качестве основных источников данных выступают:

существующая информационная инфраструктура;

существующая технология учета повышения квалификации преподавателей;

нормативные документы:

положение о повышении квалификации;

законодательство РФ;

положение о платной образовательной деятельности МИИТа.

2 Разработка задачи организации повышения квалификации преподавателей

.1 Архитектура создаваемого приложения

Приложение, автоматизирующее процесс организации повышения квалификации преподавателей, должно быть интегрировано с корпоративной системой АСУ МИИТ. Рассмотрим подробнее эту архитектуру.

Рис. 2.1 Многоуровневая архитектура корпоративной системы АСУ МИИТ

Учитывая конкретные особенности функционирования АСУ МИИТ, а также необходимость масштабируемости, архитектура корпоративной системы АСУ МИИТ выполняет следующие требования:

предоставляет возможность доступа к соответствующим информационным ресурсам как пользователям корпоративной сети, так и пользователям Internet;

обеспечивает стандартные способы взаимодействия с внешними системами;

позволяет рационально использовать имеющиеся вычислительные ресурсы;

обеспечивает простоту настройки и администрирования системы;

обеспечивает прозрачность и независимость расположения информации;

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

В качестве варианта реализации использована N-tier (многоуровневая) архитектура. Построение таких систем требует развитой инфраструктуры для коммуникации в сети. В этом случае необходима модель взаимодействия, сочетающаяся с платформой разработки, используемой при создании клиентских приложений.

Наиболее эффективным способом эти уровни могут быть представлены в виде объектов, а механизм их разработки и взаимодействия - в виде стандартных решений DCOM\ СОМ+ \ (.NET) или CORBA.

В АСУ МИИТ объекты (системные и прикладные службы) с необходимыми методами - это типовые процессы.

С точки зрения компонентного представления каждая из упомянутых служб организована набором СОМ-интерфейсов, которые могут содержаться в одном или нескольких исполняемых модулях, располагаться на одной или нескольких машинах - в зависимости от имеющихся ресурсов и требуемой производительности.

Сервер приложений связан с БД, данные записываются в БД, там хранятся, вызываются при необходимости с помощью запросов. Взаимодействие между ними происходит за счет протокола SQL*net.

Связь между пользователем с Сервером приложений осуществляется с помощью протокола DCOM.

В рамках выбранной архитектуры обеспечен удаленный доступ к филиалам, основанный на технологии виртуальных частных сетей (VPN).

Обмен информацией происходит через Internet-провайдера.

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

Основными целями стандартизации являются:

упорядочение документооборота;

упорядочение технологии обработки данных;

замена неэффективных существующих процессов на новые;

повышение взаимозаменяемости сотрудников;

внедрение наукоемких инновационных технологий как средства повышения производительности и эффективности деятельности университета.

.2 Моделирование предметной области

На диаграмме (Рис. 2.2) отображены основные функции, которые должно выполнять разрабатываемое приложение. Рассмотрим некоторые из них подробнее.

Рис. 2.2 Диаграмма вариантов использования приложения, автоматизирующего технологию организации повышения квалификации

Прецедент «Планирование» включает в себя создание проекта плана, работу с его позициями (добавление, удаление, изменение), а также согласование плана с подразделением и подписание его руководством университета.

При формировании позиций плана повышения квалификации преподавателей выбирается (или создается новый) план, выбирается учебная программа и примерные сроки проведения обучения (дата начала и дата окончания).

На Рис. 2.3 и Рис. 2.4 показан процесс формирования плана повышения квалификации преподавателей в виде диаграммы последовательности и диаграммы кооперации.

Рис. 2.3 Диаграмма последовательности формирования плана повышения квалификации

Данная диаграмма акцентирует внимание на временной упорядоченности процесса формирования плана, от создания до утверждения.

Рис. 2.4 Диаграмма кооперации формирования плана повышения квалификации

Данная диаграмма позволяет обратить внимание на структурную организацию объектов, принимающих участие во взаимодействии.

Жизненный цикл документа в АСУ МИИТ можно показать с помощью диаграммы состояний (Рис. 2.5).

Рис.2.5. Диаграмма состояний, описывающая последовательность состояний ЖЦ документа в АСУ МИИТ

Прецедент «Ведение справочников» включает в себя работу (добавление, удаление, редактирование) со списками учебных программ, учебных групп, организаторов обучения, а также с содержанием методического комплекса.

Учебная программа состоит из номера программы и названия.

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

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

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

Прецедент «Проведение мероприятий» включает в себя работу с преподавателями, которые проходят обучение, а также с учебными группами повышения квалификации.

При работе с группами задается наименование группы и точные сроки проведения обучения, а также выбирается куратор группы.

Работа с участниками обучения включает в себя все действия, которые необходимы в этом процессе:

зачисление/отчисление слушателей, формирование приказов о/об зачислении/отчислении, которые подписываются управлением кадров;

работу с договорами и всем, что с ними связано: создание/редактирование договоров, актов, создание счетов на оплату и т.д.;

выдачу сертификатов об окончании обучения преподавателей по определенному курсу повышения квалификации с указанием количества прослушанных часов.

.3 Разработка модели данных

Разработанная ER-модель создана посредством пакета CA Erwin Data Modeler 7.3 и отражает нотацию IDEF1X. Приведенная модель нормализована в соответствии с требованиями реляционной концепции построения баз данных [4].

Для наглядности логически связанные данные объединены в области, выделенные общим цветом:

Таблица 2.1 Описание модели данных

Область	Название	Описание
	Данные о повышении квалификации преподавателей	Информация, связанная непосредственно с процессом повышения квалификации преподавателей: планы повышения квалификации, группы повышения квалификации и т.д.
	Данные о сертификатах и документах	Информация, связанная с сертификатами, выданными преподавателям, прошедшим курс повышения квалификации, а также с прочими документами
	Данные о специальностях и дисциплинах	Информация, касающаяся различных специальностей, дисциплин, учебных программ и т.д., связанных с процессом повышения квалификации преподавателей
	Данные о студентах	Сведения о преподавателях, участвующих в процессе повышения квалификации
	Данные о сотрудниках	Информация о сотрудниках университета и филиалов	Сведения об учебных группах повышения квалификации преподавателей
	Данные о подразделениях	Справочник подразделений университета
	Данные о пользователях	Сведения о пользователях АСУ МИИТ и программных ролях системы
	Данные о договорах	Информация о договорах и обо всем, что с ними связано: источники финансирования, акты, начисления и т.д.
	Данные о бумагах и приказах	Информация обо всех документах, участвующих в процессе повышения квалификации преподавателей: приказы, рапорта, планы и т.д.

Следует отметить, что таблицы, которые хранят данные, связанные с технологией организации повышения квалификации преподавателей (фиолетовая область) являются главной областью для рассмотрения с точки зрения разработанной задачи. Таблицы, которые принадлежат к другим областям, отображены только с точки зрения отношения к главной рассматриваемой области, поэтому для них указаны связи только с интересующей нас областью, остальные же связи опущены, чтобы не потерять наглядность и общий смысл представленной модели данных.

Разработанная ER-модель представлена на Рис. 2.6.

Рис. 2.6 Модель данных, отражающая структуру хранения данных, необходимых для организации повышения квалификации преподавателей

В таблице План повышения квалификации содержится информация о планируемых мероприятиях по повышению квалификации преподавателей. Опишем некоторые поля.

По ID параграфа плана можно связать позиции плана в единый документ. Технология регистрации документов в системе АСУ МИИТ следующая: когда создается документ (под документом подразумеваются приказы, справки, рапорта - любые бумаги, которые имеют серию/номер и должны быть подписаны), в таблицу Бумаги добавляется запись с уникальным ключом, определяющим этот документ - ID бумаги. Одновременно в таблицу Параграфы добавляется запись с уникальным ключом ID параграфа. Эта запись идентифицирует действие, которое указано в документе с кодом ID бумаги. Если в документе описано несколько действий, то для каждого действия создается ID параграфа (многопараграфные документы).

В нашем случае ID параграфа выбирается из списка созданных планов, либо генерируется новое значение. Дата начала и Дата окончания служат для определения примерных сроков обучения по данной специальности.обучаемой специальности выбирается из таблицы Специальности комплекса. Обучаемая специальность представляет собой связку специальности с подразделениями, в которых заказывается/проводится повышения квалификации.

Методический комплекс состоит из дисциплины, по которой проводится обучение (ID дисциплины) и подразделения, в котором проводится обучение - кафедры (ID подразделения).

В таблице Учебная нагрузка умк содержится информация о виде обучения (ID вида обучения) по данной дисциплине, а также количестве часов, в течение которых проходит обучение.

В общем случае специальность включает в себя несколько дисциплин, но в случае повышения квалификации специальность имеет лишь одну дисциплину, поэтому, можно считать, что дисциплина и специальность - это одно и то же.

В таблице Сотрудники и связанной с ней областью хранятся данные обо всех сотрудниках МИИТа и его филиалов.

В таблицах Сертификаты и Документы содержится информация о сертификатах, выданных преподавателям после прохождения курса повышения квалификации.

Информация о заключенных с преподавателями или организациями договорах о повышении квалификации, актах, начислениях и т.д. хранится в таблице Договора и связанной с ней областью.

Данные о преподавателях, проходящих повышение квалификации и являющихся слушателями, находятся в таблице Студенты. Также в связанной с ней области находится информация о приказах о/об зачислении/отчислении слушателей курса повышения квалификации.

Узнать составителя и владельца плана можно благодаря связи с таблицей Кто есть кто, которая в свою очередь соединена с таблицей Сотрудники, хранящей информацию о человеке, и с таблицей Пользователи, в которой содержатся сведения о правах текущего пользователя.

Описание стандартными средствами CA Erwin Data Modeler 7.3 представлено в Приложении А.

.4 Разграничение прав доступа

Каждый пользователь модуля имеет набор прав и привилегий на работу с ним, заданные предварительно администратором Системы. Работа во всех модулях Системы разделена на операции (функции), называемые программными ролями. Назначение пользователям Системы программных ролей приводит к доступности тех или иных функций в соответствующих модулях Системы.

Кроме того, каждую выданную роль можно ограничить привилегиями (так называемое «горизонтальное» разделение прав) для ограничения области действия этой роли, если такое разделение подразумевает эта роль. Например, программную роль подписи приказа можно ограничить по конкретным видам приказов.

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

В модуле администратора определены следующие программные роли, разделяющие работу всех пользователей с ним (Таблица 2.2):

Таблица 2.2 Роли пользователей

Код	Наименование роли	Описание роли	Тип привилегии
1400	Модуль повышения квалификации	Дает полный доступ к модулю	Подразделение
1401	Программы обучения	Позволяет редактировать программы обучения	Нет
1402	Планирование мероприятий	Позволяет редактировать учебные группы по программам обучения и сроки их проведения	Подразделение
1403	Просмотр мероприятий	Дает доступ ко всему модулю без возможности редактирования	Подразделение
1404	Проведение мероприятий	Позволяет проводить мероприятия по повышению квалификации	Подразделение

Кроме того, в Системе также действуют единые ограничения и права на работу с документами: создание, редактирование, назначение подписей и регистрацию приказов, договоров и прочих документов, формирование которых реализовано в Системе. К примеру, сотрудник может вносить изменения в какой-либо документ, только если он является его создателем и если этот документ еще не подписан.

В соответствии с требованиями к защите информации от несанкционированного доступа реализована иерархия пользователей ФПКП с описанием доступного им функционала и номерами выданных ролей, представленная на Рис. 2.7.

Рис. 2.7 Иерархия ролей пользователей

Декан ФПКП имеет полные права на доступ к модулю.

При использовании модуля в филиалах МИИТа права буду раздаваться по тем же шаблонам, которые представлены на Рис. 2.7.

Список возможных ролей и видов привилегий при назначении системных прав сотрудников для разграничения доступа к информации при работе с модулем «Повышение квалификации преподавателей» АСУ МИИТ приведен в Таблице 2.3.

Таблица 2.3 Матрица доступа

Наименование таблицы	Сотрудник отдела планирования ФПКП	Сотрудник отдела проведения ФПКП	Декан ФПКП
Документы	NA	RW	RW
Студенты	R	R	R
Сотрудники	R	R	R
Сертификат	NA	RW	RW
Договора	NA	RW	RW
Куратор группы	RW	R	RW
Кто есть кто	NA	NA	NA
Методический комплекс	RW	R	RW
Подразделения	R	R	R
Учебная нагрузка умк	RW	R	RW
План повышения квалификации	RW	R	RW
Специальности комплекса	RW	R	RW
Параграфы	RW	RW	RW
Группы повышения квалификации	RW	R	RW
Учебная группа	RW	R	RW
Бумаги	RW	RW	RW

Примечание:- нет никакого доступа;- только чтение;- только запись;- чтение и запись.

2.5 Разработка структуры ПО

.5.1 Описание основных модулей, используемых в приложении

В Таблице 2.4 описаны основные модули, используемые в приложении.

Таблица 2.4. Описание модулей приложения

Название модуля	Описание	Описываемая модулем форма	Функциональное предназначение
PK_PPS	Файл проекта		Инициализация приложения, авторизация пользователя, создание основной формы
Main	Главный модуль	Main_Form	Проверка прав пользователя, создание остальных форм
Dictionaries	Форма работы со справочниками	Form_Dictionaties	Создание, редактирование и удаление записей в списках учебных групп, учебных программ, организаторов обучения
Plan	Форма работы с содержание методического комплекса	Form_Plan	Создание, редактирование и удаление записей в списке специальностей методического комплекса
Event	Форма работы с планирование и проведением мероприятий по повышению квалификации	Form_Event	Создание, редактирование и удаление плана повышения квалификации и его позиций, задание сроков проведение, кураторов групп, зачисление/отчисление слушателей, работа с договорами и т.д.
GridEditClass	Модуль, описывающий процедуры и функции для работы с компонентом cxGrid		Описывает процедуры и функции для стандартного описания компонента cxGrid, процедуры добавления, обновления, удаления данных из cxGrid
LP_u_CX_tools	Содержит набор общих процедур для стандартных действий и описание общих компонентов		Описание стандартных кнопок диалога, их событий, описание создания и вызова динамической модальной формы
LP_u_MA_Interface	Описание интерфейса доступа к серверу приложений		Описание интерфейса доступа к серверу приложений, описание действий, выполняемых в навигации (выбор, удалить бумагу, создание бумаги, просмотр или изменение свойств, отправка на подпись, подписание, возвращение на доработку, передача бумаги другому пользователю)
Standart_New	Модуль, описывающий процедуры и функции для работы с компонентом cxTreeList		Обновление дерева строк, добавление в cxTreeList, поиск строки с заданным значением, описывает свойства стандартного контекстного меню
SqlStringList	Модуль, описывающий обертки к компоненту cxGridTableView		Организация оберток к cxGridTableView, модуль реализует чтение из базы методом SelectData по GUID_Select
Wrappers	Модуль, описывающий стандартные несписковые сx-компоненты		Расширяет возможности стандартных несписковых компонентов (cxTextEdit, cxPopupEdit, cxButtonEdit, cxSpinEdit, cxDateEdit и др.), с целью организации их индивидуального и группового поведения, ориентированного на работу с учетом особенностей корпоративной системы
RegService	Модуль, описывающий процедуры и функции для работы с реестром		Позволяет при завершении работы с приложением сохранять текущие параметры компонентов в реестр (размер формы, ее положение, размер панелей, положение сплитеров, размер всех cx-компонентов) и при запуске приложения читать эти параметры из реестра
Find_Org	Модуль, описывающий компоненты для поиска организации	Form_Find_Org	Позволяет находить организацию по маске поиска
Form_About	Модуль с информацией о приложении	Form_About	Показывает информацию о модулей, текущем пользователе, список ролей и т.д.
Form_SE	Модуль поиска сотрудника	Form_SE	Позволяет найти сотрудника в базе по заданным параметрам
Form_Document	Модуль работы с документами	Form_Document	Позволяет производить работу с различными документами
UnivQuestionare	Модуль анкета	FUnivQuestionare	Позволяет просматривать и редактировать данные о выбранном человеке

Рассмотрим взаимодействие программных модулей на диаграмме классов (Рис. 2.8).

Классы связаны между собой отношениями ассоциации, которые отражают структурные отношения между объектами. Кратность, указанная на одном конце ассоциации, говорит о том, сколько объектов должно соответствовать каждому объекту на другом конце [6].

С помощью агрегирования показано, какой из классов имеет более высокий ранг.

Программный код основных модулей приложения приведен в Приложении Б.

Рис. 2.8. Диаграмма классов, отображающая взаимодействие программных модулей в разрабатываемой системы

.5.2 Описание основных SQL-запросов, используемых в приложении

В корпоративной системе АСУ МИИТ запросы хранятся в редакторе хранилищ Editor AS. Редактор хранилищ - специально разработанное приложение, которое служит для связывания данных из БД с приложением, разработанным в Delphi. Редактор хранилищ позволяет передавать параметры, задаваемые пользователем в шаблоны SQL-запросов. Шаблоны SQL-запросов представляют собой SQL-запросы с параметрами. В зависимости от передаваемых параметров будут меняться данные, возвращаемые SQL-запросом. Каждый SQL-запрос в редакторе хранилищ имеет идентификатор - TGUID. В таблице 2.5 представлены основные SQL-запросы, используемые в приложении, автоматизирующем технологию организации повышения квалификации преподавателей.

Полный список использованных в ходе разработки приложения SQL-запросов приведен в приложении В.

Таблица 2.5 Основные SQL-запросы

№		Название запроса	GUID	Описание запроса		Параметры
1		R_C_Groups	{5E30FFBA-B616-4850-A7E4-C5F69A7BD61A}	Список группы ПК для выбранного плана ПК		%p1[i]% - ID Плана ПК
2		Add_Com_Spec	{9342C728-4700-4D8A-AE36-CC7F69ED905D}	Добавление специальности методического комплекса		%p1[i]% - ID Дисциплины %p2[i]% - ID Специальности подразделения %p3[i]% - ID Параграфа %p4[i]% - ID Вида обучения %p5[i]% - Количество часов %p6[i]% - ID Вида дисциплины %p7[i]% - Количество часов самостоятельной работы
3		Met_Complex	{0793BD99-678C-4E5A-99E3-F51F5227A816}	Методические комплексы выбранной специальности подразделения		%p1[i]% - ID Специальности подразделения
4		Get_Data_For_Plan	{4E97B054-EE9C-4449-A155-5B834991F360}	Формирование плана повышения квалификации		%p1[i]% - ID Параграфа Плана ПК
5	R_C_Plan		{01A115AA-8C51-4430-A175-E78BCE51FFDE}		Список позиций (программ обучения с предварительными сроками проведения) плана повышения квалификации на заданный документ		%p1[i]% - ID Параграфа плана
6	Get_List_Spec_By_Params		{5F33C483-BA63-4F6C-A11D-28639EA7581B}		По заданным параметрам возвращает список программ обучения		%p1[i]% - уровень специальности %p2[i]% - ID подразделения-организатора
7	Orders		{C67E9825-6FE4-4461-83E9-1A5225B7F0CE}		Все приказы на данного человека		%p1[i]% - ID Человека.
8	Listeners		{39FD4EC1-0E3B-4913-BDD1-0FBAD73E2C9E}		Участники выбранного плана ПК		%p1[i]% - ID Плана ПК
9	Delete_Student		{10AB233D-23D2-405C-B4A4-97531EA9D56A}		Удаляет информацию о студенте (студента, договор с начислениями (если есть), приказы)		%p1[i]% - ID Договора %p2[i]% - ID Студента
10	Make_New_Cert_By_Params		{055DE14D-CF20-44BA-8893-E85527F8BC7E}		Выдача сертификата		По заданному id_student = p1, id_paragraph = p2 журнала выдачи дипломов выдаёт сертификат с рег. номером p3, видом документа p4 и номером p5, p6 - количество фактических часов.
11	Autorepr		{1CFCDE6B-464C-4D9C-B933-245FFC48CFEA}		Добавляет представителя МИИТа в заданный договор		%p1[i]% - ID договора
12	Add_Contract		{2DF7D738-A733-4AE6-A137-E32E7DCF882B}		Добавление договора		%p1[i]% - ID Человека %p2[i]% - ID Контрагента организации %p3[d]% - Дата начала %p4[d]% - Дата окончания %p5[i]% - ID Параграфа (для договора) %p6[i]% - ID Источника финансирования %p7[i]% - ID Специальности подразделения %p8[i]% - ID Учебной группы %p9[i]% - ID Вида основания зачисления %p10[i]% - ID Приказа о зачислении (id_paragraph) %p11[s]% - Сумма %p12[s]% - если <> '', то добавить ссылку на договор студента (ID Параграфа договора)

.6 Инструкция пользователя

.6.1 Общие сведения

Модуль позволяет вести планирование и осуществлять проведение мероприятий по повышению квалификации профессорско-преподавательского состава вуза и сторонних организаций.

Модуль включает в себя следующие функциональные блоки:

Справочники - работа с перечнем программ и организаторами обучения;

Содержание программ - работа с программами обучения;

Мероприятия - формирование плана проведения обучения и проведение мероприятий по обучению.

Работа осуществляется с использованием стандартных элементов управления, используемых во всех модуля Системы: группируемые списки, навигация, обмен сообщениями и т.д.

.6.2 Начало работы

Запуск приложения осуществляется после ввода имени пользователя и пароля (авторизации). Без авторизации работа с Системой невозможна.

.6.2.1 Пользователь и пароль

Доступ к Системе осуществляется на основе принципа авторизации. Для этого необходимо ввести имя пользователя в базе данных (далее - БД) и пароль. При вводе этих данных учитывается регистр букв и язык. Значение вводимого пароля отображается на экране в виде «*» для предотвращения возможности его разглашения (Рис. 2.9).

Рис. 2.9 Вход в систему

Имя пользователя соответствует имени последнего подключения к Системе с данного компьютера. Здесь же указывается время его подключения.

Сменить текущего пользователя (подключиться под другим именем) можно с помощью основного пункта меню «Сменить пользователя» (Рис. 2.10):

Рис. 2.10 Смена пользователя

При этом откроется стандартное окно подключения (Рис. 2.9). Если попытки подключения под новым пользователем не было, то окно можно закрыть и продолжать работу под старым именем, в противном случае необходимо ввести старое имя и его пароль. Если имя и пароль введены неверно, то при закрытии окна работа приложения завершится, т.к. старый сеанс работы с БД уже завершен.

2.6.2.2 Подключение к тестовой базе данных

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

Это возможно только при наличии тестовой БД, в которую можно вносить изменения, в том числе заведомо содержащие ошибки и неверную (тестовую) информацию в целях моделирования разных ситуаций, возникающих при реальной работе пользователей в Системе.

Идея и смысл работы в тестовой БД - обучить новых сотрудников выполнять свою ежедневную работу в Системе. В таком режиме работы отсутствует риск потери данных или внесения ошибок в реальные данные корпоративной БД.

Для подключения к тестовой БД необходимо получить логин и пароль, а при вводе имени пользователя указать в квадратных скобках имя тестовой БД (в данном примере имя тестовой БД «test»), а затем сразу (без пробелов и без каких-либо других символов разделения) логин в ней (Рис. 2.11):

Рис. 2.11 Подключение к тестовой БД

Следует отметить, что вся работа, произведенная в тестовой БД, никак не отразится на основной, и наоборот. При подключении к тестовой БД Пользователь просто обучается и тренируется, а не работает. Для ввода данных в основную БД надо сначала подключиться к ней, а потом начинать работу.

.6.3 Справочники

Работа с модулем начинается с подготовки справочников. К справочникам, относящимся к модулю, относятся списки программ обучения и организаторов обучения.

Доступ к форме работы со справочниками осуществляется с помощью пункта основного меню «Справочники» (Рис. 2.12):

Рис. 2.12 Справочники

В открывшейся форме осуществляется работа со списком программ обучения и организаторов обучения. Форма разделена на 2 страницы, на которых размещены соответствующие списки (Рис. 2.13):

Рис. 2.13 Форма справочников

.6.3.1 Программы обучения

На странице «Программы обучения» формы «Справочники» осуществляется работа со списком программ обучения. Если у Пользователя достаточно прав (см. п. 2.4), то список можно редактировать (добавлять, изменять и удалять записи).

С помощью контекстного меню списка осуществляется доступ к вводу нового значения, удалению выделенных значений, обновлению данных (перечитывание списка из БД), а также к настройкам вида отображения списка (Рис. 2.14):

Рис. 2.14 Контекстное меню программ обучения

При вводе новой программы обучения необходимо ввести ее наименование и номер (если он есть):

Рис. 2.15 Ввод новой программы обучения

Для добавления новой программы обучения следует нажать на кнопку «Принять» или клавишу [Enter]. Добавленное значение отразится в списке программ обучения.

Редактирование и удаление данных осуществляется стандартным способом.

.6.3.2 Организаторы обучения

На странице «Организаторы обучения» формы «Справочники» осуществляется работа со списком организаторов обучения по программам обучения и учебными группами по каждой из позиций списка. Если у Пользователя достаточно прав (см. п. 2.4), то списки можно редактировать (добавлять, изменять и удалять записи).

Под списком программ расположен список учебных групп текущей (выбранной) программы. Выбор текущей программы осуществляется щелчком мыши или клавишей [Enter] на интересующей позиции списка (Рис. 2.16):

Рис. 2.16 Организаторы обучения

С помощью контекстных меню списков осуществляется доступ к добавлению нового значения в список, удалению выделенных записей в списке, обновлению данных (перечитывание списка из БД), а также к настройкам вида отображения списка (Рис. 2.17):

Рис. 2.17 Контекстное меню организаторов обучения

Кроме того, контекстное меню списка организаторов обучения содержит также пункт обнуления источника финансирования по умолчанию, с помощью которого Вы можете убрать ссылку на источник финансирования договоров этой программы, которая будет предлагаться пользователям по умолчанию.

При вводе нового организатора обучения необходимо выбрать институт, подразделение, программу обучения, форму обучения, период действия и источник финансирования договоров по умолчанию (Рис. 2.18):

Рис. 2.18 Ввод нового организатора обучения

Выбор значений осуществляется из выпадающих списков. Список программ обучения задается на странице «Программы обучения» (см. п. 2.6.3.1), а все остальные списки задаются в других модулях Системы.

Для добавления новой программы обучения следует нажать на кнопку «Принять» или клавишу [Enter]. Добавленное значение отразится в списке организаторов обучения.

Редактирование и удаление данных осуществляется стандартным способом.

При вводе новой учебной группы текущей (выбранной в списке) позиции организатора обучения необходимо ввести ее номер и период действия (Рис. 2.19):

Рис. 2.19 Ввод новой учебной группы

Для добавления новой группы обучения следует нажать на кнопку «Принять» или клавишу [Enter]. Добавленное значение отразится в списке учебных групп по текущей позиции в списке организаторов обучения.

Редактирование и удаление данных осуществляется стандартным способом.

.6.4 Содержание программ

Описание программ обучения осуществляется в одноименной форме. Доступ к этой форме осуществляется с помощью пункта основного меню «Содержание программ» (Рис. 2.20):

Рис. 2.20 Содержание программ

В открывшейся форме осуществляется работа по описанию программ обучения по всем формам и организаторам обучения, предварительно введенных в справочниках (см. п. 2.6.3). Если у Пользователя достаточно прав (см. п. 2.4), то введенные описания можно редактировать (добавлять, изменять и удалять записи).

Форма содержит список описанных программ обучения, над которым размещен фильтр по организатору обучения. Если в фильтре задано подразделение (выбирается из списка подразделений), то в списке отражаются только те программы обучения, организаторами которых является это подразделение.

С помощью контекстного меню списка осуществляется доступ к добавлению нового значения в список, удалению выделенных записей в списке, обновлению данных (перечитывание списка из БД), а также к настройкам вида отображения списка и работе с текущим документом:

Рис. 2.21 Содержание методического комплекса

Каждое описание программы обучения связывается с документом вида «Программа обучения», с которым можно производить стандартные действия с документами в Системе (назначать подписи, регистрировать, возвращать на доработку и т.д.), поэтому на доступность по изменению данных накладываются дополнительные ограничения по правам доступа к этому документу и его текущему статусу.

Рис. 2.22 Ввод нового описания программы обучения

Для добавления нового описания программы обучения следует нажать на кнопку «Принять» или клавишу [Enter]. Добавленное значение отразится в списке.

Редактирование и удаление данных осуществляется стандартным способом.

.6.5 Мероприятия

Основная работа по планированию и проведению мероприятий по обучению осуществляется в форме «Мероприятия». Доступ к этой форме осуществляется с помощью пункта основного меню «Мероприятия» (Рис. 2.23):

Рис. 2.23 Мероприятия

В открывшейся форме осуществляется работа по формированию приказа об утверждении плана обучения, а также по его исполнению (проведению обучения).

Форма разделена на две части. Слева расположен список, отражающий позиции плана обучения с панелью фильтрации по документу, а справа от него - списки с фактическими сроками проведения обучения и участниками (слушателями) текущей (выбранной) позиции в этом списке (Рис. 2.24):

Рис. 2.24 Форма мероприятий

2.6.5.1 Планирование мероприятий

Перед началом формирования проекта приказа по планированию повышения квалификации профессорско-преподавательского состава необходимо сформировать списки программ обучения, организаторов обучения, а также описать программы обучения по каждому из организаторов обучения (см. разделы 2.6.3 и 2.6.4).

Формирование плана проведения повышения квалификации осуществляется с помощью списка позиций плана. Если у Пользователя достаточно прав (см. п. 2.6.2.3), то этот список можно редактировать (добавлять, изменять и удалять записи):

Рис. 2.25 Позиции плана повышения квалификации

Над списком размещена панель фильтрации списка по году и приказу утверждения плана. Если в ней задан конкретный план, то будут заполнены поля с названием и аннотацией плана (Рис. 2.26):

Рис. 2.26 План повышения квалификации

При внесении изменений в поля названия и аннотации станут доступны кнопки применения и отклонения внесенных изменений:

Рис. 2.27 Изменение плана повышения квалификации

Каждая позиция списка связывается с документом вида «План повышения квалификации», с которым можно производить стандартные действия с документами в Системе (назначать подписи, регистрировать, возвращать на доработку и т.д.), поэтому на доступность по изменению данных накладываются дополнительные ограничения по правам доступа к этому документу и его текущему статусу.

При добавлении новой позиции в проект приказа об утверждении плана повышения квалификации необходимо указать программу обучения с организатором обучения, проект приказа и планируемые сроки проведения обучения (Рис. 2.28):

Рис. 2.28 Добавление позиции плана повышения квалификации

Для добавления новой позиции в проект приказа следует нажать на кнопку «Принять» или клавишу [Enter]. Добавленное значение отразится в списке.

Редактирование и удаление данных осуществляется стандартным способом.

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

После того, как завершен ввод всех позиций плана приема в проект приказа, нужно отправить документ на подпись и зарегистрировать его в Системе.

.6.5.2 Проведение обучения

После того, как приказ о плане проведения повышения квалификации утвержден, можно приступать к проведению мероприятий по обучению.

Для этого необходимо ввести фактические сроки проведения обучения с указанием номеров групп обучения, введенных в Систему по текущей позиции плана (см. п. 2.6.3).

Затем Пользователь может приступать к формированию проекта приказа о зачислении в число слушателей текущей позиции плана, подготовить договора на оплату обучения (если это необходимо), а по окончании обучения сформировать приказы об окончании обучения (см. ниже).

.6.5.2.1 Сроки обучения

Сроки проведения фактического обучения по текущей позиции плана повышения квалификации задаются на странице «Сроки проведения». Для этого необходимо найти интересующую позицию в списке плана и выбрать ее щелчком мыши или клавишей [Enter] на ней (Рис. 2.29):

Рис. 2.29 Сроки проведения

Если у Пользователя достаточно прав (см. п. 2.6.2.3), то список можно редактировать (добавлять, изменять и удалять записи).

Рис. 2.30 Контекстное меню сроков проведения

При вводе нового фактического срока проведения обучения по текущей программе необходимо выбрать учебную группы, программу обучения и задать сроки его проведения (Рис. 2.31):

Рис. 2.31 Добавление группы повышения квалификации

Список учебных групп по текущей программе задается в разделе «Справочники» (см. п. 2.6.3.2). Список описаний программ с количеством часов задается в разделе «Содержание программ» (см. п. 2.6.4).

Для добавления нового срока обучения следует нажать на кнопку «Принять» или клавишу [Enter]. Добавленное значение отразится в списке фактических сроков обучения.

Редактирование и удаление данных осуществляется стандартным способом.

Под списком сроков проведения расположен список кураторов текущей учебной группы.

Если у Пользователя достаточно прав (см. п. 2.4), то список можно редактировать (добавлять, изменять и удалять записи).

Рис. 2.32 Контекстное меню кураторов текущей группы

При вводе нового куратора текущей учебной группы (выбранной в списке фактических сроков проведения обучения) необходимо найти куратора с помощью стандартной формы поиска человека и задать дату его назначения куратором группы (Рис. 2.33):

Рис. 2.33 Добавление нового куратора группы

Список анкет формируется в модуле кадрового учета Системы.

Для добавления нового куратора следует нажать на кнопку «Принять» или клавишу [Enter]. Добавленное значение отразится в списке кураторов текущей учебной группы.

Редактирование и удаление данных осуществляется стандартным способом.

.6.5.2.2 Список слушателей

Работа со списками слушателей текущей позиции плана повышения квалификации осуществляется на странице «Участники». Для этого необходимо найти интересующую позицию в списке плана и выбрать ее щелчком мыши или клавишей [Enter] на ней (Рис. 2.34):

Рис. 2.34 Участники

С помощью контекстного меню списка осуществляется доступ к вводу нового значения, удалению выделенных значений, работе с договором, обновлению данных (перечитывание списка из БД), а также к настройкам вида отображения списка (Рис. 2.35):

Рис. 2.35 Контекстное меню участников

При вводе нового слушателя необходимо найти его анкету с помощью стандартной формы поиска человека, выбрать учебную группу со сроком проведения обучения из списка (см. п. 2.6.5.2.1), указать основание, проект приказа о зачислении и параметры договора (если обучение проводится на платной основе) (Рис. 2.36):

Рис. 2.36 Добавление нового участника

Если у слушателя уже есть договор на обучение в этой группе, то его можно указать в поле «Ссылка на договор» (в этом случае параметры договора станут недоступными).

Если оплату договора осуществляет третье организация, то ее необходимо указать в поле «Организация» с помощью стандартной формы поиска организации. В этом случае станут доступными дополнительные поля для заполнения о представителе организации в договоре.

После заполнения всех обязательных полей (они подсвечиваются цветом) станет доступна кнопка «Принять», нажатием на которую новый слушатель добавляется в список участников обучения.

Редактирование и удаление данных осуществляется стандартным способом. При необходимости внесения изменений в договорные отношения с текущим участником (добавить или удалить договор) Вы можете воспользоваться контекстным меню списка участников обучения.

Под списком участников расположена панель с отображением учебных приказов по текущему участнику, его анкеты и заключенного договора (Рис. 2.37):

Рис. 2.37 Анкета

После того, как Пользователь завершил ввод всех слушателей в проект приказа, он должен отправить документ на подпись и зарегистрировать его в Системе.

.6.5.2.3 Окончание обучения

По окончании обучения Пользователь может сформировать приказ об окончании обучения (при успешном окончании обучения) или об исключении из числа слушателей (при досрочном или неуспешном окончании обучения). Для этого нужно выделить участников в списке и воспользоваться пунктом «Окончание обучения» контекстного меню списка участников (Рис. 2.38):

Рис. 2.38 Окончание обучения в контекстном меню участников

В открывшемся окне необходимо указать проект приказа об окончании обучения (или отчислении), указать основание окончания и его дату:

Рис. 2.39 Окончание обучения

После заполнения всех обязательных полей (они подсвечиваются цветом) станет доступна кнопка «Принять», при нажатии на которую Система спросит у Пользователя подтверждения его действий (Рис. 2.40):

Рис. 2.40 Запрос на подтверждения окончания обучения

При подтверждении выделенные участники обучения исключатся из числа слушателей с указанными атрибутами.

.6.6 О программе

Доступ к этой форме осуществляется через пункт основного меню «О программе» или по клавише [F11] (Рис. 2.41):

Рис. 2.41 О программе

.6.6.1 Текущий пользователь

В открывшемся окне выводится информация о разработчиках, текущем пользователе и его ролях, заданных администратором Системы (см. п. 2.6.3.1). С помощью контекстного меню списка ролей можно обновить этот список в случае его изменения во время выполнения приложения. При этом обновится и доступ текущего пользователя к функциям и модулям в соответствии с обновленным списком его ролей.

.6.6.2 Изменение пароля

Пользователь может изменить свой пароль с помощью кнопки «Пароль», при нажатии на которую открывается модальное окно ввода нового пароля (Рис. 2.42):

Рис. 2.42 Форма изменение пароля

Сначала необходимо ввести текущий пароль, с помощью которого пользователь получил доступ к Системе, а затем 2 раза новый пароль (в соответствующих полях). После правильного ввода старого пароля станут доступны поля для ввода нового пароля, а после ввода нового пароля и его подтверждения станет доступна кнопка «Принять». Чтобы задать новый пароль необходимо нажать на кнопку «Принять» или клавишу [Enter] в любом поле, а для отмены указанного действия клавишу [Esc], кнопку «Отмена» или закрыть форму (Рис. 2.43):

Рис. 2.43 Смена пароля

2.6.7 Сохранение параметров

Настройка всех списков (сортировка, фильтрация, ширина и видимость столбцов) сохраняются при выходе из приложения в реестре Windows текущего пользователя.

Имя раздела в реестре Windows:

«HKEY_CURRENT_USER\Software\AS Pilot group\Parameters\ПК ППС».

3. Системотехнические расчеты

.1 Расчет времени реакции системы

.1.1 Обоснование расчета времени реакции

При создании информационных систем в ряде случаев возникает необходимость в оценке некоторых временных характеристик. Зная архитектуру системы, ее принцип действия и количество пользователей, можно определить временные показатели функционирования ИС, произведя определенные расчеты.

Одним из важных временных показателей, который рассматривается при проектировании информационных систем, является время реакции системы. Под этим показателем понимают время от поступления запроса в систему на выполнение операций до получения результатов работы системы.

В данном случае под временем реакции будем подразумевать время получения ответа на SQL-запросы различного типа.

.1.2 Описание технологии передачи работы системы

Если пользователь хочет получить данные на SQL-запрос, то в системе происходят следующие действия. Машина пользователя (клиентская машина) порождает сообщение (запрос), которое отправляется по сети на сервер приложений. На сервере приложений сообщение распознается как SQL-запрос и вызывается метод обработки этого запроса. Дальше сообщение поступает на сервер БД, где извлекаются данные, удовлетворяющие запросу. Полученные данные поступают в виде сообщения ответа на сервер приложений. Сервер приложений отправляет сообщение (данные) клиенту.

Рис. 3.1 Архитектура работы системы

.1.3 Переход к модели в терминах СМО

Система АСУ МИИТа является информационной системой коллективного использования, поэтому ее можно описать в терминах систем массового обслуживания (СМО).

Перейдем к модели в терминах СМО, основываясь на описанной выше технологии передачи и обработки запросов на получение данных. При работе системы учтем ряд введенных допущений.

Клиентская машина, на которой установлено приложение, автоматизирующее организацию повышения квалификации (АРМ) формирует сообщение с интенсивностью λ (СМО1, интенсивность обработки - µ1). При этом пользователь не дожидается ответа для дальнейшей своей работы. Сообщение поступает на сервер приложений (СМО2), помимо этих сообщений на сервер приложений поступают сообщения от других источников с интенсивностью λd. Полученные сообщения обрабатываются сервером приложений с интенсивностью µ2. Сервер приложений передает сообщение серверу БД (СМО3), который обрабатывает его с интенсивностью µ3 и, после обработки, отправляет результат серверу приложений, который отправляет ответ обратно клиенту.

Для расчета введем следующие допущения:

поток запросов - простейший;

время обработки одного запроса - случайная величина;

время обработки запроса распределено по экспоненциальному закону;

очередь для поступающих запросов не ограничена;

интенсивность поступления запросов постоянна;

время, затрачиваемое маршрутизатором на определение маршрута передаваемых данных, пренебрежимо мало и рассматриваться не будет;

время передачи сообщений по сети пренебрежимо мало и рассматриваться не будет;

каждый запрос пользователя в АРМ порождает одно сообщения, направляемое на обработку серверам, и одно сообщение от серверов в АРМ;

оперативный, аналитический запросы и запрос на выполнения отчета различаются лишь своей сложностью, т.е. разным временем обработки на сервере БД, остальные же параметры остаются неизменными.

Вся процедура обработки заявок на получение отчета производится путем последовательного выполнения следующих операций:

формирование запроса клиентской машиной и передача сформированного сообщения серверу приложений;

прием и обработка запроса сервером приложений, его передача серверу БД;

прием и обработка запроса сервером БД, передача ответа обратно серверу приложений;

прием сообщения (ответа) сервером приложений, и его передача клиенту;

прием клиентской машиной ответа, отображение полученных данных.

Схему такой системы можно представить в виде пяти последовательно включенных одноканальных СМО с неограниченной очередью, каждая из которых соответствует одной из вышеперечисленных операций (рис. 3.2).

Рис. 3.2 Система обработки запросов в терминах СМО

- интенсивность сообщений в АРМ.

- интенсивность поступления сообщений на сервера от других источников.

- интенсивность обработки запросов в АРМ.

- интенсивность обработки запросов на сервере приложений.

- интенсивность обработки запросов на сервере БД.- число клиентских машин, на которых установлен АРМ.

.1.4 Исходные данные, необходимые для расчета времени реакции

Расчеты будем производить, исходя из наихудших условий эксплуатации - высокая загрузка. В то же время предполагаем, что компьютеры, на которых выполняются компоненты подсистемы, обладают достаточными для работы характеристиками.

= 20 сек-1 (данные сетевого отдела АСУ МИИТа).

Один пользователь может отправлять в подсистему максимум 10 заявок в минуту (из наихудших условий).

Таким образом, интенсивность потока заявок в АРМ составляет:

= 10 / 60 с ≈ 0,17 сек-1.

Время обработки сообщения на клиентской машине равно 0,1 сек., следовательно, интенсивность равна:

µ1 = 1/0,1=10 сек-1.

Прием и обработка входного сообщения на сервере приложений состоит из последовательно выполняемых действий:

принятие сервером входного сообщения, распознавание SQL-запроса;

отправка сообщения (SQL-запрос) на сервер БД.

Выполнение всех этих операций составляет приблизительно:= 0,015 сек.

Интенсивность обработки поступающих сообщений составляет:

µ2 = 1/ mc2 = 1/0,015 сек ≈ 66,7 сек-1.

Прием и обработка входного сообщения на сервере БД состоит из последовательно выполняемых действий:

принятие сервером входного сообщения, извлечение необходимых данных;

отправка ответа (данные) на сервер приложений.

Прием и обработка полученных от сервера БД данных обрабатывается сервером приложений приблизительно столько же, сколько и при приеме входного сообщения от клиентской машины. Поэтому расчет для СМО2 и СМО4 будет одинаковым.

Аналогично одинаковым будет расчет для СМО1 и СМО5.

Максимальное количество пользователей, которые могут использовать приложение, автоматизирующее технологию организации повышения квалификации, равно 42.= 42.

.1.5 Расчет среднего времени реакции системы

Среднее время пребывания (реакции) сообщения в подсистеме рассчитаем по следующей формуле:

Т = mТ1 + mТ2 + mТ3 + mТ2 + mТ1Т = 2mТ1 + 2mТ2 + mТ3Т =

Найдем зависимость среднего времени реакции системы от среднего времени обработки одной заявки на сервере БД (см. Таблицу 3.1).

Таблица 3.1 Зависимость среднего времени реакции системы от среднего времени обработки одной заявки на сервере БД

Среднее время обработки одной заявки на сервере БД, mc2, сек.	Интенсивность обработки заявок на сервере БД, µ3, 1/сек.	Среднее время реакции системы, mТ, сек.
0,001	1000	0,2697
0,002	500	0,2708
0,003	333,33	0,2720
0,004	250	0,2734
0,005	200	0,2747
0,006	166,7	0,2763
0,007	142,86	0,2779
0,008	125	0,2800
0,009	111,11	0,2817
0,01	100	0,2839
0,011	90,91	0,2864
0,012	83,33	0,2891
0,013	76,92	0,2922
0,014	71,42857	0,2956
0,015	66,7	0,2995
0,016	62,5	0,3041
0,017	58,82	0,3094
0,018	55,56	0,3157
0,019	52,63	0,3232
0,02	50	0,3323
0,021	47,62	0,3436
0,022	45,45	0,3582
0,023	43,48	0,3774
0,024	41,67	0,4041
0,025	40	0,4435
0,026	38,46	0,5078
0,027	37,04	0,6314
0,028	35,71	0,9659
0,029	34,48	5,201
0,03	33,33	12,7687

График, построенный на основе Таблицы 3.1, приведен на Рис. 3.2.

Рис. 3.2 Зависимость среднего времени реакции системы от среднего времени обработки одной заявки на сервере БД

.2 Вывод

Исходя из расчетных данных, можно сделать выводы:

Требования к среднему времени выполнения оперативного запроса (1 сек.) выполняются при среднем времени обработки одной заявки на сервере БД, меньшем 0,028 сек.;

Требования к среднему времени составления отчетов (5 сек.) выполняются при среднем времени обработки одной заявки на сервере БД, меньшем 0,029 сек.;

Требования к среднему времени выполнения аналитического запроса (10 сек.) выполняются при среднем времени обработки одной заявки на сервере БД, меньшем 0,03 сек.

4. Человеко-машинное взаимодействие

В данном разделе описаны особенности такой профессии как «Инспектор факультета повышения квалификации преподавателей», раскрывается специфика труда и требований, которые могут предъявляться к специалисту.

.1 Профессиограмма - «Инспектор факультета повышения квалификации преподавателей»

Название должности - инспектор.

Место в административной иерархии

.1 Инспектор факультета повышения квалификации преподавателей назначается на должность и освобождается от должности в установленном действующим трудовым законодательством порядке приказом ректора университета.

.2 Инспектор подконтролен непосредственно декану факультета повышения квалификации преподавателей.

.3 Инспектор подотчетен старшему инспектору факультета повышения квалификации преподавателей.

Функциональные обязанности

Инспектор факультета повышения квалификации преподавателей:

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

.2 Производит планирование процесса повышения квалификации преподавателей.

.2 Производит поддержку процесса проведения мероприятий по повышению квалификации преподавателей.

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

Примечание:

Фактически в данной профессии переплетаются несколько функций: управленческая (управление процессами планирования и проведения мероприятий по повышению квалификации преподавателей) и юридическая (работа с законодательными актами и положениями о платной образовательной деятельности МИИТа).

Обеспечение (работник)

.1 Квалификационная готовность

.1.1 При приеме на должность достоинством кандидата будет наличие опыта в платной образовательной деятельности. Для доказательства этого достаточно записи в трудовой книжке и собеседования.

.1.2 На должность Инспектора назначается лицо, имеющее среднее образование.

Образованность можно проверить различными методами (см. пункт 5.1).

Интеллект кандидата можно проверить с помощью теста IQ (см. пункт 5.3.) или теста Равена (см. пункт 5.6). Достаточным уровнем можно считать коэффициент IQ, равный 90, или средний уровень развития интеллекта по тесту Равена.

.1.3 Инспектор должен владеть компьютером на пользовательском уровне: уметь пользоваться основными функциями подготовки текста в офисных программных средствах (типа Word и Excel), электронной почтой, браузерами, архиваторами, уметь вести БД при готовых интерфейсах [8].

Более подробно требования описаны в пункте 5.2.

.1.4 Инспектор должен уметь разбираться в юридических вопросах, таких как:

.1.4.1 Законы, постановления, распоряжения, приказы, другие руководящие документы и нормативные акты, касающиеся работы предприятия;

.1.4.2 Законодательство о труде;

.1.4.3 Правила внутреннего трудового распорядка;

.1.4.4 Правила и нормы охраны труда;

.1.4.5 Правила техники безопасности, производственной санитарии и гигиены, противопожарной безопасности, гражданской обороны.

Юридическая грамотность кандидата также проверяется путем собеседования.

.1.5 Инспектор должен уметь работать в коллективе. В ходе работы необходимо взаимодействие с филиалами и подразделениями университета для составления плана повышения квалификации, поддержки процесса проведения мероприятий по повышению квалификации.

.2 Физиологические и личностные особенности.

.2.1 Динамичность мышления.

Динамичность мышления - умение быстро, творчески ориентироваться в деле.

Одним из возможных способов проверки может быть тест IQ (см. пункт 5.3.). Как уже было отмечено выше, достаточным можно считать коэффициент IQ, равный 90.

.2.2 Инспектор должен обладать следующими личностными качествами:

.2.2.1 Внимательность (особая внимательность требуется при создании договоров, актов и квитанций об оплате). Одним из возможных способов проверки может быть метод «красно-черная таблица» (см. пункт 5.4).

.2.3.2 Устойчивость, умение заниматься монотонной работой. Методом оценки может выступать иллюзия Китаока (см. пункт 5.7.).

.2.2.3 Ответственность.

.3 Противопоказания

.3.1 Неспособность к работе, требующей повышенного внимания.

Обеспечение (работодатель)

.1 Работодатель должен предоставить работнику персональное рабочее место в соответствии с ГОСТ 12.2.032-78. ("Система стандартов безопасности труда. Рабочее место при выполнении работ сидя. Общие эргономические требования")

.2 Работодатель должен предоставить работнику рабочий график в соответствии с трудовым договором.

.3 Работодатель обязан оплачивать труд работника в соответствии с трудовым договором и ТК РФ при выполнении работником всех своих обязанностей. Способ оплаты устанавливается в трудовом договоре.

.4 Работодатель должен предоставить работнику безопасное помещение для ведения трудовой деятельности, оборудованное противопожарной сигнализацией и средствами тушения пожара.

.5. Работодатель должен обеспечить безопасность работника в соответствии с СанПиН 2.2.2.542-96 ("Гигиенические требования к видеодисплейным терминалам, персональным электронно-вычислительным машинам и организации работы"), который был разработан на основе ГОСТ Р. 50948-96.

.6 Работодатель должен проинформировать работника о действии в нештатных ситуациях и дать список контактов, к которым работник должен обращаться при возникновении нештатной ситуации.

.7 Работодатель должен проинформировать работника о действиях при пожаре и о планах эвакуации из помещения при чрезвычайных ситуациях.

Для оценки профессионально важных качеств рекомендованы следующие методы:

.1 Для проверки письменной грамотности можно предложить кандидату на должность написать диктант среднего уровня сложности.

Для проверки грамотности устной речи - вести собеседование с возможностью высказывания кандидатом своего мнения на поставленную проблему. Следить за построением предложений, наличием сленга или диалекта.

При проверке математических знаний можно попросить в уме сосчитать дробное вычисление или решить пропорцию.

.2 Работа в MS Office:

работа с документами в редакторе MS Word: ввод, редактирование, форматирование и печать текстовых документов, включающих таблицы, списки, колонки, рисунки;

работа в электронной таблице MS Excel: работа с «книгами», «листами». Вычислительные операции с ячейками электронной таблицы. Работа с формулами, построение диаграмм и графиков;

работа с презентациями в MS PowerPoint: работа со слайдами презентаций. Шаблоны презентаций, работа с текстом. Просмотр и произвольная демонстрация.

Проверка данного навыка осуществляется выполнением примерного задания в MS Office.

.3 Тест IQ (англ. Intellectual quotent), показатель умственного развития, уровня имеющихся знаний и осведомленности, получаемый на основе различных тестовых методик.

Идея количественного определения уровня интеллектуального развития (IQ) детей с помощью системы тестов впервые была разработана французским психологом А. Бине (1905).

Задания в шкалах Бине были сгруппированы по возрастам (от 3 до 13 лет). Для каждого возраста подбирались определенные тесты.

Они считались соответствующими данной возрастной ступени, если их решало большинство детей данного возраста (80-90%). Детям до 6 лет предлагалось по 4 задания, а детям старше 6 лет - 6 заданий. Задания подбирались путем исследования большой группы детей (300 чел.).

Показателем интеллекта в шкалах Бине был умственный возраст, который мог расходиться с хронологическим. Умственный возраст определялся по успешности выполнения тестовых заданий. Испытание начиналось с предъявления тестовых заданий, соответствующих хронологическому возрасту ребенка. Если он справлялся со всеми заданиями, ему предлагались задания более старшей возрастной группы. Если он решал не все, а некоторые из них, испытание прекращалось. Если же ребенок не справлялся со всеми заданиями своей возрастной группы, ему давались задания, предназначенные для более младшего возраста Испытания проводились до тех пор, пока не выявлялся возраст, все задания которого решались испытуемым. Максимальный возраст, все задания которого решаются испытуемым, называют базовым умственным возрастом.

Несовпадение умственного и хронологического возраста считалось показателем либо умственной отсталости (если умственный возраст ниже хронологического), либо одаренности (если умственный возраст выше хронологического)

Вторая редакция шкалы Бине послужила основой работы по проверке и стандартизации, проведенной в Стэндфордском университете (США) коллективом сотрудников под руководством Л. М. Термена. Этот вариант тестовой шкалы Бине был предложен в 1916 г и имел так много серьезных изменений по сравнению с основным, что был назван шкалой Стэнфорд-Бине. Основных отличий от тестов Бине было два: введение в качестве показателя по тесту коэффициента интеллектуальности (IQ), определяющегося отношением между умственным и хронологическим возрастами, и применение критерия оценки тестирования, для чего вводилось понятие статистической нормы.

Коэффициент IQ был предложен В. Штерном, считавшим существенным недостатком показателя умственного возраста то, что одна и та же разность между умственным и хронологическим возрастом для различных возрастных ступеней имеет неодинаковое значение. Чтобы устранить этот недостаток, Штерн предложил определять частное, получаемое при делении умственного возраста на хронологический. Этот показатель, умноженный на 100, он и назвал коэффициентом интеллектуальности. Используя этот показатель, можно классифицировать нормальных детей по степени умственного развития [7].

С помощью теста на IQ в США, например, проводится отбор в армию, оценивается степень подготовленности учащихся, проводятся социолого-психологические обследования. Данная методика была откалибрована для призыва призывников. Позже выяснилась ее переносимость на менеджеров. Насчет переноса на другие специальности прямых доказательств нет. В настоящее время тесты IQ стали распространенными без достаточного научного основания.

.4 «Красно-черная таблица».

Назначение теста: оценка переключения и распределения внимания.

Описание теста: исследование проводится с помощью специальных бланков, на которых 25 красных и 24 черных числа. Испытуемый должен вначале отыскать черные числа в порядке возрастания, затем красные числа в убывающем порядке.

Третье задание заключается в попеременном поиске черных чисел в возрастающем и красных чисел в убывающем порядке. Основной показатель - время выполнения.

Первые два задания выполняются с использованием одного бланка, третье задание - на другом бланке.

Рис. 4.1. Красно-черная таблица

.5 Тестирование на знание Гражданского кодекса РФ, Федерального закона ФЗ-125, нормативных актов в сфере платной образовательной деятельности и сфере повышения квалификации. Можно провести в виде собеседования с кандидатом.

.6 Тест Равена - тест, предназначенный для дифференцировки лиц по уровню их интеллектуального развития. Авторы теста Джон Равен и Л. Пенроуз. Предложен в 1936 году.

Более высокие показатели по этому тесту показывают те, кто а) быстрее, и б) точнее определяет логические закономерности в построении упорядоченного ряда состоящего из графических объектов, имеющих ограниченное количество признаков.

Другое название этого теста «Прогрессивные матрицы Равена» указывает на то, что задачи теста упорядочены по признаку возрастания трудности их решения. То есть, в каждой из пяти серий (в серии по 12 задач), каждая последующая задача серии относительно сложней предыдущей. На решение задач теста вводится временное ограничение - подсчитывается количество правильно решенных за 20 минут задач. Возможен вариант, когда время на решение всех 60 задач не ограничено. В этом случае результат корректируется по специальной таблице.

а) по десятибалльной шкале (стандартная оценка в стенах), учитывающей только количество правильно решенных задач;

б) по 19-балльной, учитывающей количество и трудность решенных задач;

в) по привычной пятибалльной (школьной, но с «плюсами» и «минусами»).

И, наконец, четвертая, качественная, оценка. Если испытуемый решил все задачи теста, но многие, в том числе и легкие, задачи решил неверно, его можно отнести к категории «скоростников». Если же испытуемый решил мало задач (например, около половины задач теста), но, без единой ошибки, его можно отнести к категории «точняков», или тугодумов.

При интерпретации результата теста «Прогрессивные матрицы Равена» выделяют следующие пять уровней развития интеллекта:

-й уровень (результат более 95 %) - особо высокий интеллект;

-й уровень (результат 75-94 %) - интеллект выше среднего;

-й уровень (результат 25-74 %) - средний интеллект;

-й уровень (результат 5-24 %) - интеллект ниже среднего;

-й уровень (результат ниже 5 %) - дефект интеллекта.

Рис. 4.2 Тест Равена

Составляющих в таблице должно быть не больше 2-х. Если больше двух, следовательно, может быть бесконечно много решений для подстановки неизвестного варианта.

5.7 Тестирование разработано на основе оптических иллюзий движения Акиеши Китаока.

Рис. 4.3 Интерфейс программы с иллюзией

.2 Вывод

Разработаны предложения по методике оценке качества персонала. Проверили на действующем факультета повышения квалификации преподавателей. На основе этого сделан вывод о том, что уровень компетенции сотрудников превосходит необходимый.

Также, на основе представленных требований к кандидатам на должность Инспектора факультета повышения квалификации преподавателей и требований к интерфейсу модулей АСУ МИИТ был создан пользовательский интерфейс, который соответствует компетенции сотрудников.

Рис. 4.4 Пользовательский интерфейс

5. Экономическая часть

.1 Постановка экономической задачи

В дипломной работе решается задача организации повышения квалификации преподавателей в рамках АСУ МИИТ.

С точки зрения масштабируемости проект относится к локальным инновационным проектам, реализация которых оказывает влияние на экономическую и социальную ситуацию. С точки зрения функциональности - к проектам прикладного характера (инновационный проект, автоматизирующий отдельные функции и задачи в деятельности МИИТа).

Реализация проекта предполагает достижение следующих результатов:

снижение трудоемкости и повышение качества организации повышения квалификации преподавателей в рамках АСУ МИИТ;

повышение согласованности работы структурных подразделений: факультета повышения квалификации преподавателей (ФПКП), управления финансов и бухгалтерского учета (УФБУ) и других подразделений МИИТа, которые участвуют организации повышения квалификации преподавателей;

повышение производительности труда, профессионального мастерства и компетенций;

повышение качества обработки информации.

Областью формирования результатов проекта является:

автоматизация организации повышения квалификации преподавателей в рамках АСУ МИИТ;

совершенствование организационной структуры организации повышения квалификации преподавателей в рамках АСУ МИИТ;

кадровый потенциал;

программно - информационное обеспечение.

Затраты, связанные с инвестированием в проект, включают капитальные (капитальные вложения в создание и приобретение программных и аппаратных комплексов, информационного обеспечения) и текущие затраты (расходы на оплату труда разработчиков, на содержание и эксплуатацию комплексов).

Для обоснования целесообразности разработки задачи организации повышения квалификации преподавателей в рамках АСУ МИИТ следует рассчитать показатели, относящиеся к двум видам эффективности:

коммерческая;

социальная.

Показателями коммерческой эффективности являются:

сокращение затрат на выполнение процессов организации повышения квалификации преподавателей;

снижение затрат на создание, передачу и обработку и хранение информации, используя базу АСУ МИИТа.

Показателями социальной эффективности являются:

удобство проведения организации повышения квалификации преподавателей;

повышение уровня производительности труда работников ФПКП, УФБУ и других подразделений/филиалов МИИТа.

.2. Расчет затрат, связанных с разработкой проекта автоматизации

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

.2.1 Расчет затрат на техническое обеспечение

Проект автоматизации реализуется на имеющемся оборудовании, которое не закупается специально, а использует часть свободного ресурса, следовательно, удельная стоимость технического обеспечения рассчитывается по формуле:

Куд = Ц*t/T,

где: Ц - стоимость первоначальная, используемого оборудования;- время, в течение года, когда проект автоматизации занимает имеющееся оборудование;

Т - временной ресурс имеющегося оборудования.

Перечень работ, выполненных в ходе задачи организации повышения квалификации преподавателей в рамках АСУ МИИТ, приведен в таблице 5.1.

Таблица 5.1 Работы, выполненные при разработке задачи организации повышения квалификации преподавателей

№ п/п	Этап проектирования	Длительность
1	Получение задания на проектирование	1
2	Изучение задания	2
3	Сбор и изучение научно-технической литературы	7
4	Анализ существующей системы	10
5	Обоснование целесообразности решения поставленной задачи	2
6	Формулировка требований к поставленной задаче	1
7	Выбор средств разработки	2
8	Моделирование предметной области	7
9	Разработка модели данных	6
10	Разработка структуры ПО	4
11	Разработка ПО	32
12	Тестирование ПО	2
13	Корректировка ПО	4
14	Системотехнические и экономические расчеты	4
15	Составление пояснительной записки	4
	Итого:	88

Для оценки стоимости ПО или затрат на разработку в денежном выражении возможно составить таблицу следующего вида:

Таблица 5.2

Этап проект-ирования	Трудоемкость в ч/часах	ЗП + ЕСН (228,4 руб./час)	Эл.энерго и амортизация в час (3,9 + 27,98)	Накладные расходы (8,5 руб./ч)	∑затраты (руб.)
1	8	1827,2	255,04	68	2150,24
2	16	3654,4	510,08	136	4300,48
3	56	12790,4	1785,28	476	15051,68
4	80	18272	2550,4	680	21502,4
5	16	3654,4	510,08	136	4300,48
6	8	1827,2	255,04	68	2150,24
7	16	3654,4	510,08	136	4300,48
8	56	12790,4	1785,28	476	15051,68
9	48	10963,2	1530,24	408	12901,44
10	32	7308,8	1020,16	272	8600,96
11	256	58470,4	8161,28	2176	68807,68
12	16	3654,4	510,08	136	4300,48
13	32	7308,8	1020,16	272	8600,96
14	32	7308,8	1020,16	272	8600,96
15	32	7308,8	1020,16	272	8600,96
Итого:					189221,12

Стоимость часа оплаты труда разработчика с единым социальным налогом (0,34 от зарплаты) рассчитывается по формуле:

где: Оклад (оклад i-го разработчика) = 30000 руб.;

ЕСН (ставка единого социального налога) = 0,34 от зарплаты;

Стоимость часа оплаты труда разработчика:

30000*1*(1+0,34)/176 = 228,4 руб./час

Затраты на электроэнергию, потребляемой в час, рассчитываются по формуле:

где: Mj - потребляемая мощность j-го оборудования, используемого в работе;рс - количество единиц оборудования, используемого в работе;

Сэч - стоимость 1 кВт/час.

Стоимость 1 кВт/час для различного оборудования приведена в таблице 5.3.

Таблица 5.3

Оборудование	Mj ()	Kрс	Сэч ()
Компьютер	0,6	1	1,5
Сервер	1	2	1,5

Зэ = (0,6*1*1,5) + (1*2*1,5) = 3,9 руб./ч

Часовая амортизация зависит от цены компьютера и режима его работы.

Стоимость оборудования, необходимого для задачи организации повышения квалификации преподавателей в рамках АСУ МИИТ, представлена в таблице 5.4.

Таблица 5.4 Стоимость оборудования для разработки задачи организации повышения квалификации преподавателей в рамках АСУ МИИТ

Наименование оборудования	Количество единиц оборудования	Цена, руб.	Σ Цена, руб.
Системный блок	1	20000	20000
Монитор	1	10000	10000
Клавиатура	1	2300	1500
Мышь	1	1700	700
Принтер	1	7000	7000
Сервер базы данных	1	350000	350000
Сервер приложений	1	148000	148000
Итого:			537200

Для режима работы ПК, соответствующего наличию выходных и праздничных дней, и 8-ми часовому рабочему дню, можно считать часовую амортизацию по формуле:

где: Ц - цена ЭВМ;

,11- норма амортизации в год;

- норма работы часов в месяц.

За = (537200*0,11)/(12*176) = 27,98 руб./ч

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

Расчет накладных расходов:

Кн - накладные расходы за период создания проекта

Знр - накладные расходы в час

Кн = 6000 руб.

Тпроект = 88*8 = 704 ч

Знр = Кн / Тпроект

Знр = 6000 / 704 = 8,5 руб./ч

.2.2 Затраты на создание программных комплексов

Расчет удельной стоимости лицензионного программного обеспечения, используемого для разработки задачи организации повышения квалификации преподавателей.

Если лицензионное ПО используется в нескольких проектах, то затраты, относимые на данный проект принимаются в зависимости от использования ресурса как удельные затраты на лицензионное программное обеспечение (Куд), используемое в проекте.

Куд = Ц*t/(T*т) (руб.),

где: Ц - лицензионная стоимость, используемых программных средств;- период проектирования ИнП;- временной ресурс лицензионного ПО;

т - потенциальное количество проектов, использующих данный продукт.

Если в лицензии не указан срок ее действия, для целей бухгалтерского учета он принимается на уровне 20 лет, для целей налогообложения - 10 лет (но в обоих случаях не более срока деятельности организации).

Таблица 5.5 Стоимость программного обеспечения

Наименование элемента ПО	Кол-во	Назначение	Цена, (руб.)
Oracle DB	1	Система управления базой данных	25873825
Delphi	1	Среда разработки приложения	72 708
PL/SQL Developer	1	Среда написания SQL-запросов	1050
Итого:			25947583

Куд (Oracle DB) = (25873825*88)/(10*365*30) = 20793,58 руб.

Куд (Delphi) = (72708*88)/(10*365*30) = 58,43 руб.

Куд (PL/SQL Developer) = (1050*88)/(10*365*30) = 0,84 руб.

Куд = Куд (Oracle DB) + Куд (Delphi) + Куд (PL/SQL Developer) =

= 20793,58 + 58,43 + 0,84 = 20852,85 руб.

Рассчитаем затраты на разработку и приобретение программных комплексов:

Зпр =( ЗПч+ Зэ+ За+ З пп +Знр)* Тпроект = 189221,12 руб.

Кр = Зпр + Куд = 189221,12 + 20852,85 = 210073,97 руб.

.2.3 Затраты на приобретение аппаратных комплексов

Капитальные вложения, связанные с приобретением аппаратных комплексов, определяются по формуле:

где: Kтсу - затраты на приобретение вычислительной техники, периферийных устройств, вспомогательного оборудования, организационной техники (определяются по прейскурантным ценам), руб.

Стоимость вычислительной техники и периферийных устройств, необходимых для разработки задачи организации повышения квалификации преподавателей, была представлена в таблице 5.6.

Т.к. для разработки задачи оборудование не закупается специально, а используется имеющийся аппаратный комплекс, то определяется удельная стоимость имеющегося технического оснащения:

тсу = Kто* t/(T*т) (руб.),

где: Kто - стоимость имеющегося аппаратного комплекса, руб.;- время (в течение года) использования имеющегося комплекса;

Т - временной ресурс имеющегося комплекса.

т - потенциальное количество проектов, использующих данное оборудование.

Для эксплуатации проекта необходимо следующее оборудование: 5 компьютеров и 1 принтер для факультета повышения квалификации преподавателей (ФПКП), 37 компьютеров и 19 принтеров для остальных филиалов МИИТа, осуществляющих повышение квалификации преподавателей.

Таблица 5.6 Стоимость оборудования для эксплуатации проекта

Наименование оборудования	Количество единиц оборудования	Цена, руб.	Σ Цена, руб.
Системный блок	42	15000	630000
Монитор	42	8000	336000
Клавиатура	42	700	29400
Мышь	42	300	12600
Принтер	20	3000
Сервер базы данных	1	350000	350000
Сервер приложений	1	148000	148000
Итого:			1566000

Предполагается, что временной ресурс имеющегося оборудования:

серверов - 5 лет;

компьютера - 3 года;

принтера - 3 года;

Примем во внимание, что на каждом компьютере работает в среднем 4 приложения, следовательно т = 4.

Получаем:

Кто уд (Сервер БД,сервер приложений)= (498000*22*12)/(5*22*12*30)=

= 3320 руб.

Кто уд (Компьютер,принтер)= =((630000+336000+29400+12600+60000)*22*12) /(3*22*12*4)=

= 89000 руб.

Кто уд = Кто уд (Сервер БД,сервер приложений) +

+ Кто уд (Компьютер, принтер)= 3320 + 89000 = 92320 руб.

Стоимость оргтехники равна затратам на 40 картриджей для принтера (700 руб.).

Следовательно, удельные капитальные вложения на приобретение аппаратного комплекса будут равны:ак = Kтсу = Кто уд + Корг = 92320 + (40 * 700) = 120320 руб.

.2.4 Затраты на создание информационного и организационного обеспечения

Капитальные вложения в создание информационного и организационного обеспечения могут быть определены по формуле:

КО = КИО + КОО,

где: KИО - затраты на создание информационного обеспечения, руб.;ОО - затраты на создание организационного обеспечения, руб.

Затраты на информационное обеспечение рассчитываются аналогично затратам на ПО по фактически выполненному перечню работ. Работы, выполненные по информационному обеспечению, представлены в таблице 5.7.

Таблица 5.7 Работы, выполненные по информационному обеспечению

№ п/п	Этап проектирования	Длительность
1	Получение задания на проектирование	1
2	Изучение задания	2
3	Сбор и изучение научно-технической литературы	7
4	Анализ существующей системы	10
5	Обоснование целесообразности решения поставленной задачи	2
	Итого:	22

Оценка затрат на информационное обеспечение в денежном выражении по каждому этапу проектирования представлена в таблице 5.8.

Таблица 5.8 Затраты на информационное обеспечение

Этап проект-ирования	Трудоемкость в ч/часах	ЗП + ЕСН (228,4 руб./час)	Эл.энерго и амортизация в час (3,9 + 27,98)	Накладные расходы (8,5 руб./ч)	∑ Затраты (руб.)
1	8	1827,2	255,04	68	2150,24
2	16	3654,4	510,08	136	4300,48
3	56	12790,4	1785,28	476	15051,68
4	80	18272	2550,4	680	21502,4
5	16	3654,4	510,08	68	4300,48
Итого:					47305,28

ИО = 47305,28 руб.

Затраты на организационное обеспечение включают расходы на написание инструкции пользователю и обучение сотрудников работе с проектом.

Работы, выполненные по организационному обеспечению, представлены в таблице 5.9.

Таблица 5.9 Работы, выполненные по организационному обеспечению

Этап проектирования	Работы	Кол-во дней
15	Составление пояснительной записки	4
Итого:		4

Оценка затрат на составление пояснительной записки в денежном выражении представлена в таблице 5.10.

Таблица 5.10 Затраты на составление инструкции

Этап проект-ирования	Трудоемкость в ч/часах	ЗП + ЕСН (228,4 руб./час)	Эл.энерго и амортизация в час (3,9 + 27,98)	Накладные расходы (8,5 руб./ч)	∑затраты (руб.)
15	32	7308,8	1020,16	272	8600,96
Итого:					8600,96

си = 8600,96 руб.

Затраты на обучение могут быть рассчитаны с учетом двух моделей обучения:

обучение силами разработчиков;

обучение в лицензированных учебных центрах.

Рассчитаем затраты на обучение силами разработчиков:

Заработная плата на период обучения:

где: - оклад разработчика ИП;

- оклад обучаемого;

- количество участников соответствующей категории;- количество рабочих дней в месяце;- количество дней обучения.

Ор = 30000 руб.

Ооб = 10000 руб.

Мк = 42= 22= 5

ЗПоб = (30000 +10000 * 42 )*5/22 = 102272,72 руб.

Заработная плата с ЕСН:

где: ЗПоб - оклад разработчика ИП;

Кс - коэффициент с учетом ЕСН.

ЗПесн = 102272,72 * 0,34 = 34772,72 руб.

Амортизация оборудования:

где: - стоимость оборудования;

На - норма амортизации в год; - количество дней обучения.

Цоб = 537200 руб.

На = 0,11= 5

Аоб = (537200*0.11/365)*5 = 809,5 руб.

Амортизация программного обеспечения:

где: Цпо - стоимость ПО;

На - норма амортизации в год; - количество дней обучения.

Апо = (25947583*0.11/365)*5 = 39099 руб.

Расходы на электроэнергию:

где: - мощность потребляемая оборудованием;

- количество дней обучения;

- стоимость 1 квт*ч.лампочек = 0,02 кВт/ч * 8шткомпьютера = 0,6 кВт /чсерверов = 1 кВт /ч*2шт= 5

Цквт*ч = 1,5 руб/кВтэл.эн. = (0,02 * 8 +0,6 + 1*2)*5*8*1,5 = 252 руб.

Материалы на организацию и сопровождение процесса обучения:

где: Рм - расход материала;

Цм - цена материала.

Для проведения обучения необходимо закупить 1 пачку бумаги ценой 70 руб. и 3 упаковки ручек ценой 100 руб.бум = 1

Цбум = 70 руб.руч = 3

Цруч = 100 руб.

Моб = (1*70) + (3*100) = 370 руб.

Эксплуатация помещений:

где: - расходы по содержанию помещения;- количество дней обучения;

- нормативная площадь для оборудования и обучения.

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

Следовательно, основные прямые затраты:

=102272,72+34772,72+809,5+39099+ 252+370 = 177575,94 руб.

Прочие прямые затраты составляют 30% прямых затрат:

= * 0,3

= 177575,94 * 0,3 = 53272,78 руб.

Итого прямых затрат на обучение:

Зпр_об=+

Зпр_об =177575,94 +53272,78 =230848,72 руб.

Рассчитаем накладные расходы по формуле:

где: - норма накладных расходов;

- прямая заработная плата

=85%

=102272,72

Всего:

Теперь можно рассчитать КО:

КО= КИО + КОО = КИО + Кси+Коб

КО = 47305,28 + 8600,96 + 317780,53 = 373686,77 руб.

.2.5 Суммарные капитальные затраты на разработку и внедрение проекта

Капитальные затраты на разработку и внедрение проекта будут равны:

К = Кр + Как+ КО = 210073,97 + 120320 + 373686,77 = 704080,74 руб.

.2.6 Текущие затраты на эксплуатацию внедряемых систем

Годовые текущие затраты определяются как:

З = З1 + З2 + З3 + З4 + З5 + З6 + З7 + З8 + З9

где З1 - основная и дополнительная заработная плата;

З2 - ЕСН;

З3 - расходы на командировки;

З4 - расходы на содержание легкового транспорта (ремонт и амортизация);

З5 - канцелярские и типографские расходы;

З6 - почтово-телеграфные и телефонные расходы;

З7 - расходы на содержание и эксплуатацию зданий, помещений и инвентаря (ремонт, амортизация, стоимость электроэнергии);

З8 - расходы на содержание и эксплуатацию аппаратного и программного комплекса и оргтехники (ремонт, амортизация, стоимость вспомогательных материалов и электроэнергии);

З9 - прочие расходы, не вошедшие в перечисленные статьи расходов (стоимость услуг сторонних организаций, затраты на мобильную связь, и другие расходы).

Годовая заработная плата сотрудника факультета повышения квалификации преподаваталей (ФПКП) равна:

Количество сотрудников, использующих проект равно 42.

Сумма годовых отчислений на ЕСН составит:

Расходы на командировки, содержание легкового транспорта, почтово-телеграфные и телефонные расходы считаем равными нулю.

З3 = 0

З4 = 0

З6 = 0

Канцелярские и типографские расходы:

В среднем в месяц на канцелярские и типографские расходы тратится 1000 руб.

Будем считать, что на человека приходится 4 м2.

Расходы на содержание и эксплуатацию зданий, помещений и инвентаря будем рассчитывать как коммунальные платежи для помещения площадью (4 * 42) = 168 м2.

Оплата 1 м2 составляет 33 руб.

Годовые расходы на содержание и эксплуатацию аппаратного и программного комплекса будут включать годовые затраты на амортизацию программного комплекса (Запр), годовые затраты на амортизацию аппаратного комплекса (Заап) и годовую стоимость электроэнергии (Зэ):

Годовые затраты на амортизацию программного комплекса будут складываться из удельной стоимости лицензионного ПО и затрат на создание программного комплекса. Норма амортизации принимается равной 20%:

Запр = Кр * 0,2 = 210073,97 * 0,2 = 42014,79 руб.

Годовые затраты на амортизацию аппаратного комплекса будут равны:

Заап = Кто уд * 0,11 = 92320 * 0,11 = 10155,2 руб.

Годовая стоимость потребляемой электроэнергии составит:

Следовательно, годовые расходы на содержание и эксплуатацию аппаратного и программного комплекса будут равны:

З8 = 42014,79 + 10155,2 + 8236,8 = 60406,79 руб.

Прочие расходы будем считать равными нулю.

З9 = 0

В итоге получаем, что годовые текущие затраты, связанные с проектом, равны:

З = З1 + З2 + З5 + З7 +З8 = 12600000 + 102000 + 12000 + 66528 + +60406,79 = 12840934,79 руб.

5.3 Расчет экономической эффективности

Подсчитаем годовые затраты на организацию процесса повышения квалификации преподавателей до внедрения проекта. Затраты на приобретение аппаратного и лицензионного программного обеспечения (кроме PL/SQL Developer и Delphi, так как - это средства разработки) останутся прежними, потому что до внедрения проекта использовались те же программные и аппаратные средства (использовались другие приложения, для поддержания которых необходимы были те же программные и аппаратные средства).

При внедрении разрабатываемого приложения можно добиться снижения затрат на организацию планирования и проведения мероприятий по повышению квалификации преподавателей.

Стоимостная оценка потерь времени сотрудника МИИТа (сотрудника ФПКП, УФБУ, управления кадров и ряда других подразделений или филиалов МИИТа, которые участвуют поддержке процесса повышения квалификации преподавателей) на выполнение работы по организации повышения квалификации преподавателей, включающей доставку и передачу документов из подразделения в подразделение, можно произвести по формуле:

, где

Зм - месячная заработная плата приведенного выше сотрудника МИИТа на работу в локальной системе;

Т - число рабочих часов в месяц;

ЕСН - ставка единого социального налога.

Зм=25000 руб.

ЕСН = 0,34

Получаем:

Сч = 25000*(1+0,34)/60 =190,34 руб./час

Учитывая, что в МИИТе с разрабатываемым приложением должно работать около 42 сотрудников, экономию от сокращения затрат на работу в локальной системе:

РР = Сч * ∆t * n * N,

где: Сч - стоимостная оценка потерь времени сотрудника МИИТа;

∆t - среднее значение разницы во времени (в существующей и создаваемой системах), затрачиваемом на выполнение работы по организации повышения квалификации преподавателей (4 час);- количество сотрудников, работающих с приложением;- среднее число документов (планов, отчетов) на каждого сотрудника МИИТа в год (50).

Получаем:

РР = 190,34 * 4 * 42 * 50 = 1598856 руб./год

Здо_внедрения = З1 + З2 + З3 + З4 + З5 + З6 + З7 + З8 + З9 + РР

Все значения З останутся прежними, кроме З8

Не учитываем PL/SQL Developer и Delphi:

Запр = (Зпр + Куд(Oracle)*0,2) =(189221,12 + 20793,58) * 0,2 = 42002,94

З8 = 42002,94 + 10155,2 + 8236,8 = 60394,94 руб.

Здо_внедрения = 12600000 + 102000 + 12000 + 66528 +60394,94 + 1598856 = = 14439778,94 руб.

Зпосле_внедрения = 12840934,79 руб.

Экономическая эффективность равна:

Э = 14439778,94 - 12840934,79 = 1598844,15 руб./год

Капитальные затраты на разработку и внедрение проекта будут равны:

К = 704080,74 руб.

Так как Э > K, то можно сделать вывод о целесообразности разработки и применения приложения, автоматизирующего технологию организации повышения квалификации преподавателей в рамках АСУ МИИТ.

Заключение

При разработке дипломного проекта было разработано приложение, автоматизирующее технологию организации повышения квалификации преподавателей в рамках АСУ МИИТ.

Созданное приложение отвечает всем основным поставленным требованиям:

интеграция с корпоративной системой университета (АСУ МИИТ);

реализация всего требуемого функционала;

заполнение и корректировка содержимого документов, используя данные БД АСУ МИИТ;

просмотр и отправка на печать сформированных документов;

время выполнения запросов не превышает требуемое при определенных условиях;

организация разграничения доступа на уровне СУБД (объектные привилегии) и на уровне приложения (программные роли).

Список литературы

http://mvf.klerk.ru/zakon/125fz.htm (полный текст ФЗ 125)

М.Р. Когаловский. Энциклопедия технологий баз данных. М. Финансы и статистика, 2002Engineering, Jakob Nielsen San Francisco, 1993

Проектирование информационных систем на железнодорожном транспорте. Э.К. Лецкий, З.А. Крепкая. И.В. МарковаРуководство пользователя. Грейди Буч, Джеймс Рамбо Айвар Джекобсон

Программирование в Delphi 6, Архангельский А.А.

Психологическая диагностика, Учебное пособие / Под П 86 ред. К.М. Гуревича и Е.М. Борисовой. - М.: Изд-во УРАО, 1997 г.

Человеко-машинное взаимодействие, Методические указания к дипломному проектированию, Дружинин Ю.Г.://ru.wikipedia.org

Качество информации, Дружинин Г.В., Сергеева И.В. - М.: Радио и связь, 1990 г.

Приложение А

Описание ER-модели

Entity
Entity
Name	Definition
Бумаги	Сведения о документах
Группы повышения квалификации	Группы повышения квалификации
Договора	Сведения о договорах
Документы	Содержит документы, удостоверяющие личность сотрудников (паспорт, военный билет).
Кто есть кто	Сведения о пользователях системы
Куратор группы	Куратор группы
Методический комплекс	Методический комплекс
Параграфы	Сведения о параграфах
План повышения квалификации	План повышения квалификации
Подразделения	Сведения о подразделениях
Сертификат	Содержит информацию о документах, подтверждающих полученное образование (вуз, ФПК, аспирантура, докторантура и т.д.).
Сотрудники	Содержит список сотрудников
Специальности комплекса	Специальности комплекса
Студенты	Сведения о студентах
Учебная группа	Список учебных групп
Учебная нагрузка умк	Учебная нагрузка в рамках умк

Attribute(s) of "Бумаги" Entity
Name	Definition
ID бумаги	Внутрисистемный номер бумаги
ID вида бумаги	Внутрисистемный номер вида бумаги
номер бумаги	Номер бумаги
ID периода нумерации	Внутрисистемный номер периода нумерации бумаги
ID серии бумаг	Внутрисистемный номер серии бумаги
дата	Дата
временный номер	Временный номер бумаги
основание	Основание
аннотация	Аннотация
примечание	Примечание
готов?	Признак готовности документа
пошел?	Признак того, что документ ушел на подпись	Дата создания бумаги
дата изменения	Дата внесения изменений в документ
ID пользователя системы	ID Пользователя системы, создавшего этот документ

Attribute(s) of "Группы повышения квалификации" Entity
Name	Definition
ID группы пк	Внутрисистемный номер группы повышения квалификации
ID плана пк	Внутрисистемный номер плана повышения квалификации
ID учебной группы	Внутрисистемный номер учебного группы
ID методического комплекса	Внутрисистемный номер методического комплекса
дата начала	Планируемая дата начала обучения
дата окончания	Планируемая дата окончания обучения

Attribute(s) of "Договора" Entity
Name	Definition
ID договора	Внутрисистемный номер договора
ID кто	Внутрисистемный номер организации, которая заключает договор
ID с кем	Внутрисистемный номер организации, с которой заключается договор
дата начала	Дата начала действия договора
дата оконч план	Планируемая дата окончания договора
дата окончания	Дата окончания договора
ID параграфа	Внутрисистемный номер параграфа
предмет	Предмет договора
ID источника фин	Внутрисистемный номер источника финансирования
ID счета	Внутрисистемный номер счета
в рамках	Внутрисистемный номер договора

Attribute(s) of "Документы" Entity
Name	Definition
ID документа	Внутрисистемный номер документа
ID вида документа	Внутрисистемный номер вида документа
когда выдан	Когда выдан
серия	Серия
номер	Номер
кто выдал	Кто выдал
ID сотрудника	Внутрисистемный номер сотрудника
дата окончания	Окончание действия

Attribute(s) of "Кто есть кто" Entity
Name	Definition
ID пользователя системы	Внутрисистемный номер пользователя системы
ID сотрудника	Внутрисистемный номер сотрудника
ID пользователя	Внутрисистемный номер пользователя
дата начала	Дата начала действия
дата окончания	Дата окончания действия
логин	Логин пользователя
примечание	Описание пользователя
логин в ОС	Имя пользователя в операционной системе
ID сервера приложений	Внутрисистемный номер сервера приложений
ID подразделения	Внутрисистемный номер подразделения, (укрупненно) к которому относится пользователь

Attribute(s) of "Куратор группы" Entity
Name	Definition
ID учебной группы	Внутрисистемный номер учебного группы
ID сотрудника	Внутрисистемный номер сотрудника
дата начала	Дата начала действия
дата окончания	Дата окончания действия

Attribute(s) of "Методический комплекс" Entity
Name	Definition
ID методического комплекса	Внутрисистемный номер методического комплекса
ID подразделения	Внутрисистемный номер кафедры
ID дисциплины	Внутрисистемный номер дисциплины

Attribute(s) of "Параграфы" Entity
Name	Definition
ID параграфа	Внутрисистемный номер параграфа
ID вида бумаги	Внутрисистемный вида бумаги
ID бумаги	Внутрисистемный номер бумаги
порядок	Порядок
отмена	Отмена документа

Attribute(s) of "План повышения квалификации" Entity
Name	Definition
ID плана пк	Внутрисистемный номер плана повышения квалификации
ID параграфа	Внутрисистемный номер параграфа
ID обучаемой спец	Внутрисистемный номер обучаемой специальности
дата начала	Дата начала действия
дата окончания	Дата окончания действия

Attribute(s) of "Подразделения" Entity
Name	Definition
ID подразделения	Внутрисистемный номер подразделения
ID метатермина	Внутрисистемный номер метатермина
ID контрагента	Внутрисистемный номер контрагента

Attribute(s) of "Сертификат" Entity
Name	Definition
ID сертификата	Внутрисистемный номер сертификата
ID вида уровня образования	Внутрисистемный номер вида образования
дата начала	Дата начала обучения
дата окончания	Дата окончания обучения
примечание	Примечание
ID специальности	Внутрисистемный номер специальности
ID квалификации	Внутрисистемный номер квалификации
признак отличия	Признак отличия: 1 - золотой медалист, 2 - серебрянный и др.
ID документа	Внутрисистемный номер документа
оценок 5	число оценок 5
оценок 4	число оценок 4
оценок 3	число оценок 3
ID вида уч заведения	Внутрисистемный номер вида учебного заведения
прослушано часов	Количество прослушанных часов

Attribute(s) of "Сотрудники" Entity
Name	Definition
ID сотрудника	Внутрисистемный номер сотрудника
ID контрагента	Внутрисистемный номер контрагента сотрудника
фамилия	Фамилия сотрудника
ID склонения ф	Внутрисистемный номер склонения фамилии
имя	Имя сотрудника
ID склонения и	Внутрисистемный номер склонения имени
отчество	Отчество сотрудника
ID склонения от	Внутрисистемный номер склонения отчества
пол	Пол
дата рожнения	Дата рождения
дата окончания	Дата окончания действия
ИНН	Номер ИНН
номер пенс страх	Номер пенсионного свидетельства
ID национальности	Внутрисистемный номер национальности
ID метатермина	Внутрисистемный номер метатермина

Attribute(s) of "Специальности комплекса" Entity
Name	Definition
ID методического комплекса	Внутрисистемный номер методического комплекса
ID обучаемой спец	Внутрисистемный номер обучаемой специальности
ID параграфа программы	Внутрисистемный номер параметра программы
ID вида дисциплины	Внутрисистемный номер вида дисциплины
ID типа дисциплины	Внутрисистемный номер типа дисциплины
ID параграфа кафедры	Внутрисистемный номер протокола заседания кафедры
ID параграфа умо	Внутрисистемный номер параграфа протокола заседания учебно-методического совета

Attribute(s) of "Студенты" Entity
Name	Definition
ID студента	Внутрисистемный номер студента
ID сотрудника	Внутрисистемный номер сотрудника
ID учебной группы	Внутрисистемный номер учебного группы
ID вида зачисления	Внутрисистемный номер вида зачисления
ID приказа о зач	Внутрисистемный номер приказа о зачислении
дата начала	Дата начала действия
окончание плановое	Планируемая дата окончания
ID договора	Внутрисистемный номер договора
ID документа	Внутрисистемный номер бумаги
ID вида программы	Внутрисистемный номер вида программы, по которой обучается студент (ускоренная, сокращенная и др.)
условный срок	Дата условного перевода. заполняется в случае если человек при переводе имеет задолжности и должен их ликвидировать к этой дате
ID учебного плана	Внутрисистемный номер учебного плана

Attribute(s) of "Учебная группа" Entity
Name	Definition
ID учебной группы	Внутрисистемный номер учебного группы
ID обучаемой спец	Внутрисистемный номер обучаемой специальности
наименование	Наименование учебного группы
уровень группы	0 - группы не учитываемые в учебном отделе 1 - курс 2 - поток 3 - группа
дата начала	Дата начала действия
дата окончания	Дата окончания действия
входит	Входит
максимальный размер	Рекомендуемое число участников в группе
ID вида группы	Внутрисистемный номер вида группы
курс	Курс обучения
аббревиатура	Аббревиатура, если не указана, то берется аббревиатура специальности

Attribute(s) of "Учебная нагрузка умк" Entity
Name	Definition
ID учебной нагрузки умк	Внутрисистемный номер учебной нагрузки УМК
ID методического комплекса	Внутрисистемный номер методического комплекса
ID вида обучения	Внутрисистемный номер вида обучения
ID вида нагрузки	Внутрисистемный номер вида нагрузки
семестр	Семестр (1..12)
часы	Количество часов

Table

Name

Certificate

Complex_specialities

Contracts

Curator_group

Division

Documents

Educational_group

Educational_load_umk

Employees

Methodical_complex

Orders

Paragraphs

Refresher_course_group

Refresher_course_plan

Students

Who_Is_Who

Column(s) of "Certificate" Table
Name	Datatype	Is PK	Is FK
ID_certificate	NUMBER(10)	Yes	No
IDk_level_formation	NUMBER(10)	No	No
d_start	DATE	No	No
d_end	DATE	No	No
note	VARCHAR2(500)	No	No
ID_speciality	NUMBER(10)	No	No
ID_qualification	NUMBER(10)	No	No
attribute_difference	INTEGER	No	No
ID_doc	NUMBER(10)	No	Yes	INTEGER	No	No
estimations_4	INTEGER	No	No
estimations_3	INTEGER	No	No
IDk_ed_institution	NUMBER(10)	No	No
heard_hours	FLOAT	No	No

Column(s) of "Complex_specialities" Table
Name	Datatype	Is PK	Is FK
ID_p_dp	NUMBER(10)	No	Yes
IDt_discipline	NUMBER(10)	No	No
IDk_discipline	NUMBER(10)	No	No
ID_d_specialitie	NUMBER(10)	No	No
ID_methodical_complex	INTEGER	No	Yes
ID_p_k	NUMBER(10)	No	Yes
ID_p_umo	NUMBER(10)	No	Yes

Column(s) of "Contracts" Table
Name	Datatype	Is PK	Is FK
ID_contract	NUMBER(10)	Yes	No
ID_who	NUMBER(10)	No	No
ID_with_whom	NUMBER(10)	No	No
d_start	DATE	No	No
dp_end	DATE	No	No
d_end	DATE	No	No
ID_paragraph	NUMBER(10)	No	Yes
subject	VARCHAR2(500)	No	No
ID_source	NUMBER(10)	No	No
ID_account	NUMBER(10)	No	No
ID_contract_main	NUMBER(10)	No	Yes

Column(s) of "Curator_group" Table
Name	Datatype	Is PK	Is FK
ID_ed_group	NUMBER(10)	Yes	Yes
ID_e	NUMBER(10)	Yes	Yes
d_start	DATE	Yes	No
d_end	DATE	No	No

Column(s) of "Division" Table
Name	Datatype	Is PK	Is FK
ID_d	NUMBER(10)	Yes	No
ID_metaterm	NUMBER(10)	No	No
ID_contractor	NUMBER(10)	No	No

Column(s) of "Documents" Table
Name	Datatype	Is PK	Is FK
ID_doc	NUMBER(10)	Yes	No
IDk_doc	NUMBER(10)	No	No
when_given	DATE	No	No
series	VARCHAR2(20)	No	No
identifier	VARCHAR2(30)	No	No
who_given	VARCHAR2(500)	No	No
ID_e	NUMBER(10)	No	Yes
d_end	DATE	No	No

Column(s) of "Educational_group" Table
Name	Datatype	Is PK	Is FK
ID_ed_group	NUMBER(10)	Yes	No
ID_d_specialitie	NUMBER(10)	No	No
name	VARCHAR2(100)	No	No
level_group	INTEGER	No	No
d_start	DATE	No	No
d_end	DATE	No	No
ID_ed_group_main	NUMBER(10)	No	Yes
maximal_size	INTEGER	No	No
IDk_group	NUMBER(10)	No	No
course	INTEGER	No	No
abbreviation	VARCHAR2(20)	No	No

Column(s) of "Educational_load_umk" Table
Name	Datatype	Is PK	Is FK
ID_educational_load_umk	INTEGER	Yes	No
ID_methodical_complex	INTEGER	No	Yes
IDk_training	NUMBER(10)	No	No
IDk_lesson	NUMBER(10)	No	No
semester	INTEGER	No	No
hours	FLOAT	No	No

Column(s) of "Employees" Table
Name	Datatype	Is PK	Is FK
ID_e	NUMBER(10)	Yes	No
ID_contractor	NUMBER(10)	No	No
surname	VARCHAR2(60)	No	No
ID_declination_s	NUMBER(10)	No	No
name	VARCHAR2(50)	No	No
ID_declination_n	NUMBER(10)	No	No
patronymic	VARCHAR2(50)	No	No
ID_declination_p	NUMBER(10)	No	No
sex	NUMBER(1)	No	No
date_of_birth	DATE	No	No
d_end	DATE	No	No
INN	VARCHAR2(30)	No	No
insurance_pension	VARCHAR2(30)	No	No
ID_nationality	NUMBER(10)	No	No
ID_metaterm	NUMBER(10)	No	No

Column(s) of "Methodical_complex" Table
Name	Datatype	Is PK	Is FK
ID_methodical_complex	INTEGER	Yes	No
ID_d	NUMBER(10)	No	Yes
ID_discipline	NUMBER(10)	No	No

Column(s) of "Orders" Table
Name	Datatype	Is PK	Is FK
ID_order	NUMBER(10)	Yes	No
IDk_order	NUMBER(10)	No	No
number_paper	No	No
ID_period_numbering	NUMBER(10)	No	No
ID_series_paper	NUMBER(10)	No	No
hisdate	DATE	No	No
temp_identifier	NUMBER(10)	No	No
basis	VARCHAR2(800)	No	No
summary	VARCHAR2(500)	No	No
note	VARCHAR2(800)	No	No
If_ready	SMALLINT	No	No
if_gone	SMALLINT	No	No
d_creation	DATE	No	No
d_modification	DATE	No	No
ID_ERP_user	NUMBER(10)	No	Yes

Column(s) of "Paragraphs" Table
Name	Datatype	Is PK	Is FK
ID_paragraph	NUMBER(10)	Yes	No
IDk_order	NUMBER(10)	No	No
ID_order	NUMBER(10)	No	Yes
index_p	INTEGER	No	No
cancellation	NUMBER(10)	No	Yes

Column(s) of "Refresher_course_group" Table
Name	Datatype	Is PK	Is FK
ID_rc_group	INTEGER	Yes	No
ID_refresher_course_plan	INTEGER	No	Yes
ID_ed_group	NUMBER(10)	No	Yes
ID_methodical_complex	INTEGER	No	Yes
d_start	DATE	No	No
d_end	DATE	No	No

Column(s) of "Refresher_course_plan" Table
Name	Datatype	Is PK	Is FK
ID_refresher_course_plan	INTEGER	Yes	No
ID_paragraph	NUMBER(10)	No	Yes
ID_d_specialitie	NUMBER(10)	No	No
d_start	DATE	No	No
d_end	DATE	No	No

Column(s) of "Students" Table
Name	Datatype	Is PK	Is FK
ID_student	NUMBER(10)	Yes	No
ID_e	NUMBER(10)	No	Yes
ID_ed_group	NUMBER(10)	No	Yes
IDkba_transfer	NUMBER(10)	No	No
ID_order_start	NUMBER(10)	No	Yes
d_start	DATE	No	No
dp_end	DATE	No	No
ID_order_contract	NUMBER(10)	No	Yes
ID_doc	NUMBER(10)	No	Yes
IDk_program	NUMBER(10)	No	No
d_trial	DATE	No	No
ID_educational_plan	NUMBER(10)	No	No

Column(s) of "Who_Is_Who" Table
Name	Datatype	Is PK	Is FK
ID_ERP_user	NUMBER(10)	Yes	No
ID_e	NUMBER(10)	No	Yes
ID_user	NUMBER(10)	No	No
d_start	DATE	No	No
d_end	DATE	No	No
login	VARCHAR2(20)	No	No
note	VARCHAR2(200)	No	No
login_OS	VARCHAR2(30)	No	No
ID_as	NUMBER(10)	No	No
ID_d	NUMBER(10)	No	Yes

Приложение Б. Код программы

program pk,,,in 'модули\Главная\Main.pas' {Form_Main},_cx in 'общие модули\Формы\О программе\About_cx.pas' {Form_About},in 'общие модули\System\SysServices.pas',in 'общие модули\System\wrappers.pas',in 'общие модули\System\GridEditClass.pas',_u_CX_tools in 'общие модули\System\LP_u_CX_tools.pas',_u_MA_Interface in 'общие модули\System\LP_u_MA_Interface.pas',_new in 'общие модули\System\Standart_new.pas',in 'общие модули\System\SqlStringList.pas',_Admin_Data in 'общие модули\SQL_Data\Get_Admin_Data.pas',_Single_Data in 'общие модули\SQL_Data\Get_Single_Data.pas',_PK_PPS_Data in 'общие модули\SQL_Data\Get_PK_PPS_Data.pas',in 'общие модули\System\uListener.pas',in 'модули\Мероприятия\Event.pas' {Form_Event},

SE in 'общие модули\Формы\Поиск\SE.pas' {Form_SE},_Org in 'общие модули\Формы\Организации\Find_Org.pas' {Form_Find_Org},in 'общие модули\Формы\Анкета\UnivQuestionnaire.pas' {FUnivQuestionare},_U in 'общие модули\Формы\фото\photo_U.pas' {fPhoto},

New_For_All in 'общие модули\Формы\Ввод новых значений\New_For_All.pas' {Form_New_For_All},_U in 'общие модули\Формы\адреса\address_U.pas' {fAddr},in 'общие модули\Формы\Документы\UnitDocuments.pas' {FormDocuments},in 'общие модули\System\RegService.pas',in 'общие модули\Формы\фото\WebCam.pas' {WebCamera},in 'модули\Справочники\Dictionaries.pas' {Form_Dictionaries},in 'модули\Планирование\Plan.pas' {Form_Plan},in 'общие модули\System\SysEnvironment.pas';

{$R *.res}_LANG_RUSSIAN = (SUBLANG_DEFAULT shl 10) or LANG_RUSSIAN;not MSystemServices.Connect(True, True)Exit;System.DebugHook >0MSystemServices.IsDebugMode:=True;

// Включим по-умолчанию русский язык!(PChar(IntToHex(KB_LANG_RUSSIAN, 8)), KLF_ACTIVATE);.Initialize;

//локализация DevExpress;.RefreshLoginInfo;.RefreshRolesInfo;(Application.Handle, SW_HIDE);.Title := 'Повышение квалификации';.CreateForm(TForm_Main, Form_Main);.Run;.Main, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ExtCtrls, dxBar, dxBarExtItems, cxClasses, ActnList, ImgList,, About_cx, Plan, Event, Dictionaries;

const

{ Путь для сохранения в реестре }

Reg_Path = '\Software\AS Pilot group\Parameters\Модуль повышения квалификации';_Main = class(TForm): TcxPropertiesStore;: TcxPropertiesStore;_Aple: TImageList;: TImageList;: TActionList;_Plan: TAction;_Exit: TAction;: TActionList;_Options: TAction;: TdxBarManager;Bar1: TdxBar;: TdxBarSubItem;: TdxBarLargeButton;: TdxBarSubItem;: TdxBarLargeButton;: TdxBarLargeButton;: TdxBarLargeButton;_Main: TPanel;: TPanel;_Message: TAction;: TdxBarButton;_Change_User: TAction;_Refresh_Roles: TAction;: TdxBarButton;: TdxBarLargeButton;_Event: TAction;: TdxBarLargeButton;_Dictionaries: TAction;Action_MessageExecute(Sender: TObject);Action_Change_UserExecute(Sender: TObject);Action_Refresh_RolesExecute(Sender: TObject);Action_ExitExecute(Sender: TObject);Action_AboutExecute(Sender: TObject);Action_PlanExecute(Sender: TObject);FormClose(Sender: TObject; var Action: TCloseAction);FormCreate(Sender: TObject);Action_EventExecute(Sender: TObject);FormShow(Sender: TObject);Action_DictionariesExecute(Sender: TObject);

{ Private declarations }

{ Форма "О программе" }

F_About: TForm_About;

{ Форма "Планирование" }_Plan: TForm_Plan;

{ Форма "Мероприятия" }_Event: TForm_Event;

{ Форма "Справочники" }

F_Disctionaries: TForm_Dictionaries;

{ Public declarations }_NAME: string;

{ Обновить роли }Refresh_Roles;

{ Скрыть все }Hide_All;;_Main: TForm_Main;

{$R *.dfm}SysServices, LP_u_MA_Interface, grideditclass, standart_new, Get_PK_PPS_Data;

{ Обмен сообщениями }TForm_Main.Action_MessageExecute(Sender: TObject);

(vnListAgent as IvnMessageAgent).MA_MessageWindow;;

{ Изменить текущего пользователя }TForm_Main.Action_Change_UserExecute(Sender: TObject);not MSystemServices.Connect(True)

then Close

{ Обновить роли нового пользователя }

else Action_Refresh_Roles.Execute;;

{ Справочники }TForm_Main.Action_DictionariesExecute(Sender: TObject);

begin

{ Скрываем все }_All;

{ Если формы нет, создаем ее, инициализируем, проверяем роли и встраиваем }

if F_Disctionaries = nilbegin_Disctionaries := TForm_Dictionaries.Create(Self);_Disctionaries.Init(Reg_Path+'\Справочники');_Disctionaries.Refresh_Roles;_Disctionaries.ManualDock(Panel1, nil, alClient);;

{ Показываем форму }_Disctionaries.Realign;_Disctionaries.PageControl_Main.Realign;_Disctionaries.Panel_Main.Realign;_Disctionaries.Panel_Filter.Realign;_Disctionaries.PopupEdit_Filter_Org.Realign;Self.Caption <> ''Self.Caption := Self.Caption + '. ' + F_Disctionaries.CaptionSelf.Caption := F_Disctionaries.Caption;.Title := Self.Caption;_Disctionaries.Show;;

{ Скрыть все формы }TForm_Main.Hide_All;F_Plan <> nilF_Plan.VisibleF_Plan.Hide;F_Event <> nilF_Event.VisibleF_Event.Hide;

//Self.Caption := My_Get_Version('InternalName');.Caption := ERP_NAME;.Title := Self.Caption;;

{ Обновить роли пользователя }TForm_Main.Refresh_Roles;data: olevariant; i: integer;:= MSystemServices.SelectData(Get_Params_Module, CreateVarAr(['2000']), i

, 'Не смогли прочитать настройку модуля');

if VarIsArray(data)ERP_NAME := VarToStr(data[0][0])ERP_NAME := '';:= MSystemServices.SelectData(Get_Params_Module, CreateVarAr(['2014']), i

, 'Не смогли прочитать настройку модуля');

if VarIsArray(data)ERP_NAME <> ''ERP_NAME := ERP_NAME + '. ';_NAME := ERP_NAME + VarToStr(data[0][0]);;.Caption := ERP_NAME;

{ Проверка доступности показа формы планирования }

Action_Plan.Enabled := TForm_Plan.IsRoleAccessible;(F_Plan <> nil)beginF_Plan.Visible and not Action_Plan.EnabledHide_AllF_Plan.Refresh_Roles;F_Plan.Visibleif Self.Caption <> ''Self.Caption := Self.Caption + '. ' + F_Plan.CaptionSelf.Caption := F_Plan.Caption;

end;

{ Проверка доступности показа формы мероприятий }

Action_Event.Enabled := TForm_Event.IsRoleAccessible;(F_Event <> nil)beginF_Event.Visible and not Action_Event.EnabledHide_AllF_Event.Refresh_Roles;F_Event.VisibleSelf.Caption <> ''Self.Caption := Self.Caption + '. ' + F_Event.CaptionSelf.Caption := F_Event.Caption;;_Dictionaries.Enabled := TForm_Dictionaries.IsRoleAccessible;(F_Disctionaries <> nil)beginF_Disctionaries.Visible and not Action_Event.EnabledHide_AllF_Disctionaries.Refresh_Roles;F_Disctionaries.VisibleSelf.Caption <> ''Self.Caption := Self.Caption + '. ' + F_Disctionaries.CaptionSelf.Caption := F_Disctionaries.Caption;;.Title := Self.Caption;

end;

{ Перечитать роли текущего юзверя }

procedure TForm_Main.Action_Refresh_RolesExecute(Sender: TObject);

begin

{ Если создана форма, то и там обновим роли }

if F_About <> nilGet_SqlData_cxGrid(F_About.Tree_Roles_User).Read_Data

{ Иначе - сами их прочтем и определим доступность }

else begin.RefreshLoginInfo;.RefreshRolesInfo;_Roles;;;

{ Проведение мероприятий }TForm_Main.Action_EventExecute(Sender: TObject);

begin

{ Скрываем все }_All;

{ Если формы нет, создаем ее, инициализируем, проверяем роли и встраиваем }

if F_Event = nilbegin_Event := TForm_Event.Create(Self);_Event.Init(Reg_Path+'\Мероприятия');_Event.Refresh_Roles;_Event.ManualDock(Panel1, nil, alClient);;

{ Показываем форму }_Event.Realign;_Event.PageControl_Main.Realign;_Event.Panel_Main.Realign;Self.Caption <> ''Self.Caption := Self.Caption + '. ' + F_Event.CaptionSelf.Caption := F_Event.Caption;.Title := Self.Caption;_Event.Show;;

{ Выход из программы }TForm_Main.Action_ExitExecute(Sender: TObject);

begin;;

{ Открыть форму о программе }

procedure TForm_Main.Action_AboutExecute(Sender: TObject);

begin

{ Если формы нет, создаем ее и инициализируем }

if F_About = nilbegin_About := TForm_About.Create(Self);_About.Refresh_Roles := Refresh_Roles;_About.Init(Reg_Path+'\О программе');

end;

{ Показываем форму в модальном окне }_About.ShowModal;;

{ Планирование обучения }

procedure TForm_Main.Action_PlanExecute(Sender: TObject);

begin

{ Скрываем все }_All;

{ Если формы нет, создаем ее, инициализируем, проверяем роли и встраиваем }

if F_Plan = nilbegin_Plan := TForm_Plan.Create(Self);_Plan.Init(Reg_Path+'\Планирование');_Plan.Refresh_Roles;_Plan.ManualDock(Panel1, nil, alClient);;

{ Показываем форму }_Plan.Realign;_Plan.PageControl_Main.Realign;_Plan.Panel_Main.Realign;_Plan.Panel_Filter.Realign;_Plan.PopupEdit_Filter_Org.Realign;Self.Caption <> ''Self.Caption := Self.Caption + '. ' + F_Plan.CaptionSelf.Caption := F_Plan.Caption;

F_Plan.Show;;

{ Сохраним параметры окна }

procedure TForm_Main.FormClose(Sender: TObject; var Action: TCloseAction);.SaveToRegistry(Reg_Path+'\Главное окно\Меню');

cxPropertiesStore1.StoreTo(False);

{ При свернутости и распахнутости окна размеры не сохранять! }

if WindowState = wsNormalcxPropertiesStore2.StoreTo(False);;

{ Инициализация }TForm_Main.FormCreate(Sender: TObject);

begin

{ Загружаем параметры из реестра }

cxPropertiesStore1.StorageName:=Reg_Path+'\Главное окно';.StorageName:=Reg_Path+'\Главное окно\Размеры';:=poDesigned;.RestoreFrom;.RestoreFrom;.LoadFromRegistry(Reg_Path+'\Главное окно\Меню');;TForm_Main.FormShow(Sender: TObject);_Roles;

{ Скроем все }_All;;.Dictionaries, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ExtCtrls, cxPC, cxControls, cxSplitter, cxStyles, cxCustomData,, cxFilter, cxData, cxDataStorage, cxEdit, cxGridLevel,, cxGridTableView, cxGridBandedTableView,, cxGrid, cxEditRepositoryItems, cxClasses, cxTL,, cxPropertiesStore, cxTextEdit, cxMaskEdit, cxDropDownEdit,,wrappers, ActnList, cxLookAndFeels, cxLookAndFeelPainters, cxSpinEdit,, GridEditClass, cxButtonEdit, cxTimeEdit, SE;

const

{ Роль на редактирование специальностей, организаторов обучения }

Action_Q_Edit_Spec = '1401';

{ Роль на редактирование учебных групп }

Action_Q_Edit_Groups = '1402';

{ Вид уровня специальности "Повышение квалификации" }_Level_Spec = '70';

{ Вид дисциплины "Повышение квалификации }_Discipline = '59454';

{ Вид уровня образования "Повышение квалификации" }_Level_Formation = '70508';

{ Путь для сохранения в реестре }

Reg_Path = '\Software\AS Pilot group\Parameters\Модуль повышения квалификации\Справочники';

{ Путь для сохранения списков }_Path = '\Параметры списков\';

{ Путь для добавления }_Path = 'Модуль повышения квалификации\Справочники\Добавление\';

type_Dictionaries = class(TForm)_Main: TPanel;: TcxEditStyleController;: TcxStyleRepository;_Group: TcxStyle;_s_ContentEVEN: TcxStyle;_Filter_Box: TcxStyle;_Footer: TcxStyle;_Inactive: TcxStyle;_Indicator: TcxStyle;_Preview: TcxStyle;_Selection: TcxStyle;_ContentOdd: TcxStyle;_Content_TEXT: TcxStyle;_Content_POPUP: TcxStyle;_Content_DATE: TcxStyle;_Content_QUALIFIER: TcxStyle;_Footer_Column: TcxStyle;_Content_ID: TcxStyle;_Content_Memo: TcxStyle;_Content_Project: TcxStyle;_Content_Cancel: TcxStyle;_Content_ProjectSend: TcxStyle;_Content_Owner: TcxStyle;_Content_NotOwner: TcxStyle;_Content_Hot_Track: TcxStyle;_Inc_Search: TcxStyle;_Group_By_Box: TcxStyle;_Header: TcxStyle;_Style_1: TcxTreeListStyleSheet;_Style_1: TcxGridBandedTableViewStyleSheet;: TcxEditRepository;_Date_None_Blank: TcxEditRepositoryDateItem;_Date_With_Blank: TcxEditRepositoryDateItem;_Spin_ID: TcxEditRepositorySpinItem;_Text_RO: TcxEditRepositoryTextItem;_Memo_RO: TcxEditRepositoryMemoItem;_Date_RO: TcxEditRepositoryDateItem;: TcxPropertiesStore;_Filter: TPanel;: TcxSplitter;: TcxLabel;_Filter_Org: TcxPopupEdit;_Text: TcxEditRepositoryTextItem;: TActionList;_Insert_Spec_Div: TAction;_Insert_Spec: TAction;_tv_spec: TAction;_tv_spec_div: TAction;_tv_intitutes: TAction;_tv_kind_training: TAction;_tv_k_l_f: TAction;_tv_org_div: TAction;_tv_source_finansing: TAction;_Insert_Ed_Group: TAction;_Main: TcxPageControl;_Spec: TcxTabSheet;_Spec: TcxGrid;_Spec: TcxGridBandedTableView;_Spec_Name: TcxGridBandedColumn;_Spec_Q: TcxGridBandedColumn;_Spec_ID: TcxGridBandedColumn;_Spec_IDK_Level_Spec: TcxGridBandedColumn;_Spec_id_discipline: TcxGridBandedColumn;_Spec_idk_discipline: TcxGridBandedColumn;_Spec_Level1: TcxGridLevel;_Org: TcxTabSheet;_Spec_Div: TcxGrid;_spec_div: TcxGridBandedTableView;_spec_div_name_spec: TcxGridBandedColumn;_spec_div_name_div: TcxGridBandedColumn;_spec_div_kind_training: TcxGridBandedColumn;_spec_div_institute: TcxGridBandedColumn;_spec_div_source: TcxGridBandedColumn;_spec_div_d_start: TcxGridBandedColumn;_spec_div_d_end: TcxGridBandedColumn;_spec_div_id_spec_div: TcxGridBandedColumn;_spec_div_id_spec: TcxGridBandedColumn;_spec_div_id_d: TcxGridBandedColumn;_spec_div_idk_training: TcxGridBandedColumn;_spec_div_id_d_institute: TcxGridBandedColumn;_spec_div_id_source: TcxGridBandedColumn;_spec_div_idk_level_formation: TcxGridBandedColumn;: TcxGridLevel;_Ed_Group: TcxGrid;_ed_group: TcxGridBandedTableView;_ed_group_name: TcxGridBandedColumn;_ed_group_kind_group: TcxGridBandedColumn;_ed_group_d_start: TcxGridBandedColumn;_ed_group_d_end: TcxGridBandedColumn;_ed_group_id_ed_group: TcxGridBandedColumn;_ed_group_id_spec_div: TcxGridBandedColumn;_ed_group_idk_group: TcxGridBandedColumn;_ed_group_level_group: TcxGridBandedColumn;: TcxGridLevel;: TcxSplitter;_Editing: TcxTabSheet;: TcxPageControl;_Division: TcxTabSheet;_Org_Division: TcxGrid;_Org_Division: TcxGridBandedTableView;_Org_Division_Abbr: TcxGridBandedColumn;_Org_Division_Name: TcxGridBandedColumn;_Org_Division_ID: TcxGridBandedColumn;_Org_Division_Level1: TcxGridLevel;_Institutes: TcxTabSheet;_Institutes: TcxGrid;_institutes: TcxGridBandedTableView;_institutes_Abbr: TcxGridBandedColumn;_institutes_Name: TcxGridBandedColumn;_institutes_ID: TcxGridBandedColumn;: TcxGridLevel;_Kind_Training: TcxTabSheet;_Kind_Training: TcxGrid;_Kind_Training: TcxGridBandedTableView;_Kind_Training_Name: TcxGridBandedColumn;_Kind_Training_IDK_TRAINING: TcxGridBandedColumn;: TcxGridLevel;_K_L_F: TcxTabSheet;_K_L_F: TcxGrid;_klf: TcxGridBandedTableView;_klf_idk_lf: TcxGridBandedColumn;_klf_name: TcxGridBandedColumn;_klf_qualifer: TcxGridBandedColumn;: TcxGridLevel;_SF: TcxTabSheet;_Source_Financing: TcxGrid;_Source_Financing: TcxGridBandedTableView;_Source_Financing_Abbreviation: TcxGridBandedColumn;_Source_Financing_Name: TcxGridBandedColumn;_Source_Financing_Abbr_Div: TcxGridBandedColumn;_Source_Financing_Division: TcxGridBandedColumn;_Source_Financing_Kind_Source: TcxGridBandedColumn;_Source_Financing_Activity: TcxGridBandedColumn;_Source_Financing_Date_Close: TcxGridBandedColumn;_Source_Financing_ID: TcxGridBandedColumn;_Source_Financing_ID_D: TcxGridBandedColumn;_Source_Financing_ID_Kind_Source: TcxGridBandedColumn;_Source_Financing_ID_Activity: TcxGridBandedColumn;: TcxGridLevel;_Add: TcxTabSheet;: TcxPageControl;_Add_Spec: TcxTabSheet;_New_Spec: TPanel;: TcxLabel;_Spec_Name: TcxTextEdit;_Spec_Quality: TcxTextEdit;: TcxLabel;_New_Spec_Div: TcxTabSheet;_New_Spec_Div: TPanel;: TcxLabel;: TcxLabel;: TcxLabel;: TcxLabel;: TcxLabel;_Spec_Div_D_Start: TcxDateEdit;_Spec_Div_D_End: TcxDateEdit;_Spec_Div_Institute: TcxPopupEdit;: TcxLabel;_Spec_Div_Div: TcxPopupEdit;_Spec_Div_Spec: TcxPopupEdit;_Spec_Div_KT: TcxPopupEdit;: TcxLabel;_Spec_Div_SF: TcxPopupEdit;_Ed_Group: TcxTabSheet;_New_Ed_Group: TPanel;: TcxLabel;_New_Ed_Group_Name: TcxTextEdit;: TcxLabel;_New_Ed_Group_D_End: TcxDateEdit;_New_Ed_Group_D_Start: TcxDateEdit;: TcxLabel;_SD_Params: TPanel;: TcxPageControl;: TcxTabSheet;: TcxTabSheet;_Commission: TcxGrid;_Commission: TcxGridBandedTableView;_Commission_Order: TcxGridBandedColumn;_Commission_Kind: TcxGridBandedColumn;_Commission_Start: TcxGridBandedColumn;_Commission_End: TcxGridBandedColumn;_Commission_ID_Paragraph: TcxGridBandedColumn;_Commission_ID_Spec: TcxGridBandedColumn;_Commission_ID_D: TcxGridBandedColumn;_Commission_ID_Order: TcxGridBandedColumn;_Commission_Level5: TcxGridLevel;_New_Sommission: TcxTabSheet;_New_Commission: TPanel;: TcxLabel;: TcxLabel;_New_Commission_End: TcxDateEdit;_New_Commission_Start: TcxDateEdit;: TcxLabel;_New_Commission: TcxButtonEdit;_Commission_IDK_Order: TcxGridBandedColumn;_Commission_Status_Order: TcxGridBandedColumn;_Commission_ID_MT: TcxGridBandedColumn;_Commission_ID_MO: TcxGridBandedColumn;_Commission_ID_ERP: TcxGridBandedColumn;_Commission_User: TcxGridBandedColumn;_New_Commission: TAction;_Insert_New_Commission: TAction;_Commission_ID: TcxGridBandedColumn;_Commission_ID_Kind: TcxGridBandedColumn;_Members: TcxGrid;_Members: TcxGridBandedTableView;_Members_Order: TcxGridBandedColumn;_Members_Kind: TcxGridBandedColumn;_Members_Start: TcxGridBandedColumn;_Members_End: TcxGridBandedColumn;_Members_User: TcxGridBandedColumn;_Members_ID_Paragraph: TcxGridBandedColumn;_Members_ID_Order: TcxGridBandedColumn;_Members_IDK_Order: TcxGridBandedColumn;_Members_Status_Order: TcxGridBandedColumn;_Members_ID_MT: TcxGridBandedColumn;_Members_ID_MO: TcxGridBandedColumn;_Members_ID_ERP: TcxGridBandedColumn;_Members_ID_Commission: TcxGridBandedColumn;_Members_Level1: TcxGridLevel;_Members_Post: TcxGridBandedColumn;_Members_FIO: TcxGridBandedColumn;_Members_ID_Post: TcxGridBandedColumn;_Members_ID_E: TcxGridBandedColumn;: TcxSplitter;_New_Member: TcxTabSheet;_New_Member: TPanel;: TcxLabel;: TcxLabel;_New_Member_End: TcxDateEdit;_New_Member_Start: TcxDateEdit;: TcxLabel;_New_Member: TcxButtonEdit;: TcxLabel;_Post: TcxGrid;_Post: TcxGridBandedTableView;_Post_Name: TcxGridBandedColumn;_Post_ID: TcxGridBandedColumn;_Post_Level1: TcxGridLevel;_New_Member_Post: TcxPopupEdit;_New_Member: TAction;_Members_ID: TcxGridBandedColumn;: TcxLabel;_New_Member_FIO: TcxPopupEdit;_Insert_New_Member: TAction;FormDestroy(Sender: TObject);Action_Insert_Spec_DivExecute(Sender: TObject);Action_Insert_SpecExecute(Sender: TObject);Fill_tv_specExecute(Sender: TObject);PageControl_MainPageChanging(Sender: TObject;: TcxTabSheet; var AllowChange: Boolean);Fill_tv_spec_divExecute(Sender: TObject);Fill_tv_intitutesExecute(Sender: TObject);Fill_tv_kind_trainingExecute(Sender: TObject);Fill_tv_k_l_fExecute(Sender: TObject);Fill_tv_org_divExecute(Sender: TObject);Fill_tv_source_finansingExecute(Sender: TObject);tv_spec_div_institutePropertiesInitPopup(Sender: TObject);tv_spec_div_name_divPropertiesInitPopup(Sender: TObject);tv_spec_div_name_specPropertiesInitPopup(Sender: TObject);tv_spec_div_kind_trainingPropertiesInitPopup(Sender: TObject);tv_spec_div_sourcePropertiesInitPopup(Sender: TObject);PopupEdit_Filter_OrgPropertiesInitPopup(Sender: TObject);cxPopupEditNew_Spec_Div_DivPropertiesInitPopup(Sender: TObject);cxPopupEditNew_Spec_Div_SpecPropertiesInitPopup(Sender: TObject);cxPopupEditNew_Spec_Div_KTPropertiesInitPopup(Sender: TObject);cxPopupEditNew_Spec_Div_SFPropertiesInitPopup(Sender: TObject);Action_Insert_Ed_GroupExecute(Sender: TObject);cxPopupEditNew_Spec_Div_InstitutePropertiesInitPopup(: TObject);tv_SpecSelectionChanged(Sender: TcxCustomGridTableView);tv_SpecEditing(Sender: TcxCustomGridTableView;: TcxCustomGridTableItem; var AAllow: Boolean);tv_spec_divSelectionChanged(Sender: TcxCustomGridTableView);tv_spec_divEditing(Sender: TcxCustomGridTableView;: TcxCustomGridTableItem; var AAllow: Boolean);tv_ed_groupSelectionChanged(Sender: TcxCustomGridTableView);tv_ed_groupEditing(Sender: TcxCustomGridTableView;: TcxCustomGridTableItem; var AAllow: Boolean);FormShow(Sender: TObject);tv_SpecMouseDown(Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);tv_SpecKeyDown(Sender: TObject; var Key: Word;: TShiftState);tv_ed_groupKeyDown(Sender: TObject; var Key: Word;: TShiftState);tv_ed_groupMouseDown(Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);tv_spec_divKeyDown(Sender: TObject; var Key: Word;: TShiftState);tv_spec_divMouseDown(Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);PopupEdit_Filter_OrgPropertiesEditValueChanged(Sender: TObject);Action_New_CommissionExecute(Sender: TObject);cxPageControl3Change(Sender: TObject);Action_Insert_New_CommissionExecute(Sender: TObject);Action_New_MemberExecute(Sender: TObject);Action_Insert_New_MemberExecute(Sender: TObject);

private

{ Private declarations }

{ Доступность редактирования специальностей мет. комплекса, специальностей и организаторов обучения }_Spec: boolean;

{ Доступность редактирования учебных групп, сроков проведения и плана ПК }_Groups: boolean;

{ Объект для работы со списками }_TableView: TSqlData_cxGridTableView;

{ Путь реестра (для загрузки/сохранения параметров) }

Curr_Reg_Path: String;

{ Контейнеры оберток }_Institute_Filter, cW_New_Spec, cW_New_Ed_Group, cW_New_Spec_Div

, cW_New_Commission, cw_New_Member: TContainerWrappers;

{ Форма поиска человека }_Form_SE: TForm_SE;

{ Обработчики событий изменения в контейнерах оберток }

procedure DoChanged_cW_New_Spec(AWrapper: TCustomEditWrapper);DoChanged_cW_New_Spec_Div(AWrapper: TCustomEditWrapper);DoChanged_cW_Intitute_Filter(AWrapper: TCustomEditWrapper);DoChanged_cW_New_Ed_Group(AWrapper: TCustomEditWrapper);Before_Delete_Exchange(Sender: TSqlData_cxGridTableView;: Integer; var ExchangeParameters: OleVariant);

{ Смена записи в tv_spec_div }

procedure OnChoiceGridRecord_tv_spec_div(Sender: TSqlData_cxGridTableView; AGridRecord: TcxGridDataRow);

{ Установка доступности добавления }Allow_Insert(TV: TcxCustomGridTableView; Roles: array of boolean);

{ Установка доступности редактирования таблицы (с документом) }

function Allow_Editing(TV: TcxCustomGridTableView; Status_Column: TcxGridColumn;_ERP_Column: TcxGridColumn; Roles: array of boolean): boolean; overload;

{ Установка доступности редактирования таблицы (без документа) }

function Allow_Editing(TV: TcxCustomGridTableView; Roles: array of boolean): boolean; overload;

{ Установка доступности удаления из таблицы (с документом) }

procedure Allow_Delete(TV: TcxCustomGridTableView; Status_Column: TcxGridColumn;_ERP_Column: TcxGridColumn; Roles: array of boolean); overload;

{ Установка доступности удаления из таблицы (без документа) }

procedure Allow_Delete(TV: TcxCustomGridTableView; Roles: array of boolean); overload;

{ Сохранение/восстановление параметров списков }Save_Restore_Params(RReg_Path: String = Reg_Path; PIs_Load: Boolean = True);

{ Инициализация формы }Init(AReg_Path: String = Reg_Path; AForm_SE: TForm_SE = nil);

{ Обновить роли }Refresh_Roles;

{ Проверка доступности ко всей форме без создания ее самой }

class function IsRoleAccessible: Boolean;;_Dictionaries: TForm_Dictionaries;

{$R *.dfm}SysServices, Get_PK_PPS_Data, standart_new, get_single_data, LP_u_CX_tools;

{ Сохранение/восстановление параметров списков }TForm_Dictionaries.Save_Restore_Params(RReg_Path: String = Reg_Path; PIs_Load: Boolean = True);.StorageName:=RReg_Path+'\Общие параметры';

if PIs_Load

{ Восстановление параметров }begin // 1

{ Восстановим общие параметры }.RestoreFrom;

{ Восстановим значения фильтра по институтам }

if PopupEdit_Filter_Org.Tag <> 0begin // 2_Institute_Filter.Wrappers[PopupEdit_Filter_Org].Value := IntToStr(PopupEdit_Filter_Org.Tag);_Institute_Filter.Wrappers[PopupEdit_Filter_Org].ValueDisplay := PopupEdit_Filter_Org.Text;// 2begin // 3_Institute_Filter.Wrappers[PopupEdit_Filter_Org].Value := '';_Institute_Filter.Wrappers[PopupEdit_Filter_Org].ValueDisplay := '';

end; // 3// 1

{ Сохранение параметров }begin // 4

{ Сохраним значения фильтра по институтам }

if VarToStr(cW_Institute_Filter.Wrappers[PopupEdit_Filter_Org].Value) <> ''begin // 5_Filter_Org.Tag := StrToInt(VarToStr(cW_Institute_Filter.Wrappers[PopupEdit_Filter_Org].Value));_Filter_Org.Text := VarToStr(cW_Institute_Filter.Wrappers[PopupEdit_Filter_Org].ValueDisplay);// 5begin // 6_Filter_Org.Tag := 0;_Filter_Org.Text := '';; // 6

{ Сохраним общие параметры }.StoreTo(True);

end; // 4

{ Сохранение или загрузки параметров списков (в зависимости от параметра PIs_Load) }

Restore_cxGridTableView(tv_spec, PIs_Load, RReg_Path+Grid_Path+Get_SqlData_cxGrid(tv_spec).Table_Name);_cxGridTableView(tv_spec_div, PIs_Load, RReg_Path+Grid_Path+Get_SqlData_cxGrid(tv_spec_div).Table_Name);_cxGridTableView(tv_ed_group, PIs_Load, RReg_Path+Grid_Path+Get_SqlData_cxGrid(tv_ed_group).Table_Name);_cxGridTableView(tv_Org_Division, PIs_Load, RReg_Path+Grid_Path+Get_SqlData_cxGrid(tv_Org_Division).Table_Name);_cxGridTableView(tv_institutes, PIs_Load, RReg_Path+Grid_Path+Get_SqlData_cxGrid(tv_institutes).Table_Name);_cxGridTableView(tv_Kind_Training, PIs_Load, RReg_Path+Grid_Path+Get_SqlData_cxGrid(tv_Kind_Training).Table_Name);_cxGridTableView(tv_klf, PIs_Load, RReg_Path+Grid_Path+Get_SqlData_cxGrid(tv_klf).Table_Name);_cxGridTableView(tv_Source_Financing, PIs_Load, RReg_Path+Grid_Path+Get_SqlData_cxGrid(tv_Source_Financing).Table_Name);_cxGridTableView(TTree_Commission, PIs_Load, RReg_Path+Grid_Path+Get_SqlData_cxGrid(TTree_Commission).Table_Name);

end;

{ Проверка доступности ко всей форме без создания ее самой! }

class function TForm_Dictionaries.IsRoleAccessible: Boolean;:= vnSessionAgent.IsRoleSomehowAccessible('', '', Action_Q_Edit_Spec)vnSessionAgent.IsRoleSomehowAccessible('', '', Action_Q_Edit_Groups)vnSessionAgent.IsDBA;;

{ Проверка прав }TForm_Dictionaries.Refresh_Roles;DBA: boolean;

{ Проверка наличия ролей }:= vnSessionAgent.IsDBA;_Spec := vnSessionAgent.IsRoleSomehowAccessible('', '', Action_Q_Edit_Spec) or DBA;_Groups := vnSessionAgent.IsRoleSomehowAccessible('', '', Action_Q_Edit_Groups) or DBA;PageControl_Main.ActivePageIndex = 1cxPageControl3Change(cxPageControl3);;

{ Установка доступности добавления }TForm_Dictionaries.Allow_Insert(TV: TcxCustomGridTableView; Roles: array of boolean);i: integer;: boolean;_TableView := Get_SqlData_cxGrid(TV);(FSqlData_TableView <> nil) and (Length(Roles) > 0)begin // 1not FSqlData_TableView.IsFirstReadbegin // 2:= False;i := 0 to Length(Roles) - 1Allow := Allow or Roles[i];_TableView.ActionInsert.Enabled := Allow;// 2FSqlData_TableView.ActionInsert.Enabled := False;

end; // 1;

{ Установка доступности редактирования таблицы (с документом) }

function TForm_Dictionaries.Allow_Editing(TV: TcxCustomGridTableView; Status_Column: TcxGridColumn;_ERP_Column: TcxGridColumn; Roles: array of boolean): boolean;status, id_erp: string;: integer;: boolean;_TableView := Get_SqlData_cxGrid(TV);(FSqlData_TableView <> nil) and (Length(Roles) > 0)begin // 1(TV.DataController.FocusedRecordIndex <> -1)begin // 2:= VarToStr(TV.DataController.Values[TV.DataController.FocusedRecordIndex

,Status_Column.Index]);_erp := VarToStr(TV.DataController.Values[TV.DataController.FocusedRecordIndex

,ID_ERP_Column.Index]);:= False;i := 0 to Length(Roles) - 1Allow := Allow or Roles[i];:= (status = '2') and (id_erp = vnSessionAgent.ID_ERP_User) and Allow;// 2Result := False;; // 1

end;

{ Установка доступности редактирования таблицы (без документа) }

function TForm_Dictionaries.Allow_Editing(TV: TcxCustomGridTableView; Roles: array of boolean): boolean;i: integer;: boolean;_TableView := Get_SqlData_cxGrid(TV);(FSqlData_TableView <> nil) and (Length(Roles) > 0)begin // 1:= False;i := 0 to Length(Roles) - 1Allow := Allow or Roles[i];:= (TV.DataController.FocusedRecordIndex <> -1) and Allow;// 1Result := False;;

{ Установка доступности удаления из таблицы (с документом) }

procedure TForm_Dictionaries.Allow_Delete(TV: TcxCustomGridTableView; Status_Column: TcxGridColumn;_ERP_Column: TcxGridColumn; Roles: array of boolean);i: integer;: boolean;_TableView := Get_SqlData_cxGrid(TV);(FSqlData_TableView <> nil) and (Length(Roles) > 0)begin // 1:= False;i := 0 to Length(Roles) - 1Allow := Allow or Roles[i];_TableView.ActionDelete.Enabled := Is_Value(Status_Column, '2', false)Is_Value(ID_ERP_Column, vnSessionAgent.ID_ERP_User, false)(TV.Controller.SelectedRecordCount > 0) and Allow;

end; // 1;

{ Установка доступности удаления из таблицы (без документа) }

procedure TForm_Dictionaries.Allow_Delete(TV: TcxCustomGridTableView; Roles: array of boolean);i: integer;: boolean;_TableView := Get_SqlData_cxGrid(TV);(FSqlData_TableView <> nil) and (Length(Roles) > 0)begin // 1:= False;i := 0 to Length(Roles) - 1Allow := Allow or Roles[i];_TableView.ActionDelete.Enabled := (TV.Controller.SelectedRecordCount > 0)Allow;; // 1;TForm_Dictionaries.Before_Delete_Exchange(Sender: TSqlData_cxGridTableView;: Integer; var ExchangeParameters: OleVariant);Sender.GridTableView = tv_specwith Sender.GridTableView.DataController do:= CreateVarAr([Values[FocusedRecordIndex, tv_Spec_ID.Index]]);;TForm_Dictionaries.tv_ed_groupEditing(Sender: TcxCustomGridTableView;: TcxCustomGridTableItem; var AAllow: Boolean);_Editing(Sender, [REdit_Groups]);;TForm_Dictionaries.tv_ed_groupKeyDown(Sender: TObject; var Key: Word;: TShiftState);Key = VK_INSERTAllow_Insert(tv_ed_group, [REdit_Groups]);;TForm_Dictionaries.tv_ed_groupMouseDown(Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);Button = mbRightAllow_Insert(tv_ed_group, [REdit_Groups]);;TForm_Dictionaries.tv_ed_groupSelectionChanged(: TcxCustomGridTableView);Sender = TTree_Commissionwith TTree_Commission.Controller do_SqlData_cxGrid(TTree_Commission).ActionDelete.Enabled :=

(SelectedRowCount > 0)Get_SqlData_cxGrid(TTree_Commission).ActionInsert.EnabledIs_Value(Tree_Commission_Status_Order, '2', False)(vnSessionAgent.IsDBA or vnSessionAgent.IsRoleAccessible('', '', '902'

, [VarToStr(SelectedRows[0].Values[Tree_Commission_ID_MT.Index])]

, [VarToStr(SelectedRows[0].Values[Tree_Commission_ID_MO.Index])]

, [VarToStr(SelectedRows[0].Values[Tree_Commission_ID_ERP.Index])]))Sender = TTree_Memberswith TTree_Members.Controller do_SqlData_cxGrid(TTree_Members).ActionDelete.Enabled :=

(SelectedRowCount > 0)Get_SqlData_cxGrid(TTree_Members).ActionInsert.EnabledIs_Value(Tree_Members_Start, '2', False)(vnSessionAgent.IsDBA or vnSessionAgent.IsRoleAccessible('', '', '902'

, [VarToStr(SelectedRows[0].Values[Tree_Members_ID_MT.Index])]

, [VarToStr(SelectedRows[0].Values[Tree_Members_ID_MO.Index])]

, [VarToStr(SelectedRows[0].Values[Tree_Members_ID_ERP.Index])]))Allow_Delete(Sender, [REdit_Groups]);;TForm_Dictionaries.tv_SpecEditing(Sender: TcxCustomGridTableView;: TcxCustomGridTableItem; var AAllow: Boolean);_Editing(Sender,[REdit_Spec]);;TForm_Dictionaries.tv_SpecKeyDown(Sender: TObject; var Key: Word;: TShiftState);Key = VK_INSERTAllow_Insert(tv_spec, [REdit_Spec]);;TForm_Dictionaries.tv_SpecMouseDown(Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);Button = mbRightAllow_Insert(tv_spec, [REdit_Spec]);;TForm_Dictionaries.tv_SpecSelectionChanged(Sender: TcxCustomGridTableView);_Delete(Sender, [REdit_Spec]);;TForm_Dictionaries.tv_spec_divEditing(Sender: TcxCustomGridTableView;: TcxCustomGridTableItem; var AAllow: Boolean);_Editing(Sender, [REdit_Spec]);;TForm_Dictionaries.tv_spec_divKeyDown(Sender: TObject; var Key: Word;: TShiftState);Key = VK_INSERTAllow_Insert(tv_spec_div, [REdit_Spec]);;TForm_Dictionaries.tv_spec_divMouseDown(Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);Button = mbRightAllow_Insert(tv_spec_div, [REdit_Spec]);;TForm_Dictionaries.tv_spec_divSelectionChanged(: TcxCustomGridTableView);_Delete(Sender, [REdit_Spec]);;TForm_Dictionaries.tv_spec_div_institutePropertiesInitPopup(Sender: TObject);_tv_intitutesExecute(self);;TForm_Dictionaries.tv_spec_div_kind_trainingPropertiesInitPopup(: TObject);_tv_kind_trainingExecute(self);;TForm_Dictionaries.tv_spec_div_name_divPropertiesInitPopup(Sender: TObject);_tv_org_divExecute(self);;TForm_Dictionaries.tv_spec_div_name_specPropertiesInitPopup(Sender: TObject);_tv_specExecute(self);;TForm_Dictionaries.tv_spec_div_sourcePropertiesInitPopup(Sender: TObject);_tv_source_finansingExecute(self);;

{ Настройка списков }TForm_Dictionaries.Init(AReg_Path: String = Reg_Path; AForm_SE: TForm_SE = nil);_New_Commission_Start.Date := Date;_New_Member_Start.Date := Date;AForm_SE <> nil then_Form_SE := AForm_SE;not assigned(Current_Form_SE) then_Form_SE := TForm_SE.Create(self);_Reg_Path := AReg_Path;

{ Описание для различных оберток }

// *****************************************************************************_Institute_Filter := TContainerWrappers.Create;_Institute_Filter.AddPopupEdit(PopupEdit_Filter_Org, false, false, cxGrid_Institutes,_institutes ,tv_institutes_ID, [tv_institutes_Abbr, tv_institutes_Name], '');_Institute_Filter.OnChangedValueWrapper := DoChanged_cW_Intitute_Filter;;

// *****************************************************************************

// *****************************************************************************_New_Spec := TContainerWrappers.Create;_New_Spec.AddCustomEdit(cxTextEditNew_Spec_Name, true, false, '');_New_Spec.AddCustomEdit(cxTextEditNew_Spec_Quality, false, false, '');_New_Spec.OnChangeWrapper := DoChanged_cW_New_Spec;

// *****************************************************************************

// *****************************************************************************_New_Ed_Group := TContainerWrappers.Create;_New_Ed_Group.AddCustomEdit(cxTextEdit_New_Ed_Group_Name, true, false, '');_New_Ed_Group.AddCustomEdit(cxDateEdit_New_Ed_Group_D_Start, true, false, '');_New_Ed_Group.AddCustomEdit(cxDateEdit_New_Ed_Group_D_End, false, false, '');_New_Ed_Group.OnChangeWrapper := DoChanged_cW_New_Ed_Group;

// *****************************************************************************

// *****************************************************************************_New_Spec_Div := TContainerWrappers.Create;_New_Spec_Div.AddPopupEdit(cxPopupEditNew_Spec_Div_Institute, true, false, cxGrid_Institutes,_institutes, tv_institutes_ID, [tv_institutes_Abbr, tv_institutes_Name], '');_New_Spec_Div.AddPopupEdit(cxPopupEditNew_Spec_Div_Div, true, false, cxGrid_Org_Division,_Org_Division, tv_Org_Division_ID, [tv_Org_Division_Abbr, tv_Org_Division_Name], '');_New_Spec_Div.AddPopupEdit(cxPopupEditNew_Spec_Div_Spec, true, false, cxGrid_Spec,_spec, tv_Spec_ID, [tv_Spec_Name], '');_New_Spec_Div.AddPopupEdit(cxPopupEditNew_Spec_Div_KT, true, false, cxGrid_Kind_Training,_Kind_Training, tv_Kind_Training_IDK_TRAINING, [tv_Kind_Training_Name], '');_New_Spec_Div.AddCustomEdit(cxDateEditNew_Spec_Div_D_Start, true, false, '');_New_Spec_Div.AddCustomEdit(cxDateEditNew_Spec_Div_D_End, false, false, '');_New_Spec_Div.AddPopupEdit(cxPopupEditNew_Spec_Div_SF, false, false, cxGrid_Source_Financing,_Source_Financing, tv_Source_Financing_ID, [tv_Source_Financing_Name], '');_New_Spec_Div.OnChangeWrapper := DoChanged_cW_New_Spec_Div;

// *****************************************************************************

// ---------------------------------------------

// добавление подразделение-организаторов обучения

// ---------------------------------------------Get_SqlData_cxGrid(tv_Org_Division) = nil

then with TSqlData_cxGridTableView.Create(tv_Org_Division)begin_Name := 'Организаторы обучения';:= false;_Select := Get_List_Divisions;:= True;:= CreateVarAr([IDK_Level_Spec]);_Columns.Add(tv_Org_Division_Abbr);_Columns.Add(tv_Org_Division_Name);_Columns.Add(tv_Org_Division_ID);_Columns.Add(tv_Org_Division_ID);_Column := tv_Org_Division_Abbr;.Add(tv_Org_Division_Abbr);.Add(tv_Org_Division_Name);;

// ---------------------------------------------

// добавление институтов

// ---------------------------------------------Get_SqlData_cxGrid(tv_institutes) = nilwith TSqlData_cxGridTableView.Create(tv_institutes)begin:= false;_Name := 'Институты';_Select := Get_List_Institutes;:= True;:= CreateVarAr([IDK_Level_Spec]);_Columns.Add(tv_institutes_Abbr);_Columns.Add(tv_institutes_Name);_Columns.Add(tv_institutes_ID);_Columns.Add(tv_institutes_ID);_Column := tv_institutes_Abbr;.Add(tv_institutes_Abbr);.Add(tv_institutes_Name);;

// ---------------------------------------------

// добавление специальностей

// ---------------------------------------------Get_SqlData_cxGrid(tv_Spec) = nilwith TSqlData_cxGridTableView.Create(tv_Spec)begin:= true;_Name := 'Специальности';_Select := Get_List_Spec_By_Params;_Update := d_P_SPECIALITY;_Delete := Delete_Spec;:= True;_Delete_Exchange := Before_Delete_Exchange;:= CreateVarAr([IDK_Level_Spec,'']);_Columns.Add(tv_Spec_Name, 2);_Columns.Add(tv_Spec_Q, 1);_Columns.Add(tv_Spec_ID, 0);_Columns.Add(tv_Spec_IDK_Level_Spec, 6);_Columns.Add(tv_Spec_id_discipline);_Columns.Add(tv_Spec_idk_discipline);_Columns.Add(tv_Spec_ID, 0);_Column := tv_Spec_Name;.Add(tv_Spec_Name);.OnExecute := Action_Insert_Spec.OnExecute;

end;

// ---------------------------------------------

// добавление организаторов обучения (специальности подразделений)

// ---------------------------------------------Get_SqlData_cxGrid(tv_spec_div) = nilwith TSqlData_cxGridTableView.Create(tv_spec_div)begin:= true;:= false;_Name := 'Специальности подразделений';_Select := Spec_div;_Update := d_P_SPECIALITIES_DIVISION;:= True;:= CreateVarAr([IDK_Level_Spec,'']);_Column := tv_spec_div_institute;:= tv_spec_div_institute;Select_Columnsbegin(tv_spec_div_name_spec,1);(tv_spec_div_name_div,2);(tv_spec_div_kind_training,3);(tv_spec_div_institute,6);(tv_spec_div_source,12);(tv_spec_div_d_start,4);(tv_spec_div_d_end,5);(tv_spec_div_id_spec_div,0);(tv_spec_div_id_spec,1);(tv_spec_div_id_d,2);(tv_spec_div_idk_training,3);(tv_spec_div_id_d_institute,6);(tv_spec_div_id_source,12);(tv_spec_div_idk_level_formation,8);;_Columns.Add(tv_spec_div_id_spec_div,0);_Columns.Add(tv_spec_div_source,12);PopupColumnsList.Add(tv_spec_div_institute)begin:= tv_spec_div_id_d_institute;:= tv_institutes_ID;:= tv_institutes_Name;;PopupColumnsList.Add(tv_spec_div_name_div)begin:= tv_spec_div_id_d;:= tv_Org_Division_ID;:= tv_Org_Division_Name;;PopupColumnsList.Add(tv_spec_div_name_spec)begin:= tv_spec_div_id_spec;:= tv_Spec_ID;:= tv_Spec_Name;;PopupColumnsList.Add(tv_spec_div_kind_training)begin:= tv_spec_div_idk_training;:= tv_Kind_Training_IDK_TRAINING;:= tv_Kind_Training_Name;;PopupColumnsList.Add(tv_spec_div_source)begin:= tv_spec_div_id_source;:= tv_Source_Financing_ID;:= tv_Source_Financing_Name;;Insert_Columnsbegin(tv_spec_div_id_spec,1);(tv_spec_div_id_d,2);(tv_spec_div_idk_training,3);(tv_spec_div_d_start,4);(tv_spec_div_d_end,5);(tv_spec_div_id_d_institute,6);(tv_spec_div_idk_level_formation,8);(tv_spec_div_id_source,12);;.Visible := True;.OnExecute := Action_Insert_Spec_Div.OnExecute;.Add(ActionInsert);.Add(ActionDelete);.Add(nil);.Add(Clear_Columns.ClearActions[tv_spec_div_source]);.Add(nil);.Add(ActionUpdate);:= lmLastChoice;:= OnChoiceGridRecord_tv_spec_div;;

// ---------------------------------------------

//------------------------------------------------------------

//Вид обученияTSqlData_cxGridTableView.Create(tv_Kind_Training)begin:=False;_Name:='Виды обучения';_Select:=Kind_Training;:= True;:=False;Select_Columnsbegin(tv_Kind_Training_IDK_TRAINING);(tv_Kind_Training_Name);;_Columns.Add(tv_Kind_Training_IDK_TRAINING);_Column:=tv_Kind_Training_Name;:=tv_Kind_Training_Name;;

//-----------------------------------------------------------

//------------------------------------------------------------

//Вид уровня образованияTSqlData_cxGridTableView.Create(tv_klf)begin:=False;_Name:='Виды уровня образования';_Select:=K_L_F;:= True;:=False;Select_Columnsbegin(tv_klf_name);(tv_klf_idk_lf);(tv_klf_qualifer);;_Columns.Add(tv_klf_idk_lf);_Column := tv_klf_name;:= tv_klf_name;;

//-----------------------------------------------------------

//-----------------------------------------

//Источник финансированияGet_SqlData_cxGrid(tv_Source_Financing) = nilwith TSqlData_cxGridTableView.Create(tv_Source_Financing)

do begin_Name:='Источники финансирования';

GUID_Select:=S_F;:= True;:= false;:= 1;_Columns.Add(tv_Source_Financing_Abbreviation);_Columns.Add(tv_Source_Financing_Name);_Columns.Add(tv_Source_Financing_Abbr_Div);_Columns.Add(tv_Source_Financing_Division);_Columns.Add(tv_Source_Financing_Kind_Source);_Columns.Add(tv_Source_Financing_Activity);_Columns.Add(tv_Source_Financing_Date_Close);_Columns.Add(tv_Source_Financing_ID);_Columns.Add(tv_Source_Financing_ID_D);_Columns.Add(tv_Source_Financing_ID_Kind_Source);_Columns.Add(tv_Source_Financing_ID_Activity);_Columns.Add(tv_Source_Financing_ID);.Add(ActionUpdate);_Column:=tv_Source_Financing_Abbreviation;:=tv_Source_Financing_Name;;

//------------------------------------------------------------

// ---------------------------------------------

//Учебные группыTSqlData_cxGridTableView.Create(tv_ed_group)begin:=True;_Name:='Учебные группы';:= CreateVarAr(['']);_Select := Ed_Groups;_Update := d_P_EDUCATIONAL_GROUP;:= True;:=False;Select_Columnsbegin(tv_ed_group_name,1);(tv_ed_group_kind_group,8);(tv_ed_group_d_start,4);(tv_ed_group_d_end,5);(tv_ed_group_id_ed_group,0);(tv_ed_group_id_spec_div,2);(tv_ed_group_idk_group,8);(tv_ed_group_level_group,3);;Insert_Columnsbegin(tv_ed_group_name,1);(tv_ed_group_id_spec_div,2);(tv_ed_group_level_group,3);(tv_ed_group_d_start,4);(tv_ed_group_d_end,5);(tv_ed_group_idk_group,8);;_Columns.Add(tv_ed_group_id_ed_group,0);.OnExecute := Action_Insert_Ed_Group.OnExecute;.Add(ActionInsert);.Add(ActionDelete);.Add(nil);.Add(ActionUpdate);_Column := tv_ed_group_name;:= tv_ed_group_name;;

// КомиссииGet_SqlData_cxGrid(TTree_Commission) = nilwith TSqlData_cxGridTableView.Create(TTree_Commission)begin_Name := TTree_Commission.Bands.Items[0].Caption;_Select := Get_List_Commissions_By_ID_D_And_ID_Spec;_Update := d_P_COMMISSION;:= True;:= lmLastChoice;:= OnChoiceGridRecord_tv_spec_div;:= 2;.Add([1, 2]);_Columns.Add(Tree_Commission_Order);_Columns.Add(Tree_Commission_Kind);_Columns.Add(Tree_Commission_User);_Columns.Add(Tree_Commission_Start, 4);_Columns.Add(Tree_Commission_End, 5);_Columns.Add(Tree_Commission_ID_Paragraph, 2);_Columns.Add(Tree_Commission_ID_Order, 2);_Columns.Add(Tree_Commission_IDK_Order, 2);_Columns.Add(Tree_Commission_Status_Order, 2);_Columns.Add(Tree_Commission_ID_ERP, 2);_Columns.Add(Tree_Commission_ID_MT, 2);_Columns.Add(Tree_Commission_ID_MO, 2);_Columns.Add(Tree_Commission_ID_Spec, 8);_Columns.Add(Tree_Commission_ID_D, 9);_Columns.Add(Tree_Commission_ID, 1);_Columns.Add(Tree_Commission_ID_Kind, 3);_Columns.Add(Tree_Commission_ID, 1);_Columns.Add(Tree_Commission_ID_Paragraph, 2);_Columns.Add(Tree_Commission_ID_Spec, 8);_Columns.Add(Tree_Commission_ID_D, 9);_Columns.Add(Tree_Commission_ID_Kind, 3);_Columns.Add(Tree_Commission_Start, 4);_Columns.Add(Tree_Commission_End, 5);.Column_ID_order := Tree_Commission_ID_Order;.Column_ID_paragraph := Tree_Commission_ID_Paragraph;.Column_IDk_order := Tree_Commission_IDK_Order;.Column_ID_erp_user := Tree_Commission_ID_ERP;.Column_Status_Order := Tree_Commission_Status_Order;.Column_User_Name := Tree_Commission_User;.Column_Status_Text := Tree_Commission_Order;.Column_name_Kind_paragraph := Tree_Commission_Kind;.Add(ActionInsert);.Add(ActionDelete);.Add(nil);.Add(OptionsOrder.ActionNavigate);.Add(OptionsOrder.ActionPreview);.Add(nil);.Add(ActionUpdate);_Column := Tree_Commission_Order;:= Tree_Commission_Order;.OnExecute := Action_New_Commission.OnExecute;_New_Commission := TContainerWrappers.Create;_New_Commission.AddButtonOrderEdit(ButtonEdit_New_Commission, True, False, ''

, ['306']

, [OBE_CHOOSE, OBE_NEW, OBE_INNAVIGATE, OBE_PREVIEW]

, [nil, nil, nil, nil]);_New_Commission.AddCustomEdit(DateEdit_New_Commission_Start, true, false, '');_New_Commission.AddCustomEdit(DateEdit_New_Commission_End, false, false, '');_New_Commission.ActionEnter := Action_Insert_New_Commission;;

// Должности в комиссияхGet_SqlData_cxGrid(TTree_Post) = nilwith TSqlData_cxGridTableView.Create(TTree_Post)begin_Name := TTree_Post.Bands.Items[0].Caption;_Select := Get_Posts_For_Members;:= True;:= false;_Columns.Add(Tree_Post_Name);_Columns.Add(Tree_Post_ID);_Columns.Add(Tree_Post_ID);.Add(ActionUpdate);_Column := Tree_Post_Name;:= Tree_Post_Name;;

// Члены КомиссииGet_SqlData_cxGrid(TTree_Members) = nilwith TSqlData_cxGridTableView.Create(TTree_Members)begin_Name := TTree_Members.Bands.Items[0].Caption;_Select := Get_Members_Commission_By_ID;_Update := d_P_COMMISSION_MEMBERS;:= True;:= 1;.Add([1]);_Columns.Add(Tree_Members_Order);_Columns.Add(Tree_Members_Kind);_Columns.Add(Tree_Members_Post, 7);_Columns.Add(Tree_Members_FIO, 1);_Columns.Add(Tree_Members_User, 3);_Columns.Add(Tree_Members_Start, 4);_Columns.Add(Tree_Members_End, 6);_Columns.Add(Tree_Members_ID_Paragraph, 3);_Columns.Add(Tree_Members_ID_Order, 3);_Columns.Add(Tree_Members_IDK_Order, 3);_Columns.Add(Tree_Members_Status_Order, 3);_Columns.Add(Tree_Members_ID_ERP, 3);_Columns.Add(Tree_Members_ID_MT, 3);_Columns.Add(Tree_Members_ID_MO, 3);_Columns.Add(Tree_Members_ID_Post, 7);_Columns.Add(Tree_Members_ID_Commission, 2);_Columns.Add(Tree_Members_ID_E, 1);_Columns.Add(Tree_Members_ID, 0);_Columns.Add(Tree_Members_ID, 0);_Columns.Add(Tree_Members_ID_Paragraph, 3);_Columns.Add(Tree_Members_ID_Commission, 2);_Columns.Add(Tree_Members_ID_Post, 7);_Columns.Add(Tree_Members_ID_E, 1);_Columns.Add(Tree_Members_Start, 4);_Columns.Add(Tree_Members_End, 6);.Column_ID_order := Tree_Members_ID_Order;.Column_ID_paragraph := Tree_Members_ID_Paragraph;.Column_IDk_order := Tree_Members_IDK_Order;.Column_ID_erp_user := Tree_Members_ID_ERP;.Column_Status_Order := Tree_Members_Status_Order;.Column_User_Name := Tree_Members_User;.Column_Status_Text := Tree_Members_Order;.Column_name_Kind_paragraph := Tree_Members_Kind;.Add(ActionInsert);.Add(ActionDelete);.Add(nil);.Add(OptionsOrder.ActionNavigate);.Add(OptionsOrder.ActionPreview);.Add(nil);.Add(ActionUpdate);PopupColumnsList.Add(Tree_Members_Post) do:= Tree_Members_ID_Post;:= Tree_Post_ID;:= Tree_Post_Name;;PopupColumnsList.Add(Tree_Members_FIO) do:= Tree_Members_ID_E;:= Current_Form_SE.cxGrid_FIO_ID_E;:= Current_Form_SE.cxGrid_FIO_Full;;_Column := Tree_Members_Post;.OnExecute := Action_New_Member.OnExecute;(Tree_Members_FIO.Properties).PopupControl :=_Form_SE;_New_Member_FIO.Properties.PopupControl := Current_Form_SE;_New_Member := TContainerWrappers.Create;_New_Member.AddButtonOrderEdit(ButtonEdit_New_Member, True, False, ''

, ['306']

, [OBE_CHOOSE, OBE_NEW, OBE_INNAVIGATE, OBE_PREVIEW]

, [nil, nil, nil, nil]);_New_Member.AddPopupEdit(PopupEdit_New_Member_FIO, True, False

, Current_Form_SE.cxGrid1, Current_Form_SE.cxGrid_FIO

, Current_Form_SE.cxGrid_FIO_ID_E, [Current_Form_SE.cxGrid_FIO_Full], '');_New_Member.AddPopupEdit(PopupEdit_New_Member_Post, True, False

, nil, nil, Tree_Post_ID, [Tree_Post_Name], '');_New_Member.AddCustomEdit(DateEdit_New_Member_Start, true, false, '');_New_Member.AddCustomEdit(DateEdit_New_Member_End, false, false, '');_New_Member.ActionEnter := Action_Insert_New_Member;;

//-----------------------------------------------------------

{ Cкрываем ненужные страницы }_Editing.TabVisible := False;_Add.TabVisible := False;

{ Прочитаем параметры из реестра }_Restore_Params(Curr_Reg_Path, True);;TForm_Dictionaries.Action_Insert_Ed_GroupExecute(Sender: TObject);

//const Name = 'Учебные группы';: TSForm;// 1:= CreateSForm(self, 'fNew_Ed_Group'

, cxTabSheet_Ed_Group.Caption

, Add_Path + cxTabSheet_Ed_Group.Caption, Panel_New_Ed_Group, tdb_Apply);VarToStr(cW_New_Ed_Group.Wrappers[cxDateEdit_New_Ed_Group_D_Start].Value) = ''cW_New_Ed_Group.Wrappers[cxDateEdit_New_Ed_Group_D_Start].Value :=(Date);_New_Ed_Group.OnChangeWrapper(nil);.Position := poScreenCenter;mf.ShowModal = mrOkbegin // 2_TableView := Get_SqlData_cxGrid(tv_ed_group);FSqlData_TableView <> nilbegin // 3_TableView.Insert_New(([_New_Ed_Group.Wrappers[cxTextEdit_New_Ed_Group_Name].Value

,tv_spec_div.DataController.Values[tv_spec_div.DataController.FocusedRecordIndex

,tv_spec_div_id_spec_div.Index]

,'1'

,cW_New_Ed_Group.Wrappers[cxDateEdit_New_Ed_Group_D_Start].Value

,cW_New_Ed_Group.Wrappers[cxDateEdit_New_Ed_Group_D_End].Value

,'5'

])); // 3; // 2// 1assigned(mf)FreeAndNil(mf);; // 1;

{ Добавить новую комиссию}TForm_Dictionaries.Action_Insert_New_CommissionExecute(: TObject);_New_Commission.ChangesAcceptWrappers;cW_New_Commission, Get_SqlData_cxGrid(TTree_Commission) doInsert_New(CreateVarAr([VarToStr(Wrappers[ButtonEdit_New_Commission].Value)

, VarToStr(Parameters[2])

, VarToStr(Parameters[1])

, '3'

, VarToStr(Wrappers[DateEdit_New_Commission_Start].Value)

, VarToStr(Wrappers[DateEdit_New_Commission_End].Value)]))(Panel_New_Commission).ModalResult := mrok;(cW_New_Commission.Wrappers[ButtonEdit_New_Commission]).IsEmpty := False;

Read_Data;;;

{ Добавить члена комиссии}

procedure TForm_Dictionaries.Action_Insert_New_MemberExecute(Sender: TObject);_New_Member.ChangesAcceptWrappers;cw_New_Member, Get_SqlData_cxGrid(TTree_Members) doInsert_New(CreateVarAr([VarToStr(Wrappers[ButtonEdit_New_Member].Value)

, VarToStr(Parameters[1])

, VarToStr(Wrappers[PopupEdit_New_Member_Post].Value)

, VarToStr(Wrappers[PopupEdit_New_Member_FIO].Value)

, VarToStr(Wrappers[DateEdit_New_Member_Start].Value)

, VarToStr(Wrappers[DateEdit_New_Member_End].Value)]))(Panel_New_Member).ModalResult := mrok;(cw_New_Member.Wrappers[ButtonEdit_New_Member]).IsEmpty := False;_Data;;;TForm_Dictionaries.Action_Insert_SpecExecute(Sender: TObject);

//const Name = 'Программа обучения';: TSForm;// 1:= CreateSForm(self, 'fNew_Spec', cxTabSheet_Add_Spec.Caption

, Add_Path + cxTabSheet_Add_Spec.Caption, Panel_New_Spec, tdb_Apply);_New_Spec.OnChangeWrapper(nil);.Position := poScreenCenter;mf.ShowModal = mrOkbegin // 2_TableView := Get_SqlData_cxGrid(tv_Spec);FSqlData_TableView <> nilbegin // 3MSystemServices.ExchangeData(Add_Spec,([cW_New_Spec.Wrappers[cxTextEditNew_Spec_Name].Value

,cW_New_Spec.Wrappers[cxTextEditNew_Spec_Quality].Value

,IDK_Level_Spec

,IDK_Discipline

])

,'Добавление программы обучения.')begin // 4_TableView.Read_Data;(tv_spec,[tv_Spec_Name,tv_Spec_Q]

,VarArrayOf([cW_New_Spec.Wrappers[cxTextEditNew_Spec_Name].Value

,cW_New_Spec.Wrappers[cxTextEditNew_Spec_Quality].Value])

,true);; // 4; // 3; // 2// 1assigned(mf)FreeAndNil(mf);; // 1;TForm_Dictionaries.Action_Insert_Spec_DivExecute(Sender: TObject);

//const Name = 'Организаторы обучения';: TSForm;// 1:= CreateSForm(self, 'fNew_Spec_Div'

, cxTabSheet_New_Spec_Div.Caption

, Add_Path + cxTabSheet_New_Spec_Div.Caption, Panel_New_Spec_Div, tdb_Apply);VarToStr(cW_New_Spec_Div.Wrappers[cxDateEditNew_Spec_Div_D_Start].Value) = ''cW_New_Spec_Div.Wrappers[cxDateEditNew_Spec_Div_D_Start].Value := DateToStr(Date);_New_Spec_Div.OnChangeWrapper(nil);.Position := poScreenCenter;mf.ShowModal = mrOkbegin // 2_TableView := Get_SqlData_cxGrid(tv_spec_div);FSqlData_TableView <> nilbegin // 3_TableView.Insert_New(([_New_Spec_Div.Wrappers[cxPopupEditNew_Spec_Div_Spec].Value

,cW_New_Spec_Div.Wrappers[cxPopupEditNew_Spec_Div_Div].Value

,cW_New_Spec_Div.Wrappers[cxPopupEditNew_Spec_Div_KT].Value

,cW_New_Spec_Div.Wrappers[cxDateEditNew_Spec_Div_D_Start].Value

,cW_New_Spec_Div.Wrappers[cxDateEditNew_Spec_Div_D_End].Value

,cW_New_Spec_Div.Wrappers[cxPopupEditNew_Spec_Div_Institute].Value

,IDK_Level_Formation

,cW_New_Spec_Div.Wrappers[cxPopupEditNew_Spec_Div_SF].Value

])); // 3; // 2// 1assigned(mf)FreeAndNil(mf);; // 1;

{ Добавление новой комиссии}TForm_Dictionaries.Action_New_CommissionExecute(Sender: TObject);new_form: TSForm;// 1_form := CreateSForm(self, 'fNew_Commission'

, cxTabSheet_New_Sommission.Caption

, Add_Path + cxTabSheet_New_Sommission.Caption, Panel_New_Commission, tdb_Apply);_form.Position := poScreenCenter;_form.PanelButtons.auto_cxOkButton.Action := cW_New_Commission.ActionEnter;_form.ShowModal;// 1assigned(new_form)FreeAndNil(new_form);; // 1;

{ Добавление члена комиссии}TForm_Dictionaries.Action_New_MemberExecute(Sender: TObject);new_form: TSForm;// 1_form := CreateSForm(self, 'fNew_Member'

, cxTabSheet_New_Member.Caption

, Add_Path + cxTabSheet_New_Member.Caption, Panel_New_Member, tdb_Apply);_form.Position := poScreenCenter;_form.PanelButtons.auto_cxOkButton.Action := cw_New_Member.ActionEnter;_form.ShowModal;// 1assigned(new_form)FreeAndNil(new_form);; // 1;

{ Обновим нужные данные}TForm_Dictionaries.cxPageControl3Change(Sender: TObject);Get_SqlData_cxGrid(tv_ed_group) <> nilSender = cxPageControl3cxPageControl3.ActivePageIndex = 0Get_SqlData_cxGrid(tv_ed_group).Read_Data_FirstGet_SqlData_cxGrid(TTree_Commission).Read_Data_First;;TForm_Dictionaries.cxPopupEditNew_Spec_Div_DivPropertiesInitPopup(: TObject);_tv_org_divExecute(self);;TForm_Dictionaries.cxPopupEditNew_Spec_Div_InstitutePropertiesInitPopup(: TObject);_tv_intitutesExecute(self);;TForm_Dictionaries.cxPopupEditNew_Spec_Div_KTPropertiesInitPopup(: TObject);_tv_kind_trainingExecute(self);;TForm_Dictionaries.cxPopupEditNew_Spec_Div_SFPropertiesInitPopup(: TObject);_tv_source_finansingExecute(self);;TForm_Dictionaries.cxPopupEditNew_Spec_Div_SpecPropertiesInitPopup(: TObject);_tv_specExecute(self);;TForm_Dictionaries.Fill_tv_intitutesExecute(Sender: TObject);_TableView := Get_SqlData_cxGrid(tv_institutes);(FSqlData_TableView <> nil) and FSqlData_TableView.IsFirstReadFSqlData_TableView.Read_Data_First;;TForm_Dictionaries.Fill_tv_kind_trainingExecute(Sender: TObject);_TableView := Get_SqlData_cxGrid(tv_Kind_Training);(FSqlData_TableView <> nil) and FSqlData_TableView.IsFirstReadFSqlData_TableView.Read_Data_First;;TForm_Dictionaries.Fill_tv_k_l_fExecute(Sender: TObject);_TableView := Get_SqlData_cxGrid(tv_klf);(FSqlData_TableView <> nil) and FSqlData_TableView.IsFirstReadFSqlData_TableView.Read_Data_First;;TForm_Dictionaries.Fill_tv_org_divExecute(Sender: TObject);_TableView := Get_SqlData_cxGrid(tv_Org_Division);(FSqlData_TableView <> nil) and FSqlData_TableView.IsFirstReadFSqlData_TableView.Read_Data_First;;TForm_Dictionaries.Fill_tv_source_finansingExecute(Sender: TObject);_TableView := Get_SqlData_cxGrid(tv_Source_Financing);(FSqlData_TableView <> nil) and FSqlData_TableView.IsFirstReadFSqlData_TableView.Read_Data_First;;TForm_Dictionaries.Fill_tv_specExecute(Sender: TObject);Param1: string;_TableView := Get_SqlData_cxGrid(tv_Spec);(FSqlData_TableView <> nil)begin // 1:= VarToStr(cW_Institute_Filter.Wrappers[PopupEdit_Filter_Org].Value);VarToStr(FSqlData_TableView.Params[1]) <> Param1begin // 2_TableView.Params[1] := Param1;_TableView.Read_Data;// 2FSqlData_TableView.IsFirstReadFSqlData_TableView.Read_Data_First;; // 1;TForm_Dictionaries.Fill_tv_spec_divExecute(Sender: TObject);Param1: string;_TableView := Get_SqlData_cxGrid(tv_spec_div);(FSqlData_TableView <> nil)begin // 1:= VarToStr(cW_Institute_Filter.Wrappers[PopupEdit_Filter_Org].Value);VarToStr(FSqlData_TableView.Params[1]) <> Param1begin // 2_TableView.Params[1] := Param1;_TableView.Read_Data;// 2FSqlData_TableView.IsFirstReadFSqlData_TableView.Read_Data_First;; // 1;TForm_Dictionaries.FormDestroy(Sender: TObject);

begin

{ Сохраним параметры в реестр }

Save_Restore_Params(Curr_Reg_Path, False);;TForm_Dictionaries.FormShow(Sender: TObject);

{ Перечитываем списки }PageControl_Main.ActivePage = cxTabSheet_SpecFill_tv_specExecute(self);PageControl_Main.ActivePage = cxTabSheet_OrgFill_tv_spec_divExecute(self);;

{ Изменили фильтр!}TForm_Dictionaries.PageControl_MainPageChanging(Sender: TObject;: TcxTabSheet; var AllowChange: Boolean);NewPage = cxTabSheet_SpecFill_tv_specExecute(self);NewPage = cxTabSheet_OrgFill_tv_spec_divExecute(self);;

{ Подразделение}TForm_Dictionaries.PopupEdit_Filter_OrgPropertiesEditValueChanged(: TObject);cW_Institute_Filter.Wrappers[PopupEdit_Filter_Org] <> nil thenGet_SqlData_cxGrid(tv_Source_Financing).Parameters[1]

<> VarToStr(cW_Institute_Filter.Wrappers[PopupEdit_Filter_Org].Value)_SqlData_cxGrid(tv_Source_Financing).Parameters[1] :=(cW_Institute_Filter.Wrappers[PopupEdit_Filter_Org].Value);_SqlData_cxGrid(tv_Source_Financing).IsFirstRead := True;;;TForm_Dictionaries.PopupEdit_Filter_OrgPropertiesInitPopup(Sender: TObject);_tv_intitutesExecute(self);;TForm_Dictionaries.DoChanged_cW_New_Spec(AWrapper: TCustomEditWrapper);_OkButton(Panel_New_Spec, cW_New_Spec.IsNotEmptyMandatory);;TForm_Dictionaries.DoChanged_cW_New_Spec_Div(AWrapper: TCustomEditWrapper);_OkButton(Panel_New_Spec_Div, cW_New_Spec_Div.IsNotEmptyMandatory);;TForm_Dictionaries.DoChanged_cW_New_Ed_Group(AWrapper: TCustomEditWrapper);_OkButton(Panel_New_Ed_Group, cW_New_Ed_Group.IsNotEmptyMandatory);;TForm_Dictionaries.DoChanged_cW_Intitute_Filter(AWrapper: TCustomEditWrapper);PageControl_Main.ActivePage = cxTabSheet_SpecFill_tv_specExecute(self);PageControl_Main.ActivePage = cxTabSheet_OrgFill_tv_spec_divExecute(self);

end;

{ Выбрали новую специальность подразделения}

procedure TForm_Dictionaries.OnChoiceGridRecord_tv_spec_div(Sender: TSqlData_cxGridTableView; AGridRecord: TcxGridDataRow);_TableView := Get_SqlData_cxGrid(tv_ed_group);(FSqlData_TableView <> nil) and (Sender <> nil)Sender.GridTableView = tv_spec_divSender, GridTableView.DataController do(LastChoiceIndex >= 0)(LastChoiceIndex < GridTableView.DataController.RecordCount)// 1_TableView.Params[0] :=(Values[Sender.LastChoiceIndex, tv_spec_div_id_spec_div.Index]);_TableView.IsFirstRead := True;_TableView.ActionInsert.Enabled := Sender.ActionDelete.Enabled;_SqlData_cxGrid(TTree_Commission).ActionInsert.Enabled := Sender.ActionDelete.Enabled;_SqlData_cxGrid(TTree_Commission).Parameters[1] :=(Values[Sender.LastChoiceIndex, tv_spec_div_id_d_institute.Index]);Get_SqlData_cxGrid(TTree_Commission).Parameters[2] <>(Values[Sender.LastChoiceIndex, tv_spec_div_id_spec.Index])_SqlData_cxGrid(TTree_Commission).Parameters[2] :=(Values[Sender.LastChoiceIndex, tv_spec_div_id_spec.Index]);_SqlData_cxGrid(TTree_Commission).IsFirstRead := True;;// 1_TableView.Params[0] := '';_TableView.ClearData;_TableView.ActionInsert.Enabled := False;_SqlData_cxGrid(TTree_Commission).Parameters[1] := '';_SqlData_cxGrid(TTree_Commission).Parameters[2] := '';_SqlData_cxGrid(TTree_Commission).ClearData;_SqlData_cxGrid(TTree_Commission).ActionInsert.Enabled := False;;Change(cxPageControl3);Sender.GridTableView = TTree_CommissionSender.GridTableView.DataController do(Sender.LastChoiceIndex >= 0)(Sender.LastChoiceIndex < RecordCount)_SqlData_cxGrid(TTree_Members).ActionInsert.Enabled := Sender.ActionDelete.Enabled;Get_SqlData_cxGrid(TTree_Members).Parameters[1] <>(Values[Sender.LastChoiceIndex, Tree_Commission_ID.Index])_SqlData_cxGrid(TTree_Members).Parameters[1] :=(Values[Sender.LastChoiceIndex, Tree_Commission_ID.Index]);_SqlData_cxGrid(TTree_Members).Read_Data;Get_SqlData_cxGrid(TTree_Members).Read_Data_First_SqlData_cxGrid(TTree_Members).Parameters[1] := '';_SqlData_cxGrid(TTree_Members).ClearData;_SqlData_cxGrid(TTree_Members).ActionInsert.Enabled := False;;;;.Plan, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ExtCtrls, cxPC, cxControls, cxSplitter, cxStyles, cxCustomData,, cxFilter, cxData, cxDataStorage, cxEdit, cxGridLevel,, cxGridTableView, cxGridBandedTableView,, cxGrid, cxEditRepositoryItems, cxClasses, cxTL,, cxPropertiesStore, cxTextEdit, cxMaskEdit, cxDropDownEdit,,wrappers, ActnList, cxLookAndFeels, cxLookAndFeelPainters, cxSpinEdit,, GridEditClass,cxButtonEdit, cxTimeEdit;

{ Роль на редактирование специальностей мет. комплекса, специальностей,

организаторов обучения }_Q_Edit_Spec = '1401';

{ Роль на редактирование учебных групп, сроков проведения и плана ПК }

Action_Q_Edit_Groups = '1402';

{ Вид уровня специальности "Повышение квалификации" }_Level_Spec = '70';

{ Вид дисциплины "Повышение квалификации }_Discipline = '59454';

{ Вид уровня образования "Повышение квалификации" }_Level_Formation = '70508';

{ Путь для сохранения в реестре }_Path = '\Software\AS Pilot group\Parameters\Модуль повышения квалификации\Планирование';

{ Путь для сохранения списков }_Path = '\Параметры списков\';

{ Путь для добавления }_Path= 'Модуль повышения квалификации\Планирование\Добавление\';

type_Plan = class(TForm)_Main: TPanel;_Main: TcxPageControl;: TcxEditStyleController;: TcxStyleRepository;_Group: TcxStyle;_s_ContentEVEN: TcxStyle;_Filter_Box: TcxStyle;_Footer: TcxStyle;_Inactive: TcxStyle;_Indicator: TcxStyle;_Preview: TcxStyle;_Selection: TcxStyle;_ContentOdd: TcxStyle;_Content_TEXT: TcxStyle;_Content_POPUP: TcxStyle;_Content_DATE: TcxStyle;_Content_QUALIFIER: TcxStyle;_Footer_Column: TcxStyle;_Content_ID: TcxStyle;_Content_Memo: TcxStyle;_Content_Project: TcxStyle;_Content_Cancel: TcxStyle;_Content_ProjectSend: TcxStyle;_Content_Owner: TcxStyle;_Content_NotOwner: TcxStyle;_Content_Hot_Track: TcxStyle;_Inc_Search: TcxStyle;_Group_By_Box: TcxStyle;_Header: TcxStyle;_Style_1: TcxTreeListStyleSheet;_Style_1: TcxGridBandedTableViewStyleSheet;: TcxEditRepository;_Date_None_Blank: TcxEditRepositoryDateItem;_Date_With_Blank: TcxEditRepositoryDateItem;_Spin_ID: TcxEditRepositorySpinItem;_Text_RO: TcxEditRepositoryTextItem;_Memo_RO: TcxEditRepositoryMemoItem;_Date_RO: TcxEditRepositoryDateItem;: TcxPropertiesStore;_Filter: TPanel;: TcxLabel;_Filter_Org: TcxPopupEdit;_Text: TcxEditRepositoryTextItem;: TActionList;_Editing: TcxTabSheet;: TcxPageControl;_Institutes: TcxTabSheet;_Institutes: TcxGrid;_institutes: TcxGridBandedTableView;_institutes_Abbr: TcxGridBandedColumn;_institutes_Name: TcxGridBandedColumn;_institutes_ID: TcxGridBandedColumn;: TcxGridLevel;_Add: TcxTabSheet;: TcxPageControl;_tv_intitutes: TAction;_Com_Spec: TcxGrid;_com_spec: TcxGridBandedTableView;_com_spec_name_spec: TcxGridBandedColumn;_com_spec_name_div: TcxGridBandedColumn;_com_spec_kind_training: TcxGridBandedColumn;_com_spec_id_spec_div: TcxGridBandedColumn;_com_spec_id_spec: TcxGridBandedColumn;_com_spec_id_d_spec_div: TcxGridBandedColumn;_com_spec_idk_training: TcxGridBandedColumn;: TcxGridLevel;_com_spec_id_p_dp: TcxGridBandedColumn;_com_spec_id_order: TcxGridBandedColumn;_com_spec_idk_order: TcxGridBandedColumn;_com_spec_status_text: TcxGridBandedColumn;_com_spec_status_order: TcxGridBandedColumn;_com_spec_id_met_complex: TcxGridBandedColumn;_tv_com_spec: TAction;_Insert_Com_Spec: TAction;_New_Com_Spec: TcxTabSheet;_New_Com_Spec: TPanel;: TcxLabel;: TcxLabel;: TcxLabel;: TcxLabel;_New_Com_Spec: TcxPopupEdit;: TcxLabel;_New_Com_Spec_Kind_Training: TcxPopupEdit;_New_Com_Spec_Div: TcxPopupEdit;_New_Com_Spec_Paragraph: TcxButtonEdit;_New_Com_Spec_Hours: TcxSpinEdit;_com_spec_hours: TcxGridBandedColumn;_com_spec_id_e_l_umk: TcxGridBandedColumn;_Spec_Div: TcxTabSheet;_Spec_Div_Popup: TcxGrid;_spec_div_popup: TcxGridBandedTableView;_spec_div_popup_name_spec: TcxGridBandedColumn;_spec_div_popup_name_div: TcxGridBandedColumn;_spec_div_popup_kind_training: TcxGridBandedColumn;_spec_div_popup_institute: TcxGridBandedColumn;_spec_div_popup_source: TcxGridBandedColumn;_spec_div_popup_d_start: TcxGridBandedColumn;_spec_div_popup_d_end: TcxGridBandedColumn;_spec_div_popup_id_spec_div: TcxGridBandedColumn;_spec_div_popup_id_spec: TcxGridBandedColumn;_spec_div_popup_id_d: TcxGridBandedColumn;_spec_div_popup_idk_training: TcxGridBandedColumn;_spec_div_popup_id_d_institute: TcxGridBandedColumn;_spec_div_popup_id_source: TcxGridBandedColumn;_spec_div_popup_idk_level_formation: TcxGridBandedColumn;: TcxGridLevel;_tv_spec_div: TAction;_com_spec_id_erp_user: TcxGridBandedColumn;: TcxLabel;_New_Com_Spec_Hours_SR: TcxSpinEdit;FormDestroy(Sender: TObject);Fill_tv_intitutesExecute(Sender: TObject);Fill_tv_com_specExecute(Sender: TObject);Action_Insert_Com_SpecExecute(Sender: TObject);tv_com_specEditing(Sender: TcxCustomGridTableView;: TcxCustomGridTableItem; var AAllow: Boolean);tv_com_specSelectionChanged(Sender: TcxCustomGridTableView);FormShow(Sender: TObject);tv_com_specKeyDown(Sender: TObject; var Key: Word;: TShiftState);tv_com_specMouseDown(Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);Fill_tv_spec_divExecute(Sender: TObject);PopupEdit_Filter_OrgPropertiesInitPopup(Sender: TObject);cxPopupEdit_New_Com_SpecPropertiesInitPopup(Sender: TObject);

private

{ Private declarations }

{ Доступность редактирования учебных групп, сроков проведения и плана ПК }_Groups: boolean;

{ Объект для работы со списками }_TableView: TSqlData_cxGridTableView;

{ Путь реестра (для загрузки/сохранения параметров) }

Curr_Reg_Path: String;

{ Контейнеры оберток }_Institute_Filter: TContainerWrappers;_New_Com_Spec: TContainerWrappers;

{ Обработчики событий изменения в контейнерах оберток }

procedure DoChanged_cW_Intitute_Filter(AWrapper: TCustomEditWrapper);DoChanged_cW_New_Com_Spec(AWrapper: TCustomEditWrapper);Before_Delete_Exchange(Sender: TSqlData_cxGridTableView;: Integer; var ExchangeParameters: OleVariant);

{ Действие перед изменением данных в tv_com_spec }

procedure Before_Update_Exchange(Sender: TSqlData_cxGridTableView;: Variant; AItem: TcxCustomGridTableItem; ARecordIndex: Integer;ExchangeParameters: OleVariant; var Allow: Boolean);