Разработка автоматизированного рабочего места маркетолога

Организационные меры:1. Разработка Положения о Защите информации в ООО «Интер+», включающего меры запрета или регламента использования Интернета пользователями, запрещения использования неучтенных носителей информации, политики разграничения доступа, парольной защиты.2. Разработка Положения о внутриобъектовом режиме и противопожарной безопасности.3. Определение ответственного за защиту информации из числа сотрудников, имеющего прямое подчинение руководителю и особые полномочия.4. Определение номенклатуры дел ответственного за защиту информации, ведение журналов, фиксация нештатных ситуаций.5. Применение мер дисциплинарного воздействия к нарушителям требований защиты информации.В таблице 2.1 приведена матрица разграничения доступа системы учета продаж.Таблица 2.1Матрица разграничения доступаГруппы пользователейМодуль «Статистика цен»Модуль «Статистика спроса»Модуль «Статистика предложения»Модуль «Товары»Модуль «Клиенты»Сотрудник маркетингового отделаЧтение/созданиеЧтение/созданиеЧтение/созданиеЧтение/созданиеЧтение/созданиеАдминистраторЧтениеЧтениеЧтениеЧтениеЧтениеРуководительПолныйПолныйПолныйПолныйПолный2.8. Технологическое обеспечениеПри производстве информационного продукта исходный информационный ресурс в соответствии с поставленной задачей подвергается в определенной последовательности различным преобразованиям. Динамика этих преобразований отображается в протекающих при этом информационных процессах. Таким образом, информационный процесс – это процесс преобразования информации. В результате информация может изменить и содержание, и форму представления. Управляющие воздействия формируются на основе накопленной и функционирующей в системе управления информации, а также поступающих по каналам прямой и обратной связи сведений из внешней среды. На рис. 2.10 представлена схема технологического процесса сбора, передачи, обработки и выдачи информации.Рис. 2.10 – Схема технологического процесса сбора, передачи, обработки и выдачи информации2.9. Контрольный примерДля работы программы необходимо запустить приложение tovar.exe.Рабочая область программы содержит вкладки: «Статистика спроса и предложения», «Статистика цен на товары», «Справочники», «Графики».Рис. 17 – Главное окно программыНа вкладке «Статистика спроса и предложения» содержатся таблицы спроса и предложения по годам. Для добавления информации в таблицу необходимо занести данные в ячейки таблицы на соответствующий год и нажать кнопку «Сохранить изменения». Далее перейдем на вкладку статистика цен.Рис. 18 – Вкладка «Статистика цен на товары»На вкладке «Статистика цен на товары» содержится таблица цен на товары по годам. Для добавления информации в таблицу необходимо занести данные в ячейки таблицы на соответствующий год и нажать кнопку «Сохранить изменения».Для добавления трендов на график необходимо выбрать товар из списка и нажать кнопку «Добавить на график» для удаления с графика, необходимо выбрать товар из списка и нажать кнопку «Убрать с графика».Рис. 19 - Вкладка «Справочники»На вкладке «Справочники» содержится список клиентов компании и форма для добавления нового клиента, также, список товаров и форма для добавления информации. Для добавления записи необходимо заполнить форму и нажать кнопку «Добавить запись». Для удаления выбрать запись из списка и нажать кнопку «Удалить запись».Рис. 20 - Вкладка «Графики»На вкладке «Графики» содержатся Графики: сегментирования клиентской базы, тренд спроса и предложения по типам товаров, тренд спроса и предложения по наименованиям товаров.Глава 3. Оценка эффективности проекта3.1. Анализ затрат на ресурсное обеспечение3.2. Анализ качественных и количественных факторов воздействия проекта на бизнес-архитектуру организацииЗаключениеЦелью дипломного проекта является повышение эффективности маркетинга в ООО «Двигай телом» путем разработки и внедрения информационной системы.В первой главе работы рассмотрена деятельность предприятия. Рассмотрена структура управления ООО «Двигай телом».Рассмотрен существующий бизнес-процесс анализа продаж. Недостаток существующего процесса заключается в том, что обработка информации осуществляется вручную с использованием средств MS Office.Для анализа продаж компании ООО «Двигай телом» необходима разработка специализированного решения.Для формирования перечня требований к системе рассмотрены функциональные возможности аналогов программного обеспечения.Рассмотрены системы: Statistika, Cognos и 1C: Управление торговлей 8.2.Исходя из анализа данных систем, сформулирован перечень требований к проектируемой информационной системе.Разработан перечень проектных решений по видам обеспечения: техническому, программному и технологическому.Во второй главе описан проект информационной системы. Разработана информационная модель системы.Также описана архитектура проектируемой системы, описаны все компоненты системы и используемые технологии.Далее описана программная реализация системы: описано дерево функций проектируемой информационной системы, дерево вызова программных модулей, описан технологический процесса сбора, передачи, обработки и выдачи информации.В третьей главе дано технико-экономическое обоснование разработки и внедрения информационной системы, а именно осуществлен выбор методики оценки и дан расчет показателей экономической эффективности проекта.ЛитератураАвтоматизированные информационные технологии в экономике: Учебник/Под ред. проф. Г.А. Титоренко. – М.: Компьютер, ЮИНИТИ, 2009. – 210 с.Вендров А.М. CASE – технологии. Современные методы и средства проектирования информационных систем. – М.: Финансы и статистика, 2011. – 261 с.Вендров А.М. Проектирование программного обеспечения экономических информационных систем.- М.: Финансы и статистика, 2009. – 220 с.Дейт К. Дж. ведение в системы баз данных. Киев: Диалектика, 2008. - 784 с.Клещев Н.Т. Проектирование информационных систем/ Н.Т. Клещев, А.А. Романов. – М.: Российская экономическая академия, 2010. - 283с.Конноли Т. Базы данных: проектирование, реализация и сопровождение. Теория и практика: [пер. с англ.] / Конноли Т., Бегг К., Страчан А. - 2-е изд.- М.: Вильямс, 2011. – 394с.Кривошеин М. ER: диаграммы сущность-связь [Электронный ресурс]. – Режим доступа: http://mikkri.narod.ru (03.03.2009).Кузнецов С.Д. Основы современных баз данных/ С.Д. Кузнецов К. – Курск, 2009. – 276 с.Липаев В.В. Проектирование программных средств. – М.: Высшая школа, 2009. Леоненков А. Объектно-ориентированный анализ и проектирование с использованием UML и IBM RationalRose / А. Леоненков. - М.: Вильямс, 2009.- 357с.Любушин Н.П. Анализ финансово-экономической деятельности предприятия./ Н.П. Любушин. – М.: ЮНИТИ, 2009. – 251с.Марка Д. А., МакГоуэн К. Методология структурного анализа и проектирования SADT. – М.: Диалог – МИФИ , 2009. – 276 с.Маклаков С.В. CASE – средства разработки информационных систем. – М.: Диалог – МИФИ , 2011. Методическое руководство по проектированию ИС CASE средствами PlatinumTechnology. – Пермь: ПГТУ, ГНИИМС, 2009. – 311 с.Петров Ю.А., Шлимович Е.Л., Ирюпин Ю.В. Комплексная автоматизация управления предприятием: Информационные технологии - теория и практика. - М.: Финансы и статистика, 2011. – 243 с.Уваров А.Ю. Вступая в век информации/ А.Ю. Уваров. - Информатика и образование, 2010. -№ 2. – С. 13.Хмельницкого С.В. Концепция развития информационных ресурсов/ С.В. Хмельницкого, В.В. Шарыхин, Н.В. Каплунова. – СПб.: Европейский университет в Санкт-Петербурге, 2009. – 321с.Хомоненко А.Д. и др. Базы данных: Учебник для вузов / Под ред. проф. А.Д. Хомоненко. — СПб.: КОРОНА принт, 2010 — 736 с. Шафер Д.Ф., Фартрел Т., Шафер Л.И. Управление программными проектами: достижение оптимального качества при минимуме затрат.: Пер. с англ. – М.: Вильямс, 2010. – 362 с.Приложение 1 – Установка системыКопируем файл market.mdb в корень диска C:\Устанавливаем MS AccessСоздаем источник данныхОткрываем Администратор ODBCC:\Windows\System32\odbcad32.exe.Рис. 1 – Администратор ODBCНажимаем кнопку «Добавить…»Рис. 2 – Выбор драйвера MSAccessВыбираем драйвер Рис. 3 – Настройка источника данныхРис. 4 – Источник данных настроенЗаполняем следующие пункты:Data Source Name: marketDatabase File: C:\market.mdb (Browse…- выбираемфайл market.mdb надискеС:\)Можно запускать приложениеПриложение 2 – Программный кодПроцедура добавления статистики спроса и предложения:procedure TForm1.suiButton2Click(Sender: TObject);vari,j:integer;begin//фильтрация статистики спроса по годуtstat_spros.Filtered:=false;tstat_spros.Filter:='god='''+suispinedit2.Text+'''';tstat_spros.Filtered:=true;tprog.First;//заполнение значений спроса на выбранный год по месяцамif tstat_spros.RecordCount<>0 then tstat_spros.Delete; for i:=1 to tprog.RecordCount do begin begintstat_spros.Append; tstat_spros.FieldByName('prog').AsString:=suiStringGrid1.Cells[0,i];tprog.Filtered:=false;tprog.Filter:='prog='''+suiStringGrid1.Cells[0,i]+'''';tprog.Filtered:=true; tstat_spros.FieldByName('segment').AsString:=tprog.FieldValues['segment'];tprog.Filtered:=false;tstat_spros.FieldByName('god').AsString:=suiSpinEdit2.Text; tstat_spros.FieldByName('sp1').AsString:=suiStringGrid1.Cells[1,i]; tstat_spros.FieldByName('pr1').AsString:=suiStringGrid2.Cells[1,i]; tstat_spros.FieldByName('sp2').AsString:=suiStringGrid1.Cells[2,i]; tstat_spros.FieldByName('pr2').AsString:=suiStringGrid2.Cells[2,i]; tstat_spros.FieldByName('sp3').AsString:=suiStringGrid1.Cells[3,i]; tstat_spros.FieldByName('pr3').AsString:=suiStringGrid2.Cells[3,i]; tstat_spros.FieldByName('sp4').AsString:=suiStringGrid1.Cells[4,i]; tstat_spros.FieldByName('pr4').AsString:=suiStringGrid2.Cells[4,i]; tstat_spros.FieldByName('sp5').AsString:=suiStringGrid1.Cells[5,i]; tstat_spros.FieldByName('pr5').AsString:=suiStringGrid2.Cells[5,i]; tstat_spros.FieldByName('sp6').AsString:=suiStringGrid1.Cells[6,i]; tstat_spros.FieldByName('pr6').AsString:=suiStringGrid2.Cells[6,i]; tstat_spros.FieldByName('sp7').AsString:=suiStringGrid1.Cells[7,i]; tstat_spros.FieldByName('pr7').AsString:=suiStringGrid2.Cells[7,i]; tstat_spros.FieldByName('sp8').AsString:=suiStringGrid1.Cells[8,i]; tstat_spros.FieldByName('pr8').AsString:=suiStringGrid2.Cells[8,i]; tstat_spros.FieldByName('sp9').AsString:=suiStringGrid1.Cells[9,i]; tstat_spros.FieldByName('pr9').AsString:=suiStringGrid2.Cells[9,i]; tstat_spros.FieldByName('sp10').AsString:=suiStringGrid1.Cells[10,i]; tstat_spros.FieldByName('pr10').AsString:=suiStringGrid2.Cells[10,i]; tstat_spros.FieldByName('sp11').AsString:=suiStringGrid1.Cells[11,i]; tstat_spros.FieldByName('pr11').AsString:=suiStringGrid2.Cells[11,i]; tstat_spros.FieldByName('sp12').AsString:=suiStringGrid1.Cells[12,i]; tstat_spros.FieldByName('pr12').AsString:=suiStringGrid2.Cells[12,i]; tstat_spros.post;tprog.Next;endend;end;Процедура добавления статистики цен на товары в БД:procedure TForm1.suiButton3Click(Sender: TObject);vari,j:integer;begin//фильтрация статистики цен по годуtstat_cena.Filtered:=false;tstat_cena.Filter:='god='''+suiedit2.Text+'''';tstat_cena.Filtered:=true;tprog.First;//заполнение значений статистики цен на выбранный год по месяцамif tstat_cena.RecordCount<>0 then tstat_cena.Delete; for i:=1 to tprog.RecordCount do begin begintstat_cena.Append; tstat_cena.FieldByName('prog').AsString:=suiStringGrid3.Cells[0,i];tstat_cena.FieldByName('god').AsString:=suiEdit2.Text; tstat_cena.FieldByName('m1').AsString:=suiStringGrid3.Cells[1,i]; tstat_cena.FieldByName('m2').AsString:=suiStringGrid3.Cells[2,i]; tstat_cena.FieldByName('m3').AsString:=suiStringGrid3.Cells[3,i]; tstat_cena.FieldByName('m4').AsString:=suiStringGrid3.Cells[4,i]; tstat_cena.FieldByName('m5').AsString:=suiStringGrid3.Cells[5,i]; tstat_cena.FieldByName('m6').AsString:=suiStringGrid3.Cells[6,i]; tstat_cena.FieldByName('m7').AsString:=suiStringGrid3.Cells[7,i]; tstat_cena.FieldByName('m8').AsString:=suiStringGrid3.Cells[8,i]; tstat_cena.FieldByName('m9').AsString:=suiStringGrid3.Cells[9,i]; tstat_cena.FieldByName('m10').AsString:=suiStringGrid3.Cells[10,i]; tstat_cena.FieldByName('m11').AsString:=suiStringGrid3.Cells[11,i]; tstat_cena.FieldByName('m12').AsString:=suiStringGrid3.Cells[12,i]; tstat_cena.post;tprog.Next;endend;end;Процедура добавления трендов цен на график:procedure TForm1.suiButton11Click(Sender: TObject);var i:integer; s:array of TLineSeries;begin//добавление выбранного наименования товара в списокsuiListBox1.Items.Add(tstat_cena.FieldValues['prog']);setlength(s,suiListBox1.Count+1);//добавление статистики цен на графикs[suiListBox1.Count]:= TLineSeries.Create(nil);s[suiListBox1.Count].ParentChart:=Chart1;s[suiListBox1.Count].AddXY(1,strtoint(tstat_cena.FieldValues['m1']));s[suiListBox1.Count].addxy(2,strtoint(tstat_cena.FieldValues['m2']));s[suiListBox1.Count].addxy(3,strtoint(tstat_cena.FieldValues['m3']));s[suiListBox1.Count].addxy(4,strtoint(tstat_cena.FieldValues['m4']));s[suiListBox1.Count].addxy(5,strtoint(tstat_cena.FieldValues['m5']));s[suiListBox1.Count].addxy(6,strtoint(tstat_cena.FieldValues['m6']));s[suiListBox1.Count].addxy(7,strtoint(tstat_cena.FieldValues['m7']));s[suiListBox1.Count].addxy(8,strtoint(tstat_cena.FieldValues['m8']));s[suiListBox1.Count].addxy(9,strtoint(tstat_cena.FieldValues['m9']));s[suiListBox1.Count].addxy(10,strtoint(tstat_cena.FieldValues['m10']));s[suiListBox1.Count].addxy(11,strtoint(tstat_cena.FieldValues['m11']));s[suiListBox1.Count].addxy(12,strtoint(tstat_cena.FieldValues['m12']));end;Процедурадобавлениятоваров:procedure TForm1.suiButton7Click(Sender: TObject);begintry//добавление записи в таблицу «Справочник товаров», значения берутся из полей формыtprog.Append;tprog.FieldByName('prog').AsString:=suiEdit4.text;tprog.FieldByName('segment').AsString:=suiComboBox1.text;tprog.FieldByName('opis').AsString:=suiMemo1.Text;tprog.Post;ExceptMessageDlg('Ошибкавводаданных!',mtInformation,[mbYes],0);end;end;Процедура добавления товаров:procedure TForm1.suiButton4Click(Sender: TObject);begintry//добавление записи в таблицу «Клиенты», значения берутся из полей формыtklient.Append;tklient.FieldByName('klient').AsString:=suiEdit1.Text;tklient.FieldByName('class').AsString:=suiComboBox2.text;tklient.Post;ExceptMessageDlg('Ошибкавводаданных!',mtInformation,[mbYes],0);end;end;Процедура добавления тренда спроса и предложения на график:procedure TForm1.suiButton14Click(Sender: TObject);var i:integer; s:TLineSeries;begin//добавление статистики спроса на графикChart4.Series[0].clear;Chart4.Series[1].clear;Chart4.Series[0].AddXY(1,strtoint(tstat_spros.FieldValues['sp1']));Chart4.Series[1].AddXY(1,strtoint(tstat_spros.FieldValues['pr1']));Chart4.Series[0].AddXY(2,strtoint(tstat_spros.FieldValues['sp2']));Chart4.Series[1].AddXY(2,strtoint(tstat_spros.FieldValues['pr2']));Chart4.Series[0].AddXY(3,strtoint(tstat_spros.FieldValues['sp3']));Chart4.Series[1].AddXY(3,strtoint(tstat_spros.FieldValues['pr3']));Chart4.Series[0].AddXY(4,strtoint(tstat_spros.FieldValues['sp4']));Chart4.Series[1].AddXY(4,strtoint(tstat_spros.FieldValues['pr4']));Chart4.Series[0].AddXY(5,strtoint(tstat_spros.FieldValues['sp5']));Chart4.Series[1].AddXY(5,strtoint(tstat_spros.FieldValues['pr5']));Chart4.Series[0].AddXY(6,strtoint(tstat_spros.FieldValues['sp6']));Chart4.Series[1].AddXY(6,strtoint(tstat_spros.FieldValues['pr6']));Chart4.Series[0].AddXY(7,strtoint(tstat_spros.FieldValues['sp7']));Chart4.Series[1].AddXY(7,strtoint(tstat_spros.FieldValues['pr7']));Chart4.Series[0].AddXY(8,strtoint(tstat_spros.FieldValues['sp8']));Chart4.Series[1].AddXY(8,strtoint(tstat_spros.FieldValues['pr8']));Chart4.Series[0].AddXY(9,strtoint(tstat_spros.FieldValues['sp9']));Chart4.Series[1].AddXY(9,strtoint(tstat_spros.FieldValues['pr9']));Chart4.Series[0].AddXY(10,strtoint(tstat_spros.FieldValues['sp10']));Chart4.Series[1].AddXY(10,strtoint(tstat_spros.FieldValues['pr10']));Chart4.Series[0].AddXY(11,strtoint(tstat_spros.FieldValues['sp11']));Chart4.Series[1].AddXY(11,strtoint(tstat_spros.FieldValues['pr11']));Chart4.Series[0].AddXY(12,strtoint(tstat_spros.FieldValues['sp12']));Chart4.Series[1].AddXY(12,strtoint(tstat_spros.FieldValues['pr12']));end;