Реализации информационной подсистемы "Advancement"

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

3. ИНФОРМАЦИОННОЕ И ПРОГРАММНОЕ ОБЕСПЕЧЕНИЕ

3.1 Общие сведения о программе

Общие сведения о программе (информационной подсистеме «Advancement») представлены в таблице 3.1.

Таблица 3.1 - Общие сведения о разработанном Windows- приложении

Наименование сведений	Содержание сведений
Обозначение программы	Advancement
Наименование программы	Информационная подсистема «Advancement» для учета успеваемости учеников МОУ СОШ №4 г. Ставрополь
Программное обеспечение, необходимое для функционирования программы	Операционная система Windows 98/ME/NT4.0/2000/XP/2003
Язык программирования (среда разработки), на которой написана программа	Язык программирования - Delphi Среда разработки Borland Delphi 7

3.2 Функциональное назначение программы

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

Таблица 3.2 - Функциональное назначение

Наименование сведений	Содержание сведений
Назначение программы	Автоматизация учета успеваемости учеников МОУ СОШ №4 с. Красное
Цель создания программы	Сокращение временных затрат секретаря учебной части Учреждения на формирование отчетов по результатам учета успеваемости обучаемых Переход от базы данных учета успеваемости обучаемых на бумажных носителях к приложению баз данных на платформе Microsoft Windows
Функциональные ограничения на применение	Наличие на компьютере пользователя установленной операционной системы семейства Windows и табличного процессора Microsoft Excel

3.3 Описание логической структуры программы

Логическую структуру программы иллюстрирует диаграмма компонентов (рисунок 3.1).

Рисунок 3.1 - Диаграмма компонентов информационной подсистемы «Advancement»

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

Как видно из родительским (суперклассом) классом, т. е. классом, порождающим все формы приложения, является класс типа TObject.

Проанализируем более подробно логическую структуру модуля программы fmAccountingU.pas (рисунок 3.3).

Как видно из рисунка 3.3, модуль fmAccountingU.pas использует множество закрытых и защищенных функций.

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

3.4.1 Общие требования

Для нормальной работы информационной подсистемы «Advancement» достаточно наличие на компьютере пользователя операционной системы Microsoft Windows XP.

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

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

3.4.2 Требования к центральному процессору

В результате контрольных прогонов установлено, что для работы с информационной подсистемой «Advancement» достаточно персонального компьютера с процессором Pentium 75 МГц. Обоснование: при более низкой тактовой частоте центрального процессора быстродействие информационной подсистемой «Advancement» является неудовлетворительным, например, время выполнения запросов для формирования данных о результаты успеваемости с группировкой по предметам составляет более десяти минут.

3.4.3 Требования к оперативному запоминающему устройству

Необходимый размер ОЗУ WОЗУ , Мбайт, рассчитаем по формуле

, (3.1)

где - минимально необходимый размер ОЗУ, требуемый для работы операционной системы (ОС) , Мбайт;

- объем ОЗУ, требуемый для работы информационной подсистемы, Мбайт.

Значение параметра для Windows XP определяется, как 128 Мбайт. Обоснование: данное требование сформулировано фирмой Microsoft, как минимальное при установке Microsoft Windows XP.

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

Таким образом, воспользовавшись формулой (3.1) получаем

= 128 + 1,86 = 129,86 Мбайт.

Делаем следующий вывод - для нормальной работы информационной подсистемы «Advancement» под управлением операционной системы Windows XP будет достаточно 129,86 Мбайт оперативной памяти. Для обеспечения комфортных условий работы информационной подсистемы рекомендуется использовать ОЗУ размером 256 Мбайт и более.

3.4.4 Требования к наличию сводного места на жестком диске

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

, (3.2)

где - размер пространства, которое занимает инсталляция информационной подсистемы «Advancement», Мбайт;

- размер временных файлов, создаваемых при работе с программой, Мбайт.

Размер пространства , которое занимает инсталляция информационной подсистемы «Advancement» определим, просмотрев отчет «Build Report» инсталлятора InstallShield Express.

Размер пространства , которое занимает инсталляция информационной подсистемы «Advancement» составляет 17,97 Мбайт памяти жесткого диска.

В процессе эксплуатации информационной подсистемы «Advancement» могут создаваться временные файлы (запросы и пр.). Размер временных файлов (параметр ) может составить примерно 0,5 Мбайт памяти жесткого диска.

Итак, на основании формулы (3.2) приходим к выводу, что для корректной работы информационной подсистемы «Advancement» необходимо следующее количество свободной памяти жесткого диска:

= 17,97 + 0,5 = 18,47 Мбайт.

3.4.5 Требования к монитору

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

Обоснование: если разрешение монитора будет менее 800?600, то экранные формы не будут полностью отображаться на экране монитора, что затруднит работу с программой.

3.4.6 Требования к принтеру

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

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

3.5 Установка и вызов программы

Установка программы производится следующим образом.

1. В дисковод для компакт-дисков необходимо поместить CD-ROM с предварительно записанной программой установки информационной подсистемы «Advancement» setup.exe.

2. Средствами проводника Windows запустить файл setup.exe на выполнение.

3. В открывшемся первом окне программы инсталлятора нажать кнопку «Далее».

4. В открывшемся втором окне программы инсталлятора ознакомиться с предупреждением об авторском праве на программу и нажать кнопку «Далее».

5. В открывшемся третьем окне программы инсталлятора ввести данные о пользователе, организации и нажать кнопку «Далее»

6. В открывшемся четвертом окне программы инсталлятора ознакомиться с программой установки и нажать кнопку «Далее».

