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

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

5.2.2 Классификация условий труда

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

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

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

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

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

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

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

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

4 степень 3 класса (3.4.) - условия труда, при которых могут возникать тяжелые формы профессиональных заболеваний (с потерей общей трудоспособности), отмечается значительный рост числа хронических заболеваний и высокие уровни заболеваемости с временной утратой трудоспособности.

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

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

Таблица оценки условий труда работника по степени вредности и опасности

Фактор	Класс условий труда
	Оптимальный	Допус-тимый	Вредный	Опас-ный
	1	2	3.1	3.2	3.3	3.4	4
Шум		+
Неионизирующие излучения			+
Ионизирующие излучения		+
Микроклимат		+
Освещение		+
Тяжесть труда			+
Напряженность труда			+
Общая оценка условий труда	0	4	3	0

Оценка условий труда разработчика приложения в рамках АСУ МИИТа по степени вредности и опасности соответствует классу 3.1 (по наиболее высокому классу и степени вредности).

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

5.3 Оценка уровней действующих факторов и класса напряженности труда, выявление из них - наиболее опасных

5.3.1 Оценка напряженности трудового процесса

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

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

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

Таблица 5.2.

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

Показатели	Класс условий труда
	1	2	3.1	3.2	3.3
1. Интеллектуальные нагрузи
1.1 Содержание работы			+
1.2 Восприятие сигналов (информации) и их оценка			+
2. Сенсорные нагрузки
2.1 Длительность сосредоточенного наблюдения (в % от времени смены)			+
2.2 Размер объекта различения (при расстоянии от глаз работающего до объекта различения не более 0,5 м) в мм при длительности сосредоточенного наблюдения (% времени смены)		+
2.3 Наблюдение за экранами видеотерминалов (часов в смену): - при буквенно-цифровом типе отображения информации - при графическом типе отображения информации			+
3. Эмоциональные нагрузки
3.1 Степень ответственности за результат собственной деятельности. Значимость ошибки			+
4. Монотонность нагрузок
4.1Число элементов (приемов), необходимых для реализации простого задания или в многократно повто-ряю-щихся операциях		+
4.2 Время активных действий (в % к продолжительности смены). В остальное время - наблюдение за ходом производственного процесса.			+
5. Режим работы
Фактическая продолжительность рабочего дня		+
5.2 Наличие регламентированных перерывов и их продолжительность		+
Количество показателей в каждом классе	0	4	7	0
Общая оценка напряжен ности труда			+

Из проведенного анализа видно, 7 показателей отнесены к классу 3.1, поэтому общая оценка напряженности труда разработчика системы отчетности соответствует классу 3.1.

5.3.2 Оценка тяжести трудового процесса

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

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

· физическая динамическая нагрузка;

· масса поднимаемого и перемещаемого груза вручную;

· стереотипные рабочие движения;

· статическая нагрузка;

· рабочая поза;

· наклоны корпуса;

· перемещение в пространстве.

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

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

Таблица 5.3.

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

№	Показатели	Фактические значения	Класс
1	Стереотипные рабочие движения (кол-во)
1.1	Локальная нагрузка		2
1.2	Региональная нагрузка
2.	Рабочая поза		3.1
3.	Наклоны корпуса (количество за смену)		2
Окончательная оценка тяжести труда	3.1

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

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

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

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

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

1. Рабочие места с ПК по отношению к световым проемам должны располагаться так, чтобы естественный свет падал сбоку, преимущественно слева;

2. Размещение рабочих мест с ПК должны учитывать расстояния между рабочими столами с видеомониторами (в направлении тыла поверхности одного видеомонитора и экрана другого видеомонитора), которое должно быть не менее 2,0 м, а расстояние между боковыми поверхностями видеомониторов - не менее 1,2 м.

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

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

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

6. В помещениях с ПК ежедневно должна проводиться влажная уборка.

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

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

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

10. Тип рабочего стула (кресла) должен выбираться в зависимости от характера и продолжительности работы с ПК с учетом роста пользователя.

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

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

13. Экран видеомонитора должен находиться от глаз пользователя на оптимальном расстоянии 600 - 700 мм, но не ближе 500 мм с учетом размеров алфавитно-цифровых знаков и символов.

14. Высота рабочей поверхности стола для взрослых пользователей должна регулироваться в пределах 680 - 800 мм; при отсутствии такой возможности высота рабочей поверхности стола должна составлять 725 мм.

15. Рабочий стол должен иметь пространство для ног высотой не менее 600 мм, шириной - не менее 500 мм, глубиной на уровне колен - не менее 450 мм и на уровне вытянутых ног - не менее 650 мм.

16. Конструкция рабочего кресла должна обеспечивать:

- ширину и глубину поверхности сиденья не менее 400 мм;

- поверхность сиденья с закругленным передним краем;

- регулировку высоты поверхности сиденья в пределах 400 - 550 мм и углов наклона вперед до 15 град. и назад до 5 град.;

- высоту опорной поверхности спинки 300 +- 20 мм, ширину - не менее 380 мм и радиус кривизны горизонтальной плоскости - 400 мм;

- угол наклона спинки в вертикальной плоскости в пределах 0 +- 30 градусов;

- регулировку расстояния спинки от переднего края сиденья в пределах 260 - 400 мм;

- стационарные или съемные подлокотники длиной не менее 250 мм и шириной 50 - 70 мм;

- регулировку подлокотников по высоте над сиденьем в пределах 230 +- 30 мм и внутреннего расстояния между подлокотниками в пределах 350 - 500 мм.

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

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

Классификация видов трудовой деятельности по работе с ПК :

1. Виды трудовой деятельности разделяются на 3 группы: группа А - работа по считыванию информации с экрана ПК с предварительным запросом; группа Б - работа по вводу информации; группа В - творческая работа в режиме диалога с ЭВМ. При выполнении в течение рабочей смены работ, относящихся к разным видам трудовой деятельности, за основную работу с ПК следует принимать такую, которая занимает не менее 50% времени в течение рабочей смены или рабочего дня.

2. Для видов трудовой деятельности устанавливается 3 категории тяжести и напряженности работы с ПК, которые определяются: для группы А - по суммарному числу считываемых знаков за рабочую смену, но не более 60000 знаков за смену; для группы Б - по суммарному числу считываемых или вводимых знаков за рабочую смену, но не более 40000 знаков за смену; для группы В - по суммарному времени непосредственной работы с ПК за рабочую смену, но не более 6 часов за смену.

3. При 8-часовой рабочей смене и работе на ПК регламентированные перерывы следует устанавливать:

- для I категории работ - через 2 часа от начала рабочей смены и через 2 часа после обеденного перерыва продолжительностью 15 минут каждый;

