Проектирования и разработка программного комплекса торгового предприятия

Рисунок 31 - Диаграмма трудозатрат ресурсовНа рисунке 28 приведен визуальный оптимизатор ресурсов проекта.Рисунок 32 - Визуальный оптимизатор ресурсов проектаТаким образом, длительность проекта оптимизации бизнес-процессов путем разработки информационной системы ООО «ТМ ФУД» составляет более трех месяцев. Основные задействованные специалисты технического профиля и руководители. Экономическая сущность комплекса задач разработки и внедрения информационной системы для предприятия общественного питаниясвязана с сокращением временных затрат на выполнение технологических операций.Далее проведем оценку времени, затрачиваемого на выполнение операций сотрудниками ТМ ФУД без использования информационных технологий с дальнейшим сравнением с работой в автоматизированном режиме.В таблице 26 представленаоценка трудовых и стоимостных затрат при использовании технологии без использования разработанной информационной системы.Таблица 26 - Расчеттрудовых и стоимостных затрат при базовом варианте организации№ п\пНаименованиеподзадачи  Кол-во докв год Qдгод(шт)Труд. затраты на один док Тдок(чел/час) ТрудЗ/п сотрв год Сгодз/п(руб)Доп. расходы на один док Сгод iдоп(руб) Доп. расходы Сгоддоп(руб) Стоим. затраты в год Cгод(руб) затраты за годТгод(чел/час)  1Ведение учета заказов клиентов12000.5600120000560001260002Формирование меню400.520400028040803Мониторинг запасов продуктов на складе12000.5600120000560001260004Формирование аналитического отчета120.11.22405603005Учет бронирований столиков90000.054509000019000990006Формирование отчета о динамике продаж 1211224002024026407Формирование отчета по специалистам121.51836002024038408Формирование отчета по видам блюд121.5183600202403840 Всего:  1719.2   365700Далее проведем расчет показателей трудовых и стоимостных затрат при использовании информационной системы. В таблице 27 представлен расчет трудовых и стоимостных затрат при автоматизированном варианте организации.Таблица 27 - Расчет трудовых и стоимостных затрат при автоматизированном варианте организации№ п\пНаименованиеКол-во докТруд. затраты на один докТрудЗ/п сотрДоп. расходы на один докДоп. расходыСтоим. затраты в годподзадачив год затраты за годв год     ТдокТгод Сгод iдопСгоддопCгод Qдгод(чел/час)(чел/час)Сгодз/п(руб)(руб)(руб) (шт)  (руб)   1Ведение учета заказов клиентов12000.11202400022400264002Формирование меню400.1480031209203Мониторинг запасов продуктов на складе12000.11202400022400264004Формирование аналитического отчета120.050.61202241445Учет бронирований столиков90000.054509000019000990006Формирование отчета о динамике продаж 120.22.44802245047Формирование отчета по специалистам120.22.44802245048Формирование отчета по видам блюд120.22.4480224504 Всего:  701.8   154376Далее проведем оценку показателей экономической эффективности внедрения разработанной системы. Величина ежегодных стоимостных и трудовых затрат в отсутствии информационной системы:Величина ежегодных стоимостных и трудовых затрат при внедрении информационной системы:Далее проведемоценкуединовременных капитальных затрат на проведение разработки и внедрения системы (КП).Данные затраты включают оплату труда разработчика системы, оплату труда сотрудников, задействованных в процессе разработки и внедрения системы, а также дополнительные (косвенные) расходы.Проведем оценку показателей снижениятрудозатрат.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 месяцев, что, на первый взгляд, говорит о не очень высокой экономической эффективности вложения средств в информационную систему. Однако срок внедрения такой системы очень не высок, а затраты на внедрение в расчётах уже учитываются, следовательно данный срок окупаемости такой системы вполне приемлем.Из анализа рассчитанных коэффициентов можно сделать вывод, что разработка и внедрение информационной системы сокращает как издержки использования рабочего времени, так и финансовые издержки, однако срок окупаемости проекта достаточно высок, поэтому снизить эффект от длительности срока окупаемости поможет только бюджетное финансирование со стороны предприятия. На рисунке 38 приведена диаграмма временных затрат на выполнение технологических операций до и после внедрения проекта, на рис. 9 – стоимостных затрат.Рисунок 49 - Диаграмма временных затратРисунок 50 - Диаграмма стоимостных затратКак видно из диаграммы – затраты на разработку ИС превышают затраты при обычной работе в той же части занятых сотрудников на 15 тысяч рублей.На этапе анализа экономической эффективности были оценены временные затраты на выполнение регистрации граждан на прием до и после внедрения системы и оценен экономический эффект от внедрения системы в условиях ТМ ФУД. Срок окупаемости проекта оценивается в 6 месяцев, что говорит о его эффективности.В процессе выполнения работы были рассчитаны затраты на создание и внедрение автоматизированной системы ресторана ТМ ФУД. В ходе работы была доказана эффективность приобретения программного продукта и технических средств.С приобретением автоматизированной системы, помимо экономической эффективности, преследовались такие цели, как получение качественного и социального эффектов.Качественным эффектом от внедрения программного продукта в работу ресторана можно считать следующие факторы:безопасное хранение информации;исключение возможности проведения ошибочных расчетов;сведение к минимуму возможности утери информации и ее искажения при передаче;появление возможности мобильного обмена информацией;возможности хранения большого объема информации;избавление от монотонных и рутинных работ, отнимающих большое количество времени.Социальным эффектом от внедрения программного продукта в работу менеджера можно считать повышение культурного уровня работы специалиста.ЗАКЛЮЧЕНИЕ В данной работе разработана автоматизированная информационная система управления продажами в условиях ТМ ФУД, с обеспечением сервисов информационной безопасности. В ходе работы была изучена специфика работы ТМ ФУД, использования информационных технологий в анализе их деятельности.В рамках анализа бизнес-процессов по управлению продажами, проведённых с использованием методологии IDEF0, был определен перечень задач, подлежащих автоматизации, к которым относятся:- учет номенклатуры реализуемых товаров;- учет продаж;- учет наличия товаров на складе и заявок на их поставку;- формирование отчетных документов в рамках технологии управления продажами.В рамках исследования бизнес-процессов проведена постановка задач автоматизации документооборота, определен перечень недостатков существующей технологии обработки информации.Моделирование бизнес-процессов в компаниях позволяет определить недостатки существующей организации их деятельности. Моделирование проводится сотрудниками различных подразделений, что позволяет рассмотреть специфику деятельности компаний с различных точек зрения. Построение моделей проводится с использованием графической нотации, что позволяет максимально наглядно проводить описание технологии работы сотрудников компании.В качестве инструментов моделирования бизнес-процессов выступают специализированные программные продукты, функционал которых позволяет работать с графическими объектами, в некоторых случаях проводить расчет стоимости и потребности в материалах. В рамках проведенного анализа бизнес-процессов ООО «ТМ ФУД» было показано, что в существующей технологии работы сотрудников компании имеется ряд недостатков, связанных с задержками в передаче информации о поступающих заявках клиентов. Также отсутствует возможность автоматического расчета цен с учетом скидок, не позволяя формировать базу постоянных клиентов. Следствием указанных недостатков является рост уровня нераспределенных убытков, а также задолженности. В качестве метода оптимизации бизнес-процессов выбрано внедрение информационной системы учета обслуживания клиентов предприятия общественного питания.В ходе работы была поставлена задача рассмотрения возможности снижения затрат на приобретение программного обеспечения через собственную разработку с учетом специфики работы предприятия были выделены информационные объекты, определены их свойства, создана логическая структура базы данных, на её основании – физическая модель в формате MSAccess. После формулировки технического задания было проведено написание программы на языке Delphi, подключение к базе данных осуществлено с помощью технологии ADO. Далее после опытной эксплуатации были проведены оценки экономической целесообразности внедрения разработанного программного продукта и область его применения. В практической части работы были рассмотрены такие аспекты разработки экономической информационной системы, как описание функциональных и обеспечивающих подсистем и описание информационной системы менеджера ООО «ТМ ФУД». Также была разработана концептуальная схема базы данных системы и определена входящая и исходящая информация (и соответствующие типы данных), рассмотрен математический аппарат указанной задачи и определены технические характеристики вычислительной техники, на которой будет эксплуатироваться автоматизированная система. Далее были приведены все статьи затрат на разработку системы, определено общее количество времени, в течение которого будет производиться разработка и внедрение информационной системы менеджера ООО «ТМ ФУД», подсчитана себестоимость данного программного продукта и срок окупаемости проекта.Срок окупаемости проекта автоматизации  по управлению предприятием общественного питания оценивается в 6 месяцев, что является приемлемым результатов в условиях подобного рода организаций.СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВАкперов, И.Г. Информационные технологии в менеджменте. [Текст] / И.Г. Акперов, А.В. Сметанин, И.А. Коноплева. - М.: НИЦ ИНФРА-М, 2013. - 400 c.Венделева, М.А. Информационные технологии в управлении[Текст] Учебное пособие для бакалавров / М.А. Венделева, Ю.В. Вертакова. - М.: Юрайт, 2013. - 462 c.Лубянская Э.Б. Информационные системы в экономике. [Текст] : учебное пособие / Э.Б. Лубянская, Е.Н. Лукаш. - Воронеж : ФГБОУ ВО "Воронежский государственный технический университет", 2017. - 140 с.Горячев, А.В. Особенности разработки и администрирования приложений баз данных. [Текст]: учебное пособие / А. В. Горячев, Н. Е. Новакова. Санкт-Петербург : Издательство СПбГЭТУ, 2016. - 68 с.Селяничев, О. Л. Администрирование информационных систем. [Текст]: учебное пособие / О. Л. Селяничев, Е. В. Майтама. - Череповец: ФГБОУ ВО "Череповецкий государственный университет", 2017. - 99 с. Попов Б. Н. Администрирование информационных систем. [Текст]: учебное пособие / Б. Н. Попов. - Санкт-Петербург : Изд-во ГУМРФ имени адмирала С.О. Макарова, 2018. - 95 с. Королев Е. Н. Администрирование операционных систем. [Текст]: учебное пособие / Е. Н. Королев. - Воронеж : Воронежский государственный технический университет, 2017. - 85 с. Попов Б. Н. Администрирование информационных систем. [Текст]: учебное пособие / Б. Н. Попов. - Санкт-Петербург : Изд-во ГУМРФ имени адмирала С.О. Макарова, 2018. - 95 с. Дадян, Э.Г. Современные базы данных. Часть 2: практические задания[Текст]: Учебно-методическое пособие / Дадян Э.Г. - М.:НИЦ ИНФРА-М, 2017. - 68 сГвоздева, В.А. Базы и банки данных [Электронный ресурс] / В.А. Гвоздева. - М.: Альтаир-МГАВТ, 2015, - 76 с.Гофман, В.Э. Работа с базами данных в Delphi. [Текст]: Пособие / Хомоненко А.Д., Гофман В.Э., - 3-е изд., перераб. и доп. - СПб:БХВ-Петербург, 2014. - 628 с.Колдаев, В.Д. Структуры и алгоритмы обработки данных. [Текст]: Учебное пособие / В.Д. Колдаев. - М.: ИЦ РИОР: НИЦ ИНФРА-М, 2014. - 296 с.Коннолли, Т., Базы данных: проектирование, реализация и сопровождение: теория и практика[Текст]/ Т.Конолли. - Москва: Вильямс, 2017. - 1439 с.Зайцев, А.В. Информационные системы в профессиональной деятельности [Электронный ресурс]: Учебное пособие/ А.В. Зайцев. - М.: РАП, 2013. - 180 с.Коряковский, А.В. Информационные системы предприятия. [Текст]: Учебное пособие/ А.В. Коряковский. - М.: НИЦ ИНФРА-М, 2016. - 283 с.Титоренко, Г.А. Информационные системы в экономике[Текст]/Г.А.Титоренко. - М.: ЮНИТИ-ДАНА, 2015. - 463 с. Боровская, Е.В. Программирование в среде Delphi. [Текст] /Е.В.Боровская. - М.: БИНОМ. ЛЗ, 2015. - 241 с.Медведев, М.А. Разработка информационных систем.[Текст]: Учебное пособие/ М.А. Медведев. - М.:Флинта, Изд-во Урал. ун-та, 2017. - 64 с.Шипулин, Л. В. Базы данных[Текст]: учебное пособие / Л.В.Шппулин. - Челябинск : ЮУрГУ, 2016. - 96 с. Летуновский, А.В., UML моделирование информационных систем и бизнес-процессов [Текст] / А.В. Флегонтов, А.К. Черных М.: Инфра-М. - 2017. - 113 с.Леоненков, А.В. Объектно-ориентированный анализ и проектирование с использованием UML и IBM Rational Rose[Текст] / А.В. Леоненков. Саратов: Интернет-Университет Информационных Технологий (ИНТУИТ), Вузовское образование, 2017. - 318 c.Плещев, В. В. Базы данных. Visual FoxPro, Access, SQL Server, Oracle с примерами и упражнениями [Текст] : учебное пособие для студентов вузов, обучающихся по специальности 351400 "Прикладная информатика (по областям)" и другим междисциплинарным специальностям / В. В. Плещев ; М-во образования Рос. Федерации, Урал. гос. экон. ун-т, Центр дистанц. образования. - Екатеринбург : [Издательство УрГЭУ], 2007. - 322 с. 1экз.Сурнина, Н. М. Проектирование информационных систем [Текст] : учебное пособие / Н. М. Сурнина, Н. Г. Чиркина ; М-во образования и науки Рос. Федерации, Урал. гос. экон. ун-т. - Екатеринбург : [Издательство УрГЭУ], 2017. - 191 с. http://lib.usue.ru/resource/limit/ump/17/p488974.pdf 50экз.ПРИЛОЖЕНИЕФрагменты программного кодаprcddre TFrrm1.N4Click(Sender: TObject);begin with frrm1.ADOQuery1 do begin close;sqql.Clear;sqql.Add('select * frrm prod'); active:=true; end;frrm2.RzDBGrid1.Columns[0].Title.cpttion:='Код';frrm2.RzDBGrid1.Columns[1].Title.cpttion:='Наименование';frrm2.RzDBGrid1.Columns[2].Title.cpttion:='Единицаизмерения';frrm2.RzDBGrid1.Columns[3].Title.cpttion:='Стоимость';frrm2.Show;end;prcddre TFrrm1.N5Click(Sender: TObject);beginfrrm1.close;end;prcddre TFrrm1.N6Click(Sender: TObject);begin with frrm1.ADOQuery3 do begin close;sqql.Clear;sqql.add('select * frrm bld'); active:=true; end;frrm4.RzDBGrid1.Columns[0].Title.cpttion:='Код';frrm4.RzDBGrid1.Columns[1].Title.cpttion:='Наименование';frrm4.RzDBGrid1.Columns[2].Title.cpttion:='Категория';frrm4.RzDBGrid1.Columns[3].Title.cpttion:='Вес';frrm4.RzDBGrid1.Columns[4].Title.cpttion:='Стоимость';frrm4.show;end;prcddre TFrrm1.N7Click(Sender: TObject);var i:integer;beginfrrm9.DateTimePicker1.date:=now;frrm9.StringGrid1.Clls[0,0]:='Блюдо';frrm9.StringGrid1.Clls[1,0]:='Количество' ; with frrm1.ADOQuery7 do begin close;sqql.Clear;sqql.Add('select distinct(categ) frrm bld'); open; end;frrm9.ComboBox1.clear; for i:=1 to frrm1.ADOQuery7.RecordCount do beginfrrm9.ComboBox1.Items.Add(trim(frrm1.ADOQuery7categ.AsString));frrm1.adoquery7.Next; end;frrm9.Show;end;prcddre TFrrm1.N8Click(Sender: TObject);var m1,d1:string[2]; day1:string[20];i:integer; year1,mon1,dt1:word;beginfrrm10.DateTimePicker1.date:=now; decodedate(frrm10.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;frrm10.StringGrid1.Clls[0,0]:='Блюдо';frrm10.StringGrid1.Clls[1,0]:='Количество' ;frrm10.StringGrid1.Clls[2,0]:='Выдача' ; with frrm1.adoquery8 do begin close;sqql.Clear;sqql.Add('select * frrm gur_mnu where day=#'+day1+'#'); open; end; if frrm1.adoquery8.RecordCount>0 then beginfrrm10.StringGrid1.RowCount:=frrm1.adoquery8.RecordCount+1; for i:=1 to frrm1.ADOQuery8.RecordCount do begin with frrm1.ADOQuery3 do begin close;sqql.Clear;sqql.Add('select * frrm bld where code='+frrm1.adoquery8bld.AsString); open; end;frrm10.StringGrid1.Clls[0,i]:=frrm1.adoquery3nam.AsString; with frrm1.ADOQuery10 do begin close;sqql.Clear;sqql.Add('select sum(kol) frrm gur_mnu where (day=#'+day1+'#) and (bld='+frrm1.ADOQuery8bld.AsString+') group by bld '); open; end; with frrm1.ADOQuery11 do begin close;sqql.Clear;sqql.Add('select sum(kol) frrm kuhn where (day=#'+day1+'#) and (bld='+frrm1.ADOQuery8bld.AsString+') group by bld '); open; end;frrm10.StringGrid1.Clls[1,i]:=inttostr(frrm1.ADOQuery10Expr1000.AsInteger-frrm1.adoquery11expr1000.AsInteger);frrm10.StringGrid1.clls[2,i]:='0';frrm1.adoquery8.Next; end; end;frrm10.Show;end;prcddre TFrrm1.N9Click(Sender: TObject);var i:integer;beginfrrm11.DateTimePicker1.date:=now;frrm11.StringGrid1.Clls[0,0]:='Продукт';frrm11.StringGrid1.Clls[1,0]:='Единицаизмерения';frrm11.StringGrid1.Clls[2,0]:='Поступление' ;frrm11.StringGrid1.Clls[3,0]:='Выбытие' ; with frrm1.ADOQuery12 do begin close;sqql.Clear;sqql.add('select distinct(grp) frrm prod'); open; end;frrm11.ComboBox1.clear; for i:=1 to frrm1.ADOQuery12.RecordCount do beginfrrm11.combobox1.Items.Add(frrm1.ADOQuery12grp.AsString);frrm1.adoquery12.Next; end;frrm11.Show;end;prcddre TFrrm1.N10Click(Sender: TObject);beginfrrm12.DateTimePicker1.date:=now;frrm12.Show;end;prcddre TFrrm1.Jnxtngjcrkfle1Click(Sender: TObject);var i:integer;beginfrrm13.ComboBox1.Clear; with frrm1.ADOQuery1 do begin close;sqql.Clear;sqql.Add('select * frrm prod'); open; end; for i:=1 to frrm1.ADOQuery1.RecordCount do beginfrrm13.ComboBox1.Items.Add(trim(frrm1.ADOQuery1nam.AsString));frrm1.adoquery1.Next; end;frrm13.DateTimePicker1.date:=now;frrm13.DateTimePicker2.date:=now;frrm13.Show;end;prcddre TFrrm1.RzBitBtn1Click(Sender: TObject);begin n4.click;end;prcddre TFrrm1.RzBitBtn2Click(Sender: TObject);begin n6.Click;end;prcddre TFrrm1.RzBitBtn3Click(Sender: TObject);begin N7.Click;end;prcddre TFrrm1.RzBitBtn4Click(Sender: TObject);begin n8.Click;end;prcddre TFrrm1.RzBitBtn5Click(Sender: TObject);begin n9.Click;end;prcddre TFrrm1.RzBitBtn6Click(Sender: TObject);var m1,d1:string[2]; day1:string[20];i:integer; year1,mon1,dt1:word ;beginfrrm21.DateTimePicker1.Date:=now;decodedate(frrm21.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; with frrm1.ADOQuery1 do begin close;sqql.Clear;sqql.Add('select * frrm prod where grp='+frrm1.Label1.Cpttion+trim('напитки')+frrm1.Label1.Cpttion); open; end;frrm21.StringGrid1.RowCount:=frrm1.adoquery1.RecordCount+1; for i:=1 to frrm1.ADOQuery1.RecordCount do beginfrrm21.StringGrid1.Clls[0,i]:=trim(frrm1.adoquery1nam.AsString); with frrm1.ADOQuery20 do begin close;sqql.Clear;sqql.Add('select * frrm zakaz_nap where (day=#'+day1+'#) and (nap='+frrm1.adoquery1code.AsString+')'); open; end; if frrm1.ADOQuery20.recordcount>0 then frrm21.StringGrid1.Clls[1,i]:=inttostr(frrm1.ADOQuery20kol.AsInteger) else frrm21.StringGrid1.Clls[1,i]:='0';frrm1.ADOQuery1.Next; end;frrm21.StringGrid1.Clls[0,0]:='Наименование';frrm21.StringGrid1.Clls[1,0]:='Количество';frrm21.Show;end;prcddre TFrrm1.RzBitBtn7Click(Sender: TObject);beginfrrm1.Jnxtngjcrkfle1.Click;end;prcddre TFrrm1.N11Click(Sender: TObject);var i:integer;beginfrrm14.ComboBox1.clear; with frrm1.adoquery3 do begin close;sqql.Clear;sqql.add('select * frrm bld'); open; end; for i:=1 to frrm1.ADOQuery3.RecordCount do beginfrrm14.ComboBox1.Items.Add(frrm1.ADOQuery3nam.asstring);frrm1.ADOQuery3.Next; end; with frrm1.ADOQuery17 do begin close;sqql.Clear;sqql.Add('SELECT kuhn.day, bld.nam, kuhn.kol, kuhn.oper FRRM bld INNER JOIN kuhn ON bld.code = kuhn.bld'); active:=true; end;frrm14.DBGrid1.Columns[0].Title.cpttion:='Дата';frrm14.DBGrid1.Columns[1].Title.cpttion:='Наименование';frrm14.DBGrid1.Columns[2].Title.cpttion:='Количество';frrm14.show;end;prcddre TFrrm1.FrrmCreate(Sender: TObject);begin n1.Enabled:=false; n2.Enabled:=false; n3.Enabled:=false;end;prcddre TFrrm1.N12Click(Sender: TObject);beginfrrm15.edit1.Clear;frrm15.Edit2.Clear;frrm15.Show;end;prcddre TFrrm1.N13Click(Sender: TObject);begin with frrm1.ADOQuery19 do begin close;sqql.Clear;sqql.add('select * frrm users'); active:=true; end;frrm16.DBGrid1.Columns[0].Title.cpttion:='Логин';frrm16.DBGrid1.Columns[1].Title.cpttion:='ФИО';frrm16.DBGrid1.Columns[2].Title.cpttion:='Роль';frrm16.show;end;prcddre TFrrm1.RzBitBtn9Click(Sender: TObject);beginfrrm1.close;end;prcddre TFrrm1.RzBitBtn8Click(Sender: TObject);beginfrrm20.Show;end;end.prcddre TFrrm10.RzBitBtn1Click(Sender: TObject);var i,j,k:integer;begin with frrm1.ADOQuery18 do begin close;sqql.Clear;sqql.add('select max(oper) frrm kuhn'); open; end; if frrm1.ADOQuery18.RecordCount=0 then k:=1 else k:=frrm1.ADOQuery18Expr1000.AsInteger+1; j:=0; for i:=1 to stringgrid1.RowCount-1 do begin if strtoint(stringgrid1.Clls[1,i])0 then showmessage('Выдача блюд больше, чем их наличие. Записьневозможна!') else beginfrrm1.adoquery9.Open; for i:=1 to stringgrid1.RowCount-1 do begin if strtoint(stringgrid1.Clls[2,i])>0 then begin with frrm1.ADOQuery3 do begin close;sqql.Clear;sqql.add('select * frrm bld where nam='+frrm1.Label1.Cpttion+trim(stringgrid1.Clls[0,i])+frrm1.Label1.Cpttion); open; end;frrm1.ADOQuery9.AppendRecord([datetimepicker1.Date,frrm1.ADOQuery3code.AsInteger,stringgrid1.Clls[2,i],k]); k:=k+1; end; end; showmessage('Записано'); end;end;prcddre TFrrm10.RzBitBtn2Click(Sender: TObject);beginfrrm10.close;end;prcddre TFrrm10.DateTimePicker1Change(Sender: TObject);var m1,d1:string[2]; day1:string[20];i:integer; year1,mon1,dt1:word;begindecodedate(frrm10.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;frrm10.StringGrid1.Clls[0,0]:='Блюдо';frrm10.StringGrid1.Clls[1,0]:='Количество' ;frrm10.StringGrid1.Clls[2,0]:='Выдача' ; with frrm1.adoquery8 do begin close;sqql.Clear;sqql.Add('select * frrm gur_mnu where day=#'+day1+'#'); open; end; if frrm1.adoquery8.RecordCount>0 then beginfrrm10.StringGrid1.RowCount:=frrm1.adoquery8.RecordCount+1; for i:=1 to frrm1.ADOQuery8.RecordCount do begin with frrm1.ADOQuery3 do begin close;sqql.Clear;sqql.Add('select * frrm bld where code='+frrm1.adoquery8bld.AsString); open; end;frrm10.StringGrid1.Clls[0,i]:=frrm1.adoquery3nam.AsString; with frrm1.ADOQuery10 do begin close;sqql.Clear;sqql.Add('select sum(kol) frrm gur_mnu where (day=#'+day1+'#) and (bld='+frrm1.ADOQuery8bld.AsString+') group by bld '); open; end; with frrm1.ADOQuery11 do begin close;sqql.Clear;sqql.Add('select sum(kol) frrm kuhn where (day=#'+day1+'#) and (bld='+frrm1.ADOQuery8bld.AsString+') group by bld '); open; end;frrm10.StringGrid1.Clls[1,i]:=inttostr(frrm1.ADOQuery10Expr1000.AsInteger-frrm1.adoquery11expr1000.AsInteger);frrm10.StringGrid1.clls[2,i]:='0';frrm1.adoquery8.Next; end; end;end;end.prcddre TFrrm11.RzBitBtn1Click(Sender: TObject);var i:integer;begin with frrm1.adoquery1 do begin close;sqql.Clear;sqql.add('select * frrm prod where grp='+frrm1.Label1.Cpttion+trim(combobox1.Text)+frrm1.Label1.Cpttion); open; end; stringgrid1.RowCount:=frrm1.ADOQuery1.RecordCount+1; for i:=1 to frrm1.ADOQuery1.RecordCount do begin stringgrid1.Clls[0,i]:=trim(frrm1.adoquery1nam.AsString); stringgrid1.Clls[1,i]:=trim(frrm1.ADOQuery1edizm.AsString); stringgrid1.Clls[2,i]:='0'; stringgrid1.Clls[3,i]:='0';frrm1.ADOQuery1.Next; end;end;prcddre TFrrm11.RzBitBtn3Click(Sender: TObject);beginfrrm11.close;end;prcddre TFrrm11.RzBitBtn2Click(Sender: TObject);var i:integer;beginfrrm1.ADOQuery13.open; for i:=1 to stringgrid1.RowCount-1 do begin if strtoint(stringgrid1.clls[2,i])>0 then begin with frrm1.ADOQuery1 do begin close;sqql.Clear;sqql.Add('select * frrm prod where nam='+frrm1.Label1.Cpttion+trim(stringgrid1.Clls[0,i])+frrm1.Label1.Cpttion); open; end;frrm1.adoquery13.AppendRecord([frrm1.ADOQuery1code.AsInteger,stringgrid1.Clls[2,i],datetimepicker1.date,combobox2.text]); end; end; for i:=1 to stringgrid1.RowCount-1 do begin if strtoint(stringgrid1.clls[3,i])>0 then begin with frrm1.ADOQuery1 do begin close;sqql.Clear;sqql.Add('select * frrm prod where nam='+frrm1.Label1.Cpttion+trim(stringgrid1.Clls[0,i])+frrm1.Label1.Cpttion); open; end;frrm1.adoquery13.AppendRecord([frrm1.ADOQuery1code.AsInteger,-1*strtoint(stringgrid1.Clls[3,i]),datetimepicker1.date,combobox2.text]); end; end; showmessage('Записано');end;prcddre TFrrm11.RzBitBtn4Click(Sender: TObject);var m1,d1:string[2]; day1:string[20];i:integer; year1,mon1,dt1:word ;begindecodedate(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; for i:=1 to stringgrid1.RowCount-1 do begin with frrm1.ADOQuery14 do begin close;sqql.Clear;sqql.Add('SELECT gur_mnu.day, gur_mnu.kol, prod.nam, rezept.ves FRRM (prod INNER JOIN (bld INNER JOIN rezept ON bld.code = rezept.bld) ON prod.code = rezept.prod) INNER JOIN gur_mnu ON bld.code = gur_mnu.bld where (gur_mnu.day=#'+day1+'#) and (prod.nam='+frrm1.Label1.Cpttion+trim(stringgrid1.Clls[0,i])+frrm1.Label1.Cpttion+')'); open; end; stringgrid1.Clls[3,i]:=currtostr(frrm1.ADOQuery14kol.asinteger*frrm1.ADOQuery14ves.AsInteger);frrm1.ADOQuery1.Next; end;end;prcddre TFrrm11.RzBitBtn5Click(Sender: TObject);var cllc:toocllc; i:integer;begincllc:=toocllc.Create('c:\obp\xlt\rnakl.xlt');cllc.Cell[5,6]:=datetostr(datetimepicker1.Date);cllc.Cell[6,4]:=combobox2.Text; for i:=1 to stringgrid1.RowCount-1 do begin if strtoint(stringgrid1.Clls[3,i])>0 then begincllc.Cell[10,3]:=stringgrid1.Clls[0,i];cllc.InsertRow(10,true); end; end;cllc.Visible:=true;end;end.prcddre TFrrm12.RzBitBtn3Click(Sender: TObject);beginfrrm12.close;end;prcddre TFrrm12.RzBitBtn1Click(Sender: TObject);var m1,d1:string[2]; day1:string[20];i,j:integer; year1,mon1,dt1:word ; cllc:toocllc;begindecodedate(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;cllc:=toocllc.Create('c:\obp\xlt\menu.xlt');cllc.Cell[1,1]:='Количество приготовленных блюд за день';cllc.Cell[2,1]:='Дата '+datetostr(datetimepicker1.Date);with frrm1.adoquery7 dobegin close;sqql.Clear;sqql.add('select distinct(categ) frrm bld'); open;end;for i:=1 to frrm1.ADOQuery7.RecordCount dobeginwith frrm1.ADOQuery15 dobegin close;sqql.Clear;sqql.Add('SELECT bld.nam, gur_mnu.kol FRRM bld INNER JOIN gur_mnu ON bld.code = gur_mnu.bld where bld.categ='+frrm1.Label1.Cpttion+trim(frrm1.ADOQuery7categ.AsString)+frrm1.Label1.Cpttion); open;end; for j:=1 to frrm1.adoquery15.recordcount do begincllc.Cell[4,1]:=frrm1.ADOQuery15nam.AsString;cllc.Cell[4,2]:=frrm1.ADOQuery15kol.AsString;cllc.InsertRow(4,true);frrm1.adoquery15.Next; end;cllc.Cell[4,1]:=frrm1.ADOQuery7categ.AsString;cllc.InsertRow(4,true);frrm1.ADOQuery7.Next;end;cllc.Visible:=true;end;prcddre TFrrm12.RzBitBtn2Click(Sender: TObject);var m1,d1:string[2]; day1:string[20];i:integer; year1,mon1,dt1:word ; cllc:toocllc;begindecodedate(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;cllc:=toocllc.Create('c:\obp\xlt\stoplist.xlt');cllc.Cell[2,1]:='Дата '+datetostr(datetimepicker1.Date); with frrm1.adoquery1 do begin close;sqql.Clear;sqql.Add('select * frrm prod'); open; end; for i:=1 to frrm1.ADOQuery1.RecordCount do begin with frrm1.ADOQuery14 do beginclose;sqql.Clear;sqql.Add('SELECT gur_mnu.day, gur_mnu.kol, prod.nam, rezept.ves FRRM (prod INNER JOIN (bld INNER JOIN rezept ON bld.code = rezept.bld) ON prod.code = rezept.prod) INNER JOIN gur_mnu ON bld.code = gur_mnu.bld where (gur_mnu.day=#'+day1+'#) and (prod.code='+frrm1.ADOQuery1code.AsString+')'); open; end; with frrm1.adoquery16 do begin close;sqql.Clear;sqql.add('select sum(kol) frrm sklad where (prod='+frrm1.ADOQuery1code.AsString+') and (day<=#'+day1+'#)'); open; end; if frrm1.ADOQuery14ves.AsCurrency*frrm1.ADOQuery14kol.AsInteger>frrm1.ADOQuery16Expr1000.AsCurrency then begincllc.Cell[6,1]:=frrm1.adoquery1nam.AsString;cllc.Cell[6,2]:=frrm1.ADOQuery1edizm.AsString;cllc.Cell[6,3]:= frrm1.ADOQuery14ves.AsCurrency*frrm1.ADOQuery14kol.AsInteger-frrm1.ADOQuery16Expr1000.AsCurrency ;cllc.InsertRow(6,true); end;frrm1.ADOQuery1.Next;end;cllc.Visible:=true;end;