7. В открывшемся пятом окне программы инсталлятора процесс установки, который можно прервать нажатием на кнопку «Отмена».

8. В открывшемся шестом окне программы инсталлятора ознакомиться с результатами установки программы и нажать кнопку «Готово».

На этом процесс установки программы завершен.

Откроем папку C:\Program Files\Advancement.

Папка C:\Program Files\Advancement содержит исполнимый файл приложения, папку Database с базой данных приложения и файл динамически подключаемой библиотеки, необходимый для запуска приложения на ранних версиях операционной системы Windows.

Вызов программы осуществляется через кнопку start (пуск) (рисунок 3.12).

3.6 Входные данные программы

Разнотипными входными данными программы являются:

1. Форма обучения.

2. Специализация.

3. Название класса.

4. Предмет.

5. Фамилия и инициалы ученика.

6. Оценка.

7. Дата.

8. Количество часов пропусков.

9. Уважительная ли причина пропуска (Да/Нет)?

10. Основание для пропуска занятий.

11. Пароль пользователя.

Таким образом, количество разнотипных входных данных равно 11. Следует учитывать, что для каждого ученика в МОУ СОШ №4 (с. Красное Грачевского муниципального района Ставропольского края) большинство входных данных являются уникальными, как по датам, так и предметам.

3.7 Выходные данные программы

Выходные данные программы представлены следующими документам (отчетами):

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

- список классов по формам обучения;

- список учеников класса;

- сводная ведомость (за полугодие, годовая).

Примеры автоматизированного формирования и заполнения перечисленных документов представлены ранее на рисунках 2.44 - 2.52.

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

Программа прошла тестирование в МОУ СОШ №4 г. Ставрополь. Тестирование программы показало, что она в полном объеме удовлетворяет требованиям заказчика. В настоящее время, разработанная информационная подсистема «Advancement», уже внедрена в практику работы учета успеваемости обучаемых в МОУ СОШ №4 (с. Красное Грачевского муниципального района Ставропольского края) и находится в стадии опытной эксплуатации.

Выводы

1. Для нормального функционирования программы достаточно наличия:

- операционной системы Windows 95;

- персонального компьютера с процессором Pentium 75 МГц;

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

- 18,47 Мбайт свободной памяти жесткого диска;

- любого современного цветного монитора с разрешением 800?600;

- любого лазерного принтера с разрешением печати не менее 300 точек/дюйм.

2. В ходе разработки программы использовались среда Borland Delphi 7 и CASE-средство ERwin 4.0. Основным языком программирования являлся Delphi.

3. Функциональные ограничения на применение обусловлены тем, что разработанная программа требует наличия на компьютере пользователя установленной операционной системы семейства Windows и табличного процессора Microsoft Excel.

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

5. Установка программы на компьютер пользователя производится при помощи программы инсталлятора setup.exe.

6. Общее количество разнотипных входных данных программы равно 11.

7. Программа прошла тестирование в МОУ СОШ №4 (с. Красное Грачевского муниципального района Ставропольского края). В результате тестирования установлено, что она в полном объеме удовлетворяет требованиям заказчика.

4. Технико-экономическое обоснование ПРОЕКТА

4.1 Краткая характеристика проекта

В дипломном проекте выполнена разработка информационной подсистемы «Advancement» для учета успеваемости обучаемых в МОУ СОШ №4 (с. Красное Грачевского муниципального района Ставропольского края).

Назначение программы - автоматизация учета успеваемости обучаемых в МОУ СОШ №4.

Цель создания системы - сокращение временных затрат секретаря учебной части Учреждения на формирование отчетов по результатам учета успеваемости обучаемых.

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

1. Ведение электронной картотеки (базы данных) учета успеваемости обучаемых.

2. Автоматизированное формирование, просмотр и печать следующих документов (отчетов):

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

- список групп по формам обучения;

- список студентов группы;

- сводная ведомость (за полугодие, годовая).

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

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

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

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

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

Программа разрабатывается сторонней организацией по техническому заданию «Advancement».

Число строчек кода в тексте программного кода на языке Delphi = 650 ед.

В разделе рассмотрены вопросы расчета:

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

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

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

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

- времени окупаемости проекта.

4.2 Трудоемкость выполняемых работ

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

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

Трудоемкость разработки программного обеспечения ТПО, чел.-ч., определяется по формуле

ТПО = ТО + ТИ + ТА + ТП + ТОТЛ + ТД, (4.1)

где ТО - затраты труда на описание задачи, чел.-ч.;

ТИ - затраты на исследование предметной области, чел.-ч.;

ТА - затраты на разработку блок-схем, чел.-ч.;

ТП - затраты на программирование, чел.-ч.;

ТОТЛ - затраты на отладку, чел.-ч.;

ТД - затраты на подготовку документации, чел.-ч.

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

D = ??c?(1 + p), (4.2)

где ? - число операторов, ед. (? = 650 ед.);

с ? коэффициент сложности задачи;

р - коэффициент коррекции программы, учитывающий новизну проекта.

Коэффициент сложности задачи «с» характеризует относительную сложность программы по отношению к так называемой типовой задаче, реализующей стандартные методы решения, сложность которой принята равной единице (величина коэффициента «с» лежит в пределах от 1,25 до 2). Для рассматриваемого программного продукта, включающего в себя алгоритмы учета, отчетности, поиска - коэффициент сложности задачи примем равным 1,75 (c = 1,75).

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

В результате подстановки численных значений коэффициентов и параметров в формулу (4.2) получим следующее общее число строчек кода

