Автоматизация учета перечней льготных должностей в Отделении Пенсионного фонда Российской Федерации по Краснодарскому краю

Аннотация

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

Отчет состоит из __ листов и включает в себя следующие разделы:

? Введение — содержит цели и задачи, поставленные перед практикантом;

? Краткая характеристика предприятия — содержит краткую историческую справку о предприятии и описывает его структуру;

? Изучение объекта автоматизации — содержит информацию об объекте автоматизации необходимую для разработки подсистемы;

? Требования к подсистеме — содержит описание требований к подсистеме со стороны заказчика;

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

? Логическое проектирование;

? Пример практической реализации функции загрузки XML файла в РБД — содержит программный код реализуемой функции;

? Организация охраны труда — содержит требования по организации охраны труда на предприятии;

? Вывод — содержит результаты прохождения практики и проведенной работы.

• Аннотация
• Содержание
• 1. Введение
• 2. Характеристика предприятия
• 3. Изучение объекта автоматизации
• 3.1 Классификаторы
• 3.2 Нормативная информация
• 4. Требования к системе
• 4.1 Состав выполняемых ПК функций
• 4.2 Организация выходных данных
• 4.3 Требования к обеспечению надежного (устойчивого) функционирования системы
• 4.4 Требования к защите информации
• 4.4.1 Требования к СУБД
• 4.4.2 Требования к приложению
• 4.5 Требования к программно-аппаратной платформе
• 4.5.1 Требования к составу, параметрам и условиям размещения технических средств
• 4.5.2 Требования к исходным кодам и языкам программирования
• 4.5.3 Требования к программным средствам
• 5. Постановка задачи
• 5.1 Функциональная структура подсистемы
• 5.2 Характеристика комплекса задач
• 6. Логическое проектирование
• 7. Пример практической реализации функции загрузки xml файла в РБД
• 8. Организация охраны труда
• 8.1 Общие требования безопасности
• 8.2 Требования безопасности перед началом работы
• 8.3 Требования безопасности во время работы
• 8.4 Требования безопасности в аварийных ситуациях
• 8.5 Требования безопасности по окончании работы
• 9. Вывод

1. Введение

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

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

Задачами прохождения преддипломной практики являются:

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

2. Изучение охраны труда на предприятии;

3. Изучение объекта автоматизации и создание программного продукта;

4. Сбор, систематизация и обобщение информации и материалов, необходимых для написания дипломной работы.

Термины и сокращения, используемые в отчете:

? ПФР — Пенсионный фонд России;

? УПФР — Управления ПФР;

? ОПФР — Отделение ПФР;

? ПК — Программный комплекс;

? РБД — Региональная база данных;

? «ПЛД» — «Перечни льготных должностей» ;

? КСПД — Корпоративная сеть передачи данных;

? СУБД — Система управления базами данных;

подсистема учет логическое проектирование

2. Характеристика предприятия

Отделение Пенсионного фонда России по Краснодарскому краю создано 6 марта 1991 года постановлением Правления Пенсионного фонда РСФСР от 6 марта 1991 года № 49 и решением исполнительного комитета Краснодарского краевого совета народных депутатов от 25 марта 1991 года № 136 «О создании Отделения ПФР». С этого времени и по сегодняшний день краевой пенсионный фонд бессменно возглавляет управляющий, член Правления ПФР Галина Анатольевна Кузнецова.

Отделение Пенсионного фонда Российской Федерации по Краснодарскому краю — государственное учреждение с особым статусом, осуществляющее государственное пенсионное обеспечение и страхование на всей территории Кубани. Территориальные Управления в городах и районах края выплачивают пенсии более 1 млн.430 тысяч пенсионеров и ежегодно назначают более 100 тысяч новых. Начиная с 2005 года, назначаются и выплачиваются ежемесячные денежные выплаты более 523 тысячам федеральных льготников, проживающим на Кубани, а с 2007 года Отделение ПФР по Краснодарскому краю приступило к реализации федерального законодательства о дополнительных мерах государственной поддержки семей, имеющих детей. В настоящее время в крае выдано более 81 тыс. государственных сертификатов на материнский (семейный) капитал. Кроме того, все жители края, осуществляющие трудовую деятельность, являются застрахованными лицами перед ПФР. На сегодняшний день, таковыми являются 2,6 млн. кубанцев, за которых перечисляют пенсионные страховые взносы более 100 тысяч работодателей, количество которых постоянно растет.

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

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

