Файл: Разработка и реализация прикладного решения для автоматизации производственного учета в ЧДОУ “Детский сад №45”.pdf

Рисунок 20. Создание заявки

На рисунке 21 представлено, как формируется отчет о выпускаемом контингенте (выпускники).

Рисунок 21. Формирование отчета о выпускниках

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

Рисунок 29. Закрытие программы

ЗАКЛЮЧЕНИЕ

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

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

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

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

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

1. Проанализирована деятельность дошкольного учреждения;
2. Определены проблемы, которые стояли перед предприятием;
3. Выбраны наиболее приемлемые решения для автоматизации деятельности;
4. Разработаны все элементы решения;
5. Обоснована экономическая эффективность проекта.

Так же в ходе работы, были рассмотрены основные вопросы каждой из части.

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

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

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

Данный проект является эффективным т.к. изменения в показателях стоимостных и трудовых затрат составили 44%, а индекс изменения затрат составил 1,78, что наглядно демонстрирует необходимость реализации проекта.

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

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

СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ

• 1. ГОСТ 34.601-90 Автоматизированные системы. Стадии создания.- Москва: Изд-во стандартов,1992. – 9с.
  2. Методология разработки программного обеспечения: Rational Unified Process: нормативно-технический материал. – Lexington:1998. – 21с.
  3. ГОСТ Р ИСО/МЭК 12207-2010 Информационное технология. Системная и программная инженерия. Процессы жизненного цикла программного обеспечения. – Москва: Изд-во стандартов, 2011. – 105с.
  4. Балдин, К.В. Информационные системы в экономике: Учебник / К.В. Балдин, В.Б. Уткин. - М.: Дашков и К, 2013. - 395 c.
  5. Варфоломеева, А.О. Информационные системы предприятия: Учебное пособие / А.О. Варфоломеева, А.В. Коряковский, В.П. Романов. - М.: НИЦ ИНФРА-М, 2013. - 283 c.
  6. Васильков, А.В. Информационные системы и их безопасность: Учебное пособие / А.В. Васильков, А.А. Васильков, И.А. Васильков. - М.: Форум, 2013. - 528 c.
  7. Венделева, М.А. Информационные технологии в управлении: Учебное пособие для бакалавров / М.А. Венделева, Ю.В. Вертакова. - М.: Юрайт, 2013. - 462 c.
  8. Гаврилов, Л.П. Информационные технологии в коммерции: Учебное пособие / Л.П. Гаврилов. - М.: НИЦ ИНФРА-М, 2013. - 238 c.
  9.  Гвоздева, В.А. Информатика, автоматизированные информационные технологии и системы: Учебник / В.А. Гвоздева. - М.: ИД ФОРУМ, НИЦ ИНФРА-М, 2013. - 544 c.
  10. Грекул, В.И. Автоматизация деятельности предприятия розничной торговли с использованием информационной системы Microsoft Dynamics NAV: Учебное пособие / В.И. Грекул, Н.Л. Коровкина, Д.А. Богословцев. - М.: Бином, 2014. - 182 c.
  11. Дастин, Э. Тестирование программного обеспечения. Внедрение, управление и автоматизация / Э. Дастин, Д. Рэшка, Д. Пол; Пер. с англ. М. Павлов. - М.: Лори, 2013. - 567 c.
  12. Ивасенко, А.Г. Информационные технологии в экономике и управлении: Учебное пособие / А.Г. Ивасенко, А.Ю. Гридасов, В.А. Павленко. - М.: КноРус, 2013. - 158 c.
  13.  Исаев, Г.Н. Информационные системы в экономике: Учебник для студентов вузов / Г.Н. Исаев. - М.: Омега-Л, 2013. - 462 c.
  14. Киселев, Г.М. Информационные технологии в экономике и управлении (эффективная работа в MS Office 2007): Учебное пособие / Г.М. Киселев, Р.В. Бочкова, В.И. Сафонов. - М.: Дашков и К, 2013. - 272 c.
  15.  Клюев, А.С. Автоматизация настройки систем управления / А.С. Клюев, В.Я. Ротач, В.Ф. Кузищин. - М.: Альянс, 2015. - 272 c.
  16. Колисниченко, Д.Н. Командная строка Linux и автоматизация рутинных задач / Д.Н. Колисниченко. - СПб.: BHV, 2014. - 368 c.
  17. Култыгин, О.П. Администрирование баз данных. СУБД MS SQL Server. -М: Московская финансово-промышленная академия, 2012 -232 с. (Университетская серия).
  18. Логинов, В.Н. Информационные технологии управления: Учебное пособие / В.Н. Логинов. - М.: КноРус, 2013. - 240 c.
  19. Мезенцев, К.Н. Автоматизированные информационные системы: Учебник для студентов учреждений среднего профессионального образования / К.Н. Мезенцев. - М.: ИЦ Академия, 2013. - 176 c.
  20. Скворцов, А.В. Автоматизация управления жизненным циклом продукции: Учебник для студентов учреждений высшего профессионального образования / А.В. Скворцов, А.Г. Схиртладзе, Д.А. Чмырь.. - М.: ИЦ Академия, 2013. - 320 c.

