Разработка программного средства "Портфолио педагога"

 

План

Введение

. Общая часть

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

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

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

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

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

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

.1.1 Назначения задачи

.1.2 Описание задачи

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

.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. специальная часть

.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

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

Таблица 2.2. AnkObraz

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

Таблица 2.3. Avtor_Mat

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

Таблица 2.4. Blago

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

Таблица 2.5. Diplom

Имя поля Назначения поляТип поляописания1234ID_DiplomКлючевое поле таблицыСчетчикКлючевое полеID_AnketaВторичный ключЧисловой Вторичный ключKemДиплом «кем выдан»ТекстовыйРазмер поля 50KogdaДиплом «когда выдан»Дата/времяДата 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Грамоты «кем выдана»ТекстовыйРазмер поля 50GodГрамоты «год выдачи»ТекстовыйРазмер поля 5ZaHtoГрамоты «за что выдана»ТекстовыйРазмер поля 50DrugoeПользовательский вариантТекстовыйРазмер поля 255Таблица 2.9. Nagrada

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

Таблица 2.10. Obraz

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

Таблица 2.11. Nagrada

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

Таблица 2.12. Res_Uch

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

Таблица 2.13. Res_Vneur

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

Таблица 2.14. Users

Имя поля Назначения поляТип Описания ID_UsersКлючевое поле таблицыСчетчикКлючевое полеLoginЛогин ТекстовыйРазмер поля 50PassПароль пользователяТекстовыйРазмер поля 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Расчет себестоимости программного продукта «Портфолио педагога»

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

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

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

Стадия разработки программного средстваЗатраты времени, чел-час.№ нормы из НРК1231. Предпроектное обследование- изучение объекта проектирования - изучение справочного материала - анализ выполняемых функций ПС и формирование требований к ПС - анализ использования ПС 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 1218 [10] 8 [11]5. Оформление документации- оформление документации в текстовом редакторе 1 категории сложности - составление инструкции пользователя2 419 [10] 15 [10]- оформление документации на программный код817 [11]6. Внедрение- организация нового рабочего места и обучение работника функциям ПС 2 13 [11]Итого, в том числе: затраты рабочего времени программиста затраты рабочего времени разработчика затраты машинного времени198 58 140 126

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

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

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

(3.1)

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

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

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

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

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

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

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

(3.2)

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

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

(3.3)

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

(3.4)

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

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

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

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

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

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

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

(3.5)

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

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

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

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

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

Наименование материаловЕдиница измеренияЦена за единицу измерения, руб.КоличествоСумма, руб.Картриджшт50005250CD-дискшт12112Ручкашт5210Карандашшт313Бумага А4уп14508100Ластикшт515Итого расходных материалов (РМ): 375 руб

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

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

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

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

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

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

(3.6)

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

(3.7)

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

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

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

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

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

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

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

руб;

руб;

руб;

руб

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

(3.8)

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

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

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

(3.9)

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

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

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

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

(3.10)

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

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

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

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

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

(3.11)

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

(3.12)

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

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

(3.13)

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

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

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

(3.14)

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

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

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

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

(3.15)

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

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

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

М - число месяцев отопительного сезона, 7 мес.утвержденный тариф на тепловую энергию за 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Амортизационные отчисления от стоимости оборудования815124,40Амортизационные отчисления от стоимости рабочей площади7202,16Затраты на текущий ремонт оборудования7412,21Затраты электроэнергии3588,310,73Расходы на отопление968,52,89Прочие расходы815,32,43Итого33414100

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

(3.19)

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

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

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

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

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

Наименование статей затратЗначение показателя, рубУдельный вес, %Заработная плата исполнителей работ по созданию программного продукта 18490 61,4Начисления на заработную плату4166,114,06Затраты на расходные материалы3751,26Расходы на содержание и эксплуатацию ПЭВМ21527,26Накладные расходы22,65Итого32561,21004. Охрана труда и техника безопасности

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. ЕСПД. Стадии разработки.

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

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

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

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

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

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

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

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

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

Приложение 1

модель

Приложение 2

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

unit Unit1;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Buttons;= class(TForm): TEdit;: TLabel;: TLabel;: TComboBox;: TSpeedButton;: TSpeedButton;: TSpeedButton;FormActivate(Sender: TObject);SpeedButton1Click(Sender: TObject);SpeedButton5Click(Sender: TObject);SpeedButton2Click(Sender: TObject);

{ Private declarations }

{ Public declarations };: TLoginForm;ScanDir(StartDir: String; Mask:string; List:TStrings);Unit2, Unit3, Unit8, Unit9;TLoginForm.FormActivate(Sender: TObject);

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

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

DM.Users.First;not DM.Users.Eof do.Items.Add(DM.UsersLogin.Value);.Users.Next;;.ItemIndex:=0;;TLoginForm.SpeedButton1Click(Sender: TObject);;;TLoginForm.SpeedButton5Click(Sender: TObject);:string;edit1.Text<>DM.Users.Lookup('Login',ComboBox1.Text,'Pass') then

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

exit;;ComboBox1.Text='Администратор' then.Visible:=false;.Text:='';.visible:=false;.ShowModal;;;.Text:='';.visible:=false;.Anketa.Locate('ID_Users',DM.UsersID_Users.Value,[]);:=ComboBox1.Text;.Tag:=DM.AnketaID_Anketa.Value;.Caption:='Анкета: '+nuser;

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