D = 650?1,75?(1 + 0,1) = 1251,25 ед.

Затраты труда на описание задачи принимаем: ТО = 40 чел.-ч. Работу по описанию задачи выполняет инженер-программист с окладом 14000,00 руб. в месяц и коэффициентом квалификации kК = 1,35 (опыт работы по специальности шесть лет).

Затраты труда на изучение задачи ТИ, чел.-ч., с учетом уточнения описания и квалификации программиста могут быть определены по формуле:

ТИ = Db/(sИkK), (4.3)

где D - общее число операторов, ед.;

b - коэффициент увеличения затрат труда, вследствие недостаточного описания задачи;

sИ - количество строчек кода, приходящееся на один чел.-ч., (ед./ чел.-ч.);

kK - коэффициент квалификации работника (определяется в зависимости от стажа работы).

В связи с тем, что решение рассматриваемой задачи потребовало уточнения и доработок, примем коэффициент b = 1,5.

Количество строчек кода в тексте программы, приходящееся на один чел.-ч., примем равным sИ = 75.

Таким образом, на основании формулы (4.3) получим

ТИ = 1251,25?1,5/(75?1,35) = 18,54 чел.-ч.

Затраты труда на разработку алгоритма решения задачи ТА, чел.-ч., рассчитываются по формуле:

ТА = D/(sАkK), (4.4)

где D - общее число операторов, ед.;

sА - количество строчек кода алгоритма решения задачи, приходящееся на один чел.-ч., (ед./ чел.-ч.);

kK - коэффициент квалификации работника (определяется в зависимости от стажа работы).

Для расчета по формуле (4.4) примем sА = 20 ед./ чел.-ч.

Подставив численные значения параметров и коэффициентов в формулу (4.4), получим

ТА = 1251,25/(20?1,35) = 46,34 чел.-ч.

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

ТП = D/(sАkK), (4.5)

где D - общее число операторов, ед.;

sА - количество операторов алгоритма решения задачи, приходящееся на один чел.-ч., (ед./ чел.-ч.);

kK - коэффициент квалификации работника (определяется в зависимости от стажа работы).

Для расчетов по формуле (4.5) примем sА = 20 ед./ чел.-ч.

Подставив численные значения параметров и коэффициентов в формулу (4.5), получим

ТП = 1251,25/(20?1,35) = 46,34 чел.-ч.

Затраты труда на отладку программы на персональном компьютере ТОТЛ, чел.-ч., рассчитывается по формуле

ТОТЛ = D/(sОТЛkK), (4.6)

где D - общее число операторов, ед.;

sОТЛ - количество отлаживаемых операторов программы, приходящееся на один чел.-ч., (ед./ чел.-ч.);

kK - коэффициент квалификации работника (определяется в зависимости от стажа работы).

Для расчетов по формуле (4.6) примем sОТЛ = 4 ед./ чел.-ч.

Подставив численные значения параметров и коэффициентов в формулу (4.6), получим

ТОТЛ = 1251,25/(4?1,35) = 231,71 чел.-ч.

Затраты труда на подготовку документации по задаче ТД определяются по формуле:

ТД = ТДР + ТДО, (4.7)

где ТДР - затраты труда на подготовку материалов в рукописи, чел.-ч.;

ТДО - затраты труда на редактирование, печать и оформление документации, чел.-ч.

Затраты труда на подготовку материалов в рукописи ТДР, чел.-ч., вычислим по формуле

ТДР = D / (sДРkK), (4.8)

где D - общее число операторов, ед.;

sДР - количество операторов программы в рукописи, приходящееся на один чел.-ч., (ед./ чел.-ч.);

kK - коэффициент квалификации работника (определяется в зависимости от стажа работы).

Для расчетов по формуле (4.8) примем sДР = 15 ед./чел.-ч.

Подставив численные значения параметров и коэффициентов в формулу (4.8), получим

ТДР = 1251,25/(15?1,35) = 61,79 чел.-ч.

Затраты труда на редактирование, печать и оформление документации ТДО, чел.-ч., вычислим по формуле

ТДО = 0,75 ? ТДР. (4.9)

Подставив численное значение затраты труда на подготовку материалов в рукописи ТДР, чел.-ч., в формулу (4.9), получим

ТДО = 0,75?61,79 = 46,34 чел.-ч.

Таким образом, подставив численные значение затраты труда на подготовку материалов в рукописи ТДР, чел.-ч., и затраты труда на редактирование, печать и оформление документации ТДО, чел.-ч., в формулу (4.7) получим

ТД = 61,79 + 46,34 = 108,13 чел.-ч.

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

ТПО = 40 + 18,54 + 46,34 + 46,34 + 231,71 + 108,13 = 491,07 чел.-ч.

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

ТКОР = ТПОkКОР, (4.10)

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

Таблица 4.1 - Изменение трудоемкости в зависимости уровня языка программирования

Уровень языка программирования	Характеристика языка программирования	Коэффициент изменения трудоемкости
1	Ассемблер	1
2	Макроассемблер	0,95
3	Алгоритмические языки высокого уровня	0,8 ? 0,9

Использованный для разработки программного обеспечения язык программирования (Delphi) относится к алгоритмическим языкам высокого уровня, с учетом этого примем kКОР = 0,8.

Окончательно, с учетом корректировки, получим по формуле (4.10) итоговую трудоемкость разработки

ТКОР = 491,07?0,8 = 392,85 чел.-ч.

4.3 Расчет себестоимости автоматизированной информационной системы

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

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

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