- для II категории работ - через 2 часа от начала рабочей смены и через 1.5 - 2 часа после обеденного перерыва продолжительностью 15 минут каждый или продолжительностью 10 минут через каждый час работы;

- для III категории работ - через 1.5 - 2 часа от начала рабочей смены и через 1.5 - 2 часа после обеденного перерыва продолжительностью 20 минут каждый или продолжительностью 15 минут через каждый час работы.

Рекомендации, связанные с режимом труда разработчика:

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

Для обеспечения оптимальной работоспособности и сохранения здоровья профессиональных пользователей на протяжении рабочей смены должны устанавливаться регламентированные перерывы. Следовательно для этой категории работ при 8-часовой рабочей смене работы на ПК следует устанавливать следующие регламентированные перерывы: через 1.5 - 2 часа от начала рабочей смены и через 1.5 - 2 часа после обеденного перерыва продолжительностью 20 минут каждый или продолжительностью 15 минут через каждый час работы.

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

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

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

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

5.5 Прогнозирование зоны химического заражения (ЗХЗ)

Цель прогнозирования- определение масштаба и степени заражения.

Результатами прогноза являются:

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

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

3) время испарения пролива АХОВ (оно определяет продолжительность поражающего действия веществ);

4) время подхода облака АХОВ к определенному рубежу.

Исследуемое аварийно химически опасное вещество (АХОВ) - метиламин (жидкость).

Время испарения (продолжительность действия АХОВ):

где - толщина слоя, м. При свободном разливе ;

- плотность АХОВ, т/м³ , плотность метиламина (жидкость)

d = 0,699 т/м³;

- коэффициент, зависящий от физико-химических свойств АХОВ (табличная величина, для метиламина );

- коэффициент, учитывающий скорость ветра (табличная величина, для метиламина );

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

T = 0,05*0,699/(0,034*2,34*1) = 0,4393 ч = 26 мин

Эквивалентное количество АХОВ по первичному облаку (для сжиженных и сжатых газов) -

где - коэффициент зависящий от условий хранения АХОВ (табличная величина, для метиламина );

- коэффициент, равный отношению пороговой токсодозы хлора к пороговой токсодозе другого АХОВ (табличная величина, для метиламина );

- коэффициент, учитывающий степень вертикальной устойчивости воздуха (при инверсии - 1, при изотермии - 0,23, при конвекции - 0,08. Так как в нашем случае скорость ветра 5 м/с, то изотермия, а следовательно );

- количество разлившегося АХОВ, т, (В нашем случае ).

Эквивалентное количество АХОВ по вторичному облаку (для сжиженных газов и жидкостей, кипящих при температуре выше окружающей среды) -

- коэффициент, зависящий от времени, прошедшего после начала аварии N (5 часов).

В нашем случае .

Q _Э2 = (1-0,13)* 0,034*0,5*2,34*0,23*1*1*0,0014*16/(0,05*0,699) = 0,999m

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

Полная глубина зоны , км, где .

, , км.

Площадь зоны возможного заражения -

, км²,

где - угол, зависящий от скорости ветра:

В нашем случае . Тогда км².

Площадь зоны фактического заражения -

, км²,

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

км².

Время подхода облака зараженного воздуха к объекту -

, ч,

где - расстояние от источника заражения до объекта, км;

- скорость переноса переднего фронта зараженного облака, км/ч.

В нашем случае X = 16 км , =29 км/ч (при изотермии при ). Следовательно, время подхода облака АХОВ к определенному рубежу:

t = X/V_п= 16/29 =0,551 ч

Вывод: Так как рабочее место сотрудника расположено в 16 км от аварии, то исследуемое АХОВ не является для него опасным.

ЗАКЛЮЧЕНИЕ

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

Созданное приложение отвечает всем основным поставленным требованиям:

· интеграция с корпоративной системой Университета (АСУ МИИТ);

· формирование документов об окончании университета:

· заполнение и корректировка содержимого документов об окончании университета, используя данные БД АСУ МИИТа;

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

· время выполнения SQL - запроса не превышает 0,5 сек.

СПИСОК ЛИТЕРАТУРЫ

1. Проектирование информационных систем на железнодоражном транспорте.

Э.К. Лецкий, З.А. Крепкая. И.В. Маркова,.

2. UML Руководство пользователя.

Грейди Буч, Джеймс Рамбо Айвар Джекобсон

3. SQL,

Мартин Грабер

4. CASE-средства разработки информационных систем,

Маклаков С. В.

5. MySQL Сборник рецептов,

Поль Дюбуа

6. Программирование в Delphi 6,

Архангельский А.А.

7. Санитарные правила и нормы СанПин 2.2.2/2.4.1340-03. Гигиенические требования к ПК и организации работы

8. Р 2.2.013-94 Гигиенические критерии оценки труда по показателям вредности и опасности факторов производственной среды, тяжести и напряженности трудового процесса

9. ГОСТ 12.0.003-74. Опасные и вредные производственные факторы. Классификация

10. ГОСТ 12.1.007-76. Вредные вещества. Классификация и характеристики

11. ГОСТ 12.4.011-75 Средства защиты работающих.Классификация.

ПРИЛОЖЕНИЕ 1

Код программы

program Project_diplom;

uses

Forms, Windows,sysutils,

Unit_main in 'Unit_main.pas' {F_Main},

Standart_New in 'Общие модули\System\Standart_new.pas',

SysServices in 'Общие модули\System\SysServices.pas',

LP_u_MA_Interface in 'Общие модули\System\LP_u_MA_Interface.pas',

GridEditClass in 'Общие модули\System\GridEditClass.pas',

LP_u_CX_tools in 'Общие модули\System\LP_u_CX_tools.pas',

Wrappers in 'Общие модули\System\wrappers.pas',

SqlStringList in 'Общие модули\System\SqlStringList.pas',

Get_div in 'Общие модули\SQLData\Get_div.pas',

About_cx in 'Общие модули\Формы\О программе\About_cx.pas' {Form_About},

Get_Admin_Data in 'Общие модули\SQLData\Get_Admin_Data.pas',

Get_Single_Data in 'Общие модули\SQLData\Get_Single_Data.pas',

Get_spec in 'Общие модули\SQLData\Get_spec.pas',

Unit_order in 'Unit_order.pas' {Form_order},

cxButtonEdit in 'C:\Program Files\Developer Express.VCL\ExpressEditors Library 5\Sources\cxButtonEdit.pas',

Unit_protokol in 'Unit_protokol.pas' {Form_protokol},

Unit_order_theme in 'Unit_order_theme.pas' {Form_order_theme};

{$R *.res}

const

KB_LANG_RUSSIAN = (SUBLANG_DEFAULT shl 10) or LANG_RUSSIAN;

begin

if not MSystemServices.Connect(True, True)//ShowConnectDB('pilot', 'x')

then exit;