//загружаем данные о пользователе.Anketa.Locate('ID_Anketa',Main.Tag,[]);.edit1.Text:=DM.AnketaFIO.Value;DateToStr(DM.AnketaData_Rojd.Value)<>'' then.DateTimePicker1.Date:=DM.AnketaData_Rojd.ValueMain.DateTimePicker1.Date:=date;.Edit2.Text:=DM.AnketaDipl_Uhr.Value;DM.AnketaGod_Konc.Value<>'' then.ComboBox4.text:=DM.AnketaGod_Konc.Value;DM.AnketaOsn_Doljn.Value<>'' then.ComboBox2.Text:=DM.AnketaOsn_Doljn.Value;DM.AnketaWnutr_Sovm.Value<>'' then.ComboBox3.Text:=DM.AnketaWnutr_Sovm.Value;IntToStr(DM.AnketaStaj_Doljn.Value)<>'' then.Edit4.Text:=IntToStr(DM.AnketaStaj_Doljn.Value)Main.Edit4.Text:='5';IntToStr(DM.AnketaStaj_Ped.Value)<>'' then.Edit3.Text:=IntToStr(DM.AnketaStaj_Ped.Value)Main.Edit3.Text:='5';.Edit5.Text:=DM.AnketaKval_Kat.Value;DateToStr(DM.AnketaKval_Data.Value)<>'' then.DateTimePicker2.Date:=DM.AnketaKval_Data.ValueMain.DateTimePicker2.Date:=date;.Edit6.Text:=DM.AnketaMesto_Gor.Value;.Edit7.Text:=DM.AnketaMesto_Name.Value;DateToStr(DM.AnketaMesto_Data.Value)<>'' then.DateTimePicker3.Date:=DM.AnketaMesto_Data.ValueMain.DateTimePicker3.Date:=date;.ListBox2.Items.clear;

//добавлем текущие дисциплины.AnkDisc.First;not DM.AnkDisc.Eof doDM.AnkDiscID_Anketa.Value=Main.Tag then.ListBox2.Items.Add

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

DM.AnkDisc.Next;;

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

DM.AnkObraz.First;not DM.AnkObraz.Eof doDM.AnkObrazID_Anketa.Value=Main.Tag then.ListBox1.Items.Add

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

DM.AnkObraz.Next;;

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

tekdir:=ExtractFilePath(ParamStr(0))

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

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

if DirectoryExists(tekdir) then.Res_Uch.Locate('ID_Anketa',Main.Tag,[]);DM.Res_UchPred_Olimp.Value=true then.CheckBox1.Checked:=true;.ListBox3.Clear;(tekdir,'*',Main.ListBox3.Items);.ComboBox6.Text:=DM.Res_UchPred_Olimp_Ur.Value;;.ListBox3.Clear;.CheckBox1.Checked:=false;;:=ExtractFilePath(ParamStr(0))

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

'\Учебная деятельность\Конкурсы';DirectoryExists(tekdir) thenDM.Res_UchKonkurs.Value=true then.CheckBox2.Checked:=true;.ListBox4.Clear;(tekdir,'*',Main.ListBox4.Items);.ComboBox7.Text:=DM.Res_UchKonkurs_Ur.Value;;.ListBox4.Clear;.CheckBox2.Checked:=false;;:=ExtractFilePath(ParamStr(0))

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

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

if DirectoryExists(tekdir) thenDM.Res_UchNpk.Value=true then.CheckBox3.Checked:=true;.ListBox5.Clear;(tekdir,'*',Main.ListBox5.Items);.ComboBox8.Text:=DM.Res_UchNpk_Ur.Value;;.ListBox5.Clear;.CheckBox3.Checked:=false;;

//------------внеурочная деятельность-------------------:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

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

if DirectoryExists(tekdir) then.Res_Vneur.Locate('ID_Anketa',Main.Tag,[]);DM.Res_VneurKonkurs.Value=true then.CheckBox6.Checked:=true;

Main.ListBox8.Clear;

ScanDir(tekdir,'*',Main.ListBox8.Items);.ComboBox11.Text:=DM.Res_VneurKonkurs_Ur.Value;;.ListBox8.Clear;.CheckBox6.Checked:=false;;:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

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

begin.Res_Vneur.Locate('ID_Anketa',Main.Tag,[]);DM.Res_VneurKoncert.Value=true then.CheckBox5.Checked:=true;.ListBox7.Clear;(tekdir,'*',Main.ListBox7.Items);.ComboBox10.Text:=DM.Res_VneurKoncert_Ur.Value;;.ListBox7.Clear;.CheckBox5.Checked:=false;;:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

'\Внеурочная деятельность\Выставки';DirectoryExists(tekdir) then.Res_Vneur.Locate('ID_Anketa',Main.Tag,[]);DM.Res_VneurVystav.Value=true then.CheckBox4.Checked:=true;

Main.ListBox6.Clear;

ScanDir(tekdir,'*',Main.ListBox6.items);.ComboBox9.Text:=DM.Res_VneurVystav_Ur.Value;;.ListBox6.Clear;.CheckBox4.Checked:=false;;:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

'\Внеурочная деятельность\Турниры';DirectoryExists(tekdir) then.Res_Vneur.Locate('ID_Anketa',Main.Tag,[]);DM.Res_VneurTurnir.Value=true then.CheckBox7.Checked:=true;.ListBox9.Clear;(tekdir,'*',Main.ListBox9.Items);.ComboBox12.Text:=DM.Res_VneurTurnir_Ur.Value;;.ListBox9.Clear;.CheckBox7.Checked:=false;;:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

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

begin.Res_Vneur.Locate('ID_Anketa',Main.Tag,[]);DM.Res_VneurSorevn.Value=true then.CheckBox8.Checked:=true;.ListBox10.Clear;(tekdir,'*',Main.ListBox10.Items);.ComboBox13.Text:=DM.Res_VneurSorevn_Ur.Value;;.ListBox10.Clear;.CheckBox8.Checked:=false;;

//------------авторские материалы----------------:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

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

if DirectoryExists(tekdir) then.Avtor_Mat.Locate('ID_Anketa',Main.Tag,[]);DM.Avtor_MatProgram.Value=true then.CheckBox9.Checked:=true;.ListBox11.Clear;(tekdir,'*',Main.ListBox11.Items);;.ListBox11.Clear;.CheckBox9.Checked:=false;;:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

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

if DirectoryExists(tekdir) then.Avtor_Mat.Locate('ID_Anketa',Main.Tag,[]);DM.Avtor_MatMetod.Value=true then.CheckBox10.Checked:=true;.ListBox12.Clear;(tekdir,'*',Main.ListBox12.Items);;.ListBox12.Clear;.CheckBox10.Checked:=false;;:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

