Размещено на http://www.allbest.ru/

План

Введение

1. Общая часть

1.1 Цель разработки

1.2 Анализ использования разработки

1.3 Анализ методов решения

1.4 Анализ средств автоматизации

2. Специальная часть

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

2.1.1 Назначения задачи

2.1.2 Описание задачи

2.1.3 Требования к программе

2.2 Описания базы данных

2.3 Текст программы с описанием

2.4 Описание процесса отладки

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

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

3.1 Расчет себестоимости программного продукта

3.1.1 Расчет трудоемкости разработки программного продукта

3.1.2 Расчет заработной платы исполнителей работ по созданию программного продукта

3.1.3 Расчет начислений на заработную плату разработчика и программиста

3.1.4 Расчет затрат на расходные материалы

3.1.5 Расчет себестоимости одного машино-часа работы ПЭВМ

3.1.6 Годовые эксплуатационные расходы

3.1.7 Себестоимость одного машино-часа

3.1.8 Расчет расходов на содержание и эксплуатацию ПЭВМ, относящихся к данному программному продукту

3.1.9 Накладные расходы

3.1.10 Расчет себестоимости программного продукта

4 Охрана труда и техника безопасности

4.1 Анализ потенциально-опасных и вредных факторов

4.2 Техника безопасности

4.3 Эргономика

Заключение

Список использованных источников

Приложения

Введение

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

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

Первые ЭВМ предназначались только для вычислений. Счёт возник ещё в далёкие доисторические времена в своей простейшей форме, что было связано с потребностью счёта предметов. Но современные ЭВМ могут обрабатывать информацию разных видов: текстовую, графическую, аудио, видео и т. д.

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

Данный дипломный проект выполнялся в «Кольчугинском политехническом колледже».

Целью данного дипломного проекта является разработка программного средства «Портфолио педагога».

1. Общая часть

1.1 Цель разработки

Целью данной разработки является создание программного средства «Портфолио педагога».

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

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

- автоматизация процессов при подготовке документов к аттестации педагога;

- сокращение времени при заполнении анкет и корректировки;

- создание единой базы данных по сотрудникам.

1.2 Анализ использования разработки

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

1.3 Анализ методов решения

Различают следующие методы решения: ручной, автоматизированный и автоматический.

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

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

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

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

1.4 Анализ средств автоматизации

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

При разработке данного программного средства будут использованы такие средства автоматизации, как интегрированная среда разработки приложений Delphi, СУБД Microsoft Office Access, а так же текстовый процессор Microsoft Office Word.

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

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

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

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

Создаваемое в среде Delphi приложение состоит из нескольких элементов, объединенных в проект. В состав проекта входят следующие элементы: код проекта (DPR), описание форм (DFM), модули форм (PAS), модули (PAS), параметры проекта (DOF), описание ресурсов (RES).

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

База данных для хранения информации о сотрудниках будет реализована в Microsoft Office Access,

Начиная с версии 98, Microsoft Office Access работает на операционных системах Microsoft Windows, основанных на NT, таких как Win2000, WinXP, Win2003 и выше. Обычно, Microsoft Office Access может работать на любой современной платформе совместимой с Windows.

2. специальная часть

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

Требуется разработать программный продукт «Портфолио педагога».

2.1.1 Назначение задачи

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

- ввод информации о преподавателе;

- просмотр и редактирование информации самим преподавателем;

- формирование отчетов и вывода их на печать.

2.1.2 Описание задачи

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

- фамилия, имя, отчество;

- дата рождения;

- образование;

- наименование учреждения, выдавшего диплом;

- год окончания обучения;

- основная должность;

- внутреннее совмещение (если есть);

- преподаваемые дисциплины;

- стаж педагогической работы;

- стаж в данной должности;

- квалификационная категория;

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

- государственные награды;

- отраслевые награды;

- благодарности;

- грамоты;

- дипломы;

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

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

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

- наличие авторских материалов.

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

- добавление нового преподавателя;

- удаление информации о конкретном преподавателе

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

2.1.3 Требования к программе

В данном программном средстве предусмотреть работу двух видов пользователей. Первый администратор и второй обычный пользователь «преподаватель».

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

Основные требования, предъявляемые к программному продукту:

- работа пользователя с задачей осуществляется через экранные формы;

- программное средство не должно содержать ошибок;

- программное средство должно иметь дружественный интерфейс;

Требование к аппаратному обеспечению -

Для работы программы необходимо:

- свободного места на жестком диске не менее 40 Мб;

- не менее 64 Мб оперативной памяти;

- процессор класса Intel Pentium 3 и выше;

- операционная система Microsoft Windows 98 и далее;

- стандартный манипулятор мышь;

- стандартная клавиатура;

- стандартный монитор;

- принтер

2.2 Описание базы данных

В данном дипломном проекте для хранения, объединения информации создана и подключена к программному средству база данных. База данных имеет название «Ankets», объем ее 700 Кb. Расположена в одной папке с программным продуктом. программа портфолио педагог сотрудник

База данных включает в себя следующие таблицы:

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

- AnkObraz (см. таблицу 2.2) справочник образования;

- Avtor_Mat (см. таблицу 2.3) записываются авторские материалы;

- Blago (см. таблицу 2.4) записываются благодарности ;

- Diplom (см. таблицу 2.5) записываются данные о дипломе преподавателя;

- Disc (см. таблица 2.6) записываются дисциплины преподавателя;

- AnkDisc (см. таблица 2.7) записывается номер анкеты;

- Gramota см таблица 2.8 для хранения информации о грамотах;

- Nagrada см таблица 2.9 для хранения информации о наградах;

- Obraz см таблица 2.10 записываются образования;

- Otr_Nagrada см таблица 2.11 для хранения информации о отраслевых наградах;

- Res_Uch см таблица 2.12 записываются результаты участия в мероприятиях;

- Res_Vneur см таблица 2.13 записываются результаты участия во внеурочной деятельности;