? назначение и выплата пенсий. Среди них трудовые пенсии (по старости, по инвалидности, по случаю потери кормильца), пенсии по государственному пенсионному обеспечению, пенсии военнослужащих и их семей, социальные пенсии, пенсии госслужащих. За счет средств Фонда получают пенсии 36,5 млн. российских пенсионеров;

? назначение и реализация социальных выплат отдельным категориям граждан: ветеранам, инвалидам, инвалидам вследствие военной травмы, Героям Советского Союза, Героям Российской Федерации и др.

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

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

? выдача сертификатов на получение материнского (семейного) капитала;

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

? реализация Программы государственного софинансирования пенсии.

3. Изучение объекта автоматизации

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

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

1. Учет сведений о льготниках имеющих право на досрочный выход на пенсию;

2. Прием данных от работодателей в электронном формате (XML файл);

3. Составление отчетов.

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

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

2. Прием данных от работодателей в электронном формате — 1 раз в квартал, в случае если данные не передавались в бумажном варианте;

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

3.1 Классификаторы

Классификаторы, используемые в РБД:

? классификатор управлений ПФР по Краснодарскому краю;

? классификатор статей назначения пенсий;

? классификатор позиций списков 1,2;

? справочник подтверждающих документов;

? справочник типов деятельности организаций;

? справочник видов работ организаций.

3.2 Нормативная информация

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

1. ГОСТ 34.602−89 Информационная технология. Комплекс стандартов на автоматизированные системы. Техническое задание на создание автоматизированной системы;

2. ГОСТ 19.701−90 Межгосударственный стандарт. Единая система программной документации;

3. Закон № 149-ФЗ «Об информации, информационных технологиях и о защите информации» от 27 июля 2006 года;

4. Закон № 152-ФЗ «Федеральный закон о персональных данных» от 27 июля 2006 года.

4. Требования к системе

4.1 Состав выполняемых ПК функций

1. Добавление информации в РБД на уровне УПФР;

2. Корректировка информации в РБД на уровне УПФР;

3. Загрузка информации из XML файла в РБД на уровне УПФР (XML файл формируется ПК «ПЛД» для работодателя);

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

5. Отчеты, формируемые на основе имеющейся информации РБД:

? количество застрахованных лиц, приобретающих право на льготную пенсию;

? количество имеющихся льготных должностей;

? количество имеющихся оснований льгот;

4.2 Организация выходных данных

Выходными данными ПК «ПЛД» являются выходные формы, предоставляемые функциональными возможностями ПК.

4.3 Требования к обеспечению надежного (устойчивого) функционирования системы

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

? организацией бесперебойного питания технических средств;

? использованием лицензионного программного обеспечения и своевременным обновлением версий этого программного обеспечения;

? регулярным выполнением рекомендаций Министерства труда и социального развития РФ, изложенных в Постановлении от 23 июля 1998 № 28 «Об утверждении межотраслевых типовых норм времени на работы по сервисному обслуживанию ПЭВМ и оргтехники и сопровождению программных средств» ;

? регулярным выполнением требований ГОСТ 51 188–98 «Защита информации. Испытания программных средств на наличие компьютерных вирусов» ;

? использованием всех возможностей базовой СУБД по повышению отказоустойчивости системы.

4.4 Требования к защите информации

Доступ к РБД осуществляется по защищенным каналам связи через ЛВС и КСПД.

Для обеспечения защиты информации в ПК «ПЛД» должны быть реализованы требования к СУБД и приложению.

4.4.1 Требования к СУБД

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

? исключение возможности смены пароля рядовыми пользователями;

? хранение паролей в защищенном (зашифрованном) виде, исключающем просмотр паролей средствами СУБД и ОС;

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

4.4.2 Требования к приложению

Разграничение доступа пользователей к интерфейсам доступа, базам данных, объектам на основании установленных в СУБД привилегий. В приложении должны быть предусмотрены 2 роли:

? Пользователь — имеющий стандартный набор привилегий доступа к данным: добавление, изменение, просмотр и формирование отчетности;

? Администратора системы — для управления (создания, удаления, изменения) учетными записями непривилегированных пользователей.

4.5 Требования к программно-аппаратной платформе

4.5.1 Требования к составу, параметрам и условиям размещения технических средств

В состав технических средств должен входить специализированный сервер с параметрами:

? Процессор с тактовой частотой не ниже 2 ГГц;

? Объем жесткого диска не менее 100 Гб;

? Объем оперативной памяти не менее 1Гб.