'\Авторские материалы\Публикации';DirectoryExists(tekdir) then.Avtor_Mat.Locate('ID_Anketa',Main.Tag,[]);DM.Avtor_MatPublic.Value=true then.CheckBox11.Checked:=true;.ListBox13.Clear;(tekdir,'*',Main.ListBox13.Items);;.ListBox13.Clear;.CheckBox11.Checked:=false;;:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

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

if DirectoryExists(tekdir) then.Avtor_Mat.Locate('ID_Anketa',Main.Tag,[]);DM.Avtor_MatPechat.Value=true then.CheckBox12.Checked:=true;.ListBox14.Clear;(tekdir,'*',Main.ListBox14.Items);;.ListBox14.Clear;.CheckBox12.Checked:=false;;:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

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

if DirectoryExists(tekdir) then.Avtor_Mat.Locate('ID_Anketa',Main.Tag,[]);DM.Avtor_MatElect_Res.Value=true then.CheckBox13.Checked:=true;.ListBox15.Clear;(tekdir,'*',Main.ListBox15.Items);;.ListBox15.Clear;.CheckBox13.Checked:=false;;.Blago.Active:=false;.Blago.Active:=true;.Gramota.Active:=false;.Gramota.Active:=true;.Nagrada.Active:=false;.Nagrada.Active:=true;.Diplom.Active:=false;.Diplom.Active:=true;.Otr_Nagrada.Active:=false;.Otr_Nagrada.Active:=true;

//--------------------------------------------.Visible:=false;.Show;;ScanDir(StartDir: String; Mask:string; List:TStrings);

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

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

Var SearchRec : TSearchRec;Mask ='' then Mask:= '*.*';StartDir[Length(StartDir)] <> '\' then StartDir := StartDir + '\';

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

Begin

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

Application.ProcessMessages;(SearchRec.Attr and faDirectory) <> faDirectory then.Add(SearchRec.Name) else(SearchRec.Name <> '..') and (SearchRec.Name <> '.') then

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