- Users см таблица 2.14 хранятся данные о зарегистрированных пользователях.

Таблица 2.1. Anketa

Имя поля	Назначения поля	Тип	Описание
1	2	3	4
ID_Anketa	Ключевое поле	Счетчик	Ключевое поле
FIO	Заносится фамилия, имя, отчество	Текстовый	Размер поля 100
Data_Rojd	Записывается дата рождения	Дата/время	Дата
Dipl_Uhr	Записывается наименования выдавшего диплом	Текстовый	Размер поля 50
Dipl_Spec	Записывается специальность по диплому	Текстовый	Размер поля 50
Osn_Doljn	Записывается основная должность	Текстовый	Размер поля 50
Wnutr_Sovm	Записывается внутреннее совмещение	Текстовый	Размер поля 50
God_Konc	Записывается год окончания обучения	Текстовый	Размер поля 5
Staj_Ped	записывается стаж педагогической работы	Числовой	Длинное целое
Staj_Doljn	записывается стаж в данной должности	Числовой	Длинное целое
Kval_Kat	записывается квалификационная категория	Текстовый	Размер поля 50
Kval_Data	записывается дата присвоения квалификационной категории	Дата/время	дата
Mesto_Gor	Записывается наименование города последнего курсового обучения	Текстовый	Размер поля 50
Mesto_Name	Записывается наименование учреждения последнего курсового обучения	Текстовый	Размер поля 50
Mesto_Data	записывается дата последнего курсового обучения	Дата/время	Дата
ID_Users	Пользователь	Числовой	целое

Таблица 2.2. AnkObraz

Имя поля	Назначения поля	Тип	Описания
ID_AnkObraz	Ключевое поле	Счетчик	Ключевое поле
ID_Anketa	Вторичный ключ	Числовой	Вторичный ключ
ID_Obraz	Вторичный ключ	Числовой	Вторичный ключ

Таблица 2.3. Avtor_Mat

Имя поля	Назначения поля	Тип	Описания
1	2	3	4
ID_Avtor_Mat	Ключевое поле таблицы	Счетчик	Ключевое поле
ID_Anketa	Вторичный ключ	Числовой	Вторичный ключ
Program	Наличие авторских материалов «программ»	Логический	Да/Нет
Metod	Наличие авторских материалов «методических разработок	Логический	Да/Нет
Public	Наличие авторских материалов «публикаций»	Логический	Да/Нет
Pechat	Наличие авторских материалов «печатных изданий»	Логический	Да/Нет
Elect_Res	Наличие авторских материалов «электронных ресурсов»	Логический	Да/Нет

Таблица 2.4. Blago

Имя поля	Назначения поля	Тип	Описания
ID_Blago	Ключевое поле таблицы	Счетчик	Ключевое поле
ID_Anketa	Вторичный ключ	числовой	Вторичный ключ
Ot_Kogo	Благодарности «от кого»	Текстовый	Размер поля 50
God	Благодарности «год выдачи»	Текстовый	Размер поля 5
Drugoe	Пользовательский вариант	Текстовый	Размер поля 255

Таблица 2.5. Diplom

Имя поля	Назначения поля	Тип поля	описания
1	2	3	4
ID_Diplom	Ключевое поле таблицы	Счетчик	Ключевое поле
ID_Anketa	Вторичный ключ	Числовой	Вторичный ключ
Kem	Диплом «кем выдан»	Текстовый	Размер поля 50
Kogda	Диплом «когда выдан»	Дата/время	Дата
Drugoe	Пользовательский вариант	Текстовый	Размер поля 255

Таблица 2.6. Disc

Имя поля	Назначения поля	Тип	Описания
ID_Disc	Ключевое поле	Счетчик	Ключевое поле
Name	Название дисциплины	Текстовый	Размер поля 50

Таблица 2.7. AnkDisc

Имя поля	Назначения поля	Тип	Описания
ID_AnkDisc	Ключевое поле таблицы	Счетчик	Ключевое поле таблицы
ID_Anketa	Вторичный ключ	Числовой	Вторичный ключ
ID_Dlsc	Вторичный ключ	Числовой	Вторичный ключ

Таблица 2.8. Gramota

Имя поля	Назначения поля	Тип	Описания
ID_Gramota	Ключевое поле таблицы	Счетчик	Ключевое поле
ID_Anketa	Вторичный ключ	Числовой	Вторичный ключ
Kem	Грамоты «кем выдана»	Текстовый	Размер поля 50
God	Грамоты «год выдачи»	Текстовый	Размер поля 5
ZaHto	Грамоты «за что выдана»	Текстовый	Размер поля 50
Drugoe	Пользовательский вариант	Текстовый	Размер поля 255

Таблица 2.9. Nagrada

Имя поля	Назначения поля	Тип	Описания
1	2	3	4
ID_Nagrada	Ключевое поле	Счетчик	Ключевое поле
ID_Anketa	Вторичный ключ	Числовой	Вторичный ключ
Kem_Vydana	Государственные награды «кем выдана»	Текстовый	Размер поля 50
Gorod	Государственные награды «город»	Текстовый	Размер поля 50
God	Государственные награды «год выдачи»	Текстовый	Размер поля 5
Drugoe	Пользовательский вариант	Текстовый	Размер поля 255

Таблица 2.10. Obraz

Имя поля	Назначения поля	Тип	Описания
ID_Obraz	Ключевое поле таблицы	Счетчик	Ключевое поле
Name	Названия образования	Текстовый	Размер поля 50

Таблица 2.11. Nagrada

Имя поля	Назначения поля	Тип	Описания
Otr_Nagrada	Ключевое поле таблицы	Счетчик	Ключевое поле
ID_Anketa	Вторичный ключ	Числовой	Вторичный
Kem_Wyd	Отраслевые награды «кем выдана»	Текстовый	Размер поля 50
Gorod	Отраслевые награды «город»	Текстовый	Размер поля 50
God	Отраслевые награды «год»	Текстовый	Размер поля 5
Drugoe	Пользовательский вариант	Текстовый	Размер поля 255