vnSessionAgent.RefreshLoginInfo;

vnSessionAgent.RefreshRolesInfo;

Application.Initialize;

Application.Title := 'Формирование документов об окончании университета';

MSystemServices.IsDebugMode := System.DebugHook <> 0;

Application.Initialize;

Application.CreateForm(TF_Main, F_Main);

Application.CreateForm(TForm_About, Form_About);

Application.CreateForm(TForm_order, Form_order);

Application.CreateForm(TForm_protokol, Form_protokol);

Application.CreateForm(TForm_order_theme, Form_order_theme);

Application.Run;

end.

unit Unit_main;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, cxSplitter, ExtCtrls, cxPC, cxControls, dxBar, cxClasses,

cxStyles, cxGraphics, cxCustomData, cxTL, cxSpinEdit, cxTextEdit,

cxInplaceContainer, cxContainer, cxEdit, cxMaskEdit, cxDropDownEdit,

ActnList, Standart_New,wrappers, cxPropertiesStore,LP_u_CX_tools,SysServices,

Get_div,LP_u_MA_Interface,GridEditClass,About_cx,Get_Admin_Data,Get_Single_Data,

cxFilter, cxData, cxDataStorage, cxGridLevel, cxGridCustomTableView,

cxGridTableView, cxGridBandedTableView, cxGridCustomView, cxGrid,

cxCalendar, DB, cxDBData, cxGridDBTableView,Get_spec, cxGridCardView,

cxLabel, StdCtrls, Menus, cxLookAndFeelPainters, cxButtons,unit_order

,unit_protokol,unit_order_theme

;

const

Get_order_GAK:TGUID = '{73384C2E-95F0-4662-A15C-110CF77D16F1}';

Get_commission:TGUID ='{8BBB01AF-4267-4F22-95E9-764DCB748902}';

d_P_COMMISSION:TGUID ='{888CFCEE-50A5-4514-8E1B-CF3105A12F4F}' ;

d_P_COMMISSION_MEMBERS:TGUID ='{34EB4A8B-C77C-4B5A-A3EE-9F46A0AD55AA}';

d_P_SESSION_REPORT:TGUID ='{C3A8B034-C436-4DE0-96C8-77C9F3193F41}';

Get_theme:TGUID ='{AC3C6F82-5E0F-471E-B396-B37B637E8FBA}';

Get_ruk:TGUID ='{C8E5CCC5-D16C-49B0-864A-A1A919F5C1DB}';

//d_P_COMMISSION:TGUID ='{4532B4CB-15DB-48AB-B3A5-10EAE5D2B24C}' ;

//d_P_COMMISSION_MEMBERS:TGUID ='{6CC9C6B7-7458-462B-8C37-99ECF9B0736C}';

d_P_THEMES_WORKS:TGUID ='{CBF45C35-B5DB-49AC-9D98-20A1574A8307}';

d_P_STUDENTS_MANUAL:TGUID = '{4EE9C642-66C5-4778-B48E-E8632CACD472}';

d_P_EDUCATIONAL_SESSION:TGUID ='{51997E84-03CC-4D50-96B2-5270288CD228}';

//d_P_SESSION_REPORT:TGUID ='{C3353A6E-0B5F-4633-804E-466DC47DFBE3}';

Get_protokol:TGUID ='{90C5A18B-AE78-47E2-A283-D88CC73A718E}';

Get_session:TGUID ='{05F3188F-D040-4297-AB07-C05704705853}';

Get_pred:TGUID ='{76F3EAA0-B6A9-46F6-AC98-C7B1235F99C8}';

Get_post:TGUID ='{70D8A16F-4361-4672-8D45-7F53C400BC40}';

Get_people:TGUID ='{3F579913-A832-4E86-95E2-53E1DF1DF5B8}';

Get_number:TGUID ='{2D89AF94-F879-4BFA-9FAF-54FE7621C28E}';

Get_kind_order:TGUID ='{356BF3A1-5D2C-461F-8C5D-57250ABF6713}';

Get_sostav:TGUID ='{8461C2C7-8BB4-433F-B98F-2C49170314CE}';

Get_post2:TGUID ='{62FF09E2-BA6E-4925-8D62-F2D2F8E4202E}';

Get_com_spec:TGUID ='{F2301268-71A0-4DCA-B80A-F3CCBBE9AF42}';

d_P_ORDERS:TGUID ='{6E2B9E70-68BB-4F04-BA82-01D1BA8D6BAC}';

Get_students:TGUID ='{7ACBBF30-DF32-4951-A97A-B3AA9E7468A1}';

Get_theme_ruk:TGUID = '{F95F62B1-1F73-499F-87F5-DF48E8832839}';

type

TF_Main = class(TSForm)

cxPageControl1: TcxPageControl;

cxTabSheet1: TcxTabSheet;

cxTabSheet2: TcxTabSheet;

cxTabSheet3: TcxTabSheet;

cxTabSheet4: TcxTabSheet;

Panel2: TPanel;

Panel3: TPanel;

cxSplitter1: TcxSplitter;

BarM1: TdxBarManager;

BarM1Bar1: TdxBar;

dxBarSubItem1: TdxBarSubItem;

dxBarButton1: TdxBarButton;

dxBarButton2: TdxBarButton;

dxBarButton3: TdxBarButton;

LichData: TdxBarGroup;

Actions16: TActionList;

al_Refresh_DivList: TAction;

ps: TcxPropertiesStore;

Action_Refresh_Roles: TAction;

Action_Change_User: TAction;

Panel4: TPanel;

Panel5: TPanel;

Panel6: TPanel;

cxSplitter3: TcxSplitter;

cxTabSheet5: TcxTabSheet;

cxPageControl2: TcxPageControl;

cxTabSheet6: TcxTabSheet;

cxTabSheet7: TcxTabSheet;

cxTabSheet8: TcxTabSheet;

cxTabSheet9: TcxTabSheet;

Tree_Division_List: TcxTreeList;

Tree_Division_List_ID_Division: TcxTreeListColumn;

Tree_Division_List_ID_Division_Main: TcxTreeListColumn;

Tree_Division_List_Abbr: TcxTreeListColumn;

Tree_Division_List_Name: TcxTreeListColumn;

Tree_Division_List_ID_Metaterm: TcxTreeListColumn;

Tree_Division_List_ID_Metaobject: TcxTreeListColumn;

sSr: TcxStyleRepository;

sf_s_Background: TcxStyle;

sf_s_Group: TcxStyle;

sf_s_GroupByBox: TcxStyle;

sf_s_Content: TcxStyle;

sf_s_ContentEven: TcxStyle;

sf_s_FilterBox: TcxStyle;

sf_s_Footer: TcxStyle;

sf_s_Header: TcxStyle;

sf_s_Inactive: TcxStyle;