{ Рекурсивный вызов }(StartDir + SearchRec.Name + '\',Mask,List);;FindNext(SearchRec) <> 0;(SearchRec);; {IF};TLoginForm.SpeedButton2Click(Sender: TObject);.Edit1.Text:='';

AddUser.Edit2.Text:='';

AddUser.ShowModal;;.Unit2;, Classes, DB, ADODB;= class(TDataModule): TDataSource;: TADOConnection;: TADOQuery;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource;_Nagrada: TADOQuery;: TDataSource;_Mat: TADOQuery;: TDataSource;: TDataSource;_Vneur: TADOQuery;: TDataSource;_Users: TAutoIncField;: TWideStringField;: TWideStringField;_Anketa: TAutoIncField;: TWideStringField;_Rojd: TDateTimeField;_Uhr: TWideStringField;_Spec: TWideStringField;_Doljn: TWideStringField;_Sovm: TWideStringField;_Ped: TIntegerField;_Doljn: TIntegerField;_Kat: TWideStringField;_Data: TDateTimeField;_Gor: TWideStringField;_Name: TWideStringField;_Data: TDateTimeField;_Users: TIntegerField;_Disc: TAutoIncField;: TWideStringField;_Obraz: TAutoIncField;: TWideStringField;_AnkObraz: TAutoIncField;_Anketa: TIntegerField;_Obraz: TIntegerField;_AnkDisc: TAutoIncField;_Anketa: TIntegerField;_DIsc: TIntegerField;_Blago: TAutoIncField;_Anketa: TIntegerField;_Kogo: TWideStringField;: TWideStringField;: TWideStringField;_Diplom: TAutoIncField;_Anketa: TIntegerField;: TWideStringField;: TDateTimeField;: TWideStringField;_Gramota: TAutoIncField;_Anketa: TIntegerField;: TWideStringField;: TWideStringField;: TWideStringField;_Nagrada: TAutoIncField;_Anketa: TIntegerField;_Vydana: TWideStringField;: TWideStringField;: TWideStringField;: TWideStringField;_NagradaOtr_Nagrada: TAutoIncField;_NagradaID_Anketa: TIntegerField;_NagradaKem_Wyd: TWideStringField;_NagradaGorod: TWideStringField;_NagradaGod: TWideStringField;_NagradaDrugoe: TWideStringField;_MatID_Avtor_Mat: TAutoIncField;_MatID_Anketa: TIntegerField;_MatProgram: TBooleanField;_MatMetod: TBooleanField;_MatPublic: TBooleanField;_MatPechat: TBooleanField;_MatElect_Res: TBooleanField;: TWideStringField;_Konc: TWideStringField;_UchID_Res_Uch: TAutoIncField;_UchID_Anketa: TIntegerField;_UchPred_Olimp: TBooleanField;_UchPred_Olimp_Ur: TWideStringField;_UchKonkurs: TBooleanField;_UchKonkurs_Ur: TWideStringField;_UchNpk: TBooleanField;_UchNpk_Ur: TWideStringField;_VneurID_Res_Vneur: TAutoIncField;_VneurID_Anketa: TIntegerField;_VneurKonkurs: TBooleanField;_VneurKonkurs_Ur: TWideStringField;_VneurKoncert: TBooleanField;_VneurKoncert_Ur: TWideStringField;_VneurVystav: TBooleanField;_VneurVystav_Ur: TWideStringField;_VneurTurnir: TBooleanField;_VneurTurnir_Ur: TWideStringField;_VneurSorevn: TBooleanField;_VneurSorevn_Ur: TWideStringField;: TStringField;: TADOQuery;: TAutoIncField;: TIntegerField;: TIntegerField;: TStringField;

{ Private declarations }

{ Public declarations };: TDM;

{$R *.dfm}.Unit3;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ExtCtrls, Buttons, ComCtrls, StdCtrls, Grids, DBGrids, ExtDlgs;= class(TForm): TPageControl;: TTabSheet;: TTabSheet;: TLabel;: TEdit;: TDateTimePicker;: TLabel;: TListBox;: TLabel;: TSpeedButton;: TSpeedButton;: TComboBox;: TButton;: TEdit;: TLabel;: TComboBox;: TLabel;: TLabel;: TComboBox;: TListBox;: TComboBox;: TButton;: TSpeedButton;: TSpeedButton;: TLabel;: TEdit;: TUpDown;: TLabel;: TEdit;: TLabel;: TUpDown;: TLabel;: TEdit;: TDateTimePicker;: TLabel;: TTabSheet;: TPageControl;: TTabSheet;: TTabSheet;: TTabSheet;: TTabSheet;: TTabSheet;: TPanel;: TDBGrid;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TDBGrid;: TPanel;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TDBGrid;: TPanel;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TDBGrid;: TPanel;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TDBGrid;: TPanel;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TTabSheet;: TEdit;: TLabel;: TLabel;: TEdit;: TLabel;: TLabel;: TComboBox;: TPageControl;: TTabSheet;: TTabSheet;: TCheckBox;: TListBox;: TSpeedButton;: TSpeedButton;: TComboBox;: TLabel;: TLabel;: TOpenPictureDialog;: TListBox;: TSpeedButton;: TSpeedButton;: TComboBox;: TLabel;: TCheckBox;: TListBox;: TSpeedButton;: TSpeedButton;: TComboBox;: TLabel;: TCheckBox;: TLabel;: TLabel;: TCheckBox;: TComboBox;: TListBox;: TCheckBox;: TComboBox;: TListBox;: TComboBox;: TListBox: TLabel;: TLabel;: TLabel;: TSpeedButton;: TSpeedButton;: TLabel;: TSpeedButton;: TSpeedButton;: TLabel;: TLabel;: TSpeedButton;: TSpeedButton;: TTabSheet;: TCheckBox;: TLabel;: TComboBox;: TListBox;: TLabel;: TSpeedButton;: TSpeedButton;: TCheckBox;: TLabel;: TComboBox;: TListBox;: TSpeedButton;: TSpeedButton;: TLabel;: TTabSheet;: TCheckBox;: TListBox;: TSpeedButton;: TSpeedButton;: TListBox;: TCheckBox;: TListBox;: TCheckBox;: TListBox;: TCheckBox;: TListBox;: TCheckBox;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TDateTimePicker;: TLabel;: TButton;: TButton;: TStringGrid;FormActivate(Sender: TObject);SpeedButton2Click(Sender: TObject);SpeedButton3Click(Sender: TObject);Button1Click(Sender: TObject);SpeedButton1Click(Sender: TObject);SpeedButton4Click(Sender: TObject);Button2Click(Sender: TObject);Edit3KeyPress(Sender: TObject; var Key: Char);SpeedButton6Click(Sender: TObject);SpeedButton7Click(Sender: TObject);SpeedButton5Click(Sender: TObject);SpeedButton8Click(Sender: TObject);SpeedButton10Click(Sender: TObject);SpeedButton9Click(Sender: TObject);SpeedButton12Click(Sender: TObject);SpeedButton13Click(Sender: TObject);SpeedButton11Click(Sender: TObject);SpeedButton17Click(Sender: TObject);SpeedButton19Click(Sender: TObject);SpeedButton18Click(Sender: TObject);SpeedButton14Click(Sender: TObject);SpeedButton16Click(Sender: TObject);SpeedButton15Click(Sender: TObject);CheckBox1Click(Sender: TObject);SpeedButton20Click(Sender: TObject);SpeedButton21Click(Sender: TObject);CheckBox2Click(Sender: TObject);SpeedButton23Click(Sender: TObject);SpeedButton25Click(Sender: TObject);SpeedButton22Click(Sender: TObject);SpeedButton24Click(Sender: TObject);CheckBox3Click(Sender: TObject);SpeedButton31Click(Sender: TObject);SpeedButton30Click(Sender: TObject);SpeedButton28Click(Sender: TObject);SpeedButton29Click(Sender: TObject);SpeedButton27Click(Sender: TObject);SpeedButton26Click(Sender: TObject);CheckBox6Click(Sender: TObject);CheckBox5Click(Sender: TObject);CheckBox4Click(Sender: TObject);SpeedButton32Click(Sender: TObject);SpeedButton34Click(Sender: TObject);SpeedButton33Click(Sender: TObject);SpeedButton35Click(Sender: TObject);CheckBox7Click(Sender: TObject);CheckBox8Click(Sender: TObject);SpeedButton36Click(Sender: TObject);SpeedButton37Click(Sender: TObject);SpeedButton38Click(Sender: TObject);SpeedButton40Click(Sender: TObject);SpeedButton44Click(Sender: TObject);SpeedButton46Click(Sender: TObject);SpeedButton39Click(Sender: TObject);SpeedButton41Click(Sender: TObject);SpeedButton45Click(Sender: TObject);SpeedButton47Click(Sender: TObject);CheckBox9Click(Sender: TObject);CheckBox10Click(Sender: TObject);CheckBox11Click(Sender: TObject);CheckBox12Click(Sender: TObject);CheckBox13Click(Sender: TObject);FormCloseQuery(Sender: TObject; var CanClose: Boolean);Button3Click(Sender: TObject);Button4Click(Sender: TObject);FormClose(Sender: TObject; var Action: TCloseAction);

{ Private declarations }

{ Public declarations };: TMain;:string;MyRemoveDir(sDir : String) : Boolean;Unit1, Unit2, Unit4, Unit5, Unit6, Unit7, Unit10, Unit11;

{$R *.dfm}TMain.FormActivate(Sender: TObject);

var:integer;

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

ComboBox1.Items.Clear;.Obraz.First;not DM.Obraz.Eof do.Items.Add(DM.ObrazName.Value);.Obraz.Next;;.ItemIndex:=0;

//заполняем выпадающий список дисциплин.Items.Clear;

DM.Disc.First;not DM.Disc.Eof do.Items.Add(DM.DiscName.Value);.Disc.Next;;.ItemIndex:=0;.Items.Clear;i:=1950 to 2012 do.Items.Add(IntToStr(i));.ItemIndex:=20;;TMain.SpeedButton2Click(Sender: TObject);:integer;i:=0 to ListBox1.Items.Count-1 doListBox1.Items[i]=ComboBox1.Text then

begin('Образование уже есть в списке!');

exit;;.Items.Add(ComboBox1.Text);;TMain.SpeedButton3Click(Sender: TObject);.Items.Delete(ListBox1.ItemIndex);;TMain.Button1Click(Sender: TObject);:string;:=inputbox('Добавление образования',

'Введите образование:','');nm='' then exit;

//проверяем есть ли такое образование в таблице

DM.Obraz.First;not DM.Obraz.Eof doDM.ObrazName.Value=nm then

begin

ShowMessage('Такое образование уже существует!');

exit;

end;.Obraz.Next;

end;

//добавляем образование.Obraz.Append;

DM.ObrazName.Value:=nm;.Obraz.Post;(Self);;TMain.SpeedButton1Click(Sender: TObject);:integer;i:=0 to ListBox2.Items.Count-1 doListBox2.Items[i]=ComboBox5.Text then

begin('Дисциплина уже есть в списке!');

exit;;.Items.Add(ComboBox5.Text);;TMain.SpeedButton4Click(Sender: TObject);.Items.Delete(ListBox2.ItemIndex);;TMain.Button2Click(Sender: TObject);:string;:=inputbox('Добавление дисциплины',

'Введите дисциплину:','');nm='' then exit;

//проверяем есть ли такое образование в таблице

DM.Disc.First;not DM.Disc.Eof doDM.DiscName.Value=nm then

begin('Такая дисциплина уже существует!');

exit;;.Disc.Next;

end;

//добавляем образование.Disc.Append;

DM.DiscName.Value:=nm;.Disc.Post;(Self);;TMain.Edit3KeyPress(Sender: TObject; var Key: Char);

begin

//ограничение на ввод - только цифры

if not (key in['0','1','2','3','4','5','6','7','8',char(8),'9']) then key:=#0;;TMain.SpeedButton6Click(Sender: TObject);.Caption:='Добавление гос награды';.Tag:=0;.Edit1.Text:='';.Edit2.Text:='';.Memo1.Text:='';.ShowModal;;TMain.SpeedButton7Click(Sender: TObject);

//если нет записей выходимDM.Nagrada.RecordCount=0 then exit;.Caption:='Изменение гос награды';.Tag:=1;.Edit1.Text:=DM.NagradaKem_Vydana.Value;.Edit2.Text:=DM.NagradaGorod.Value;.ComboBox1.Text:=Dm.NagradaGod.Value;.Memo1.Text:=DM.NagradaDrugoe.Value;.ShowModal;;TMain.SpeedButton5Click(Sender: TObject);

//если нет записей выходимDM.Nagrada.RecordCount=0 then exit;

if messagedlg('Вы действительно хотите удалить гос награду №'

+inttostr(DM.NagradaID_Nagrada.value)+'?'

,Mtconfirmation, [mbYes, mbNo],0)=mrYesbegin.Nagrada.Delete;;;TMain.SpeedButton8Click(Sender: TObject);

//если нет записей выходимDM.Otr_Nagrada.RecordCount=0 then exit;

if messagedlg('Вы действительно хотите удалить отр награду №'

+inttostr(DM.Otr_NagradaOtr_Nagrada.value)+'?'

,Mtconfirmation, [mbYes, mbNo],0)=mrYesbegin.Otr_Nagrada.Delete;;;TMain.SpeedButton10Click(Sender: TObject);

//если нет записей выходимDM.Otr_Nagrada.RecordCount=0 then exit;.Caption:='Изменение отр награды';.Tag:=3;.Edit1.Text:=DM.Otr_NagradaKem_Wyd.Value;.Edit2.Text:=DM.Otr_NagradaGorod.Value;.ComboBox1.Text:=Dm.Otr_NagradaGod.Value;.Memo1.Text:=DM.Otr_NagradaDrugoe.Value;.ShowModal;;TMain.SpeedButton9Click(Sender: TObject);.Caption:='Добавление отр награды';.Tag:=2;.Edit1.Text:='';.Edit2.Text:='';.Memo1.Text:='';.ShowModal;;TMain.SpeedButton12Click(Sender: TObject);

begin.Caption:='Добавление благодарности';

AddBlago.Tag:=0;.Edit1.Text:='';.Memo1.Text:='';.ShowModal;;TMain.SpeedButton13Click(Sender: TObject);

//если нет записей выходимDM.Blago.RecordCount=0 then exit;.Caption:='Изменение благодарности';.Tag:=1;.Edit1.Text:=DM.BlagoOt_Kogo.Value;.ComboBox1.Text:=DM.BlagoGod.Value;.Memo1.Text:=DM.BlagoDrugoe.Value;.ShowModal;;TMain.SpeedButton11Click(Sender: TObject);

//если нет записей выходимDM.Blago.RecordCount=0 then exit;

if messagedlg('Вы действительно хотите удалить благодарность №'

+inttostr(DM.BlagoID_Blago.value)+'?'

,Mtconfirmation, [mbYes, mbNo],0)=mrYesbegin.Blago.Delete;;;TMain.SpeedButton17Click(Sender: TObject);

//если нет записей выходимDM.Diplom.RecordCount=0 then exit;messagedlg('Вы действительно хотите удалить диплом №'

+inttostr(DM.DiplomID_Diplom.value)+'?'

,Mtconfirmation, [mbYes, mbNo],0)=mrYesbegin.Diplom.Delete;;;TMain.SpeedButton19Click(Sender: TObject);