В целях повышения надежности РБД, сервер должен быть размещен в отдельно выделенном помещении.

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

4.5.2 Требования к исходным кодам и языкам программирования

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

4.5.3 Требования к программным средствам

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

? Операционная система: Microsoft Windows Server 2003 EE SP1 (32-bit);

? СУБД IBM DB2 версии 8.1 и выше;

Эти требования обусловлены тем, что на данный момент данное программное обеспечение установлено на общем сервере РБД ОПФР, оно актуально и в ближайшее время серьезный обновлений не ожидается.

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

5.1 Функциональная структура подсистемы

Функциональная структура ПК «ПЛД» представлена на рис. 1.

Рис.1

5.2 Характеристика комплекса задач

Функция " Добавление информации"

Данная функция реализуется при помощи шести задач:

1. Организация

Добавление данных об организации.

2. Период

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

3. Подразделение

Добавление данных о подразделениях данной организации.

4. Профессия

Добавление данных о профессиях.

5. Работники

Добавление данных о работниках.

6. Рабочие периоды

Добавление данных о рабочих периодах каждого работника.

Функция " Корректировка информации"

Данная функция реализуется при помощи шести задач:

1. Организация

Изменение и удаление данных об организации.

2. Период

Изменение и удаление данных о периоде, по которому составляются списки.

3. Подразделение

Изменение и удаление данных о подразделениях данной организации.

4. Профессия

Изменение и удаление данных о профессиях.

5. Работники

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

6. Рабочие периоды

Изменение и удаление данных о рабочих периодах каждого работника.

Функция " Загрузка информации"

Данная функция реализуется при помощи одной задачи:

1. Загрузка XML файла

Загрузка в РБД XML файла предоставленного работодателем.

Функция " Формирование отчетов"

Данная функция реализуется при помощи трех задач:

1. Количество льготников

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

2. Количество льготных должностей

Отчет о количестве имеющихся льготных должностей.

3. Количество оснований льгот

Отчет о количестве имеющихся оснований льгот.

Функция " Защита"

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

1. Регистрация в системе

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

2. Администрирование

Управление учетными записями пользователей.

6. Логическое проектирование

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

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

Сущности и атрибуты нормализованной логической модели представлены ниже:

1. «Организации» (Таблица 1);

2. «Периоды» (Таблица 2);

3. «Подразделения» (Таблица 3);

4. «Профессии» (Таблица 4);

5. «Работники» (Таблица 5);

6. «Рабочие периоды» (Таблица 6);

7. «Пользователи» (Таблица 7);

8. «Документы» — справочник (Таблица 8);

9. «Типы деятельности организаций» — справочник (Таблица 9);

10. «Виды работ организаций» — справочник (Таблица 10);

11. «Основания назначения пенсий» — справочник (Таблица 11);

12. «Коды позиций списка» — справочник (Таблица 12).

Таблица 1 — Организации

Таблица 2 — Периоды

Таблица 3 — Подразделения

Таблица 4 — Профессии

Таблица 5 — Работники

Таблица 6 — Рабочие периоды

Таблица 7 — Пользователи

Таблица 8 — Документы

Таблица 9 — Типы деятельности организаций

Таблица 10 — Виды работ организаций

Таблица 11 — Основания назначения пенсий

Таблица 12 — Коды позиций списка

Нормализованная логическая модель представлена на рис. 2.

Рис.2

7. Пример практической реализации функции загрузки xml файла в РБД

Программный код функции на языке Pascal:

procedure TMainF. PerechenClick (Sender: TObject);

var

NodesPodrazd, NodesProfession, NodesEmployee, NodesWorkperiod: IXMLNodeList;

V: Variant;

I, Q, J, K, ORG_ID, PERIOD_ID, PODRAZD_ID, PROF_ID, EMPL_ID: Integer;

Lvl1, Lvl2: string;

Org: array [0.7] of string;

Period: array [0.3] of string;

Podrazd: array [0.3] of string;

Prof: array [0.11] of string;

Empl: array [0.4] of string;

Wperiod: array [0.11] of string;

begin

OpenDialog. Filter: ='XML files (*. xml) |*. xml';

if not OpenDialog. Execute then exit;

XMLDoc. LoadFromFile (OpenDialog. FileName);

XMLDoc. Active: = true;

Lvl1: = 'ФайлЛьготныхПрофессий';

Lvl2: = 'Предприятие';

for Q: = 0 to 5 do begin

if (Q = 4) or (Q = 5) then begin