sf_s_IncSearch: TcxStyle;

sf_s_Indicator: TcxStyle;

sf_s_NewItemRowInfoText: TcxStyle;

sf_s_Preview: TcxStyle;

sf_s_Selection: TcxStyle;

sf_s_ContentOdd: TcxStyle;

sf_s_Content_OnEdit: TcxStyle;

sf_s_Content_Disabled: TcxStyle;

sf_s_Content_Choose: TcxStyle;

sVr_Signs_StyleSheet: TcxGridTableViewStyleSheet;

cxStyleRepository2: TcxStyleRepository;

cxStyle1: TcxStyle;

cxStyle2: TcxStyle;

cxStyle3: TcxStyle;

cxStyle4: TcxStyle;

cxStyle5: TcxStyle;

cxStyle6: TcxStyle;

cxStyle7: TcxStyle;

cxStyle8: TcxStyle;

cxStyle9: TcxStyle;

cxStyle10: TcxStyle;

cxStyle11: TcxStyle;

cxStyle12: TcxStyle;

cxStyle13: TcxStyle;

cxStyle14: TcxStyle;

cxStyle15: TcxStyle;

cxStyle16: TcxStyle;

cxStyle17: TcxStyle;

cxStyle18: TcxStyle;

sf_s_Content_TEXT: TcxStyle;

sf_s_Content_POPUP: TcxStyle;

sf_s_Content_DATE: TcxStyle;

sf_s_Content_QUALIFIER: TcxStyle;

sf_s_Footer_Column: TcxStyle;

sf_s_Content_ID: TcxStyle;

sf_s_Content_Memo: TcxStyle;

sf_s_Content_Project: TcxStyle;

sf_s_Content_Cancel: TcxStyle;

sf_s_Content_ProjectSend: TcxStyle;

sf_s_Content_Owner: TcxStyle;

sf_s_Content_NotOwner: TcxStyle;

cxStyle19: TcxStyle;

cxStyle20: TcxStyle;

cxStyle21: TcxStyle;

cxStyle22: TcxStyle;

cxStyle23: TcxStyle;

cxStyle24: TcxStyle;

cxStyle25: TcxStyle;

cxStyle26: TcxStyle;

cxStyle27: TcxStyle;

cxGrid_1: TcxGridTableViewStyleSheet;

cxTreeList_1: TcxTreeListStyleSheet;

cxGridCardViewStyleSheet1: TcxGridCardViewStyleSheet;

Izm: TcxGridBandedTableViewStyleSheet;

Izm_new: TcxGridTableViewStyleSheet;

Izm_Old: TcxGridTableViewStyleSheet;

FocuseNode: TcxGridTableViewStyleSheet;

Panel7: TPanel;

Panel8: TPanel;

cxStyleRepository3: TcxStyleRepository;

st_Group: TcxStyle;

cxStyle28: TcxStyle;

st_Filter_Box: TcxStyle;

st_Footer: TcxStyle;

st_Inactive: TcxStyle;

st_Indicator: TcxStyle;

st_Preview: TcxStyle;

st_Selection: TcxStyle;

st_ContentOdd: TcxStyle;

st_Content_TEXT: TcxStyle;

st_Content_POPUP: TcxStyle;

st_Content_DATE: TcxStyle;

st_Content_QUALIFIER: TcxStyle;

st_Footer_Column: TcxStyle;

st_Content_ID: TcxStyle;

st_Content_Memo: TcxStyle;

st_Content_Project: TcxStyle;

st_Content_Cancel: TcxStyle;

st_Content_ProjectSend: TcxStyle;

st_Content_Owner: TcxStyle;

st_Content_NotOwner: TcxStyle;

st_Content_Hot_Track: TcxStyle;

st_Inc_Search: TcxStyle;

st_Group_By_Box: TcxStyle;

st_Header: TcxStyle;

st_Category: TcxStyle;

cxStyle29: TcxStyle;

cxTreeList_Style_1: TcxTreeListStyleSheet;

cxGrid_Style_1: TcxGridBandedTableViewStyleSheet;

Panel1: TPanel;

cxPopup_podr: TcxPopupEdit;

D_Start: TcxDateEdit;

cxLabel2: TcxLabel;

cxLabel85: TcxLabel;

cxLabel6: TcxLabel;

cxPopup_spec: TcxPopupEdit;

Panel9: TPanel;

cxGrid_theme: TcxGrid;

tv_theme: TcxGridBandedTableView;

tv_theme_fio_student: TcxGridBandedColumn;

tv_theme_id_podr: TcxGridBandedColumn;

tv_theme_group: TcxGridBandedColumn;

tv_theme_theme: TcxGridBandedColumn;

tv_theme_post_staff: TcxGridBandedColumn;

cxGridLevel3: TcxGridLevel;

Panel10: TPanel;

cxButton5: TcxButton;

Panel11: TPanel;

cxButton6: TcxButton;

Panel12: TPanel;

Panel13: TPanel;

cxButton1: TcxButton;

cxButton2: TcxButton;

cxLabel1: TcxLabel;

cxLabel3: TcxLabel;

cxPopup_podr2: TcxPopupEdit;

cxPopup_spec2: TcxPopupEdit;

Shape3: TShape;

Shape4: TShape;

Label2: TLabel;

Panel14: TPanel;

Shape1: TShape;

Label6: TLabel;

Shape2: TShape;

cxLabel4: TcxLabel;

cxPopup_spec3: TcxPopupEdit;

cxLabel5: TcxLabel;

cxPopup_com: TcxPopupEdit;

Panel15: TPanel;

cxButton3: TcxButton;

cxLabel7: TcxLabel;

cxPopupEdit2: TcxPopupEdit;

cxLabel8: TcxLabel;

cxPopupEdit6: TcxPopupEdit;

cxLabel9: TcxLabel;

cxSplitter2: TcxSplitter;

cxSplitter5: TcxSplitter;

cxGrid_sostav: TcxGrid;

tv_sostav: TcxGridBandedTableView;

tv_sostav_fio: TcxGridBandedColumn;

tv_sostav_id_comission: TcxGridBandedColumn;

tv_sostav_id_e: TcxGridBandedColumn;

cxGridLevel1: TcxGridLevel;

cxGrid_pred: TcxGrid;

tv_pred: TcxGridBandedTableView;

tv_pred_id_d_spec: TcxGridBandedColumn;

tv_pred_commission_abr: TcxGridBandedColumn;

tv_pred_fio: TcxGridBandedColumn;

tv_pred_id_post: TcxGridBandedColumn;

cxGridLevel4: TcxGridLevel;

tv_pred_id_comission: TcxGridBandedColumn;

tv_pred_id_e: TcxGridBandedColumn;

tv_pred_id_member: TcxGridBandedColumn;

cxGrid_spec: TcxGrid;