- отчисления на страховые взносы;

- затраты на потребляемую электроэнергию;

- расходы на материалы и запасные части;

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

Оклад инженера-программиста составляет 14000,00 руб. в месяц.

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

tПФ = NРД?tРД, (4.11)

где NРД - количество рабочих дней специалиста производственного персонала за месяц;

?tРД - продолжительность рабочего дня специалиста производственного персонала, ч.

Для расчетов по формуле (4.11) примем NРД = 22 дня, ?tРД = 8 ч. Подставив указанные численные значения параметров NРД и ?tРД в формулу (4.11) получим, что плановый фонд рабочего времени одного специалиста производственного персонала в месяц составляет

tПФ = 22?8 = 176 ч.

Таким образом, часовая тарифная ставка sЧ, руб./ч, инженера-программиста составляет

sЧ = 14000,00/176 = 79,55 руб./ч.

Основная заработная плата ЗО, руб., производственного персонала определяется по формуле

ЗО = sЧ?ТКОР. (4.12)

Подставив все численные значения параметров в формулу (4.12) получим, что основная заработная плата инженера-программиста составит

ЗО = 79,55?392,85= 31251,22 руб.

Дополнительная заработная плата ЗД, руб., производственного персонала определяется по формуле

ЗД = ЗО?Д, (4.13),

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

Коэффициент дополнительной заработной платы инженера-программиста составляет ?Д = 0,2. Таким образом, дополнительная заработная плата ЗД, руб., инженера-программиста, вычисленная по формуле (4.13), равна

ЗД = 31251,22?0,2 = 6250,24 руб.

Отчисления в Пенсионный фонд Российской Федерации, Фонд социального страхования Российской Федерации и фонды обязательного медицинского страхования Российской Федерации согласно закону № 212-ФЗ от 24.07.2009 ЗС, руб., вычислим по формуле:

ЗС = (ЗО + ЗД)/100??С, (4.14)

где ?С ? норматив страховых взносов, %.

В соответствии с законом № 212-ФЗ от 24.07.2009 норматив страховых взносов составляет 34 % (?С = 34 %).

Подставив все численные значения в формулу (4.14) получим, что отчисления на страховые взносы равны

ЗС = (31251,22 + 6250,24)?34/100 = 37501,46?0,34 = 12750,01 руб.

Таким образом, размер страховых взносов составит 12750,01 руб.

Затраты на потребляемую электроэнергию ЗЭ, руб.:

ЗЭ = PВtВцЭ, (4.15)

информационный подсистема advancement приложение

где PВ - мощность ЭВМ, кВт;

tВ - время работы вычислительного комплекса, ч;

цЭ - стоимость 1 кВтч электроэнергии, руб./ кВтч.

Мощность ЭВМ, на которой работает инженер-программист, равна PВ = 0,3 кВт.

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

tВ = ?П?(ТП + ТОТЛ + ТД)?kКОР, (4.16)

где ?П - коэффициент, учитывающий затраты времени на профилактические работы на ЭВМ;

kКОР - коэффициент коррекции времени работы вычислительного комплекса.

Для расчетов по формуле (4.16) примем ?П = 1,15 и kКОР = 0,8.

Подставив все численные значения параметров в формулу (4.16) получим

tВ = 1,15?(46,34 + 231,71 + 108,13)?0,8 = 355,29 ч.

Стоимость 1 кВтч электроэнергии составляет цЭ = 3,60 руб.

Подставив все численные значения параметров в формулу (4.15) получим, что затраты на потребляемую электроэнергию составят

ЗЭ =0,3?355,29?3,60 = 383,72 руб.

Данные для расчета затрат на материалы и запасные части занесенные в таблицу 4.2.

Таблица 4.2 ? Затраты на материалы и покупные изделия

Материал, покупное изделие	Количество, единиц	Цена за единицу, руб.	Сумма, руб.
Техническая литература	2	300,00	600,00
DVD-RW 4x 4,7 Гбайт	3	45,00	135,00
Упаковка бумаги, 500 листов	2	130,00	260,00
Тонер для картриджа принтера	1	100,00	100,00
Программное обеспечение	1	12000,00	12000,00
Итого	13095,00

Следовательно, затраты на материалы и запасные части составят 13095,00 руб.

Затраты на техническое обслуживание и текущий ремонт вычислительной техники ЗП, руб.:

ЗП=КВ(/100)tВ/ tВ.Г, (4.17)

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

? - норма отчислений на ремонт, %;

tВ.Г - годовой фонд времени работы вычислительной техники, ч.

Для расчетов по формуле (4.17) примем:

- балансовая стоимость вычислительной техники = 22000,00 руб.;

- норма отчислений на ремонт ? = 4 %;

- годовой фонд времени работы вычислительной техники в году при 40-часовой рабочей неделе tВ.Г = 1987 ч .

Подставив все численные значения параметров в формулу (4.17) получим:

ЗП = 22000,00?(4/100)?355,29/1987 = 157,35 руб.

Амортизационные отчисления ЗАО, руб.:

ЗАО = 22000,00?(20/100)?355,29/1987 = 786,76 руб.

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

Таблица 4.3 - Величины затраты, составляющих себестоимость автоматизированной информационной системы

Статья расхода	Сумма, руб.
Основная заработная плата производственного персонала	31251,22
Дополнительная заработная плата производственного персонала	6250,24
Отчисления на страховые взносы	12750,01
Затраты на потребляемую электроэнергию	383,72
Расходы на материалы и запасные части	13095,00
Затраты на техническое обслуживание и ремонт вычислительной техники	157,35
Затраты на амортизацию вычислительной техники	786,76
Итого	64674,30