Org [Q]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [Lvl2]. ChildNodes [Q]. ChildNodes ['ФИО']. Text);

Org [Q + 2]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [Lvl2]. ChildNodes [Q]. ChildNodes ['Телефон']. Text);

end else

Org [Q]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [Lvl2]. ChildNodes [Q]. Text);

end;

Lvl2: = 'ОтчетныйПериод';

for Q: = 0 to 3 do

Period [Q]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [Lvl2]. ChildNodes [Q]. Text);

with DataModuleF do begin

V: = ADOTableOrg. Lookup ('AREA; REGION; REG_NUM',

VarArrayOf ([StrToInt (Copy (Org [0], 1,3)), StrToInt (Copy (Org [0], 5,3)),

StrToInt (Copy (Org [0], 9,6))]), 'AREA');

if not VarIsNull (V) then begin

ADOTableOrg. Locate ('AREA; REGION; REG_NUM',

VarArrayOf ([StrToInt (Copy (Org [0], 1,3)), StrToInt (Copy (Org [0], 5,3)),

StrToInt (Copy (Org [0], 9,6))]), []);

ADOTableOrg. Edit;

ADOTableOrgNAME. AsString: = Org [1];

ADOTableOrgTYPE. AsString: = Org [2];

ADOTableOrgTYPE_FUNCTIONS. AsString: = Org [3];

ADOTableOrgBOSS_NAME. AsString: = Org [4];

ADOTableOrgBOSS_TEL. AsString: = Org [6];

ADOTableOrgKADR_NAME. AsString: = Org [5];

ADOTableOrgKADR_TEL. AsString: = Org [7];

ADOTableOrgUSER_EDIT. AsString: = Login;

ADOTableOrgDATE_EDIT. Value: = Date;

ADOTableOrg. Post;

ORG_ID: = ADOTableOrgORG_ID. AsInteger;

end else begin

ADOTableOrg. Insert;

ADOTableOrgAREA. AsString: = Copy (Org [0], 1,3);

ADOTableOrgREGION. AsString: = Copy (Org [0], 5,3);

ADOTableOrgREG_NUM. AsString: = Copy (Org [0], 9,6);

ADOTableOrgNAME. AsString: = Org [1];

ADOTableOrgTYPE. AsString: = Org [2];

ADOTableOrgTYPE_FUNCTIONS. AsString: = Org [3];

ADOTableOrgBOSS_NAME. AsString: = Org [4];

ADOTableOrgBOSS_TEL. AsString: = Org [6];

ADOTableOrgKADR_NAME. AsString: = Org [5];

ADOTableOrgKADR_TEL. AsString: = Org [7];

ADOTableOrgUSER_EDIT. AsString: = Login;

ADOTableOrgDATE_EDIT. Value: = Date;

ADOTableOrg. Post;

ADOQueryID. SQL. Clear;

ADOQueryID. SQL. Add ('SELECT ORG_ID FROM ORG WHERE' + ' (AREA = ' +

Copy (Org [0], 1,3) + ') AND ' + ' (REGION = ' + Copy (Org [0], 5,3) +

') AND ' + ' (REG_NUM = ' + Copy (Org [0], 9,6) + ') ');

ADOQueryID. Active: = True;

ORG_ID: = ADOQueryID. Fields. AsInteger;

ADOQueryID. Active: = False;

end;

V: = ADOTablePeriod. Lookup ('ORG_ID; YEAR; KVARTAL', VarArrayOf ([ORG_ID,

StrToInt (Period [1]), Period [2]]), 'ORG_ID');

if not VarIsNull (V) then begin

ADOTablePeriod. Locate ('ORG_ID; YEAR; KVARTAL', VarArrayOf ([ORG_ID,

StrToInt (Period [1]), Period [2]]), []);

ADOTablePeriod. Edit;

ADOTablePeriodDATE_SOST. AsString: = Period [0];

ADOTablePeriodKOL_SOTR. AsString: = Period [3];

ADOTablePeriodUSER_EDIT. AsString: = Login;

ADOTablePeriodDATE_EDIT. Value: = Date;

ADOTablePeriod. Post;

PERIOD_ID: = ADOTablePeriodPERIOD_ID. AsInteger;

end else begin

ADOTablePeriod. Insert;

ADOTablePeriodORG_ID. AsInteger: = ORG_ID;

ADOTablePeriodDATE_SOST. AsString: = Period [0];

ADOTablePeriodYEAR. AsString: = Period [1];

ADOTablePeriodKVARTAL. AsString: = Period [2];