tv_spec: TcxGridBandedTableView;

tv_spec_abbr: TcxGridBandedColumn;

tv_spec_name_spec: TcxGridBandedColumn;

tv_spec_qualifier: TcxGridBandedColumn;

tv_spec_id_spec: TcxGridBandedColumn;

cxGridLevel5: TcxGridLevel;

Panel16: TPanel;

Panel17: TPanel;

Panel18: TPanel;

Panel19: TPanel;

Panel20: TPanel;

cxButton7: TcxButton;

cxGrid_protokol: TcxGrid;

tv_protokol: TcxGridBandedTableView;

tv_protokol_post_staff: TcxGridBandedColumn;

tv_protokol_spec_name: TcxGridBandedColumn;

tv_protokol_fio_stud: TcxGridBandedColumn;

tv_protokol_group: TcxGridBandedColumn;

tv_protokol_ID_SESSION_REPORT: TcxGridBandedColumn;

cxGridLevel6: TcxGridLevel;

tv_protokol_comission: TcxGridBandedColumn;

tv_protokol_id_comisiion: TcxGridBandedColumn;

tv_protokol_d_start: TcxGridBandedColumn;

tv_protokol_estimation: TcxGridBandedColumn;

Panel21: TPanel;

cxButton8: TcxButton;

cxGrid_orders_final: TcxGrid;

tv_orders_final: TcxGridBandedTableView;

tv_orders_final_number: TcxGridBandedColumn;

tv_orders_final_date: TcxGridBandedColumn;

tv_orders_final_podr: TcxGridBandedColumn;

tv_orders_final_spec: TcxGridBandedColumn;

tv_orders_final_fio: TcxGridBandedColumn;

tv_orders_final_id_order: TcxGridBandedColumn;

cxGridLevel7: TcxGridLevel;

cxSplitter6: TcxSplitter;

cxSplitter7: TcxSplitter;

cxPageControl3: TcxPageControl;

cxTabSheet10: TcxTabSheet;

cxTabSheet11: TcxTabSheet;

tv_diplom: TcxGridDBTableView;

cxGrid_diplomLevel1: TcxGridLevel;

cxGrid_diplom: TcxGrid;

tv_diplom_podr: TcxGridDBColumn;

tv_diplom_spec: TcxGridDBColumn;

tv_diplom_fio: TcxGridDBColumn;

tv_diplom_diplom_number: TcxGridDBColumn;

tv_diplom_otl: TcxGridDBColumn;

tv_diplom_protokol_number: TcxGridDBColumn;

tv_diplom_date_zachet: TcxGridDBColumn;

tv_diplom_date_okonchanie: TcxGridDBColumn;

tv_diplom_reg_number: TcxGridDBColumn;

tv_diplom_passport: TcxGridDBColumn;

tv_diplom_pril: TcxGridDBColumn;

tv_diplom_date_vidachi: TcxGridDBColumn;

Panel22: TPanel;

tv_pred_id_paragraph: TcxGridBandedColumn;

tv_commission: TcxGridDBTableView;

cxGrid_commissionLevel1: TcxGridLevel;

cxGrid_commission: TcxGrid;

tv_commission_id_commission: TcxGridDBColumn;

tv_commission_idk_commission: TcxGridDBColumn;

tv_commission_id_specialitie: TcxGridDBColumn;

tv_commission_id_paragraph: TcxGridDBColumn;

tv_commission_d_start: TcxGridDBColumn;

tv_spec_id_d: TcxGridBandedColumn;

tv_pred_d_start: TcxGridBandedColumn;

tv_pred_idk_commission: TcxGridBandedColumn;

tv_pred_post_name: TcxGridBandedColumn;

tv_members: TcxGridDBTableView;

cxGrid_membersLevel1: TcxGridLevel;

cxGrid_members: TcxGrid;

tv_members_id_e: TcxGridDBColumn;

tv_members_fio: TcxGridDBColumn;

tv_pred_spec_name: TcxGridBandedColumn;

tv_pred_com_number: TcxGridBandedColumn;

tv_number_commission: TcxGridDBTableView;

cxGrid_number_commissionLevel1: TcxGridLevel;

cxGrid_number_commission: TcxGrid;

tv_number_commission_id_spec: TcxGridDBColumn;

tv_number_commission_number: TcxGridDBColumn;

tv_commission_number: TcxGridDBColumn;

tv_sostav_id_paragraph: TcxGridBandedColumn;

tv_sostav_idk_commission: TcxGridBandedColumn;

tv_sostav_commission_abr: TcxGridBandedColumn;

tv_sostav_id_d_spec: TcxGridBandedColumn;

tv_sostav_id_member: TcxGridBandedColumn;

tv_sostav_id_post: TcxGridBandedColumn;

tv_sostav_d_start: TcxGridBandedColumn;

tv_sostav_post_name: TcxGridBandedColumn;

tv_sostav_spec_name: TcxGridBandedColumn;

tv_sostav_com_number: TcxGridBandedColumn;

cxGrid_post2: TcxGrid;

tv_post2: TcxGridDBTableView;

tv_post2_id_post: TcxGridDBColumn;

tv_post2_post_name: TcxGridDBColumn;

cxGridLevel8: TcxGridLevel;

tv_com_spec: TcxGridDBTableView;

cxGrid_com_specLevel1: TcxGridLevel;

cxGrid_com_spec: TcxGrid;

tv_com_spec_id_commission: TcxGridDBColumn;

tv_com_spec_abr: TcxGridDBColumn;

cxButton10: TcxButton;

Insert_Izm: TAction;

tv_commission_id_d: TcxGridDBColumn;

tv_sostav_id_d: TcxGridBandedColumn;

tv_pred_id_d: TcxGridBandedColumn;

tv_members_post: TcxGridDBColumn;

tv_members_podr: TcxGridDBColumn;

cxLabel10: TcxLabel;

tv_students: TcxGridDBTableView;

cxGrid_studentsLevel1: TcxGridLevel;

cxGrid_students: TcxGrid;

tv_students_id_student: TcxGridDBColumn;

tv_students_fio: TcxGridDBColumn;

tv_students_group: TcxGridDBColumn;

tv_students_id_speciality: TcxGridDBColumn;

tv_students_spec_name: TcxGridDBColumn;

tv_students_dp_end: TcxGridDBColumn;

tv_protokol_id_student: TcxGridBandedColumn;

tv_protokol_id_spec: TcxGridBandedColumn;

Insert_Izm2: TAction;

Insert_Izm3: TAction;

cxGrid_Orders: TcxGrid;

TTree_Orders: TcxGridBandedTableView;

Tree_Orders_Order: TcxGridBandedColumn;

Tree_Orders_Kind: TcxGridBandedColumn;

Tree_Orders_ID: TcxGridBandedColumn;