Таблица 2.12. Res_Uch

Имя поля	Назначения поля	Тип	Описания
1	2	3	4
ID_Res_Uch	Ключевое поле таблицы	Счетчик	Ключевое поле
ID_Anketa	Вторичный ключ	Числовой	Вторичный
Pred_Olimp	Предметные олимпиады	Логический	Да/Нет
Pred_Olimp_Ur	Заптсывается какой уровень	Текстовый	Размер поля 100
Konkurs	Конкурсы	Логический	Да/Нет
Konkurs_Ur	Записывается какой уровень	Текстовый	Размер поля 100
Npk	Научно практические конференции	Логический	Да/Нет
Npk_Ur	Записывается какой уровень	Текстовый	Размер поля 100

Таблица 2.13. Res_Vneur

Имя поля	Назначения поля	Тип	Описания
ID_Res_Vneur	Ключевое поле таблицы	Счетчик	Ключевое поле
ID_Anketa	Вторичный ключ	Числовой	Вторичный ключ
Konkurs	Конкурсы	Логический	Да/Нет
Konkurs_Ur	Записывается какой уровень	Текстовый	Размер поля 100
Koncert	Концерты	Логический	Да/Нет
Koncert_Ur	Записывается какой уровень	Текстовый	Размер поля 100
Vystav	Выставки	Логический	Да/Нет
Vystav_Ur	Записывается какой уровень	Текстовый	Размер поля 100
Turnir	Турниры	Логический	Да/Нет
Turnir_Ur	Записывается какой уровень	Текстовый	Размер поля 100
Sorevn	Соревнования	Логический	Да/Нет
Sorevn_Ur	Записывается какой уровень	Текстовый	Размер поля 100

Таблица 2.14. Users

Имя поля	Назначения поля	Тип	Описания
ID_Users	Ключевое поле таблицы	Счетчик	Ключевое поле
Login	Логин	Текстовый	Размер поля 50
Pass	Пароль пользователя	Текстовый	Размер поля 50

ЕR модель базы данных представлена в приложении 1.

2.3 Текст программы с описанием

Программа «Портфолио педагога» создана в среде разработки Borland Delphi 7. Файл программы: PotfolioPedagoga.exe, размер файла программы: 7.20 мб. Программа поставляется на CD-диске. Для установки необходимо скопировать папку программы на жёсткий диск в нужную папку. Для запуска программы необходимо открыть файл PotfolioPedagoga.exe.

Схема взаимодействия модулей см рис 2.1.



Рис 2.1 Схема взаимодействия модулей

Листинг программного средства представлен в Приложении 2

Укрупненная блок схема программы (см. рис 2.2).

Рис 2.2 Укрупненная блок-схема

2.4 Описание процесса отладки

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

- пунктуационные;

- синтаксические;

- логические;

- арифметические

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

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

После запуска программного средства, путем двойного клика левой кнопки мыши по файлу рotfolioPedagoga.exe, открывается форма «Авторизация», (см. рис 2.3).

Рис2.3 Авторизация

На форме присутствуют следующие кнопки:

- Отмена

- Ок

- Регистрация

При нажатии на кнопку «Отмена» программа закрывается. При нажатии на кнопку «Регистрация» открывается форма «Добавить пользователя» (см. рис 2.5).

Рис 2.5 Добавить пользователя

После вода имени и пароля нужно нажать кнопку «Ок». Появится сообщение о том, что пользователь добавлен (см. рис 2.6).

Рис 2.6 Пользователь добавлен

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



Рис 2.7 Выбор пользователя

Когда имя выбрано нужно вести пароль и нажать кнопку «Ок» вы попадает в главную анкету (см рис 2.5.5).

Рис 2.5.5 Анкета

На форме расположено следующие вкладыши (см рис 2.5.6):

- Основное

- Квалификация

- Награды

- Результаты и материалы



Рис 2.5.6 Основные вкладыши

При нажатие на вкладыш «Основное» открывается содержимое этого вкладыша (см рис 2.5.7).

Рис 2.5.7 Основное

Где расположены:

- ФИО - записывается фамилия, имя, отчество;

- Дата рождения - записывается дата рождения;

- Наименования учреждения выдавшего диплом - записывается названия учреждения;

- Год окончания обучения - записывается год;

- Образование - можно выбрать из предложенного списка, а можно записать свое образования нажав на кнопку «многоточия» (см рис 2.5.8);



Рис 2.5.8 Многоточие

Далее вписать образование (см рис 2.5.9).

Рис 2.5.9 Добавления образования

После вода нажимаем кнопку «Ок» образования автоматически появится в выпадающем списке (см рис 2.5.10)

Рис 2.5.10 Образование

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

Рис 2.5.11 Добавление образования

Если вы выберете вкладыш «Квалификация» то там откроется форма (см рис 2.5.12).

Рис 2.5.12 Квалификация

В данном вкладыше расположены следующие элементы:

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

- Стаж в основной должности;

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

- Преподаваемые дисциплины - смысл как и добавление, образование (см выше)

- Стаж педагогической работы;

- Квалификационная категория - записывается категория;

- Дата присвоения категории;

- Место последнего курсового обучения «Город»

- Наименования учреждения;

- Дата обучения.

При выборе вкладыша «Награды» открывается форма (см рис 2.5.13)

Рис 2.5.13 Награды

На форме имеется дополнительные вкладыши (см рис 2.5.14)

Рис 2.5.14

Вкладыши:

- Государственные награды;

- Отраслевые награды;

- Благодарности;

- Грамоты;

- Дипломы.

Для того чтобы добавить одну из наград нужно ЛКМ выбрать нужную награду и нажать на кнопку «Добавить» на нижней панели (рис 2.5.15).

Рис 2.5.15 Добавить