//если нет записей выходимDM.Diplom.RecordCount=0 then exit;.Caption:='Изменение диплома';.Tag:=1;.Edit1.Text:=DM.DiplomKem.Value;.DateTimePicker1.Date:=DM.DiplomKogda.Value;.Memo1.Text:=DM.BlagoDrugoe.Value;.ShowModal;;TMain.SpeedButton18Click(Sender: TObject);.Caption:='Добавление диплома';.Tag:=0;.Edit1.Text:='';.DateTimePicker1.Date:=Date;.Memo1.Text:='';.ShowModal;;TMain.SpeedButton14Click(Sender: TObject);

//если нет записей выходимDM.Gramota.RecordCount=0 then exit;

if messagedlg('Вы действительно хотите удалить грамоту №'

+inttostr(DM.GramotaID_Gramota.value)+'?'

,Mtconfirmation, [mbYes, mbNo],0)=mrYesbegin.Gramota.Delete;;;TMain.SpeedButton16Click(Sender: TObject);

//если нет записей выходимDM.Gramota.RecordCount=0 then exit;.Caption:='Изменение грамоты';.Tag:=1;.Edit1.Text:=DM.GramotaKem.Value;.Edit2.Text:=DM.GramotaZaHto.Value;.ComboBox1.Text:=Dm.GramotaGod.Value;.Memo1.Text:=DM.GramotaDrugoe.Value;.ShowModal;;TMain.SpeedButton15Click(Sender: TObject);.Caption:='Добавление грамоты';.Tag:=0;.Edit1.Text:='';.Edit2.Text:='';.Memo1.Text:='';.ShowModal;;TMain.CheckBox1Click(Sender: TObject);:string;CheckBox1.Checked then.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;;CheckBox1.Checked=false then:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

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