ADOTablePeriodKOL_SOTR. AsString: = Period [3];

ADOTablePeriodUSER_ADD. AsString: = Login;

ADOTablePeriodDATE_ADD. Value: = Date;

ADOTablePeriod. Post;

ADOQueryID. SQL. Clear;

ADOQueryID. SQL. Add ('SELECT PERIOD_ID FROM PERIOD WHERE' + ' (ORG_ID = ' +

IntToStr (ORG_ID) + ') AND ' + ' (YEAR = ' + Period + ') AND ' +

' (KVARTAL = ''' + Period + ''') ');

ADOQueryID. Active: = True;

PERIOD_ID: = ADOQueryID. Fields. AsInteger;

ADOQueryID. Active: = False;

end;

NodesPodrazd: = XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes;

for I: = 2 to NodesPodrazd. Count-1 do begin

if (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. NodeName = 'Подразделение') and

(XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. HasChildNodes) then begin

Podrazd [0]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes ['НомерПодраз']. Text);

Podrazd [1]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes ['НазваниеПодраз']. Text);

Podrazd [2]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes ['РаботаПодраз']. Text);

Podrazd [3]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes ['КолСотрПодраз']. Text);

V: = ADOTablePodrazd. Lookup ('ORG_ID; NUM', VarArrayOf ([ORG_ID,

Podrazd [0]]), 'ORG_ID');

if not VarIsNull (V) then begin

ADOTablePodrazd. Locate ('ORG_ID; NUM', VarArrayOf ([ORG_ID, Podrazd [0]]),

[]);

ADOTablePodrazd. Edit;

ADOTablePodrazdNAME. AsString: = Podrazd [1];

ADOTablePodrazdDISCRIPTION. AsString: = Podrazd [2];

ADOTablePodrazdKOL_SOTR. AsString: = Podrazd [3];

ADOTablePodrazdUSER_EDIT. AsString: = Login;

ADOTablePodrazdDATE_EDIT. Value: = Date;

ADOTablePodrazd. Post;

PODRAZD_ID: = ADOTablePodrazdPODRAZD_ID. AsInteger;

end else begin

ADOTablePodrazd. Insert;

ADOTablePodrazdORG_ID. AsInteger: = ORG_ID;

ADOTablePodrazdNUM. AsString: = Podrazd [0];

ADOTablePodrazdNAME. AsString: = Podrazd [1];

ADOTablePodrazdDISCRIPTION. AsString: = Podrazd [2];

ADOTablePodrazdKOL_SOTR. AsString: = Podrazd [3];

ADOTablePodrazdUSER_ADD. AsString: = Login;

ADOTablePodrazdDATE_ADD. Value: = Date;

ADOTablePodrazd. Post;

ADOQueryID. SQL. Clear;

ADOQueryID. SQL. Add ('SELECT PODRAZD_ID FROM PODRAZD WHERE' +

' (ORG_ID = ' + IntToStr (ORG_ID) + ') AND' + ' (NUM = ''' +

Podrazd + ''') ');

ADOQueryID. Active: = True;

PODRAZD_ID: = ADOQueryID. Fields. AsInteger;

ADOQueryID. Active: = False;

end;

NodesProfession: = XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes;

for Q: = 4 to NodesProfession. Count-1 do begin

if (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. NodeName = 'ЛьготнаяПрофессия') and

(XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. HasChildNodes) then begin

Prof [0]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes ['Профессия']. Text);

Prof [1]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes ['УсловияРаботы']. Text);

Prof [2]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes ['ОснованиеЛьготы1']. Text);

Prof [3]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes ['ОснованиеЛьготы2']. Text);

Prof [4]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes ['ОснованиеЛьготы3']. Text);

Prof [5]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes ['ПозицияСписка']. Text);

Prof [6]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes ['ПодтверДокумент']. Text);

Prof [7]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes ['КоличествоШтат']. Text);

Prof [8]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes ['КоличествоФакт']. Text);

Prof [9]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes ['ЕТКС']. Text);

Prof [10]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes ['ДатаЗап']. Text);

Prof [11]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes ['ДатаКор']. Text);

V: = ADOTableProfession. Lookup ('PODRAZD_ID; PERIOD_ID; PROFESSION',

VarArrayOf ([PODRAZD_ID, PERIOD_ID, Prof [0]]), 'PODRAZD_ID');

if not VarIsNull (V) then begin

ADOTableProfession. Locate ('PODRAZD_ID; PERIOD_ID; PROFESSION',

VarArrayOf ([PODRAZD_ID, PERIOD_ID, Prof [0]]), []);

ADOTableProfession. Edit;

ADOTableProfessionDISCRIPTION. AsString: = Prof [1];

ADOTableProfessionOSNOV1. AsString: = Prof [2];

ADOTableProfessionOSNOV2. AsString: = Prof [3];

ADOTableProfessionOSNOV3. AsString: = Prof [4];

ADOTableProfessionSPIS_POZ. AsString: = Prof [5];

ADOTableProfessionDOCS. AsString: = Prof [6];

ADOTableProfessionKOL_SHTAT. AsString: = Prof [7];

ADOTableProfessionKOL_FAKT. AsString: = Prof [8];

ADOTableProfessionDATE_ZAP. AsString: = Prof [10];

ADOTableProfessionDATE_KOR. AsString: = Prof [11];

ADOTableProfessionUSER_EDIT. AsString: = Login;

ADOTableProfessionDATE_EDIT. Value: = Date;

ADOTableProfession. Post;

PROF_ID: = ADOTableProfessionPROF_ID. AsInteger;

end else begin

ADOTableProfession. Insert;

ADOTableProfessionPODRAZD_ID. AsInteger: = PODRAZD_ID;

ADOTableProfessionPERIOD_ID. AsInteger: = PERIOD_ID;

ADOTableProfessionPROFESSION. AsString: = Prof [0];

ADOTableProfessionDISCRIPTION. AsString: = Prof [1];

ADOTableProfessionOSNOV1. AsString: = Prof [2];

ADOTableProfessionOSNOV2. AsString: = Prof [3];

ADOTableProfessionOSNOV3. AsString: = Prof [4];

ADOTableProfessionSPIS_POZ. AsString: = Prof [5];

ADOTableProfessionDOCS. AsString: = Prof [6];

ADOTableProfessionKOL_SHTAT. AsString: = Prof [7];

ADOTableProfessionKOL_FAKT. AsString: = Prof [8];

ADOTableProfessionDATE_ZAP. AsString: = Prof [10];

ADOTableProfessionDATE_KOR. AsString: = Prof [11];

ADOTableProfessionUSER_ADD. AsString: = Login;

ADOTableProfessionDATE_ADD. Value: = Date;

ADOTableProfession. Post;

ADOQueryID. SQL. Clear;

ADOQueryID. SQL. Add ('SELECT PROF_ID FROM PROFESSION WHERE' +

' (PODRAZD_ID = ' + IntToStr (PODRAZD_ID) + ') AND' +

' (PERIOD_ID = ' + IntToStr (PERIOD_ID) + ') AND' +

' (PROFESSION = ''' + Prof + ''') ');

ADOQueryID. Active: = True;

PROF_ID: = ADOQueryID. Fields. AsInteger;

ADOQueryID. Active: = False;

end;

NodesEmployee: = XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes;

for J: = 12 to NodesEmployee. GetCount-1 do begin

if (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes [J]. NodeName = 'ПоименныйСписок') and

(XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes [J]. HasChildNodes) then begin

Empl [0]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes [J]. ChildNodes ['СтрНомер']. Text);

Empl [1]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes [J]. ChildNodes ['Фамилия']. Text);

Empl [2]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes [J]. ChildNodes ['Имя']. Text);

Empl [3]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes [J]. ChildNodes ['Отчество']. Text);

Empl [4]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes [J]. ChildNodes ['КолПериодов']. Text);

V: = ADOTableEmployee. Lookup ('PODRAZD_ID; PROF_ID; STRAH_NUM',

VarArrayOf ([PODRAZD_ID, PROF_ID, Empl [0]]), 'PODRAZD_ID');

if not VarIsNull (V) then begin

ADOTableEmployee. Locate ('PODRAZD_ID; PROF_ID; STRAH_NUM',

VarArrayOf ([PODRAZD_ID, PROF_ID, Empl [0]]), []);

ADOTableEmployee. Edit;

ADOTableEmployeeFAM. AsString: = Empl [1];

ADOTableEmployeeNAME. AsString: = Empl [2];

ADOTableEmployeeOTCH. AsString: = Empl [3];

ADOTableEmployeeKOL_WPERIOD. AsString: = Empl [4];

ADOTableEmployeeUSER_EDIT. AsString: = Login;

ADOTableEmployeeDATE_EDIT. Value: = Date;

ADOTableEmployee. Post;

EMPL_ID: = ADOTableEmployeeEMPL_ID. AsInteger;

end else begin

ADOTableEmployee. Insert;

ADOTableEmployeePODRAZD_ID. AsInteger: = PODRAZD_ID;

ADOTableEmployeePROF_ID. AsInteger: = PROF_ID;

ADOTableEmployeeSTRAH_NUM. AsString: = Empl [0];

ADOTableEmployeeFAM. AsString: = Empl [1];

ADOTableEmployeeNAME. AsString: = Empl [2];

ADOTableEmployeeOTCH. AsString: = Empl [3];

ADOTableEmployeeKOL_WPERIOD. AsString: = Empl [4];

ADOTableEmployeeUSER_ADD. AsString: = Login;

ADOTableEmployeeDATE_ADD. Value: = Date;

ADOTableEmployee. Post;

ADOQueryID. SQL. Clear;

ADOQueryID. SQL. Add ('SELECT EMPL_ID FROM EMPLOYEE WHERE' +

' (PODRAZD_ID = ' + IntToStr (PODRAZD_ID) + ') AND' +

' (PROF_ID = ' + IntToStr (PROF_ID) + ') AND' +

' (STRAH_NUM = ''' + Empl + ''') ');

ADOQueryID. Active: = True;

EMPL_ID: = ADOQueryID. Fields. AsInteger;

ADOQueryID. Active: = False;

end;

NodesWorkperiod: = XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes [J]. ChildNodes;

for K: = 5 to NodesWorkperiod. Count-1 do begin

if (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes [J]. ChildNodes [K]. NodeName = 'ПериодРаботы') and

(XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes [J]. ChildNodes [K]. HasChildNodes) then begin

Wperiod [0]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes [J]. ChildNodes [K]. ChildNodes ['Должность']. Text);

Wperiod [1]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes [J]. ChildNodes [K]. ChildNodes ['НачалоПериода']. Text);

Wperiod [2]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes [J]. ChildNodes [K]. ChildNodes ['КонецПериода']. Text);

Wperiod [3]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes [J]. ChildNodes [K]. ChildNodes ['КолДнейБезЗП']. Text);

Wperiod [4]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes [J]. ChildNodes [K]. ChildNodes ['ОснованиеЛьготы1']. Text);

Wperiod [5]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes [J]. ChildNodes [K]. ChildNodes ['ОснованиеЛьготы2']. Text);

Wperiod [6]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes [J]. ChildNodes [K]. ChildNodes ['ОснованиеЛьготы3']. Text);

Wperiod [7]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes [J]. ChildNodes [K]. ChildNodes ['ПозицияСписка']. Text);

Wperiod [8]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes [J]. ChildNodes [K]. ChildNodes ['ФактМесяцев']. Text);

Wperiod [9]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes [J]. ChildNodes [K]. ChildNodes ['ФактДней']. Text);

Wperiod [10]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes [J]. ChildNodes [K]. ChildNodes ['ДоляСтавки']. Text);

Wperiod [11]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes [J]. ChildNodes [K]. ChildNodes ['ЧасыВыслуги']. Text);

V: = ADOTableWorkperiod. Lookup ('EMPL_ID; PROFESSION; DATE_BEGIN',

VarArrayOf ([EMPL_ID, Wperiod [0], StrToDate (Wperiod [1])]),

'EMPL_ID');

if not VarIsNull (V) then begin

ADOTableWorkperiod. Locate ('EMPL_ID; PROFESSION; DATE_BEGIN',

VarArrayOf ([EMPL_ID, Wperiod [0],

StrToDate (Wperiod [1])]), []);

ADOTableWorkperiod. Edit;

ADOTableWorkperiodDATE_END. AsString: = Wperiod [2];

ADOTableWorkperiodDAY_BEZ_ZP. AsString: = Wperiod [3];

ADOTableWorkperiodOSNOV1. AsString: = Wperiod [4];

ADOTableWorkperiodOSNOV2. AsString: = Wperiod [5];

ADOTableWorkperiodOSNOV3. AsString: = Wperiod [6];

ADOTableWorkperiodSPIS_POZ. AsString: = Wperiod [7];

ADOTableWorkperiodMONTH_OTRAB. AsString: = Wperiod [8];

ADOTableWorkperiodDAY_OTRAB. AsString: = Wperiod [9];

ADOTableWorkperiodRATE. AsString: = Wperiod [10];

ADOTableWorkperiodHOURS_VYSLUGI. AsString: = Wperiod [11];

ADOTableWorkperiodUSER_EDIT. AsString: = Login;

ADOTableWorkperiodDATE_EDIT. Value: = Date;

ADOTableWorkperiod. Post;

end else begin

ADOTableWorkperiod. Insert;

ADOTableWorkperiodEMPL_ID. AsInteger: = EMPL_ID;

ADOTableWorkperiodPROFESSION. AsString: = Wperiod [0];

ADOTableWorkperiodDATE_BEGIN. AsString: = Wperiod [1];

ADOTableWorkperiodDATE_END. AsString: = Wperiod [2];

ADOTableWorkperiodDAY_BEZ_ZP. AsString: = Wperiod [3];

ADOTableWorkperiodOSNOV1. AsString: = Wperiod [4];

ADOTableWorkperiodOSNOV2. AsString: = Wperiod [5];

ADOTableWorkperiodOSNOV3. AsString: = Wperiod [6];

ADOTableWorkperiodSPIS_POZ. AsString: = Wperiod [7];

ADOTableWorkperiodMONTH_OTRAB. AsString: = Wperiod [8];

ADOTableWorkperiodDAY_OTRAB. AsString: = Wperiod [9];

ADOTableWorkperiodRATE. AsString: = Wperiod [10];

ADOTableWorkperiodHOURS_VYSLUGI. AsString: = Wperiod [11];

ADOTableWorkperiodUSER_ADD. AsString: = Login;

ADOTableWorkperiodDATE_ADD. Value: = Date;

ADOTableWorkperiod. Post;

end;

end;

end;

end;

end;

end;

end;

end;

end;

ADOTableOrg. Requery ();

ADOTablePeriod. Requery ();

ADOTablePodrazd. Requery ();

ADOTableProfession. Requery ();

ADOTableEmployee. Requery ();

ADOTableWorkperiod. Requery ();

end;

MessageBox (Handle, PWideChar ('XML файл загружен успешно! '), 'Выполнено',

MB_ICONINFORMATION);

end;

8. Организация охраны труда

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

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

8.1 Общие требования безопасности

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

8.1.2 Работник обязан:

1) Выполнять только ту работу, которая определена его должностной инструкцией.

2) Содержать в чистоте рабочее место.

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

4) Соблюдать меры пожарной безопасности.

8.1.3 При эксплуатации персонального компьютера на работника могут оказывать действие следующие опасные и вредные производственные факторы:

1) Повышенный уровень электромагнитных излучений.

2) Повышенный уровень статического электричества.

3) Пониженная ионизация воздуха.

4) Статические физические перегрузки.

5) Перенапряжение зрительных анализаторов.

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

8.1.5 Температура в рабочем помещении должна поддерживаться в пределах 21−23°С.

8.2 Требования безопасности перед началом работы

8.2.1 Подготовить рабочее место.

8.2.2 Отрегулировать освещение на рабочем месте, убедиться в отсутствии бликов на экране.

8.2.3 Проверить правильность подключения оборудования к электросети.

8.2.4 Проверить исправность проводов питания и отсутствие оголенных участков проводов.

8.2.5 Убедиться в наличии заземления системного блока, монитора и защитного экрана.

8.2.6 Протереть антистатической салфеткой поверхность экрана монитора и защитного экрана.

8.2.7 Проверить правильность установки угла наклона экрана, положение клавиатуры, положение «мыши» .

8.3 Требования безопасности во время работы

8.3.1 Работнику при работе на ПК запрещается:

1) Прикасаться к задней панели системного блока при включенном питании.

2) Переключать разъемы интерфейсных кабелей периферийных устройств при включенном питании.

3) Допускать попадание влаги на поверхность системного блока, монитора, рабочую поверхность клавиатуры, дисководов, принтеров и других устройств.

4) Производить самостоятельное вскрытие и ремонт оборудования.

5) Работать на компьютере при снятых кожухах.

6) Отключать оборудование от электросети и выдергивать электровилку, держась за шнур.

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

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

8.4 Требования безопасности в аварийных ситуациях

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

8.4.2 Не приступать к работе до устранения неисправностей.

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

8.5 Требования безопасности по окончании работы

8.5.1 Отключить питание компьютера.

8.5.2 Привести в порядок рабочее место.

9. Вывод

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

Выполнил индивидуальное задание:

1. Ознакомился со структурой предприятия, его деятельностью.

2. Изучил должностные инструкции специалиста, технику безопасности на предприятии.

3. Изучил объект автоматизации.

4. Собрал, систематизировал и обобщил информацию и материалы, необходимые для написания дипломной работы.