Таким образом, полные затраты на создание программного продукта составляют 64674,30 руб.

Поскольку разработка программного продукта осуществлялась сторонней организацией по техническому заданию (ТЗ) «Advancement», то оптовая цена программного продукта Ц, руб., рассчитывается с учетом нормы рентабельности НР:

Ц = З?(1 + НР). (4.18)

Для расчетов по формуле (4.18) примем нормы рентабельности НР = 15 %. Тогда оптовая цена программного продукта по формуле (4.18) составит:

Ц = 64674,30?(1 + 15/100) = 74375,44 руб.

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

К = Ц = 74375,44 руб.

4.4 Оценка экономической эффективности проекта

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

П = Э - З, (4.19)

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

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

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

Э = (ЗРУЧ - ЗАВТ) + ЭДОП, (4.20)

где ЗРУЧ - затраты на ручную обработку информации, руб.;

ЗАВТ - затраты на автоматизированную обработку информации, руб.;

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

Данный продукт используется оператором (секретарь учебной части Учреждения). Оклад оператора - 14000,00 руб. Тогда, цена одного часа работы оператора цЧ, руб./ч, составит

цЧ = 14000,00/176 = 79,55 руб./ч.

Годовые затраты (затраты за 12 месяцев) оператора при ручной обработке информации ЗРУЧН, руб., вычислим по формуле

ЗРУЧН = tОБЩ.Р?12? цЧ. (4.21)

Тогда, по формуле (4.21), годовые затраты оператора при ручной обработке информации (по данным предпроектного обследования общие затраты времени на ручную обработку информации tОБЩ.Р = 60 ч/месяц) составят

ЗРУЧН = 60?12?79,55 = 57276,00 руб.

Годовые затраты (затраты за 12 месяцев) оператора при автоматизированной обработке информации ЗАВТ, руб., вычислим по формуле

ЗАВТ = tОБЩ.А?12?цЧ. (4.22)

Тогда, по формуле (4.22), при автоматизированной обработке информации (по результатам тестирования программного продукта установлено, что общие затраты времени при автоматизированной обработке информации tОБЩ.А = 2 ч/месяц)

ЗАВТ = 2?12?79,55 = 1909,20 руб.

Следовательно, годовой эффект от внедрения программного продукта, даже без учета дополнительный экономический эффекта (ЭДОП = 0), на основании формулы (4.20), получится равным

Э = ЗРУЧН ЗАВТ = 57276,00 1909,20 = 55366,80 руб.

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

На основании формулы (4.15), для персонального компьютера оператора за 12 месяцев затраты на электроэнергию ЗЭ, руб., при потребляемой мощности компьютера PВ = 0,3 кВт составят (стоимость электроэнергии цЭ = 3,60 руб./кВтч)

ЗЭ = 0,3?2?12?3,60= 25,92 руб.

Балансовая стоимость вычислительной техники (персонального компьютера оператора) = 22000,00 руб. Тогда, на основании формулы (4.17), для персонального компьютера оператора за 12 месяцев затраты на техническое обслуживание и текущий ремонт ЗП.ОП, руб., составят:

ЗП.ОП = 22000,00?(4/100)?(2?12)/1987 = 10,63 руб.

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

ЗАО.ОП = 22000,00?(20/100)?(2?12)/1987 = 53,15 руб.

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

З = ЗЭ + ЗП + ЗАО = 25,92 + 10,63 + 53,15 = 89,70 руб.

Прибыль рассчитаем по формуле (4.19):

П = Э - З = 55366,80 - 89,70 = 55277,10 руб.

Таким образом, имеется следующий денежный поток:

0 шаг (капиталовложения) - 74375,44 руб.;

1 шаг - 55277,10 руб.;

2 шаг - 55277,10 руб.;

3 шаг - 55277,10 руб.;

4 шаг - 55277,10 руб.;

Чистый дисконтированный доход ЧДД, руб., от использования программного продукта определим по формуле [14]:

, (4.23)

где N - расчетный период, год;

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

Е - норма дисконта, %;

K - капиталовложения при внедрении программного продукта, руб.

Следовательно, ЧДД, руб., при N = 4, т. е. за четыре года использования программного продукта (срок до морального старения рассматриваемой информационной подсистемы ««Advancement») при норме дисконта E = 20% в соответствии с формулой (4.23) составит:

ЧДД = 55277,10/(1 + 0,2) + 55277,10/(1 + 0,2)2 + 55277,10/(1 + 0,2)3 +

+ 55277,10/(1 + 0,2)4 - 74375,44 = 46064,25 + 38386,88 + 31989,06 + 26657,55 - 74375,44 = 68722,29 руб.

Приходим к выводу, что ЧДД ? положителен, т. е. проект эффективен.

Внутреннюю норму доходности проекта Eвн, %, определим по формуле

,(4.24)

где - максимальное значение внутренней нормы дисконта, %, при которой ЧДД является положительной величиной (ЧДД > 0);

- минимальное значение внутренней нормы дисконта, %, при которой ЧДД является отрицательной величиной (ЧДД < 0);

- ЧДД, руб., вычисленный по формуле (4.23) при подстановке нормы дисконта ;

- ЧДД, руб., вычисленный по формуле (4.23) при подстановке нормы дисконта.

Предполагаем, что EВН лежит в диапазоне 63 ... 65%. При норме дисконта EВН = 63% получаем ЧДД =936,48 руб. Таким образом, при норме дисконта EВН = 63% ЧДД - положителен.