if ListBox3.Items.Count<>0 then

if messagedlg('При снятии галочки все файлы из этой категории будут удалены! '

+'Хотите продолжить?'

,Mtconfirmation, [mbYes, mbNo],0)=mrYesbegin

//удаляем каталог

MyRemoveDir(tekdir);.Items.Clear;.Checked:=true;;;;.Enabled:=false;.Enabled:=false;.Enabled:=false;.Enabled:=false;.Enabled:=false;.Enabled:=false;;;TMain.SpeedButton20Click(Sender: TObject);

var:string;

//определяем директория для хранения файлов

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

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

if OpenPictureDialog1.Execute then

//если нет директориит - создаем ееnot DirectoryExists(tekdir)ForceDirectories (tekdir);(Pchar(OpenPictureDialog1.FileName),(tekdir+'\'+ExtractFileName(OpenPictureDialog1.FileName)), true);.Items.Add(ExtractFileName(OpenPictureDialog1.FileName));;;TMain.SpeedButton21Click(Sender: TObject);:string;:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

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

if ListBox3.ItemIndex=-1 then exit;(tekdir+'\'+ListBox3.Items[ListBox3.ItemIndex]);.Items.Delete(ListBox3.ItemIndex);;TMain.CheckBox2Click(Sender: TObject);:string;CheckBox2.Checked then.Enabled:=true;.Enabled:=true;

Label20.Enabled:=true;

ListBox4.Enabled:=true;.Enabled:=true;.Enabled:=true;;CheckBox2.Checked=false then:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

'\Учебная деятельность\Конкурсы';ListBox4.Items.Count<>0 then

beginmessagedlg('При снятии галочки все файлы из этой категории будут удалены! '

+'Хотите продолжить?'

,Mtconfirmation, [mbYes, mbNo],0)=mrYesbegin

//удаляем каталог

MyRemoveDir(tekdir);.Items.Clear;.Checked:=true;;;;.Enabled:=false;.Enabled:=false;.Enabled:=false;.Enabled:=false;.Enabled:=false;.Enabled:=false;;;TMain.SpeedButton23Click(Sender: TObject);

var:string;

//определяем директория для хранения файлов

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

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

begin

//если нет директориит - создаем ее

if not DirectoryExists(tekdir)ForceDirectories(tekdir);(Pchar(OpenPictureDialog1.FileName),(tekdir+'\'+ExtractFileName(OpenPictureDialog1.FileName)), true);.Items.Add(ExtractFileName(OpenPictureDialog1.FileName));;;TMain.SpeedButton25Click(Sender: TObject);

var:string;

//определяем директория для хранения файлов

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

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

if OpenPictureDialog1.Execute then

//если нет директориит - создаем ееnot DirectoryExists(tekdir)ForceDirectories(tekdir);(Pchar(OpenPictureDialog1.FileName),(tekdir+'\'+ExtractFileName(OpenPictureDialog1.FileName)), true);.Items.Add(ExtractFileName(OpenPictureDialog1.FileName));;;TMain.SpeedButton22Click(Sender: TObject);:string;:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

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

if ListBox4.ItemIndex=-1 then exit;(tekdir+'\'+ListBox4.Items[ListBox4.ItemIndex]);.Items.Delete(ListBox4.ItemIndex);;TMain.SpeedButton24Click(Sender: TObject);:string;:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

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

if ListBox5.ItemIndex=-1 then exit;(tekdir+'\'+ListBox5.Items[ListBox5.ItemIndex]);.Items.Delete(ListBox5.ItemIndex);

end;

//удаление каталога со всеми файлами

Function MyRemoveDir(sDir : String) : Boolean;: Integer;: TSearchRec;: String;:= False;:= sDir + '\*.*';:= FindFirst(sDir, faAnyFile, SearchRec);iIndex = 0 do begin:= ExtractFileDir(sDir)+'\'+SearchRec.Name;SearchRec.Attr = faDirectory then begin(SearchRec.Name <> '' ) and

(SearchRec.Name <> '.') and

(SearchRec.Name <> '..') then(sFileName);else beginSearchRec.Attr <> faArchive then(sFileName, faArchive);NOT DeleteFile(sFileName) then('Could NOT delete ' + sFileName);;:= FindNext(SearchRec);;(SearchRec);(ExtractFileDir(sDir));:= True;;TMain.CheckBox3Click(Sender: TObject);:string;CheckBox3.Checked then.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;;CheckBox3.Checked=false then

begin

//определяем директория для хранения файлов

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

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

if ListBox5.Items.Count<>0 then

if messagedlg('При снятии галочки все файлы из этой категории будут удалены! '

+'Хотите продолжить?'

,Mtconfirmation, [mbYes, mbNo],0)=mrYesbegin

//удаляем каталог

MyRemoveDir(tekdir);.Items.Clear;.Checked:=true;;;;.Enabled:=false;.Enabled:=false;.Enabled:=false;.Enabled:=false;.Enabled:=false;.Enabled:=false;;;TMain.SpeedButton31Click(Sender: TObject);

var:string;

//определяем директория для хранения файлов

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

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

//если нет директориит - создаем ееnot DirectoryExists(tekdir)

then ForceDirectories (tekdir);(Pchar(OpenPictureDialog1.FileName),(tekdir+'\'+ExtractFileName(OpenPictureDialog1.FileName)), true);.Items.Add(ExtractFileName(OpenPictureDialog1.FileName));;;TMain.SpeedButton30Click(Sender: TObject);:string;:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

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

if ListBox8.ItemIndex=-1 then exit;(tekdir+'\'+ListBox8.Items[ListBox8.ItemIndex]);.Items.Delete(ListBox8.ItemIndex);;TMain.SpeedButton28Click(Sender: TObject);

var:string;

//определяем директория для хранения файлов

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

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

//если нет директориит - создаем ееnot DirectoryExists(tekdir)

then ForceDirectories (tekdir);(Pchar(OpenPictureDialog1.FileName),(tekdir+'\'+ExtractFileName(OpenPictureDialog1.FileName)), true);.Items.Add(ExtractFileName(OpenPictureDialog1.FileName));;;TMain.SpeedButton29Click(Sender: TObject);:string;:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

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

if ListBox7.ItemIndex=-1 then exit;(tekdir+'\'+ListBox7.Items[ListBox7.ItemIndex]);.Items.Delete(ListBox7.ItemIndex);;TMain.SpeedButton27Click(Sender: TObject);:string;:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

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

if ListBox6.ItemIndex=-1 then exit;(tekdir+'\'+ListBox6.Items[ListBox6.ItemIndex]);.Items.Delete(ListBox6.ItemIndex);;TMain.SpeedButton26Click(Sender: TObject);

var:string;

//определяем директория для хранения файлов

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

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

//если нет директориит - создаем ееnot DirectoryExists(tekdir)

then ForceDirectories (tekdir);(Pchar(OpenPictureDialog1.FileName),(tekdir+'\'+ExtractFileName(OpenPictureDialog1.FileName)), true);.Items.Add(ExtractFileName(OpenPictureDialog1.FileName));;;TMain.CheckBox6Click(Sender: TObject);:string;CheckBox6.Checked then.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;;CheckBox6.Checked=false then:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

'\Внеурочная деятельность\Конкурсы';ListBox8.Items.Count<>0 thenmessagedlg('При снятии галочки все файлы из этой категории будут удалены! '

+'Хотите продолжить?'

,Mtconfirmation, [mbYes, mbNo],0)=mrYesbegin

//удаляем каталог

MyRemoveDir(tekdir);.Items.Clear;.Checked:=true;;;;.Enabled:=false;.Enabled:=false;.Enabled:=false;.Enabled:=false;.Enabled:=false;.Enabled:=false;;;TMain.CheckBox5Click(Sender: TObject);:string;CheckBox5.Checked then.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;;CheckBox5.Checked=false then:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

'\Внеурочная деятельность\Концерты';ListBox7.Items.Count<>0 thenmessagedlg('При снятии галочки все файлы из этой категории будут удалены! '

+'Хотите продолжить?'

,Mtconfirmation, [mbYes, mbNo],0)=mrYesbegin

//удаляем каталог

MyRemoveDir(tekdir);.Items.Clear;.Checked:=true;;;;.Enabled:=false;.Enabled:=false;.Enabled:=false;.Enabled:=false;.Enabled:=false;.Enabled:=false;;;TMain.CheckBox4Click(Sender: TObject);:string;CheckBox4.Checked then.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;;CheckBox4.Checked=false then

begin

//определяем директория для хранения файлов

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

'\Внеурочная деятельность\Выставки';ListBox6.Items.Count<>0 thenmessagedlg('При снятии галочки все файлы из этой категории будут удалены! '

+'Хотите продолжить?'

,Mtconfirmation, [mbYes, mbNo],0)=mrYesbegin

//удаляем каталог

MyRemoveDir(tekdir);.Items.Clear;.Checked:=true;;;;.Enabled:=false;.Enabled:=false;.Enabled:=false;.Enabled:=false;.Enabled:=false;.Enabled:=false;;;TMain.SpeedButton32Click(Sender: TObject);

var:string;

//определяем директория для хранения файлов

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

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

begin

//если нет директориит - создаем ее

if not DirectoryExists(tekdir)ForceDirectories (tekdir);(Pchar(OpenPictureDialog1.FileName),(tekdir+'\'+ExtractFileName(OpenPictureDialog1.FileName)), true);.Items.Add(ExtractFileName(OpenPictureDialog1.FileName));;;TMain.SpeedButton34Click(Sender: TObject);

var:string;

//определяем директория для хранения файлов

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

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

begin

//если нет директориит - создаем ее

if not DirectoryExists(tekdir)ForceDirectories (tekdir);(Pchar(OpenPictureDialog1.FileName),(tekdir+'\'+ExtractFileName(OpenPictureDialog1.FileName)), true);.Items.Add(ExtractFileName(OpenPictureDialog1.FileName));;;TMain.SpeedButton33Click(Sender: TObject);:string;:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

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

if ListBox9.ItemIndex=-1 then exit;(tekdir+'\'+ListBox9.Items[ListBox9.ItemIndex]);.Items.Delete(ListBox9.ItemIndex);;TMain.SpeedButton35Click(Sender: TObject);:string;:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

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

if ListBox10.ItemIndex=-1 then exit;(tekdir+'\'+ListBox10.Items[ListBox10.ItemIndex]);.Items.Delete(ListBox10.ItemIndex);;TMain.CheckBox7Click(Sender: TObject);:string;CheckBox7.Checked then.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;;CheckBox7.Checked=false then:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

'\Внеурочная деятельность\Турниры';ListBox9.Items.Count<>0 then

beginmessagedlg('При снятии галочки все файлы из этой категории будут удалены! '

+'Хотите продолжить?'

,Mtconfirmation, [mbYes, mbNo],0)=mrYesbegin

//удаляем каталог

MyRemoveDir(tekdir);.Items.Clear;.Checked:=true;;;;.Enabled:=false;.Enabled:=false;.Enabled:=false;.Enabled:=false;.Enabled:=false;.Enabled:=false;;;TMain.CheckBox8Click(Sender: TObject);:string;CheckBox8.Checked then.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;;CheckBox8.Checked=false then:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

'\Внеурочная деятельность\Сорвенования';ListBox10.Items.Count<>0 thenmessagedlg('При снятии галочки все файлы из этой категории будут удалены! '

+'Хотите продолжить?'

,Mtconfirmation, [mbYes, mbNo],0)=mrYesbegin

//удаляем каталог

MyRemoveDir(tekdir);.Items.Clear;.Checked:=true;;;;.Enabled:=false;.Enabled:=false;.Enabled:=false;.Enabled:=false;.Enabled:=false;.Enabled:=false;;;TMain.SpeedButton36Click(Sender: TObject);

var:string;

//определяем директория для хранения файлов

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

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

begin

//если нет директориит - создаем ее

if not DirectoryExists(tekdir)ForceDirectories (tekdir);(Pchar(OpenPictureDialog1.FileName),(tekdir+'\'+ExtractFileName(OpenPictureDialog1.FileName)), true);.Items.Add(ExtractFileName(OpenPictureDialog1.FileName));;;TMain.SpeedButton37Click(Sender: TObject);:string;:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

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

if ListBox11.ItemIndex=-1 then exit;(tekdir+'\'+ListBox11.Items[ListBox11.ItemIndex]);.Items.Delete(ListBox11.ItemIndex);;TMain.SpeedButton38Click(Sender: TObject);:string;:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

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

if ListBox12.ItemIndex=-1 then exit;(tekdir+'\'+ListBox12.Items[ListBox12.ItemIndex]);.Items.Delete(ListBox12.ItemIndex);;TMain.SpeedButton40Click(Sender: TObject);:string;:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

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

if ListBox13.ItemIndex=-1 then exit;(tekdir+'\'+ListBox13.Items[ListBox13.ItemIndex]);.Items.Delete(ListBox13.ItemIndex);;TMain.SpeedButton44Click(Sender: TObject);:string;:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

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

if ListBox14.ItemIndex=-1 then exit;(tekdir+'\'+ListBox14.Items[ListBox14.ItemIndex]);.Items.Delete(ListBox14.ItemIndex);;TMain.SpeedButton46Click(Sender: TObject);:string;:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

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

if ListBox15.ItemIndex=-1 then exit;(tekdir+'\'+ListBox15.Items[ListBox15.ItemIndex]);.Items.Delete(ListBox15.ItemIndex);;TMain.SpeedButton39Click(Sender: TObject);

var:string;

//определяем директория для хранения файлов

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

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

if OpenPictureDialog1.Execute then

//если нет директориит - создаем ееnot DirectoryExists(tekdir)ForceDirectories (tekdir);(Pchar(OpenPictureDialog1.FileName),(tekdir+'\'+ExtractFileName(OpenPictureDialog1.FileName)), true);.Items.Add(ExtractFileName(OpenPictureDialog1.FileName));;;TMain.SpeedButton41Click(Sender: TObject);

var:string;

//определяем директория для хранения файлов

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

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

//если нет директориит - создаем ееnot DirectoryExists(tekdir)

then ForceDirectories (tekdir);(Pchar(OpenPictureDialog1.FileName),(tekdir+'\'+ExtractFileName(OpenPictureDialog1.FileName)), true);.Items.Add(ExtractFileName(OpenPictureDialog1.FileName));;;TMain.SpeedButton45Click(Sender: TObject);

var:string;

//определяем директория для хранения файлов

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

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

if OpenPictureDialog1.Execute then

//если нет директориит - создаем ееnot DirectoryExists(tekdir)ForceDirectories (tekdir);(Pchar(OpenPictureDialog1.FileName),(tekdir+'\'+ExtractFileName(OpenPictureDialog1.FileName)), true);.Items.Add(ExtractFileName(OpenPictureDialog1.FileName));;;TMain.SpeedButton47Click(Sender: TObject);

var:string;

//определяем директория для хранения файлов

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

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

if OpenPictureDialog1.Execute then

//если нет директориит - создаем ееnot DirectoryExists(tekdir)ForceDirectories (tekdir);(Pchar(OpenPictureDialog1.FileName),(tekdir+'\'+ExtractFileName(OpenPictureDialog1.FileName)), true);.Items.Add(ExtractFileName(OpenPictureDialog1.FileName));;;TMain.CheckBox9Click(Sender: TObject);:string;CheckBox9.Checked then.Enabled:=true;.Enabled:=true;.Enabled:=true;;CheckBox9.Checked=false then:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

'\Авторские материалы\Программы';ListBox11.Items.Count<>0 thenmessagedlg('При снятии галочки все файлы из этой категории будут удалены! '

+'Хотите продолжить?'

,Mtconfirmation, [mbYes, mbNo],0)=mrYesbegin

//удаляем каталог

MyRemoveDir(tekdir);.Items.Clear;.Checked:=true;;;;.Enabled:=false;.Enabled:=false;.Enabled:=false;;;TMain.CheckBox10Click(Sender: TObject);:string;CheckBox10.Checked then.Enabled:=true;.Enabled:=true;.Enabled:=true;;CheckBox10.Checked=false then:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

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

if ListBox12.Items.Count<>0 then

if messagedlg('При снятии галочки все файлы из этой категории будут удалены! '

+'Хотите продолжить?'

,Mtconfirmation, [mbYes, mbNo],0)=mrYesbegin

//удаляем каталог

MyRemoveDir(tekdir);.Items.Clear;.Checked:=true;;;;.Enabled:=false;.Enabled:=false;.Enabled:=false; end;

План Введение . Общая часть .1 Цель разработки .2 Анализ использования разработки .3 Анализ методов решения .4 Анализ средств автоматизаци

Больше работ по теме: