Автоматизирование информационной системы взаимодействие персоналов общественного питание

Далее рассчитаем единовременные капитальные затраты на разработку и внедрение системы (КП).Эти затраты складываются из оплаты труда разработчика системы, оплаты труда сотрудников, участвовавших в проектировании и внедрении системы и дополнительных (косвенных) расходов.Рассчитаем трудовые показатели.1. Абсолютное снижение трудовых затрат (Т)Сотрудники организации стали тратить на выполнение рассматриваемого комплекса задач на 1018 часов в год меньше.2. Коэффициент относительного снижения трудовых затрат (КТ)Снижение затрат трудового времени сотрудников составило 59 процентов.3. Индекс снижения трудовых затрат, повышение производительности труда (YT)Трудовые затраты организации снизились в 2,5 раза.Рассчитаем стоимостные показатели.1. Абсолютное снижение стоимостных затрат (С)С = С0 –С1 = 365700 –154376= 211324 руб.Внедрение информационной системы производит годовую экономию организации в размере 211324 рубля.2. Коэффициент относительного снижения стоимостных затрат (СТ)Финансовые затраты на осуществления рассматриваемого комплекса задач приблизительно снизились на 57,7 процента.3. Индекс снижения стоимостных затрат (YT)Стоимостные затраты организации приблизительно снизились в 2,37 раза.Рассчитаем период окупаемости проекта.года ≈10,5 мес.Капитальные затраты на разработку и внедрение проекта вернутся организации приблизительно в течение 10 месяцев, что, на первый взгляд, говорит о не очень высокой экономической эффективности вложения средств в информационную систему. Однако срок внедрения такой системы очень не высок, а затраты на внедрение в расчётах уже учитываются, следовательно данный срок окупаемости такой системы вполне приемлем.Из анализа рассчитанных коэффициентов можно сделать вывод, что разработка и внедрение информационной системы сокращает как издержки использования рабочего времени, так и финансовые издержки, однако срок окупаемости проекта достаточно высок, поэтому снизить эффект от длительности срока окупаемости поможет только бюджетное финансирование со стороны предприятия. На рисунке 31 приведена диаграмма временных затрат на выполнение технологических операций до и после внедрения проекта, на рис.32 – стоимостных затрат.Рисунок 31 - Диаграмма временных затратРисунок 32- Диаграмма стоимостных затратКак видно из диаграммы – затраты на разработку ИС превышают затраты при обычной работе в той же части занятых сотрудников на 15 тысяч рублей. На этапе анализа экономической эффективности были оценены временные затраты на выполнение регистрации граждан на прием до и после внедрения системы и оценен экономический эффект от внедрения системы в условиях ООО «Кафе-бар Дубай». Срок окупаемости проекта оценивается в 6 месяцев, что говорит о его эффективности. ЗАКЛЮЧЕНИЕ В данной работе разработана автоматизированная информационная система кафе ООО «Кафе-бар Дубай». В ходе работы была изучена специфика работы ООО «Кафе-бар Дубай», использования информационных технологий в анализе их деятельности.В рамках анализа бизнес-процессов по управлению продажами, проведённых с использованием методологии IDEF0, был определен перечень задач, подлежащих автоматизации, к которым относятся:- учет номенклатуры блюд;- учет продаж;- учет бронирования столиков;- формирование отчетных документов в рамках технологии управления продажами.В рамках исследования бизнес-процессов проведена постановка задач автоматизации документооборота, определен перечень недостатков существующей технологии обработки информации.Программная реализация проекта проведена с использованием среды «1С: Предприятие».В рамках анализа бизнес-процессов по управлению продажами, проведённых с использованием методологии IDEF0, был определен перечень задач, подлежащих автоматизации, к которым относятся:- учет меню;- учет бронирования столиков, заказов клиентов;- учет наличия продуктов на складе и заявок на их поставку;- формирование отчетных документов в рамках технологии управления продажами.В рамках исследования бизнес-процессов проведена постановка задач автоматизации документооборота, определен перечень недостатков существующей технологии обработки информации.В ходе работы была поставлена задача рассмотрения возможности снижения затрат на приобретение программного обеспечения через собственную разработку с учетом специфики работы предприятия были выделены информационные объекты, определены их свойства, создана логическая структура базы данных, на её основании – физическая модель. Далее после опытной эксплуатации были проведены оценки экономической целесообразности внедрения разработанного программного продукта и область его применения. Срок окупаемости проекта автоматизации  кафе-бара «Дубай»оценивается в 6 мес., что является приемлемым результатов в условиях подобного рода организаций.  СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ Широкова Е. В. Разработка простых отчетов в "1C: Предприятие 8.3" с использованием системы компоновки данных/ Е. В. Широкова. - Калуга : Манускрипт, 2017. - 83 с.Венделева, М.А. Информационные технологии в управлении [Текст] Учебное пособие для бакалавров / М.А. Венделева, Ю.В. Вертакова. - М.: Юрайт, 2013. - 462 c.Информационно-коммуникационные технологии в науке, производстве и образовании ICIT-2016 : сборник статей Международной научно-практической конференции, 23-28 августа 2016, Саратов, Россия / [под ред. О.Н. Долининой]. - Саратов : Научная книга, 2016. - 401 с.Кручинин В. В., Тановицкий Ю. Н. Компьютерные технологии в науке, образовании и производстве электронной техники : учебное пособие / В. В. Кручинин, Ю. Н. Тановицкий. - Томск : Изд-во ТУСУРа, 2017. - 133 с.Дадян Э. Г. Конфигурирование и моделирование в системе "1С: Предприятие" : учебник : [для студентов высших образовательных организаций, обучающихся по всем направлениям подготовки магистратуры] / Э.Г. Дадян ; Финансовый университет при Правительстве Россиийской Федерации. - Москва : Вузовский учебник ИНФРА-М, 2018. – 436с.Дадян Э. Г. Разработка бизнес-приложений на платформе "1С:Предприятие" : учебное пособие / Э. Г. Дадян. - 2-е изд., испр. и доп. - Москва : Инфра-М, 2019. – 304 с.Таранов А. В. Автоматизация управленческого и бухгалтерского учета в системе "1С: Предприятие 8" : учебное пособие. - Брянск : Изд-во БГТУ, 2018. - 98 сМакаровских Т. А. Автоматизация деятельности предприятия / Т.А. Макаровских. - Челябинск : Издательский центр ЮУрГУ, 2017. – 115 с.Радченко М. Г., Хрусталева Е. Ю. 1С: Предприятие 8.3 : практическое пособие разработчика : / М.Г. Радченко, Е.Ю. Хрусталева ; [фирма 1С ]. - Москва : Энергетика, 2016. – 926 с.Гладких Т. В., Воронова Е. В. Разработка прикладных решений для информационной системы 1C: Предприятие 8.2 : учебное пособие / Т.В. Гладких, Е.В. Воронова. - Воронеж: Воронежский государственный университет инженерных технологий, 2016. - 55 с. Анохина О. В. Юридическое делопроизводство [Электронный ресурс]: учебно-методическое пособие / О.В. Анохина. - Омск : Изд-во ОмГТУ, 2018. – 147с.Польшакова Н.В., Коломейченко А.С., Яковлев А.С. Информационные системы в экономике: [учебник]. - Москва : Буки Веди, 2016. - 480 с.Дрыгина Ю. А., Бабаян А. Р. Делопроизводство в управлении: учебное пособие / Ю. А. Дрыгина, А. Р. Бабаян. - Ростов-на-Дону: Изд-во ЮРИУ РАНХиГС, 2018. - 257 с. Попов Б. Н. Администрирование информационных систем : учебное пособие. - Санкт-Петербург: Изд-во ГУМРФ имени адмирала С.О. Макарова, 2018. - 95 с.Селяничев О. Л. Администрирование информационных систем: учебное пособие. - Череповец: ФГБОУ ВО "Череповецкий государственный университет", 2017. - 99 с.Кузьмина, В.И. Делопроизводство : учебное пособие / И. В. Кузьмина. - Москва : Изд-во Московского гуманитарного университета, 2017. - 127 с.Титоренко Г.А. Информационные системы в экономике/ 2-е изд. - М.: ЮНИТИ-ДАНА, 2015. - 463 с. Черников Б.В. Информационные технологии управления. - М.: ИД ФОРУМ: НИЦ ИНФРА-М, 2014. - 368 с.Шипулин Л. В., Сазонова Н. С. Базы данных: учебное пособие. - Челябинск: ЮУрГУ, 2016. - 96 с.Терехов А. В., Чернышов В. Н., Бурцева Е. В. Прикладная информатика в юриспруденции. Введение в специальность: учебное пособие / А.В. Терехов, В.Н. Чернышов, Е.В. Бурцева. - Тамбов : Изд-во ФГБОУ ВО "ТГТУ", 2017. – 258с.Кузнецов В. С. Предметно-ориентированные экономические информационные системы : учебное пособие / В. С. Кузнецов. - Чита : Забайкальский государственный университет, 2017. - 209 с. Степанова Е. Н. Система электронного документооборота (облачное решение): учебное пособие : / Е. Н. Степанова. - Саратов : Ай Пи Эр Медиа, 2018. - 178 с. Благовещенская М. М., Злобин Л. А. Информационные технологии систем управления технологическими процессами / М.М. Благовещенская, Л.А. Злобин. - Москва : Высшая школа, 2005. – 767 с.Гегерь Э. В. Корпоративные информационные системы : учебное пособие / Э. В. Гегерь. - Брянск : БГИТУ, 2017. - 255 с.Серебрякова Т. А. Профессионально ориентированные информационные системы : [монография] / Т. А. Серебрякова. - Хабаровск : Изд-во ТОГУ, 2016. – 204с.ПриложениеПрограммный код (фрагменты)procedure TForm1.Button1Click(Sender: TObject);begin form2.DateTimePicker1.date:=now; with form1.ADOQuery2 do begin close;sql.Clear;sql.add('select * from zal where status='+form1.Label1.Caption+'Да'+form1.Label1.Caption);active:=true; end; with adoquery1 do begin close;sql.clear;sql.Add('delete from tmp_z');execsql; close;sql.Clear;sql.add('select * from tmp_z');active:=true; end; form2.DBGrid1.Columns[0].title.caption:='Блюдо'; form2.DBGrid1.Columns[1].title.caption:='Количество'; form2.DBGrid1.Columns[2].title.caption:='Код'; form2.DBGrid1.Columns[3].title.caption:='Цена'; with form1.ADOQuery4 do begin close;sql.Clear;sql.add('select * from bld where status='+form1.Label1.Caption+'Вналичии'+form1.Label1.Caption);active:=true; end; form2.Show;end;procedure TForm1.BitBtn2Click(Sender: TObject);begin with form1.ADOQuery3 do begin close;sql.Clear;sql.Add('select * from gur_zak where status='+label1.Caption+'Введен'+form1.Label1.Caption);active:=true; end; form3.dbgrid1.columns[0].title.caption:='Код'; form3.dbgrid1.columns[1].title.caption:='Дата'; form3.dbgrid1.columns[2].title.caption:='Столик'; form3.dbgrid1.columns[3].title.caption:='Статус'; form3.Show;end;end.procedure TForm2.BitBtn1Click(Sender: TObject);begin form1.ADOQuery1.AppendRecord([form1.ADOQuery4nam.AsString,edit1.Text,form1.ADOQuery4code_bl.AsInteger,form1.ADOQuery4stm.AsCurrency]);end;procedure TForm2.BitBtn2Click(Sender: TObject);var ExcelApp:variant; i:integer; stm:currency;beginExcelApp := CreateOleObject('Excel.Application');ExcelApp.workbooks.open('C:\rest\xlt\schet.xlt');ExcelApp.WorkSheets[1].Activate;ExcelApp.Visible := False;excelapp.cells[4,1]:='Номерстолика: '+form1.ADOQuery2num_st.AsString;excelapp.cells[3,2]:= datetostr(datetimepicker1.date); form1.ADOQuery1.First;stm:=0; for i:=1 to form1.ADOQuery1.RecordCount do beginexcelapp.cells[6+i,1]:=i;excelapp.cells[6+i,1].borders.linestyle:=1;excelapp.cells[6+i,2]:=form1.ADOQuery1nam_bl.AsString;excelapp.cells[6+i,2].borders.linestyle:=1;excelapp.cells[6+i,3]:=edit1.Text;excelapp.cells[6+i,3].borders.linestyle:=1;excelapp.cells[6+i,4]:=form1.ADOQuery1stm.AsString;excelapp.cells[6+i,4].borders.linestyle:=1;stm:=stm+ form1.ADOQuery1stm.AsCurrency*strtoint(edit1.Text);excelapp.cells[6+i,5]:=form1.ADOQuery1stm.AsCurrency*strtoint(edit1.Text);excelapp.cells[6+i,5].borders.linestyle:=1; form1.ADOQuery1.Next; end;Excelapp.cells[7+form1.ADOQuery1.RecordCount,1]:='Итого '+currtostr(stm)+' руб.';excelapp.visible:=true;excelapp:=unassigned;end;procedure TForm2.BitBtn3Click(Sender: TObject);var i:integer; code_z,stl:integer;begin with adoquery2 do begin close;sql.Clear;sql.add('select max(code_z) from gur_zak'); open; end;stl:=form1.ADOQuery2code_stol.AsInteger; if adoquery2.RecordCount=0 then code_z:=1 else code_z:=1+form2.ADOQuery2Expr1000.AsInteger; form1.ADOQuery1.First; with adoquery1 do begin close;sql.Clear;sql.Add('select code_z, code_bl, kol, stm from det_z'); open; end; form1.ADOQuery3.Open; form1.ADOQuery3.AppendRecord([code_z,datetimepicker1.Date,form1.ADOQuery2code_stol.AsInteger,'Введен']); for i:=1 to form1.ADOQuery1.RecordCount do begin form2.ADOQuery1.AppendRecord([code_z,form1.ADOQuery1code_bl.AsInteger,edit1.Text,form2.ADOQuery1stm.AsCurrency]); form1.ADOQuery1.Next; end; with form1.ADOQuery2 do begin close;sql.Clear;sql.Add('update zal set status ='+form1.Label1.Caption+'Нет'+form1.Label1.Caption+' where code_stol='+inttostr(stl));execsql; close;sql.clear;sql.add('select * from zal where status='+form1.Label1.Caption+'Да'+form1.Label1.Caption);active:=true; end; with form1.adoquery1 do begin close;sql.clear;sql.Add('delete from tmp_z');execsql; close;sql.Clear;sql.add('select * from tmp_z');active:=true; end;showmessage('Записано');end;end.procedure TForm3.BitBtn1Click(Sender: TObject);var code:integer;begincode:=form1.ADOQuery3code_z.AsInteger; with form1.ADOQuery3 do begin close;sql.Clear;sql.add('update gur_zak set status='+form1.Label1.Caption+'Выдан'+form1.Label1.Caption+' where code_z='+inttostr(code));execsql; close;sql.Clear;sql.Add('select * from gur_zak where status='+form1.label1.Caption+'Введен'+form1.Label1.Caption);active:=true; end;showmessage('Записано');end;end.procedure TForm1.Button1Click(Sender: TObject);begin with form1.ADOQuery1 do begin close;sql.Clear;sql.Add('select * from bld');active:=true; end; form2.DBGrid1.Columns[0].Title.caption:='Код'; form2.DBGrid1.Columns[0].Title.caption:='Наименование'; form2.DBGrid1.Columns[0].Title.caption:='Ед.измерения'; form2.DBGrid1.Columns[0].Title.caption:='Количество'; form2.DBGrid1.Columns[0].Title.caption:='Местовыдачи'; form2.DBGrid1.Columns[0].Title.caption:='Стоимость'; form2.DBGrid1.Columns[0].Title.caption:='Наличие'; form2.Show;end;procedure TForm1.BitBtn1Click(Sender: TObject);begin with form1.adoquery2 do begin close;sql.clear;sql.add('select * from zal');active:=true; end; form5.DBGrid1.Columns[0].Title.caption:='Кодстолика'; form5.DBGrid1.Columns[1].Title.caption:='Номерстолика'; form5.DBGrid1.Columns[2].Title.caption:='Количествомест'; form5.Show; form5.show;end;end.procedure TForm2.BitBtn2Click(Sender: TObject);begin form3.Label2.Caption:=form1.ADOQuery1code_bl.AsString; form3.Label4.Caption:=form1.ADOQuery1nam.AsString; form3.Show;end;procedure TForm2.BitBtn1Click(Sender: TObject);begin form4.Label2.Caption:=form1.ADOQuery1code_bl.AsString; form4.Label4.Caption:=form1.ADOQuery1nam.AsString; form4.Show;end;end.procedure TForm3.BitBtn1Click(Sender: TObject);var code:integer; nal:string[20];beginif radiobutton1.Checked=true then nal:=radiobutton1.Caption else nal:=radiobutton2.Caption;code:=form1.ADOQuery1code_bl.AsInteger;with form1.ADOQuery1 dobegin close;sql.Clear;sql.Add('update bld set status='+form1.Label1.Caption+trim(nal)+form1.Label1.Caption+' where code_bl='+inttostr(code));execsql; close;sql.Clear;sql.Add('select * from bld');active:=true;end;form1.ADOQuery1.Locate('code_bl',code,[]);showmessage('Записано');end;end.procedure TForm4.BitBtn1Click(Sender: TObject);var code:integer; nal:string[20];beginif radiobutton1.Checked=true then nal:=radiobutton1.Caption else nal:=radiobutton2.Caption;code:=form1.ADOQuery1code_bl.AsInteger;with form1.ADOQuery1 dobegin close;sql.Clear;sql.Add('update bld set mesto='+form1.Label1.Caption+trim(nal)+form1.Label1.Caption+' where code_bl='+inttostr(code));execsql; close;sql.Clear;sql.Add('select * from bld');active:=true;end;form1.ADOQuery1.Locate('code_bl',code,[]);showmessage('Записано');end;end.procedure TForm5.Button1Click(Sender: TObject);var st:string[3]; code:integer;begincode:= form1.ADOQuery2code_stol.AsInteger; if form1.ADOQuery2status.AsString='Да' then st:='Нет' else st:='Да'; with form1.ADOQuery2 do begin close;sql.Clear;sql.Add('update zal set status ='+form1.Label1.Caption+trim(st)+form1.Label1.Caption+' where code_stol='+inttostr(code));execsql; close;sql.clear;sql.add('select * from zal');active:=true; end; form1.ADOQuery2.Locate('code_stol',code,[]);showmessage('Записано');end;end.procedure TForm7.BitBtn1Click(Sender: TObject);var year1,mon1,dt1:word ; m1,d1:string[2]; day1,day2:string; i:integer; ExcelApp:Variant;begin decodedate(datetimepicker1.date,year1,mon1,dt1); if mon1<10 then m1:='0'+inttostr(mon1) else m1:=inttostr(mon1); if dt1<10 then d1:='0'+inttostr(dt1) else d1:=inttostr(dt1); day1:=inttostr(year1)+'/'+m1+'/'+d1; decodedate(datetimepicker2.date,year1,mon1,dt1); if mon1<10 then m1:='0'+inttostr(mon1) else m1:=inttostr(mon1); if dt1<10 then d1:='0'+inttostr(dt1) else d1:=inttostr(dt1); day2:=inttostr(year1)+'/'+m1+'/'+d1; with ADOQuery1 do begin close;sql.Clear;sql.Add('SELECT * from zp3 where (day>=#'+day1+'#) and (day<=#'+day2+'#)' ); open; end;ExcelApp := CreateOleObject('Excel.Application');ExcelApp.workbooks.open('C:\rest\xlt\d_vir.xlt'); ExcelApp.WorkSheets[1].Activate; ExcelApp.Visible := False; for i := 1 to adoquery1.RecordCount do begin excelapp.cells[3+i,1]:=form7.ADOQuery1day.AsString; excelapp.cells[3+i,2]:=form7.ADOQuery1Sumstm.AsCurrency; excelapp.cells[3+i,1].borders.linestyle:=1; excelapp.cells[3+i,2].borders.linestyle:=1; adoquery1.Next; end; excelapp.cells[2,2]:=datetostr(datetimepicker1.Date)+'-'+datetostr(datetimepicker2.Date); excelapp.visible:=true; excelapp:=unassigned;end;end.