Tree_Orders_Date: TcxGridBandedColumn;

Tree_Orders_ID_Order: TcxGridBandedColumn;

Tree_Orders_idk_order: TcxGridBandedColumn;

Tree_Orders_id_series: TcxGridBandedColumn;

Tree_Orders_note: TcxGridBandedColumn;

Tree_Orders_inst: TcxGridBandedColumn;

cxGrid_Orders_Level1: TcxGridLevel;

tv_pred_post_staff: TcxGridBandedColumn;

tv_sostav_post_staff: TcxGridBandedColumn;

Panel23: TPanel;

Shape5: TShape;

Label1: TLabel;

Shape6: TShape;

cxLabel11: TcxLabel;

cxPopup_spec4: TcxPopupEdit;

cxSplitter4: TcxSplitter;

tv_theme_id_student: TcxGridBandedColumn;

tv_theme_id_paragraph: TcxGridBandedColumn;

tv_theme_d_start: TcxGridBandedColumn;

tv_theme_id_e: TcxGridBandedColumn;

tv_theme_fio_ruk: TcxGridBandedColumn;

tv_themes_only: TcxGridDBTableView;

cxGrid_themes_onlyLevel1: TcxGridLevel;

cxGrid_themes_only: TcxGrid;

tv_ruk: TcxGridDBTableView;

cxGrid_rukLevel1: TcxGridLevel;

cxGrid_ruk: TcxGrid;

tv_theme_id_theme: TcxGridBandedColumn;

tv_themes_only_id_theme: TcxGridDBColumn;

tv_themes_only_id_student: TcxGridDBColumn;

tv_themes_only_id_paragraph: TcxGridDBColumn;

tv_themes_only_id_discipline: TcxGridDBColumn;

tv_themes_only_idk_lesson: TcxGridDBColumn;

tv_themes_only_d_start: TcxGridDBColumn;

tv_themes_only_theme: TcxGridDBColumn;

tv_ruk_id_student: TcxGridDBColumn;

tv_ruk_id_e: TcxGridDBColumn;

tv_ruk_id_paragraph: TcxGridDBColumn;

tv_ruk_idk_lesson: TcxGridDBColumn;

tv_ruk_d_start: TcxGridDBColumn;

tv_theme_spec_name: TcxGridBandedColumn;

Panel24: TPanel;

cxButton13: TcxButton;

tv_ruk_id_discipline: TcxGridDBColumn;

tv_session: TcxGridDBTableView;

cxGrid_sessionLevel1: TcxGridLevel;

cxGrid_session: TcxGrid;

tv_session_id_student: TcxGridDBColumn;

tv_session_id_paragraph: TcxGridDBColumn;

tv_session_ID_VOLUME_DISCIPLINE: TcxGridDBColumn;

tv_session_ESTIMATION: TcxGridDBColumn;

tv_session_ID_E: TcxGridDBColumn;

tv_session_D_START: TcxGridDBColumn;

tv_session_D_PASSING: TcxGridDBColumn;

tv_session_ID_DISCIPLINE: TcxGridDBColumn;

tv_session_IDK_LESSON: TcxGridDBColumn;

tv_session_ID_EDUCATIONAL_SESSION: TcxGridDBColumn;

tv_session_semester: TcxGridDBColumn;

tv_protokol_ID_EDUCATIONAL_SESSION: TcxGridBandedColumn;

tv_protokol_ID_PARAGRAPH: TcxGridBandedColumn;

tv_protokol_ID_WORK_THEMES: TcxGridBandedColumn;

tv_protokol_theme: TcxGridBandedColumn;

tv_protokol_fio_ruk: TcxGridBandedColumn;

tv_protokol_id_e: TcxGridBandedColumn;

prosmotr: TAction;

delete1: TAction;

delete2: TAction;

delete3: TAction;

delete4: TAction;

tv_students_id_theme: TcxGridDBColumn;

Action_navigate: TAction;

procedure dxBarButton3Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure After_Read_Division;