ПРИЛОЖЕНИЕ

Исходный код модулей программы

// Процедура выполняет полнотекстовый поиск
&НаСервере
Процедура ИскатьВыполнитьСервер(Направление) Экспорт

        СписокПоиска = ПолнотекстовыйПоиск.СоздатьСписок(СтрокаПоиска, РазмерПорции);

        СписокПоиска.ПолучатьОписание = ПоказыватьОписания;
        СписокПоиска.РазмерПорции = РазмерПорции;

        Если ПрименитьНечеткийПоиск = Истина Тогда
                СписокПоиска.ПорогНечеткости = Нечеткость;
        Иначе
                СписокПоиска.ПорогНечеткости = 0;
        КонецЕсли;

        Если ОграничитьОбъектыПоиска = Истина Тогда

                МассивМД = Новый Массив();
                Для Каждого МД Из СписокМетаданных Цикл
                        Метаданное = Метаданные.НайтиПоПолномуИмени(МД.Значение);
                        МассивМД.Добавить(Метаданное);
                КонецЦикла;

                СписокПоиска.ОбластьПоиска = МассивМД;

        Иначе

                МассивМД = Новый Массив();
                СписокПоиска.ОбластьПоиска = МассивМД;

        КонецЕсли;

        Если Направление = 0 Тогда
                СписокПоиска.ПерваяЧасть();
        ИначеЕсли Направление = -1 Тогда
                СписокПоиска.ПредыдущаяЧасть(ТекущаяПозиция);
        ИначеЕсли Направление = 1 Тогда
                СписокПоиска.СледующаяЧасть(ТекущаяПозиция);
        КонецЕсли;

        РезультатыПоиска.Очистить();
        Для каждого Результат Из СписокПоиска Цикл
                РезультатыПоиска.Добавить(Результат.Значение);
        КонецЦикла;

        HTMLТекст = СписокПоиска.ПолучитьОтображение(ВидОтображенияПолнотекстовогоПоиска.HTMLТекст);

        HTMLТекст = СтрЗаменить(HTMLТекст, "<td>", "<td><font face=""Arial"" size=""2"">");
        HTMLТекст = СтрЗаменить(HTMLТекст, "<td valign=top width=1>", "<td valign=top width=1><font face=""Arial"" size=""1"">");
        HTMLТекст = СтрЗаменить(HTMLТекст, "<body>", "<body topmargin=0 leftmargin=0>");
        HTMLТекст = СтрЗаменить(HTMLТекст, "</td>", "</font></td>");
        HTMLТекст = СтрЗаменить(HTMLТекст, "<b>", "");
        HTMLТекст = СтрЗаменить(HTMLТекст, "</b>", "");

        ТекущаяПозиция = СписокПоиска.НачальнаяПозиция();
        ПолноеКоличество = СписокПоиска.ПолноеКоличество();

        Если РезультатыПоиска.Количество() <> 0 Тогда
                ПоказаныРезультатыСПо =
                        НСтр("ru ='Показаны '", "ru") +
                        Строка(ТекущаяПозиция + 1) + " - " +
                        Строка(ТекущаяПозиция + РезультатыПоиска.Количество()) +
                        НСтр("ru =' из '", "ru") + Строка(ПолноеКоличество);

                Элементы.Далее.Доступность = (ПолноеКоличество - ТекущаяПозиция) > РезультатыПоиска.Количество();
                Элементы.Назад.Доступность = (ТекущаяПозиция > 0);
        Иначе
                ПоказаныРезультатыСПо = НСтр("ru = 'Не найдено'", "ru");
                Элементы.Далее.Доступность = Ложь;
                Элементы.Назад.Доступность = Ложь;
        КонецЕсли;

        СохраненнаяСтрока = Элементы.ПолеВводаПоиска.СписокВыбора.НайтиПоЗначению(СтрокаПоиска);
        Если СохраненнаяСтрока <> Неопределено Тогда
                Элементы.ПолеВводаПоиска.СписокВыбора.Удалить(СохраненнаяСтрока);
        КонецЕсли;

        Элементы.ПолеВводаПоиска.СписокВыбора.Вставить(0, СтрокаПоиска);
        Строки = Элементы.ПолеВводаПоиска.СписокВыбора.ВыгрузитьЗначения();

        ХранилищеОбщихНастроек.Сохранить("ПолнотекстовыйПоискСтрокиПолнотекстовогоПоиска", , Строки);