Появится форма добавления выбранной награды (рис 2.5.16).

Рис 2.5.16 Добавление наград

После заполнения полей:

- Кем выдана - записывается кем выдана;

- Город - записывается город, где выдана награда;

- Год выдачи - записывается год;

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

После заполнения полей нужно нажать кнопку «Ок» появится сообщение о том, что запись добавлена (рис 2.5.17).

Рис 2.5.17 Запись добавлена

После нажатие на кнопку «ок» запись появится в белом окошке (рис 2.5.18).

Рис 2.5.18 Добавление в список

Для того чтобы изменить награду нужно выбрать ее ЛКМ и нажать на нижней панели кнопку «Изменить», если нужно удалить то нужно нажать кнопку «Удалить» (рис 2.5.15).

Если выбрать вкладыш «Результаты и материалы» появится форма (рис 2.5.19).



Рис 2.5.20 Результаты и материалы

На форме расположены дополнительные вкладыши (рис 2.5.21).

Рис 2.5.21 Дополнительные вкладыши

Это вкладыши:

- Учебная деятельность;

- Внеурочная деятельность (1);

- Внеурочная деятельность (2);

- Авторские материалы.

При выборе «Учебной деятельности» открывается вкладыш (рис 2.5.22).



Рис 2.5.22 Учебная деятельность

На вкладыше располагаются:

- Предметные олимпиады;

- Конкурсы;

- Научно практические конференции;

Чтобы добавить одну из деятельностей нужно поставить галочку напротив нее (рис 2.5.23).

Рис 2.5.23 Добавление деятельности

Далее нужно выбрать «Уровень» из выпадающего списка (рис 2.5.24)

Рис 2.5.24 Уровень

Далее можно добавить ксерокопии предметных олимпиад нажав «синий плюсик» или потом их удалить, нажав «красный плюсик».

На вкладышах:

- Внеурочная деятельность (1);

- Внеурочная деятельность (2);

- Авторские материалы.

Метод работы такой же как добавления учебной деятельности.

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

3.1 Расчет себестоимости программного продукта «Портфолио педагога»

3.1.1 Расчет трудоемкости разработки программного продукта

Расчет трудоемкости представлен в таблице 3.1.

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