procedure Tree_Division_ListMouseUp(Sender: TObject;

Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

procedure al_Refresh_DivListExecute(Sender: TObject);

procedure Action_Refresh_RolesExecute(Sender: TObject);

procedure dxBarButton2Click(Sender: TObject);

procedure sostav_create;

procedure cxPopup_podrPropertiesInitPopup(Sender: TObject);

procedure cxPopup_spec2Click(Sender: TObject);

procedure cxPopup_podr2PropertiesInitPopup(Sender: TObject);

procedure cxTabSheet1Show(Sender: TObject);

procedure cxTabSheet2Show(Sender: TObject);

procedure cxPopup_specPropertiesChange(Sender: TObject);

procedure cxPopup_specPropertiesInitPopup(Sender: TObject);

procedure cxPopup_spec2PropertiesInitPopup(Sender: TObject);

procedure cxTabSheet3Show(Sender: TObject);

procedure cxTabSheet4Show(Sender: TObject);

procedure cxButton5Click(Sender: TObject);

procedure TTree_OrdersMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure cxPopup_spec2PropertiesChange(Sender: TObject);

procedure cxButton1Click(Sender: TObject);

procedure cxPopup_podr2PropertiesEditValueChanged(Sender: TObject);

procedure cxPopup_podrPropertiesEditValueChanged(Sender: TObject);

procedure cxPopup_spec2PropertiesEditValueChanged(Sender: TObject);

procedure cxButton3Click(Sender: TObject);

procedure cxPopup_spec3PropertiesInitPopup(Sender: TObject);

procedure cxPopup_comPropertiesInitPopup(Sender: TObject);

procedure cxPopup_spec3PropertiesEditValueChanged(Sender: TObject);

procedure cxButton10Click(Sender: TObject);

procedure D_StartPropertiesEditValueChanged(Sender: TObject);

procedure Insert_IzmExecute(Sender: TObject);

procedure cxPopup_comPropertiesEditValueChanged(Sender: TObject);

procedure cxPopupEdit2PropertiesEditValueChanged(Sender: TObject);

procedure cxPopupEdit6PropertiesEditValueChanged(Sender: TObject);

procedure tv_pred_fioPropertiesEditValueChanged(Sender: TObject);

procedure DoChanged_cW_Izm(AWrapper: TCustomEditWrapper);

procedure cxButton6Click(Sender: TObject);

procedure cxButton7Click(Sender: TObject);

procedure Insert_Izm2Execute(Sender: TObject);

procedure Insert_Izm3Execute(Sender: TObject);

procedure cxPopup_spec4PropertiesInitPopup(Sender: TObject);

procedure cxPopup_spec4PropertiesEditValueChanged(Sender: TObject);

procedure tv_theme_fio_rukPropertiesEditValueChanged(Sender: TObject);

procedure cxButton13Click(Sender: TObject);

procedure tv_protokol_comissionPropertiesInitPopup(Sender: TObject);

procedure tv_protokol_comissionPropertiesEditValueChanged(

Sender: TObject);

procedure prosmotrExecute(Sender: TObject);

procedure delete1Execute(Sender: TObject);

procedure delete2Execute(Sender: TObject);

procedure delete3Execute(Sender: TObject);

procedure delete4Execute(Sender: TObject);

procedure cxButton2Click(Sender: TObject);

procedure dxBarButton1Click(Sender: TObject);

procedure FormShow(Sender: TObject);

// procedure Action_Refresh_RolesExecute(Sender: TObject);

procedure Setup;

procedure Action_Change_UserExecute(Sender: TObject);

procedure Action_navigateExecute(Sender: TObject);

procedure tv_sessionEditValueChanged(Sender: TcxCustomGridTableView;

AItem: TcxCustomGridTableItem);

procedure tv_protokolEditValueChanged(Sender: TcxCustomGridTableView;

AItem: TcxCustomGridTableItem);

procedure tv_predEditValueChanged(Sender: TcxCustomGridTableView;

AItem: TcxCustomGridTableItem);

private

FSqlData_TableView: TSqlData_cxGridTableView;

{ Private declarations }

public

Wrap_Div,Wrap_Div2,Wrap_spec,Wrap_spec2,Wrap_spec3, Wrap_spec4,

wrap_fio,wrap_sostav,wrap_com: TContainerWrappers;

t1,t2,t3,t4:boolean;

procedure AfterConstruction; override;

procedure BeforeDestruction; override;

procedure Change_User ;

// procedure Refresh_Roles;

// Доступность к форме

// class function IsRoleAccessible: boolean;

{ Public declarations }

end;

var

F_Main: TF_Main;

implementation

{$R *.dfm}

procedure TF_Main.AfterConstruction;

begin

inherited;

hm := HandymanFunctions;

end;

procedure TF_Main.BeforeDestruction;

begin

inherited;

end;

procedure TF_Main.dxBarButton3Click(Sender: TObject);

begin

Close;

end;

///////////////////////////////////////////////////////////////

//////////////////////////////////////////////////////////////////

//объявления таблиц и трилистов для состава ГАК

procedure TF_Main.sostav_create;

begin

Wrap_Div:=TContainerWrappers.Create;

Wrap_Div.AddPopupEdit(cxPopup_podr, false, false, nil, Tree_Division_List, Tree_Division_List_ID_Division, [Tree_Division_List_Name], '');

Wrap_Div2:=TContainerWrappers.Create;

Wrap_Div2.AddPopupEdit(cxPopup_podr2, false, false, nil, Tree_Division_List, Tree_Division_List_ID_Division, [Tree_Division_List_Name], '');

Wrap_spec:=TContainerWrappers.Create;

Wrap_spec.AddPopupEdit(cxPopup_spec, false, false, cxGrid_spec, tv_spec,tv_spec_id_spec, [tv_spec_name_spec,tv_spec_abbr], '');

Wrap_spec4:=TContainerWrappers.Create;

Wrap_spec4.AddPopupEdit(cxPopup_spec4, false, false, cxGrid_spec, tv_spec,tv_spec_id_spec, [tv_spec_name_spec,tv_spec_abbr], '');

Wrap_spec2:=TContainerWrappers.Create;

Wrap_spec2.AddPopupEdit(cxPopup_spec2, false, false, cxGrid_spec, tv_spec,tv_spec_id_spec, [tv_spec_name_spec,tv_spec_abbr], '');

Wrap_spec3:=TContainerWrappers.Create;

Wrap_spec3.AddPopupEdit(cxPopup_spec3, false, false, cxGrid_spec, tv_spec,tv_spec_id_spec, [tv_spec_name_spec,tv_spec_abbr], '');

wrap_fio:=TContainerWrappers.Create;

Wrap_fio.AddPopupEdit(cxPopupEdit6, false, false, cxGrid_members, tv_members,tv_members_id_e, [tv_members_fio], '');

wrap_sostav:=TContainerWrappers.Create;

Wrap_sostav.AddPopupEdit(cxPopupEdit2, false, false, cxGrid_post2, tv_post2,tv_post2_id_post, [tv_post2_post_name], '');

wrap_com:=TContainerWrappers.Create;

Wrap_com.AddPopupEdit(cxPopup_com, false, false, cxGrid_com_spec, tv_com_spec,tv_com_spec_id_commission, [tv_com_spec_abr], '');

//////////////////////////дерево подразделений//////////////

SetLength(My_cxTreeList, length(My_cxTreeList)+1);

My_cxTreeList[High(My_cxTreeList)] := TSqlData_cxTreeList.Create;

with My_cxTreeList[High(My_cxTreeList)] do

begin

Tree_List := Tree_Division_List;

GUID_Select := Get_Division;

Params := CreateVarAr([DateToStr(date)]);

SetLength(Select_Columns, 6);

Select_Columns[0] := Tree_Division_List_ID_Division;

Select_Columns[1] := Tree_Division_List_ID_Division_Main;

Select_Columns[2] := Tree_Division_List_Abbr;

Select_Columns[3] := Tree_Division_List_Name;

Select_Columns[4] :=Tree_Division_List_ID_Metaterm;

Select_Columns[5] := Tree_Division_List_ID_Metaobject;

SetLength(Key_Columns, 1);

Key_Columns[0] := Tree_Division_List_ID_Division;

SetLength(Confirm_Columns, 1);

Confirm_Columns[0] := Tree_Division_List_Name;

Table_Name := 'Структура подразделений';

After_Read := After_Read_Division;

Stat_Column := Tree_Division_List_Abbr;

end;

//////////////////////////специальности//////////////

FSqlData_TableView := TSqlData_cxGridTableView.Create(tv_spec, nil);

with FSqlData_TableView do

Begin

Single:=false;

Editing:=false;

GUID_Select:=Get_sp;

Params:=CreateVarAr(['0']);

with Select_Columns do

Begin

add(tv_spec_abbr);

add(tv_spec_name_spec);

add(tv_spec_qualifier);

add(tv_spec_id_spec);

add(tv_spec_id_d);

//add(tv_spec_kaf);

// add(tv_spec_qualifier);

End;

Key_Columns.Add(tv_spec_id_spec);

NameColumnForPopupEdit:=tv_spec_name_spec;

end;

//////////////////////////номер комиссии//////////////

FSqlData_TableView := TSqlData_cxGridTableView.Create(tv_number_commission, nil);

with FSqlData_TableView do

Begin

Single:=false;

Editing:=false;

GUID_Select:=Get_number;

Params:=CreateVarAr(['0']);

with Select_Columns do

Begin

add(tv_number_commission_id_spec);

add(tv_number_commission_number);

End;

Key_Columns.Add(tv_number_commission_id_spec);

end;

//////////////////////////выпускники//////////////

FSqlData_TableView := TSqlData_cxGridTableView.Create(tv_students, nil);

with FSqlData_TableView do

Begin

Single:=false;

Editing:=false;

GUID_Select:=Get_students;

Params:=CreateVarAr(['','']);

with Select_Columns do

Begin

add(tv_students_id_student);

add(tv_students_fio);

add(tv_students_group);

add(tv_students_id_speciality);

add(tv_students_spec_name);

add(tv_students_dp_end);

add(tv_students_id_theme);

End;

Key_Columns.Add(tv_students_id_student);

end;

//////////////////////////список комиссий по специальности//////////////

FSqlData_TableView := TSqlData_cxGridTableView.Create(tv_com_spec, nil);

with FSqlData_TableView do

Begin

Single:=false;

Editing:=false;

GUID_Select:=Get_com_spec;

Params:=CreateVarAr(['','']);

with Select_Columns do

Begin

add(tv_com_spec_id_commission);

add(tv_com_spec_abr);

End;

Key_Columns.Add(tv_com_spec_id_commission);

end;

//////////////////////////список должностей в комиссии//////////////

FSqlData_TableView := TSqlData_cxGridTableView.Create(tv_post2, nil);

with FSqlData_TableView do

Begin

Single:=false;

Editing:=false;

GUID_Select:=Get_post2;

with Select_Columns do

Begin

add(tv_post2_id_post);

add(tv_post2_post_name);

End;

Key_Columns.Add(tv_post2_id_post);

end;

FSqlData_TableView := Get_SqlData_cxGrid(tv_post2);

FSqlData_TableView.Read_Data;

//////////////////////////список сотрудников//////////////

FSqlData_TableView := TSqlData_cxGridTableView.Create(tv_members, nil);

with FSqlData_TableView do

Begin

Single:=false;

Editing:=false;

GUID_Select:=Get_people;

Params:=CreateVarAr(['']);

with Select_Columns do

Begin

add(tv_members_id_e);

add(tv_members_fio);

add(tv_members_post);

add(tv_members_podr);

End;

Key_Columns.Add(tv_members_id_e);

end;

FSqlData_TableView := Get_SqlData_cxGrid(tv_members);

FSqlData_TableView.Params[0]:='';

FSqlData_TableView.Read_Data;

//////////////////////////таблица комиссии//////////////

with TSqlData_cxGridTableView.Create(tv_commission) do

Begin

Single:=false;

Editing:=true;

GUID_Select:=Get_commission;

GUID_Update:=d_P_COMMISSION;

Params:=CreateVarAr(['']);

with Select_Columns do

Begin

add(tv_commission_id_commission,1);

add(tv_commission_id_paragraph,2);

add(tv_commission_idk_commission,3);

add(tv_commission_id_specialitie,8);

add(tv_commission_d_start,4);

add(tv_commission_number,6);

add(tv_commission_id_d,10);

End;

With Insert_Columns do

Begin

add(tv_commission_id_paragraph,2);

add(tv_commission_idk_commission,3);

add(tv_commission_id_specialitie,8);

add(tv_commission_d_start,4);

add(tv_commission_number,6);

add(tv_commission_id_d,10);

End;

With Key_Columns do

Begin

add(tv_commission_id_commission,1);

add(tv_commission_id_paragraph,2);

add(tv_commission_idk_commission,3);

End;

END;

//////////////////////////председатели комиссий//////////////

with TSqlData_cxGridTableView.Create(tv_pred) do

Begin

Single:=false;

Editing:=true;

GUID_Select:=Get_pred;

// Params:=CreateVarAr(['1']);

GUID_Update:=d_P_COMMISSION_MEMBERS;

Params:=CreateVarAr(['','']);

with Select_Columns do

Begin

add(tv_pred_id_comission,3);

add(tv_pred_id_paragraph,4);

add (tv_pred_idk_commission,3);

add(tv_pred_commission_abr,3);

add(tv_pred_id_d_spec);

add(tv_pred_id_member,1);

add(tv_pred_id_e,2);

add(tv_pred_fio,2);

add(tv_pred_id_post,8);

add(tv_pred_d_start,5);

add(tv_pred_post_name,8);

add(tv_pred_spec_name);

add(tv_pred_com_number);

add(tv_pred_id_d);

add(tv_pred_post_staff);

End;

With Insert_Columns do

Begin

add(tv_pred_id_comission,3);

add(tv_pred_id_paragraph,4);

add(tv_pred_id_e,2);

//add(tv_pred_id_member,1);

add(tv_pred_d_start,5);

add(tv_pred_id_post,8);

End;

With Key_Columns do

Begin

add(tv_pred_id_member,1);

// add(tv_pred_id_comission,2);

// add(tv_pred_id_e,2);

End;

with PopupColumnsList.Add(tv_pred_fio) do

Begin

SelfKeyColumn:=tv_pred_id_e;

PopupKeyColumn:=tv_members_id_e;

PopupNameColumn:=tv_members_fio;

End;

PopupActions.Add(delete1);

PopupActions.Add(delete2);

PopupActions.Add(actionupdate);

end;

//////////////////////////состав комиссий//////////////

with TSqlData_cxGridTableView.Create(tv_sostav) do

Begin

Single:=false;

Editing:=true;

GUID_Select:=Get_sostav;

GUID_Update:=d_P_COMMISSION_MEMBERS;

Params:=CreateVarAr(['','','']);

with Select_Columns do

Begin

add(tv_sostav_id_comission,3);

add(tv_sostav_id_paragraph,4);

add (tv_sostav_idk_commission,3);

add(tv_sostav_commission_abr,3);

add(tv_sostav_id_d_spec);

add(tv_sostav_id_member,1);

add(tv_sostav_id_e,2);

add(tv_sostav_fio,2);

add(tv_sostav_id_post,8);

add(tv_sostav_d_start,5);

add(tv_sostav_post_name,8);

add(tv_sostav_spec_name);

add(tv_sostav_com_number);

add(tv_sostav_id_d);

add(tv_sostav_post_staff);

End;

With Insert_Columns do

Begin

add(tv_sostav_id_comission,3);

add(tv_sostav_id_paragraph,4);

add(tv_sostav_id_e,2);

//add(tv_pred_id_member,1);

add(tv_sostav_d_start,5);

add(tv_sostav_id_post,8);

End;

With Key_Columns do

Begin

add(tv_sostav_id_member,1);

add(tv_sostav_id_comission,2);

End;

PopupActions.Add(delete4);

PopupActions.Add(actionupdate);

end;

//////////////////////////таблица учебная сессия//////////////

with TSqlData_cxGridTableView.Create(tv_session) do

Begin

Single:=false;