При норме дисконта EВН = 65% получаем ЧДД = -807,25 руб. Таким образом, при норме дисконта EВН = 65% ЧДД - отрицателен.

Следовательно, по формуле (4.26) имеем:

.

Рассчитаем срок окупаемости проекта. Срок окупаемости проекта , год, найдем по формуле

, (4.25)

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

- величины приведенных (дисконтированных) годовых эффектов за j-й год, руб., прошедший с начала эксплуатации программного продукта, вычисленные по формуле (4.23) при подстановке нормы дисконта E = 20%.

Величина приведенного (дисконтированного) годового эффекта за первый год расчетного периода по формуле (4.23) равна:

,

что меньше величины капиталовложений (K = 74375,44 руб.).

Величина приведенного (дисконтированного) годового эффекта за второй год расчетного периода по формуле (4.23) равна:

,

Сумма приведенных (дисконтированных) годовых эффектов за первый и второй год расчетного периода составят:

руб.

Тогда, в формуле (4.25) имеем N = 1 и срок окупаемости составит

года.

4.5 Основные технико-экономические показатели проекта

Для удобства анализа, все основные технико-экономические показатели проекта сведены в таблицу 4.4.

Таблица 4.4 ? Основные технико-экономические показатели проекта

Основные характеристики	Единицы измерения	Проект
Итоговая трудоемкость разработки	чел.-ч.	392,85
Полные затраты на создание программного продукта	руб.	64674,30
Оптовая цена программного продукта	руб.	74375,44
Годовой эффект от внедрения программного продукта	руб.	55366,80
Чистый дисконтированный доход за 4 года использования программного продукта	руб.	68722,29
Внутренняя норма доходности проекта	%	64,07
Срок окупаемости проекта	год	1,26

Выводы

1. Итоговая трудоемкость разработки программного продукта (информационной подсистемы «Advancement») составляет 392,85 чел.-ч.

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

3. Оптовая цена программного продукта - 74375,44 руб.

4. Годовой эффект от внедрения программного продукта составляет 55366,80 руб.

5. Чистый дисконтированный доход за 4 года использования программного продукта равен 68722,29 руб.

6. Внутренняя норма доходности проекта составляет 64,07%.

7. Срок окупаемости проекта 1,26 года.

8. После внедрения программного продукта ежемесячные затраты времени секретаря учебной части МОУ СОШ №4 на учет успеваемости обучаемых сократились с 60 до 2 часов, т. е. в 30 раз. Таким образом, разработка информационной подсистемы «Advancement» является экономически обоснованной и эффективной.

Заключение

Основным результатом дипломного проектирования является разработка, на основе использования современных CASE-технологий, информационной подсистемы «Advancement» для учета успеваемости учеников МОУ СОШ №4, с. Красное.

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

- итоговая трудоемкость разработки программного продукта (информационной подсистемы «Advancement») составляет 392,85 чел.-ч.

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

- оптовая цена программного продукта - 74375,44 руб.

- годовой эффект от внедрения программного продукта составляет 55366,80 руб.

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

- внутренняя норма доходности проекта составляет 64,07%;

- срок окупаемости проекта 1,26 года.

После внедрения программного продукта ежемесячные затраты времени секретаря учебной части МОУ СОШ №4 (с. Красное Грачевского муниципального района Ставропольского края) на учет успеваемости обучаемых сократились с 60 до 2 часов, т. е. в 30 раз.

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

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

список ИСТОЧНИКОВ

1. Петров, А. И. Информационные системы [Текст]/ А. И. Петров. - М.: Горячая линия-Телеком, 2000. ? 300с., ил.

2. Буч, Г., Рамбо, Д., Джекобсон, А. Язык UML для пользователя: Пер. с англ [Текст]/ Г. Буч, Д. Рамбо, А. Джекобсон. - М.: ДМК, 2000. ? 432 с., ил. (Серия «для программистов»).

3. Боггс, У., Боггс, М.. UML и Rational Rose: Пер. с англ [Текст] / У. Боггс, М. Боггс. - М.: Издательство «Лори», 2000. 581 с.

4. Калянов, Г. Н. CASE-технологии. Консалтинг при автоматизации бизнес процессов. 2-е изд. перераб. И доп. [Текст] /Г. Н. Калянов. - М.: Горячая линия- Телеком, 2000. ? 320 с.

5. Ларман, К. применение UML и шаблонов проектирования: Пер. с англ [Текст] / К. Ларман. - М.: Издательский дом «Вильямс», 2001. - 496 с.

6. Архангельский, А. Я. Программирование в Delphi 7 [Текст] / А. Я. Архангельский. - М.: ООО «Бином-Пресс», 2003. - 1152 с.

7. Тейксера, Стив, Пачеко, Ксавье. Borland Delphi 6 [Текст] / Стив Тейксера, Ксавье Пачеко. Руководство разработчика. : Пер. с англ. - М.: Издательский дом «Вильямс», 2000. - 1120 с.

8. Баженова, И. Ю. Delphi 7 Самоучитель программиста [Текст] / И. Ю. Баженова. - М.: Кудиц-Образ, 2003. - 436 с.

9. Культин, Н. Б. Основы программирования в Delphi 7 [Текст] / Н. Б. Культин. - СПб.: БХВ-Петербург, 2003. 608 с.

10. Гофман, В.Э, Хомоненко, А. Д. Delphi 5 [Текст] / В.Э. Гофман, А. Д. Хомоненко. - СПб.: БХВ, 2000. 800 с.: ил.

