Таблица 2.
1. Перечень используемых справочников.
Название справочника.
Ответственный за ведение.
Средний объём справочника в записях.
Средняя частота актуализации.
Средний объем актуализации.
СообщенияАдминистратор12 001 раз в час1%Рассмотрим реквизитный состав объектов проектируемой информационной модели, указанный в следующей таблице 2.
2.Таблица 2.
2. Реквизитный состав объектов информационной модели.
Название справочника.
Перечень реквизитов.
СообщенияКод сообщения.
Текст сообщения.
Дата актуальности.
На основании логической модели далее проведем проектирование структуры таблиц базы данных информационной системы «Новостная лента».Таблица «soob» служит для хранения данных о сообщениях. Средний объем записей — 1200 в год. Таблица 2.
3. Структура таблицы «soob"Наименование поля.
Идентификатор поля.
Тип поля.
Длина поля.
ПрочееКод сообщенияCode_soobчисло10Первичный ключ.
Текст сообщенияTxt_soobcтрока255ДатаактуальностиDayдата502.
4Порядок внедрения АИС «Новостная лента"Системные требования:
ОС WindowsXP/7/8/10;
— ОЗУ — от 1GB;
— Частота процессора — от 2ГГц;
— Свободное место на жёстком диске в соответствии с размером демонстрируемых видеофайлов;
— Наличие кодеков для возможности воспроизведения видеопотока. Разработанное ПО представляет собой два приложения Win32, запекающиеся по запросу пользователя. Также существует возможность запуска программы демонстрации как службы операционной системы. Программа имеет режим администратора и режим воспроизведения. В режиме администратора производится ввод необходимой информации, содержащейся в новостной ленте. Режим воспроизведения предназначен для демонстрации новостной ленты.
1.Установка программы.
Установка производится с использованием файла-дистрибутива.По окончанию процесса установки на рабочем столе создаются ярлыки для модуля администратора и клиентской части новостной ленты. Рисунок 13 — Ярлыки для запуска ПОНа рисунках 14−16 показаны режимы модуля администратора — главная форма, ввод сообщений и журнал сообщений. Рисунок 14 — Модуль администратора.
Рисунок 15- Журнал сообщений.
Рисунок 16 — Ввод сообщений в ленту.
Рисунок 17 — Модуль запуска системы.
Далее рассмотрим режимы работы модуля администратора, который предназначен для управления новостной лентой, а также ведения классификаторов. Далее рассмотрим функционирование клиентской части приложения «Новостная лента». Окно запуска приложения показано на рисунке 17. В таблице 2.6 приведен порядок внедрения разработанной системы. Таблица 2.
6. — Стратегия автоматизации технологии работы специалистов ИСТ № п/пНазвание этапа.
Содержание работ.
Цель этапа1Анализ организации.
Произвести анализ деятельности ИСТ, рассмотреть схемы взаимодействия сотрудников, изучить основные информационные потоки, специфику и методы использования информационной системы.
Получить четкое представление о деятельности и внутреннем распорядке ИСТ 2Анализ задачи.
Ознакомиться со спецификой использования ИТ в технологии работы с заявками клиентов, ознакомиться с методами использования информационных баз, рассмотреть варианты реализации поставленной задачи.
Изучить предметную область поставленной задачи разработки/ внедрения ИС «Новостная лента"3Формирование общих требований к ИСОпределить основные свойства создаваемой системы, спланировать методы ее взаимодействия с существующей ИС ИСТ Получить общее представление о масштабах проводимых разработок4Выбор стратегии автоматизации.
Определение и формулировка этапов работы над разработкой и внедрением ИССформировать четкую последовательность действий по реализации проекта5Формирование комплексного проекта ИСРазработка технического задания, технико-экономического обоснования, определение проектных решений по аппаратному, программному и информационному обеспечению проектируемой ИСПолучить четкие представления о проектируемой ИС6Реализация проекта.
Разработка программного обеспечения системы «Новостная лента"Разработать систему «Новостная лента"7Внедрение ИСТестирование системы, установка и апробация в условиях ИСТ Внедрить разработанную систему2.
5 Оценка экономической эффективности.
Экономический эффект от внедрения разработанной системы заключается в снижении временных затрат информирование в учебном заведении, увеличении оперативности основных процессов. Проведем стоимостную оценку экономического эффекта. Данные временных затрат на выполнение основных работ были предоставлены экономистами ИСТВ таблице 3.3 приведена оценка экономического эффекта от внедрения системы вИСТ Таблица 3.3 Оценка экономического эффекта от внедрения системы вИСТ Наименование бизнес-процесса.
Временные затраты по базовому варианту, час/год.
Временные затраты по внедряемому варианту, час/год.
Величина эффекта, час/год Учет новостей1 001 090.
Ведение классификаторов предприятия80 575.
Регистрация заявок на включение в ленту400 200 200.
Анализ использования ресурсов12 010 110.
Мониторинг новостной ленты803 545.
Сводная отчетность по запросу руководства300 120 180.
Итого700Средняя заработная плата технологовэкономического эффекта от внедрения системы вИСТ составляет 42 000 руб. Отчисления во внебюджетные фонды: 42 000*0,3=12 600 руб. Итого: 54 600 руб. Средчасоваязаработная плата составит с учетом нормы рабочих часов в 2014 г. 1970 часов: S=54 600*12/1970=332 руб./час.Экономический эффект составит: Р=720*332=232 400 руб. в год или 19 366 руб./мес.Для расчета срока окупаемости используем функцию КПЕР с параметрами (рис.
4.1). Ставка рефинансирования принята 12.
5%. Срок окупаемости проекта составил 4 мес.Рис.
4.1. Расчет срока окупаемости проекта.
Для определения внутренней ставки доходности проекта используем функцию ВСД с параметрами (рис.
4.2):Рис.
4.2. Расчет ставки доходности проекта.
Таким образом, доходность проекта составляет 32% годовых. Таким образом, расчеты показывают, что, несмотря на значительную величину эксплуатационных расходов, за счет экономии рабочего времени специалиста, вложенные средства окупаются за 4 мес., что говорит об эффективности проекта. Таким образом, все поставленные задачи автоматизации реализованы в рамках данного проекта.
ЗАКЛЮЧЕНИЕ
В рамках данной работы была проведена разработка автоматизированной информационной системы формирования новостной ленты для специалистов учебного заведения. В качестве объекта исследования была выбрана технология информирования специалистов ИСТ. В ходе работы была изучена специфика учебного заведения, изучена технология работы специалистов. Основной задачей являлся анализ деятельности учебного заведения, выявление недостатков существующей технологии работы с информацией, разработка системы для автоматизации процессов, связанных с информированием специалистов согласно специфике их профиля деятельности. На основании анализа текущей технологии управления были сформированы цели и назначение разрабатываемого автоматизированного варианта решения данной задачи, произведено сравнение с аналогичными системами решения данной задачи, проведена формализация расчетов результатных показателей, выбрана технология проектирования, а также принят ряд проектных решений по техническому, информационному, программному и технологическому обеспечению. Следующим этапом разработки системы явилось проектирование информационной модели технологии сервиса «Новостная лента»: определены сущности информационной системы, установлены связи между ними, определены свойства информационных объектов, разработаны логическая и физическая модели данных, структура таблиц базы данных информационной системы «Новостная лента».После формулировки технического задания была проведена разработка программного обеспечения на языке BorlandDelphi 7 в форме модуля администратора и клиентской части новостной ленты, приведено описание основных режимов работы программного обеспечения. Режим опытной эксплуатации программы показал соответствие функционала сервиса «Новостная лента» поставленным задачам. Развитие системы возможно путем интеграцию в систему других сервисов, например, сервисов мобильного информирования, а также производить вывод новостной ленты на несколько экранов, определив для каждого из них приоритеты и виды демонстрируемой информации.
СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ
Российский Государственный Университет туризма и сервиса. Институт сервисных технологий. Электронный ресурс]. Режим доступа:
http://rguts.ru/facultets/faculty_service_technology/ Фленов М.Е.Delphi 7. Учебный курс. — М.: Спутник+, 2011. — 736с.
Введение
в среду визуального программирования Delphi: Методические указания-Ч.2 /С.ВБорисов, С. С. Комалов, И. Л. Серебрякова и др.; Под ред.Б. Г. Трусова. ;
М.:Изд-во МГТУ им. Н. Э. Баумана, 2011.-96 с.: ил. Завгородний В. И. Комплексная защита в компьютерных системах: Учебное пособие. — М.: Логос; ПБОЮЛ Н. А. Егоров, 2011. — 264 с. Ивасенко, А. Г. Информационные технологии в экономике и управлении: [учеб.
пособие для вузов по специальностям & quot;Прикладная информатика (по обл.)", «Менеджмент орг.», «Гос. и муницип. упр.& quot;] /А. Г. Ивасенко, А. Ю. Гридасов, В. А.
Павленко.
М.: Кно.
Рус, 2011.-153 с. Абросимова, М. А. Информационные технологии в государственном и муниципальном управлении: Учебное пособие / М. А. Абросимова. — М.: Кно.
Рус, 2013. — 248 c. Акперов, И. Г. Информационные технологии в менеджменте: Учебник / И. Г. Акперов, А. В. Сметанин, И. А. Коноплева. — М.: НИЦ ИНФРА-М, 2013.
— 400 c. Алешин, Л. И. Информационные технологии: Учебное пособие / Л. И. Алешин. — М.: Маркет ДС, 2011.
— 384 c. Алиев, В. С. Информационные технологии и системы финансового менеджмента: Учебное пособие / В.С. оглы Алиев. — М.: Форум, ИНФРА-М, 2011. — 320 c. Балдин, К. В. Информационные технологии в менеджменте: Учеб.
для студ. учреждений высш. проф. образования / К. В. Балдин. — М.: ИЦ Академия, 2012. — 288 c. Максимов, Н. В. Современные информационные технологии: Учебное пособие / Н. В. Максимов, Т. Л. Партыка, И. И. Попов. — М.: Форум, 2013. — 512 c.
13. Вдовин, В. М. Информационные технологии в налогообложении: Практикум / В. М. Вдовин, Л. Е. Суркова. — М.: Дашков и К, 2014. — 248 c.
14. Вдовин, В. М. Информационные технологии в налогообложении: Учебное пособие / В. М. Вдовин, Л. Е. Суркова, А. В. Смирнова. — М.: Дашков и К, 2012. — 208 c.
15. Вдовин, В. М. Информационные технологии в финансово-банковской сфере: Практикум / В. М. Вдовин. — М.: Дашков и К, 2012. — 248 c.
16. Венделева, М. А. Информационные технологии в управлении: Учебное пособие для бакалавров / М. А. Венделева, Ю. В. Вертакова. — М.: Юрайт, 2013. — 462 c.
17. Ветитнев, А. М. Информационные технологии в социально-культурном сервисе и туризме. Оргтехника: Учебное пособие / А. М. Ветитнев. — М.: Форум, 2010. — 400 c.
18. Гаврилов, Л. П. Информационные технологии в коммерции: Учебное пособие / Л. П. Гаврилов. — М.: НИЦ ИНФРА-М, 2013. — 238 c.
19. Гаврилов, М. В. Информатика и информационные технологии: Учебник для бакалавров / М. В. Гаврилов, В. А. Климов; Рецензент Л. В. Кальянов, Н. М. Рыскин. — М.: Юрайт, 2013. — 378 c.
20. Гвоздева, В. А. Информатика, автоматизированные информационные технологии и системы: Учебник / В. А. Гвоздева. — М.: ИД ФОРУМ, НИЦ ИНФРА-М, 2013. — 544 c.
21. Голицына, О. Л. Информационные технологии: Учебник / О. Л. Голицына, Н. В. Максимов, Т. Л. Партыка, И. И. Попов. — М.: Форум, ИНФРА-М, 2013. — 608 c.
22. Голубенко, Н. Б. Информационные технологии в библиотечном деле / Н. Б. Голубенко. — Рн/Д: Феникс, 2012. — 282 c.
23. Гохберг, Г. С. Информационные технологии: Учебник для студ. учрежд. сред.
проф. образования / Г. С. Гохберг, А. В. Зафиевский, А. А. Короткин. — М.: ИЦ Академия, 2013. — 208 c.ПРИЛОЖЕНИЯПриложение.
ААлгоритм работы.
ПОПриложение.
БУстановка ПОПриложение.
ВПрограммныйкодprocedure TForm1. RzBitBtn1Click (Sender: TObject);begin with form1. ADOQuery1 do begin close;sql.Clear;sql.Add ('select * from otd');active:=true; end;form2.DBGrid1.Columns[0]. Title. caption:='Код';form2.DBGrid1.Columns[1].Title.caption:='Наименование';form2.Show;end;procedure TForm1. RzBitBtn2Click (Sender: TObject);begin with form1. ADOQuery2 do begin close;sql.Clear;sql.Add ('select * from zp1');active:=true; end;form3.DBGrid1.Columns[0]. Title. caption:='Код';form3.DBGrid1.Columns[1].Title.caption:='ФИО';form3.DBGrid1.Columns[2].Title.caption:='Подразделение';form3.Show;end;procedure TForm1. RzBitBtn3Click (Sender: TObject);begin with form1. ADOQuery5 do begin close;sql.Clear;sql.Add ('select * from soob');active:=true; end;form6.DBGrid1.Columns[0]. title. caption:='Код';form6.DBGrid1.Columns[1].title.caption:='Текстсообщения';form6.DBGrid1.Columns[2].title.caption:='Датадо';form6.Show;end;procedure TForm1. RzBitBtn4Click (Sender: TObject);beginclose;end;end.unit Unit2;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, Grids, DBGrids, StdCtrls, ExtCtrls, DBCtrls, ADODB, Buttons, RzSpnEdt;type TForm2 = class (TForm) DBGrid1: TDBGrid; DataSource1: TDataSource; DBNavigator1: TDBNavigator; Label1: TLabel; Edit1: TEdit; RzRapidFireButton1: TRzRapidFireButton;ADOQuery1: TADOQuery;ADOQuery1Expr1000: TIntegerField;procedure RzRapidFireButton1Click (Sender: TObject); private{ Private declarations } public{ Public declarations } end;var Form2: TForm2;implementationuses Unit1;{$R *.dfm}procedure TForm2. RzRapidFireButton1Click (Sender: TObject);varcode:integer;begin with adoquery1 do begin close;sql.Clear;sql.Add ('select max (code) from otd'); open; end;if form1. ADOQuery1.RecordCount=0 then code:=1 else code:=1+form2.ADOQuery1Expr1000.AsInteger;form1.ADOQuery1.AppendRecord ([code, edit1. Text]); edit1. clear;showmessage ('Записано');end;end.procedure TForm3. RzBitBtn1Click (Sender: TObject);begin with form1. ADOQuery1 do begin close;sql.Clear;sql.Add ('select * from otd');active:=true; end; form4. Edit1.clear;form4.Show;end;procedure TForm3. RzBitBtn2Click (Sender: TObject);begin with form1. ADOQuery3 do begin close;sql.Clear;sql.Add ('delete from sotr where code_sotr='+form1.ADOQuery2code_sotr.AsString);execsql; end; with form1. ADOQuery2 do begin close;sql.Clear;sql.Add ('select * from zp1');active:=true; end;showmessage ('Удалено');end;procedure TForm3. RzBitBtn3Click (Sender: TObject);begin form5. Edit1.clear; form5. Show;end;procedure TForm4. RzBitBtn2Click (Sender: TObject);beginclose;end;procedure TForm4. RzBitBtn1Click (Sender: TObject);varcode:integer;beginwith form1. ADOQuery4 dobegin close;sql.Clear;sql.Add ('select max (code_sotr) from sotr'); open;end;if form1. ADOQuery4.RecordCount=0 then code:=1 else code:=1+form1.ADOQuery4Expr1000.AsInteger; with form1. ADOQuery3 do begin close;sql.Clear;sql.Add ('select * from sotr'); open; end;form1.ADOQuery3.AppendRecord ([code, edit1. Text, form1. ADOQuery1code.AsInteger]); edit1. clear; with form1. ADOQuery2 do begin close;sql.Clear;sql.Add ('select * from zp1');active:=true; end;form1.ADOQuery2.Locate ('code_sotr', code,[]);showmessage ('Добавлено');end;end.procedure TForm5. RzBitBtn2Click (Sender: TObject);beginclose;end;procedure TForm5. RzBitBtn1Click (Sender: TObject);begin with form1. adoquery3 do begin close;sql.Clear;sql.Add ('update sotr set passw='+form1.Label1.Caption+trim (edit1.Text)+form1.Label1.Caption+' where code_sotr='+form1.ADOQuery2code_sotr.AsString);execsql; end;showmessage ('Парольустановлен');end; end. procedure TForm6.RzBitBtn3Click (Sender: TObject);beginclose;end;procedure TForm6. RzBitBtn1Click (Sender: TObject);var i: integer;begin form7. CheckListBox1.clear; with form1. ADOQuery1 do begin close;sql.Clear;sql.Add ('select * from otd'); open; end;for i:=1 to form1. adoquery1.recordcount do beginform7. CheckListBox1.Items.Add (trim (form1.ADOQuery1nam.AsString)); form1. ADOQuery1. Next; end; form7. DateTimePicker1. date:=now; form7. Edit1.clear; form7. Show;end;procedure TForm6. RzBitBtn2Click (Sender: TObject);begin with form1. ADOQuery7 do begin close;sql.Clear;sql.add ('delete from det_soob where code_soob='+form1.ADOQuery5code_soob.AsString);execsql; end; form1. ADOQuery5.Delete;end;end.procedure TForm7. RzBitBtn1Click (Sender: TObject);varcode:integer; i, j: integer;beginj:=0;for i:=1 to checklistbox1.Items.Count do beginif checklistbox1. Checked[i-1]=true then j:=j+1; end;if j=0 then showmessage ('Невыбраныподразделения') else begin with form1. ADOQuery6 do begin close;sql.Clear;sql.Add ('select max (code_soob) from soob'); open; end;if form1. ADOQuery6.RecordCount=0 then code:=1 else code:=1+form1.ADOQuery6expr1000.AsInteger;form1.ADOQuery5.AppendRecord ([code, edit1. Text, datetimepicker1. date]); with form1. ADOQuery7 do begin close;sql.Clear;sql.Add ('select * from det_soob'); open; end;for i:=1 to checklistbox1.Items.Count do beginif checklistbox1. Checked[i-1]=true then begin with form1. ADOQuery1 do begin close;sql.Clear;sql.Add ('select * from otd where nam='+form1.Label1.Caption+trim (checklistbox1.items[i-1])+form1.Label1.Caption); open; end;form1.ADOQuery7.AppendRecord ([code, form1. ADOQuery1code.AsInteger]); end; end;showmessage ('Записано'); end;end;end.