КонецПроцедуры

// Обработка команды Найти
&НаКлиенте
Процедура ИскатьВыполнить()
        Искать(0);
КонецПроцедуры

// Обработчик команды Назад
&НаКлиенте
Процедура НазадВыполнить()
        Искать(-1);
КонецПроцедуры

// Обработчик команды Далее
&НаКлиенте
Процедура ДалееВыполнить()
        Искать(1);
КонецПроцедуры

// Процедура поиска, получение и отображение результата
&НаКлиенте
Процедура Искать(Направление)
        Если ПустаяСтрока(СтрокаПоиска) Тогда
                Предупреждение(НСтр("ru = 'Не задана строка поиска.'", "ru"));
                Возврат;
        КонецЕсли;

        ИскатьВыполнитьСервер(Направление);
КонецПроцедуры

// находит символ в строке с конца
Функция НайтиСимволСКонца(Знач СтрокаВся, Знач ОдинСимвол)
        Перем ТекущаяПозиция;

        НачальнаяПозиция = 1;
        ДлинаСтроки = СтрДлина(СтрокаВся);

        Для ТекущаяПозиция = 1 По СтрДлина(СтрокаВся) Цикл
                РеальнаяПозиция = ДлинаСтроки - ТекущаяПозиция + 1;
                ТекущийСимвол = Сред(СтрокаВся, РеальнаяПозиция, 1);
                Если ТекущийСимвол = ОдинСимвол Тогда
                        Возврат РеальнаяПозиция;
                КонецЕсли;
        КонецЦикла;

        Возврат 0;
КонецФункции

&НаКлиенте
Процедура HTMLТекстПриНажатии(Элемент, ДанныеСобытия, СтандартнаяОбработка)
        ЭлементHTML = ДанныеСобытия.Anchor;

        Если ЭлементHTML = Неопределено Тогда
                Возврат;
        КонецЕсли;

        Если (ЭлементHTML.id = "FullTextSearchListItem") Тогда

        ВыбранныйНомер = ЭлементHTML.getAttribute("sel_num");
        НомерВСписке = Число(ВыбранныйНомер);

                ВыбраннаяСтрока = РезультатыПоиска[НомерВСписке].Значение;
                //ОткрытьЗначение(ВыбраннаяСтрока);
                ПоказатьЗначение(, ВыбраннаяСтрока);

                СтандартнаяОбработка = Ложь;
        КонецЕсли;