11. Тейксера Стив, Пачеко Ксавье. Borland Delphi 5. Руководство разработчика.: Пер. с англ. - М.: Издательский дом «Вильямс», 2000. - 817 с.

12. Кандзюба, С. П., Громов, В. Н. Delphi 6. Базы данных и приложения. Лекции и упражнения [Текст] / С. П. Кандзюба, В. Н. Громов. - К.:Издательство «ДиаСофт», 2001. - 576 с.

13. Епанешников, А. М., Епанешников, В. А. DELPHI. Программирование СУБД [Текст] / А. М. Епанешников, В. А. Епанешников. - М.: ДИАЛОГ-МИФИ, 2001 - 528 с.

14. Когаловский, М.Р. Технология баз данных на персональных ЭВМ [Текст] / М.Р. Когаловский. - Киев: Радиоэлектроника, 2004. - 270с.

15. Hаумов, А.H. Системы управления базами данных и знаний [Текст] / А.H Hаумов, А.М.Вендров - М.: Финансы и статистика, 2003. - 240с.

16. Брябрин, В.М. Программное обеспечение персональных ЭВМ [Текст] / В.М. Брябрин. - М.:Hаука, 1999. - 500с.

17. Аппак, М.А. Автоматизированные рабочие места на основе персональных ЭВМ [Текст] / М.А. Аппак - М.: Радио и связь, 1989. -400с.

18. Крайзмер, Л.П. Персональный компьютер на вашем рабочем месте [Текст] / Л.П Крайзмер, Б.А Кулик. - СпБ: Лениздат, 1998. -360с.

19. Шумаков, П. В. Delphi 5.0 и создание баз данных [Текст] / П.В. Шумаков - М.: Наука, 2002. -400с.

20. Мартин, Дж. Организация баз данных в вычислительных системах [Текст] / Дж. Мартин. - М.: Мир, 1978. -700с.

21. Конноли, Т. Базы данных. Проектирование, реализация и сопровождение. Теория и практика. [Текст] / Т. Конноли, К. Бегг - СПб.; М.: Киев: изд. дом Вильяме, 2001. - 1120 с.

22. Диго, С.М. Проектирование и использования баз данных [Текст] / С.М. Диго. - М.: Финансы и статистика, 1995. -200с.

23. Сучков, А.Н. Автоматизированные информационные технологии в экономике [Текст] / А.Н.Сучков, И.В. Зотов. - М.: Финансы и статистика, 1999 . - 415с.

Приложение А

SQL-скрипт создания базы данных информационной подсистемы «Advancement»

CREATE TABLE ABSENCE (

StudentDisciplineID Long Integer,

ABase Memo(20),

AValidReason Logical,

ACountHour Long Integer,

ADate Date,

AbsenceID Long Integer

);

CREATE UNIQUE INDEX Primary ON ABSENCE

(

AbsenceID

);

CREATE TABLE CALCULATION (

StudentDisciplineID Long Integer,

MarkID Long Integer,

CDate Date,

CalculationID Long Integer

);

CREATE UNIQUE INDEX Primary ON CALCULATION

(

CalculationID

);

CREATE TABLE DISCIPLINE (

DName Memo(20),

DisciplineID Long Integer

);

CREATE UNIQUE INDEX Primary ON DISCIPLINE

(

DisciplineID

);

CREATE TABLE FORMINSTRUCTION (

FormInstructionID Long Integer,

FName Memo(20)

);

CREATE UNIQUE INDEX Primary ON FORMINSTRUCTION

(

FormInstructionID

);

CREATE TABLE GROUP (

FormInstructionID Long Integer,

SpecialtyID Long Integer,

GroupID Long Integer,

GName Memo(20)

);

CREATE UNIQUE INDEX Primary ON GROUP

(

GroupID

);

CREATE TABLE LISTSTUDENTSGROUP (

GroupID Long Integer,

LStudentFIO Memo(20),

ListStudentsGrou_pID Long Integer

);

CREATE UNIQUE INDEX Primary ON LISTSTUDENTSGROUP

(

ListStudentsGrou_pID

);

CREATE TABLE MARK (

MarkID Long Integer,

MName Memo(20)

);

CREATE UNIQUE INDEX Primary ON MARK

(

MarkID

);

CREATE TABLE PASSWORD (

PasswordID Long Integer

);

CREATE UNIQUE INDEX Primary ON PASSWORD

(

PasswordID

);

CREATE TABLE SPECIALTY (

SName Memo(20),

SpecialtyID Long Integer

);

CREATE UNIQUE INDEX Primary ON SPECIALTY

(

SpecialtyID

);

CREATE TABLE STUDENTDISCIPLINE (

ListStudentsGrou_pID Long Integer,

StudentDisciplineID Long Integer,

DisciplineID Long Integer

);

CREATE UNIQUE INDEX Primary ON STUDENTDISCIPLINE

(

StudentDisciplineID

);

Приложение Б

Текст модуля fmSpecialtyDisciplineU.pas

unit fmSpecialtyDisciplineU;

interface

uses

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

Dialogs, DBCtrls, StdCtrls, Buttons, Grids, DBGrids, ExtCtrls;

type

TfmSpecialtyDiscipline = class(TForm)

Panel2: TPanel;

Panel1: TPanel;

Panel3: TPanel;

Panel4: TPanel;

DBGrid2: TDBGrid;

Panel5: TPanel;

Panel6: TPanel;

DBGrid1: TDBGrid;

BitBtnSpecialtyAdd: TBitBtn;

BitBtnSpecialtyEdit: TBitBtn;