Стадия разработки программного средства	Затраты времени, чел-час.	№ нормы из НРК
1	2	3
1. Предпроектное обследование
- изучение объекта проектирования - изучение справочного материала - анализ выполняемых функций ПС и формирование требований к ПС - анализ использования ПС	48	16 [10]
2. Постановка задачи
- цель разработки - назначение задачи - описание структуры программы - описание алгоритма задачи	24	5 [10]
3. Разработка программного средства
- создание экранной формы (ЭФ) и включение ее в задачу - ЭФ «Основное» (2кат) - ЭФ «Клавификация»(2 кат) - ЭФ «Награды (1 кат) - ЭФ «Результаты и материалы» (2 кат)	42	2 [11
- создание и включение в задачу новой таблицы: - id_nagrada (1 кат) - id_diplom (2кат) - id_res_uch (2 кат) - id_ users (1 кат)	40	3 [10]
4. Отладка программного средства
- тестирование 1 категории сложности - оптимизации ПС 1 категории сложности	16 12	18 [10] 8 [11]
5. Оформление документации
- оформление документации в текстовом редакторе 1 категории сложности - составление инструкции пользователя	2 4	19 [10] 15 [10]
- оформление документации на программный код	8	17 [11]
6. Внедрение
- организация нового рабочего места и обучение работника функциям ПС	2	13 [11]
Итого, в том числе: затраты рабочего времени программиста затраты рабочего времени разработчика затраты машинного времени	198 58 140 126

3.1.2 Расчет заработной платы исполнителей работ по созданию программного продукта

Основная заработная плата разработчика и программиста

Основная заработная плата определяется по формуле:

(3.1)

где ОПЗ - основная заработная плата исполнителей работ, руб;

О - месячная зарплата, 8000 руб;

Т - общее время работы разработчика и программиста над созданием программного продукта, 198 час;

Чр- число рабочих дней в месяц, 21 день;

t - продолжительность рабочей смены, 8 час;

П - процент премий,30 %.

Дополнительная заработная плата разработчика и программиста

Дополнительная заработная плата определяется по формуле:

(3.2)

где ДЗП - дополнительная заработная плата исполнителей работ, руб;

%ДЗП - процент дополнительной заработной платы, который рассчитывается по формуле:

(3.3)

где Ф - годовой действительный фонд времени одного рабочего, час.

(3.4)

где Ф_г- число дней в году, 366 дней;

Ф_вых - число выходных дней в году, день;

Ф_пр- число праздничных дней в году, 117 дней;

Ф_отп - число дней очередных и дополнительных отпусков, 28 дней;

Ф_го - число дней невыходов в связи с выполнением государственных и общественных обязанностей, 1 день;

Ф_б- число дней невыходов по болезни, 2 дня.

3.1.3 Расчет начислений на заработную плату разработчика и программиста

(3.5)

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

СВ - страховые взносы, %.

3.1.4 Расчет затрат на расходные материалы

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

Таблица 3.2 Затраты на расходные материалы

Наименование материалов	Единица измерения	Цена за единицу измерения, руб.	Количество	Сумма, руб.
Картридж	шт	500	05	250
CD-диск	шт	12	1	12
Ручка	шт	5	2	10
Карандаш	шт	3	1	3
Бумага А4	уп	145	08	100
Ластик	шт	5	1	5
Итого расходных материалов (РМ): 375 руб

3.1.5 Расчет себестоимости одного машино-часа работы ПЭВМ

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

К административному персоналу относится начальник ОИТ.

К персоналу, обеспечивающему функционирование ЭВМ - инженер - электронщик.

К вспомогательному персоналу - уборщица.

Годовой фонд основной и дополнительной заработной платы с учетом страховых взносов этих категорий работников определяется по формуле:

(3.6)

Для уборщицы ГФЗП рассчитывается по формуле:

(3.7)

где ГФЗО - годовой фонд заработной платы работников с учетом страховых взносов, руб;

Н_обсл - количество ПЭВМ, обслуживаемых одним работником;

О - месячная заработная плата исполнителей работ;

К_СВ - коэффициент страховых взносов;

К_п - коэффициент премий;

К_убор - коэффициент, учитывающий долю зарплаты уборщицы;

К_ДЗП - коэффициент дополнительной заработной платы.

руб;

руб;

руб;

руб

Годовые амортизационные отчисления от стоимости оборудования

(3.8)

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

S_осн - стоимость основного оборудования, 21200 руб;

S_всп - стоимость вспомогательного оборудования, 3500 руб.

Амортизационные отчисления от стоимости рабочей площади

Амортизационные отчисления от стоимости рабочей площади определяются по формуле:

(3.9)

где - амортизационные отчисления от стоимости рабочей площади, руб; - стоимость рабочей площади за 1 м², 6000 руб;

- рабочая площадь, 4 м². Величина рабочей площади определяется в соответствии с требованиями к организации компьютерного рабочего места;

- коэффициент амортизации рабочей площади.

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

(3.10)

где - годовые затраты на текущий ремонт, руб;

- коэффициент затрат на текущий ремонт оборудования;

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

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

Расходы на электроэнергию складываются из расходов на освещение W_осв и расходов на производственное потребление электроэнергии W_э:

(3.11)

где - расходы на электроэнергию, руб;

(3.12)

где - усредненный расход энергии, необходимый для освещения 1 м² площади помещения в год (50 кВт?ч);

С_э - стоимость 1кВт?чэнергии, 3,82 руб;

(3.13)

где - мощность одного компьютера складывается из мощности системного блока, принтера, монитора, 0,36 кВт;

m - количество компьютеров, 1 шт;

- коэффициент, учитывающий потери в сети (1,05);

- годовой фонд времени работы оборудования, рассчитывается по формуле:

(3.14)

где - коэффициент сменности,k_см=1;

- коэффициент, учитывающий потери времени на ремонт оборудования, k_р=0,015.

Затраты на отопление

Затраты на отопление производственных площадей определяются по формуле:

(3.15)

где З_отоп - затраты на отопление, руб;

Н_расх - нормативный расход тепловой энергии в месяц за отопления на 1 м²,Гкал, Н_расх =0,23руб;

- рабочая площадь, 4,5 м²;

М - число месяцев отопительного сезона, 7 мес.

T-утвержденный тариф на тепловую энергию за 1Гкал с НДС в месяц, 1336,8 руб

3.1.6 Годовые эксплуатационные расходы

Годовые прочие расходы рассчитываются по формуле:

(3.16)

-прочие годовые расходы, руб

Годовые эксплуатационные расходы рассчитываются по формуле:

(3.16)

где Э - эксплуатационные годовые расходы, руб.

Состав и структура годовых эксплуатационных расходов представлена в таблице 3.4.

3.1.7 Себестоимость одного машино-часа

Себестоимость одного машино-часа определяется по формуле:

(3.17)

где С_мч - стоимость одного машино-часа, руб.

3.1.8 Расчет расходов на содержание и эксплуатацию ПЭВМ, относящихся к данному программному продукту

(3.18)

где - расходы на содержание и эксплуатацию ПЭВМ, руб;

- суммарное время этапов, требующих использования ПЭВМ.

Таблица 3.3 Состав и структура годовых эксплуатационных расходов

Наименование затрат	Эксплуатационные расходы, руб	Удельный вес, %
Годовой фонд заработной платы административного персонала с отчислением на социальные нужды	7659	22,93
Годовой фонд заработной платы обслуживающего персонала с отчислением на социальные нужды	9891,1	29,61
Годовой фонд заработной платы вспомогательного персонала с отчислением на социальные нужды	880,1	2,64
Амортизационные отчисления от стоимости оборудования	8151	24,40
Амортизационные отчисления от стоимости рабочей площади	720	2,16
Затраты на текущий ремонт оборудования	741	2,21
Затраты электроэнергии	3588,3	10,73
Расходы на отопление	968,5	2,89
Прочие расходы	815,3	2,43
Итого	33414	100

3.1.9 Накладные расходы

(3.19)

где НР - накладные расходы, руб;

%НР - процент накладных расходов (40), %.

3.1.10 Расчет себестоимости программного продукта

Расчет себестоимости программного продукта «Портфолио педагога» представлен в таблице 3.4

Таблица 3.4 Себестоимость программного продукта

Наименование статей затрат	Значение показателя, руб	Удельный вес, %
Заработная плата исполнителей работ по созданию программного продукта	18490	61,4
Начисления на заработную плату	4166,1	14,06
Затраты на расходные материалы	375	1,26
Расходы на содержание и эксплуатацию ПЭВМ	2152	7,26
Накладные расходы		22,65
Итого	32561,2	100

4. Охрана труда и техника безопасности

4.1 Анализ потенциально-опасных и вредных факторов

Человек, работая за персональным компьютером (ЭВМ) постоянно подвергается опасным и вредным факторам. Опасными и вредными факторами при работе с вычислительными машинами являются:

- недостаточная освещенность помещения;

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

- меньшая, чем необходима, площадь на одно рабочее место.

Все это может вызвать нарушения зрения и преждевременную утомляемость организма.

4.2 Техника безопасности

Эксплуатация ЭВМ (ПК) предполагает следование следующим пунктам технической безопасности:

- включение ЭВМ (ПК) производить согласно инструкции по включению и выключению на данную ЭВМ;

- перед включением ЭВМ ознакомиться с аппаратным журналом и убедиться, что все устройства ЭВМ были исправны при работе ранее;

- если на устройствах ЭВМ проводились ремонтные работы необходимо проверить:

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

- исправность кабелей и их подключения, включения вентиляторов;

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

- запрещается включать ЭВМ (отдельные устройства) при неисправной защите электропитания;

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

- запрещается пользоваться неисправной аппаратурой, инструментом;

- при работе электропитания необходимо вывешивать плакаты «НЕ ВКЛЮЧАТЬ! РАБОТА НА ЛИНИИ!»;

- запрещается заменять съемные элементы и проводить пайку под напряжением;

- запрещается включать и отключать разъемы кабелей электропитания и блоков вентиляторов под напряжением;

- при техническом обслуживании съемных блоков системы электропитания их корпуса необходимо заземлить;

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

При техническом обслуживании и эксплуатации ЭВМ (ПК) необходимо строго соблюдать правила противопожарной безопасности:

- запрещается хранить рядом с компьютером смазочные материалы;

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

- по окончании работы все электроприборы должны быть выключены;

- курение, пользование электронагревательными приборами, открытым огнем вблизи ЭВМ (ПК) запрещается;

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

- при ликвидации пожара применять средства тушения, гасящее вещество, которое не проводит электрический ток;

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

4.3 Эргономика

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

Организация труда оператора с ПЭВМ осуществляется в зависимости от вида и категории трудовой деятельности. Виды трудовой деятельности разделяются на три группы:

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

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

- группа В - творческая работа в режиме диалога с ПЭВМ не должна превышать 6 часов в смену.

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

При возникновении у работающих с ПЭВМ зрительного дискомфорта и других неблагоприятных ощущений, несмотря на соблюдение санитарно-гигиенических правил, рекомендуется применять индивидуальный подход с ограничением времени работ с ПЭВМ. В случаях, когда характер работы требует постоянного взаимодействия с монитором с напряжением внимания при исключении возможности периодического переключения на другие виды трудовой деятельности, не связанные с ПЭВМ рекомендуется делать перерыв через каждые 45-60 минут по 10-15 минут. При работе в ночную смену с 22 часов до 6 часов утра не зависимо от категории и вида трудовой деятельности продолжительность перерывов следует увеличить на 30%.

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

Площадь на одно рабочее место пользователей ПЭВМ на базе электронно-лучевой трубки должна составлять не менее 6, а на базе плоских дискретных экранов - 4,5. Рабочие столы следует размещать таким образом, чтобы мониторы компьютеров были ориентированы боковой стороной к оконным проемам, и естественный свет попадал преимущественно слева. [4]

Заключение

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

Данная программа позволяет:

- избавить от рутинной работы;

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

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

- сохранность информации;

- возможность распечатывания.

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

Список использованных источников

1. ГОСТ 19.004-80. ЕСПД. Термины и определения.

2. ГОСТ 19.102-77. ЕСПД. Стадии разработки.

3. ГОСТ 19.701-90. ЕСПД. Схемы алгоритмов, программ, данных и систем.

4. Бельнова И. П, Методические указания к дипломному проектированию по разделу «Безопасность жизнедеятельности» и «Охрана труда». ГБОУ СПО ВО «Кольчугинский политехнический колледж», Кольчугино, 2012;

5. Бобровский С.И. Delphi7. Учебный курс-СПБ.: Питер, 2004.

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

7. Нормативно - расценочная карта для программиста

8. Пестриков В.М., Маслобоев А.Н., Delphi на примерах. - СПб.: БХВ-Петербург, 2005. - 496 с: ил.

9. Санитарные правила и нормы РФ;

10. Соколова Е. Б. Расчет себестоимости программного продукта. Методическое пособие. Кольчугино: ГБОУ СПО ВО «Кольчугинский политехнический колледж», 2008;

11. Фаронов В.В. “Delphi. Программирование на языке высокого уровня”. СПБ.: Питер, 2010

Приложение 1

ER модель

Приложение 2

Листинг программного средства.

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, Buttons;

type

TLoginForm = class(TForm)

Edit1: TEdit;

Label1: TLabel;

Label2: TLabel;

ComboBox1: TComboBox;

SpeedButton1: TSpeedButton;

SpeedButton5: TSpeedButton;

SpeedButton2: TSpeedButton;

procedure FormActivate(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

procedure SpeedButton5Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

LoginForm: TLoginForm;

Procedure ScanDir(StartDir: String; Mask:string; List:TStrings);

implementation

uses Unit2, Unit3, Unit8, Unit9;

procedure TLoginForm.FormActivate(Sender: TObject);

begin

//if DateToStr(Date)<>'04.06.2012' then close;

//заполняем выпадающий список пользователями

ComboBox1.Items.Clear;

DM.Users.First;

while not DM.Users.Eof do

ComboBox1.Items.Add(DM.UsersLogin.Value);

DM.Users.Next;

end;

ComboBox1.ItemIndex:=0;

end;

procedure TLoginForm.SpeedButton1Click(Sender: TObject);

begin

Close;

end;

procedure TLoginForm.SpeedButton5Click(Sender: TObject);

var

tekdir:string;

begin

if edit1.Text<>DM.Users.Lookup('Login',ComboBox1.Text,'Pass') then

begin

ShowMessage('Пароль не верный!');

exit;

end;

if ComboBox1.Text='Администратор' then

begin

LoginForm.Visible:=false;

edit1.Text:='';

LoginForm.visible:=false;

FormAdmin.ShowModal;

exit;

end;

edit1.Text:='';

LoginForm.visible:=false;

DM.Anketa.Locate('ID_Users',DM.UsersID_Users.Value,[]);

nuser:=ComboBox1.Text;

Main.Tag:=DM.AnketaID_Anketa.Value;

Main.Caption:='Анкета: '+nuser;

//---------------------------------

//загружаем данные о пользователе

DM.Anketa.Locate('ID_Anketa',Main.Tag,[]);

Main.edit1.Text:=DM.AnketaFIO.Value;

if DateToStr(DM.AnketaData_Rojd.Value)<>'' then

Main.DateTimePicker1.Date:=DM.AnketaData_Rojd.Value

else Main.DateTimePicker1.Date:=date;

Main.Edit2.Text:=DM.AnketaDipl_Uhr.Value;

if DM.AnketaGod_Konc.Value<>'' then

Main.ComboBox4.text:=DM.AnketaGod_Konc.Value;

if DM.AnketaOsn_Doljn.Value<>'' then

Main.ComboBox2.Text:=DM.AnketaOsn_Doljn.Value;

if DM.AnketaWnutr_Sovm.Value<>'' then

Main.ComboBox3.Text:=DM.AnketaWnutr_Sovm.Value;

if IntToStr(DM.AnketaStaj_Doljn.Value)<>'' then

Main.Edit4.Text:=IntToStr(DM.AnketaStaj_Doljn.Value)

else Main.Edit4.Text:='5';

if IntToStr(DM.AnketaStaj_Ped.Value)<>'' then

Main.Edit3.Text:=IntToStr(DM.AnketaStaj_Ped.Value)

else Main.Edit3.Text:='5';

Main.Edit5.Text:=DM.AnketaKval_Kat.Value;

if DateToStr(DM.AnketaKval_Data.Value)<>'' then

Main.DateTimePicker2.Date:=DM.AnketaKval_Data.Value

else Main.DateTimePicker2.Date:=date;

Main.Edit6.Text:=DM.AnketaMesto_Gor.Value;

Main.Edit7.Text:=DM.AnketaMesto_Name.Value;

if DateToStr(DM.AnketaMesto_Data.Value)<>'' then

Main.DateTimePicker3.Date:=DM.AnketaMesto_Data.Value

else Main.DateTimePicker3.Date:=date;

Main.ListBox2.Items.clear;

//добавлем текущие дисциплины

DM.AnkDisc.First;

While not DM.AnkDisc.Eof do

begin

if DM.AnkDiscID_Anketa.Value=Main.Tag then

Main.ListBox2.Items.Add

(DM.Disc.Lookup('ID_Disc',DM.AnkDiscID_DIsc.Value,'Name'));

DM.AnkDisc.Next;

end;

//добавлем текущие образования

DM.AnkObraz.First;

While not DM.AnkObraz.Eof do

begin

if DM.AnkObrazID_Anketa.Value=Main.Tag then

Main.ListBox1.Items.Add

(DM.Obraz.Lookup('ID_Obraz',DM.AnkObrazID_Obraz.Value,'Name'));

DM.AnkObraz.Next;

end;

//-----------учебная деятельность--------------------

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+DM.Users.Lookup('ID_Users',DM.AnketaID_Users.Value

,'Login')+'\Учебная деятельность\Предметные олимипады';

if DirectoryExists(tekdir) then

begin

DM.Res_Uch.Locate('ID_Anketa',Main.Tag,[]);

if DM.Res_UchPred_Olimp.Value=true then

begin

Main.CheckBox1.Checked:=true;

Main.ListBox3.Clear;

ScanDir(tekdir,'*',Main.ListBox3.Items);

Main.ComboBox6.Text:=DM.Res_UchPred_Olimp_Ur.Value;

end;

end

else

begin

Main.ListBox3.Clear;

Main.CheckBox1.Checked:=false;

end;

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+DM.Users.Lookup('ID_Users',

DM.AnketaID_Users.Value,'Login')+

'\Учебная деятельность\Конкурсы';

if DirectoryExists(tekdir) then

begin

if DM.Res_UchKonkurs.Value=true then

begin

Main.CheckBox2.Checked:=true;

Main.ListBox4.Clear;

ScanDir(tekdir,'*',Main.ListBox4.Items);

Main.ComboBox7.Text:=DM.Res_UchKonkurs_Ur.Value;

end;

end

else

begin

Main.ListBox4.Clear;

Main.CheckBox2.Checked:=false;

end;

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+DM.Users.Lookup('ID_Users',DM.AnketaID_Users.Value

,'Login')+'\Учебная деятельность\Научно практические конференции';

if DirectoryExists(tekdir) then

begin

if DM.Res_UchNpk.Value=true then

begin

Main.CheckBox3.Checked:=true;

Main.ListBox5.Clear;

ScanDir(tekdir,'*',Main.ListBox5.Items);

Main.ComboBox8.Text:=DM.Res_UchNpk_Ur.Value;

end;

end

else

begin

Main.ListBox5.Clear;

Main.CheckBox3.Checked:=false;

end;

//------------внеурочная деятельность-------------------

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

'\Внеурочная деятельность\Конкурсы';

if DirectoryExists(tekdir) then

begin

DM.Res_Vneur.Locate('ID_Anketa',Main.Tag,[]);

if DM.Res_VneurKonkurs.Value=true then

begin

Main.CheckBox6.Checked:=true;

Main.ListBox8.Clear;

ScanDir(tekdir,'*',Main.ListBox8.Items);

Main.ComboBox11.Text:=DM.Res_VneurKonkurs_Ur.Value;

end;

end

else

begin

Main.ListBox8.Clear;

Main.CheckBox6.Checked:=false;

end;

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

'\Внеурочная деятельность\Концерты';

if DirectoryExists(tekdir) then

begin

DM.Res_Vneur.Locate('ID_Anketa',Main.Tag,[]);

if DM.Res_VneurKoncert.Value=true then

begin

Main.CheckBox5.Checked:=true;

Main.ListBox7.Clear;

ScanDir(tekdir,'*',Main.ListBox7.Items);

Main.ComboBox10.Text:=DM.Res_VneurKoncert_Ur.Value;

end;

end

else

begin

Main.ListBox7.Clear;

Main.CheckBox5.Checked:=false;

end;

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

'\Внеурочная деятельность\Выставки';

if DirectoryExists(tekdir) then

begin

DM.Res_Vneur.Locate('ID_Anketa',Main.Tag,[]);

if DM.Res_VneurVystav.Value=true then

begin

Main.CheckBox4.Checked:=true;

Main.ListBox6.Clear;

ScanDir(tekdir,'*',Main.ListBox6.items);

Main.ComboBox9.Text:=DM.Res_VneurVystav_Ur.Value;

end;

end

else

begin

Main.ListBox6.Clear;

Main.CheckBox4.Checked:=false;

end;

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

'\Внеурочная деятельность\Турниры';

if DirectoryExists(tekdir) then

begin

DM.Res_Vneur.Locate('ID_Anketa',Main.Tag,[]);

if DM.Res_VneurTurnir.Value=true then

begin

Main.CheckBox7.Checked:=true;

Main.ListBox9.Clear;

ScanDir(tekdir,'*',Main.ListBox9.Items);

Main.ComboBox12.Text:=DM.Res_VneurTurnir_Ur.Value;

end;

end

else

begin

Main.ListBox9.Clear;

Main.CheckBox7.Checked:=false;

end;

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

'\Внеурочная деятельность\Соревнования';

if DirectoryExists(tekdir) then

begin

DM.Res_Vneur.Locate('ID_Anketa',Main.Tag,[]);

if DM.Res_VneurSorevn.Value=true then

begin

Main.CheckBox8.Checked:=true;

Main.ListBox10.Clear;

ScanDir(tekdir,'*',Main.ListBox10.Items);

Main.ComboBox13.Text:=DM.Res_VneurSorevn_Ur.Value;

end;

end

else

begin

Main.ListBox10.Clear;

Main.CheckBox8.Checked:=false;

end;

//------------авторские материалы----------------

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

'\Авторские материалы\Программы';

if DirectoryExists(tekdir) then

begin

DM.Avtor_Mat.Locate('ID_Anketa',Main.Tag,[]);

if DM.Avtor_MatProgram.Value=true then

begin

Main.CheckBox9.Checked:=true;

Main.ListBox11.Clear;

ScanDir(tekdir,'*',Main.ListBox11.Items);

end;

end

else

begin

Main.ListBox11.Clear;

Main.CheckBox9.Checked:=false;

end;

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

'\Авторские материалы\Методические разработки';

if DirectoryExists(tekdir) then

begin

DM.Avtor_Mat.Locate('ID_Anketa',Main.Tag,[]);

if DM.Avtor_MatMetod.Value=true then

begin

Main.CheckBox10.Checked:=true;

Main.ListBox12.Clear;

ScanDir(tekdir,'*',Main.ListBox12.Items);

end;

end

else

begin

Main.ListBox12.Clear;

Main.CheckBox10.Checked:=false;

end;

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

'\Авторские материалы\Публикации';

if DirectoryExists(tekdir) then

begin

DM.Avtor_Mat.Locate('ID_Anketa',Main.Tag,[]);

if DM.Avtor_MatPublic.Value=true then

begin

Main.CheckBox11.Checked:=true;

Main.ListBox13.Clear;

ScanDir(tekdir,'*',Main.ListBox13.Items);

end;

end

else

begin

Main.ListBox13.Clear;

Main.CheckBox11.Checked:=false;

end;

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

'\Авторские материалы\Печатные издания';

if DirectoryExists(tekdir) then

begin

DM.Avtor_Mat.Locate('ID_Anketa',Main.Tag,[]);

if DM.Avtor_MatPechat.Value=true then

begin

Main.CheckBox12.Checked:=true;

Main.ListBox14.Clear;

ScanDir(tekdir,'*',Main.ListBox14.Items);

end;

end

else

begin

Main.ListBox14.Clear;

Main.CheckBox12.Checked:=false;

end;

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

'\Авторские материалы\Электронные ресурсы';

if DirectoryExists(tekdir) then

begin

DM.Avtor_Mat.Locate('ID_Anketa',Main.Tag,[]);

if DM.Avtor_MatElect_Res.Value=true then

begin

Main.CheckBox13.Checked:=true;

Main.ListBox15.Clear;

ScanDir(tekdir,'*',Main.ListBox15.Items);

end;

end

else

begin

Main.ListBox15.Clear;

Main.CheckBox13.Checked:=false;

end;

DM.Blago.Active:=false;

DM.Blago.Active:=true;

DM.Gramota.Active:=false;

DM.Gramota.Active:=true;

DM.Nagrada.Active:=false;

DM.Nagrada.Active:=true;

DM.Diplom.Active:=false;

DM.Diplom.Active:=true;

DM.Otr_Nagrada.Active:=false;

DM.Otr_Nagrada.Active:=true;

//--------------------------------------------

LoginForm.Visible:=false;

Main.Show;

end;

Procedure ScanDir(StartDir: String; Mask:string; List:TStrings);

{ Процедура выводит список директории в список List, начиная с директории,

указанной в StartDir. Mask - маска для получения файлов}

Var SearchRec : TSearchRec;

Begin

IF Mask ='' then Mask:= '*.*';

IF StartDir[Length(StartDir)] <> '\' then StartDir := StartDir + '\';

IF FindFirst(StartDir+Mask, faAnyFile, SearchRec) = 0 then

Begin

Repeat

{ Чтобы выполнение "не подвисало" }

Application.ProcessMessages;

IF (SearchRec.Attr and faDirectory) <> faDirectory then

List.Add(SearchRec.Name) else

IF (SearchRec.Name <> '..') and (SearchRec.Name <> '.') then

Begin

//List.Add(StartDir + SearchRec.Name + '\');

List.Add(SearchRec.Name + '\');

{ Рекурсивный вызов }

ScanDir(StartDir + SearchRec.Name + '\',Mask,List);

End;

Until FindNext(SearchRec) <> 0;

FindClose(SearchRec);

End; {IF}

end;

procedure TLoginForm.SpeedButton2Click(Sender: TObject);

begin

AddUser.Edit1.Text:='';

AddUser.Edit2.Text:='';

AddUser.ShowModal;