КонецПроцедуры

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
        ПутьМетаданных = РеквизитФормыВЗначение("Объект").Метаданные().ПолноеИмя();

        Элементы.ГруппаНастройки.Видимость = Ложь;

        РазмерПорции = 20;
        Нечеткость = 25;
        ПоказыватьОписания = Истина;
        ОграничитьОбъектыПоиска = Ложь;

        Если ПолнотекстовыйПоиск.ПолучитьРежимПолнотекстовогоПоиска() <> РежимПолнотекстовогоПоиска.Разрешить Тогда
                Отказ = Истина;
                Сообщение = Новый СообщениеПользователю();
                Сообщение.Текст = НСтр("ru = 'Использование полнотекстового поиска не разрешено. Вы можете включить его в диалоге ""Управление полнотекстовым поиском""'", "ru");
                Сообщение.Сообщить();
                Возврат;
        КонецЕсли;

        ПоказаныРезультатыСПо = НСтр("ru = 'Введите строку поиска'", "ru");
        ТекущаяПозиция = 0;

        Элементы.Далее.Доступность = Ложь;
        Элементы.Назад.Доступность = Ложь;

        Массив = ХранилищеОбщихНастроек.Загрузить("ПолнотекстовыйПоискСтрокиПолнотекстовогоПоиска");

        Если Массив <> Неопределено Тогда
                Элементы.ПолеВводаПоиска.СписокВыбора.ЗагрузитьЗначения(Массив);
        КонецЕсли;
КонецПроцедуры

&НаКлиенте
Процедура Настройка(Команда)
        Элементы.ГруппаНастройки.Видимость = Не Элементы.ГруппаНастройки.Видимость;
КонецПроцедуры

&НаКлиенте
Процедура ВыбратьМетаданные(Команда)

        ПараметрыФормы = Новый Структура("СписокМетаданных", СписокМетаданных);

        Оповещение = Новый ОписаниеОповещения(
             "ВыбратьМетаданныеЗавершение",
             ЭтаФорма);

        ОткрытьФорму(
                ПутьМетаданных + ".Форма.ФормаВыбораМетаданных",
                ПараметрыФормы,,,,,Оповещение);

КонецПроцедуры

&НаКлиенте
Процедура ВыбратьМетаданныеЗавершение(СписокМетаданныхВозврат, Параметры) Экспорт

        Если СписокМетаданныхВозврат <> Неопределено Тогда
                СписокМетаданных = СписокМетаданныхВозврат;
                ОграничитьОбъектыПоиска = Истина;
        КонецЕсли;

КонецПроцедуры

Рецензия на курсовую работу

РЕЦЕНЗИЯ НА КУРСОВУЮ РАБОТУ (КУРСОВОЙ ПРОЕКТ)

Обучающийся ________Назаренко Никита Геннадьевич ВБИо-401___________

(ФИО полностью, группа)

Направление/специальность подготовки: .

^{(код и наименование направления /специальности подготовки)}

Профиль/специализация: Разработка,сопровождение и обеспечение безопасности ИС

^{(наименование профиля/специализации)}

Форма обучения: очно-заочная .

^{(очная, очно-заочная, заочная)}

Курсовая работа (курсовой проект) на тему Разработка и реализация прикладного решения для автоматизации производственного учета в ЧДОУ “Детский Сад №45”

^{(наименование темы)}

По дисциплине Разработка и реализация конфигурации 1С:Предприятие

^{(наименование дисциплины)}

Рецензент: ____________________________________________________________________________

(Ф.И.О. полностью, ученая степень, звание)

_____________________________________________________________________________