SpecialtyDel: TBitBtn;

BitBtnDisciplineIAdd: TBitBtn;

BitBtnDisciplineIEdit: TBitBtn;

BitBtnDisciplineIDel: TBitBtn;

DBNavigator1: TDBNavigator;

DBNavigator2: TDBNavigator;

BitBtnSelectFromList: TBitBtn;

Label1: TLabel;

Splitter2: TSplitter;

procedure BitBtnSpecialtyAddClick(Sender: TObject);

procedure BitBtnSpecialtyEditClick(Sender: TObject);

procedure SpecialtyDelClick(Sender: TObject);

procedure BitBtnSelectFromListClick(Sender: TObject);

procedure BitBtnDisciplineIDelClick(Sender: TObject);

procedure BitBtnDisciplineIAddClick(Sender: TObject);

procedure BitBtnDisciplineIEditClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

fmSpecialtyDiscipline: TfmSpecialtyDiscipline;

implementation

uses dmAdvancementU, fmSpecialtyWorkU, fmDisciplineCheckListBoxU,

fmDisciplineU, fmDisciplineSelectU;

{$R *.dfm}

procedure TfmSpecialtyDiscipline.BitBtnSpecialtyAddClick(Sender: TObject);

begin

fmSpecialtyWork:= TfmSpecialtyWork.Create(nil);//программное создание формы

DM.SPECIALTY.Append;

if fmSpecialtyWork.ShowModal = mrOK then

DM.SPECIALTY.Post

else

DM.SPECIALTY.Cancel;

fmSpecialtyWork.Free;//освобождаем ресурс

end;

procedure TfmSpecialtyDiscipline.BitBtnSpecialtyEditClick(Sender: TObject);

begin

if DM.SPECIALTY.RecordCount = 0 then

begin

MessageDlg('Нет записи для редактирования!',mtError,[mbOK],0);

Exit;

end

else begin

fmSpecialtyWork:= TfmSpecialtyWork.Create(nil);//программное создание формы

DM.SPECIALTY.Edit;

if fmSpecialtyWork.ShowModal = mrOK then

DM.SPECIALTY.Post

else

DM.SPECIALTY.Cancel;

fmSpecialtyWork.Free;//освобождаем ресурс

end;

end;

procedure TfmSpecialtyDiscipline.SpecialtyDelClick(Sender: TObject);

begin

if DM.SPECIALTY.RecordCount = 0 then begin

MessageDlg('Нет записи для удаления!',mtError,[mbOK],0);

Exit;

end

else if MessageDlg('Удалить запись?',mtConfirmation,[mbYes,mbNo],0)= mrYes then

DM.SPECIALTY.Delete;

end;

procedure TfmSpecialtyDiscipline.BitBtnSelectFromListClick(

Sender: TObject);

var

j, max: Integer;

begin

fmDisciplineCheckListBox:= TfmDisciplineCheckListBox.Create(nil);//программное создание формы

fmDisciplineCheckListBox.CheckListBox1.Items.Clear;

DM.DISCIPLINE.First;

for j:= 1 to DM.DISCIPLINE.RecordCount do begin

fmDisciplineCheckListBox.CheckListBox1.Items.Add(DM.DISCIPLINEDName.Value);

DM.DISCIPLINE.Next;

end;

fmDisciplineCheckListBox.CheckBoxSelectAll.Checked:= false;

max:= fmDisciplineCheckListBox.CheckListBox1.Items.Capacity - 1;

if fmDisciplineCheckListBox.ShowModal = mrOK then begin

for j:= 0 to max do begin

if fmDisciplineCheckListBox.CheckListBox1.Checked[j] = true then begin

DM.SPECIALTYDISCIPLINE.Append;

DM.SPECIALTYDISCIPLINEDisciplineID.Value:= j + 1;

DM.SPECIALTYDISCIPLINE.Post;

end;

end;

DM.SPECIALTYDISCIPLINE.First;

DM.SPECIALTYDISCIPLINE.Refresh;

DBGrid2.Refresh;

end

else

fmDisciplineCheckListBox.Free;//освобождаем ресурс

end;

procedure TfmSpecialtyDiscipline.BitBtnDisciplineIDelClick(

Sender: TObject);

begin

if DM.STUDENTDISCIPLINE.RecordCount = 0 then begin

MessageDlg('Нет записи для удаления!',mtError,[mbOK],0);

Exit;

end

else if MessageDlg('Удалить запись?',mtConfirmation,[mbYes,mbNo],0)= mrYes then begin

DM.STUDENTDISCIPLINE.Delete;

end;

end;

procedure TfmSpecialtyDiscipline.BitBtnDisciplineIAddClick(

Sender: TObject);

begin

fmDisciplineSelect:= TfmDisciplineSelect.Create(nil);//программное создание формы

DM.SPECIALTYDISCIPLINE.Append;

if fmDisciplineSelect.ShowModal = mrOK then begin

DM.STUDENTDISCIPLINEDisciplineID.Value:= DM.SPECIALTYSpecialtyID.Value;

DM.SPECIALTYDISCIPLINE.Post;

end

else

DM.SPECIALTYDISCIPLINE.Cancel;

fmDisciplineSelect.Free;//освобождаем ресурс

end;

procedure TfmSpecialtyDiscipline.BitBtnDisciplineIEditClick(

Sender: TObject);

begin

fmDiscipline:= TfmDiscipline.Create(nil);//программное создание формы

fmDiscipline.ShowModal;

fmDiscipline.Free;//освобождаем ресурс

end;

end.

Размещено на Allbest.ru