На рисунке 40 показан режим формирования отчета по рекомендациям в части корректировки физических нагрузок. Пользователю необходимо отметить перечень рекомендованных упражнений, после чего программа вычисляет время их выполнения и выводит результаты в отчет (рисунок 41). В случае, если диета соблюдается и нет лишних потребленных калорий, то выдается сообщение (рисунок 38), если не выбран ни один из видов рекомендаций, то также выдается сообщение (рисунок 42).Рисунок — Формирование рекомендаций для фитнес-центра.
Рекомендации по физическим нагрузкам.
Необходим расход калорий:
562ФИО клиента:
Шишкина Мария Владимировна.
Вид физической нагрузки.
Продолжительность, мин.
Аэробика 21Прыжки через скакалку 13Спортивная ходьба 17Эллиптический тренажер 8Рисунок — Результат формирования отчета по рекомендациям для фитнес-центра.
Рисунок — Сообщение об отсутствии необходимых рекомендаций при соблюдении клиентами необходимой диеты.
Рисунок — Сообщение об отсутствии выбранных видов рекомендаций.
Ограничения на количество записей, типы вводимой информации связаны с ограничениями MSSQLServer. В рамках данной работы использована версия Express, ограничения которой [2]: — количество одновременных подключений: не более 32 767;
— по памяти: 1ГБ;
— размер базы данных: не более 4ГБ. Формирование данного отчета позволяет значительно сократить время расчета необходимых рекомендаций для комплекса упражнений. Таким образом, все задачи автоматизации реализованы в рамках данной работы.
Заключение
.
В рамках данной работы проведено исследование технологии автоматизации для процессов работы диетологов фитнес-центров.В процессе выполнения исследования современных методов сбора статистики, была выявлена проблема, касающаяся процесса сбора внутренней статистики, которая может оказать существенное влияние на процесс оптимизации работы фитнес-центра. Автоматическое отслеживание процесса соблюдения требований диетологии при работе с программами фитнес-центров, помогут ускорить работу ООО «Фитнес» в целом. Помимо этого, данная информация будет полезна в распределении заданий по будущим проектам, либо при реинжиниринге ключевых бизнес процессов диетологии. Основная информация для начала разработки, такая как входные и выходные данные, стратегия, цели и задачи информационного агентства, а также слабые места в ключевых процессах были выявлены в процессе составления построения полной модели организации. В рамках данной работы проведен анализ объекта автоматизации — центра фитнеса и диетологии. В качестве объекта исследования было выбрано рабочее место специалиста ООО «Фитнес». В ходе работы была изучена специфика предприятия, изучена технология работы специалистов. В рамках анализа бизнес-процессов было проведено моделирование в методологии UML: создана модель прецедентов, проведен анализ каждого из них. В качестве задач автоматизации были поставлены следующие:
составление технического задания на реализацию проекта;
— автоматизация документооборота в процессе работы с клиентами фитнес-центра;
— ведение статистической отчетности по совершенным операциям;
— автоматизация учета центра диетологии ООО «Фитнес»;
— разработка отчетных форм данной предметной области;
— оценка экономической эффективности проекта. Результатом работы явилась разработка программного решения, полностью адаптированного для работы центров фитнеса и диетологии.
Список использованных источников
.
Расчет суточной нормы калорийности. [Электронный ресурс]. Режим доступа:
http://doma-fitnes.ru/sutochnaya-norma-kalorijMSSQLServer. Особенности использования. [Электронный ресурс]. Режим доступа:
https://social.technet.microsoft.com/Forums/ru-RUГолицына, О. Л. Базы данных: Учебное пособие / О. Л. Голицына, Н. В. Максимов, И. И. Попов. — М.: Форум, 2012. — 400 c. Грекул В.
И., Денищенко Г. Н., Коровкина Н. Л. Проектирование информационных систем. —.
М.: Интернет-университет информационных технологий — М.: ИНТУИТ.ру, 2009. с. 135Гринберг, А. С. Информационные технологии управления: [Учеб. пособие для вузов по специальностям 351 400 «Прикладная информатика (по обл.)», 61 100 «Менеджмент орг.», 61 000 «Гос.
и муницип. упр." ] /А.С. Гринберг, Н. Н. Горбачев, А. С. Бондаренко.
М.: ЮНИТИ, 2010.-479 с. Диго, С. М. Базы данных: проектирование и использование: [Учеб.
для вузов по специальности «Прикладная информатика (по обл.)» ] /С.М. Диго.
М.: Финансы и статистика, 2010.-591 с. Емельянов В. И.: Основы программирования на Delphi. — М.: Высшая школа, 2005.
Зубов А.: Программирование на Delphi. — СПб.: Питер, 2005.
Ивасенко, А. Г. Информационные технологии в экономике и управлении: [учеб. пособие для вузов по специальностям & quot;Прикладная информатика (по обл.)", «Менеджмент орг.», «Гос. и муницип. упр.& quot;] /А. Г. Ивасенко, А. Ю.
Гридасов, В. А. Павленко.
М.: Кно.
Рус, 2011.-153 с. Информатика: [учеб. для вузов по специальности & quot;Прикладная информатика (по обл.)" и др. экон. специальностям] / А. Н. Гуда [и др.]; под общ. ред. В.
И. Колесникова.
М.: Дашков и К°, 2010.-399 с. Информатика: учебник для студентов вузов, обучающихся по специальности 80 801 «Прикладная информатика» и другим экономическим специальностям /[В. В. Трофимов и др.]; под ред. проф. В. В. Трофимова.
М.: Юрайт, 2010.-910 с. Информационные системы и технологии в экономике и управлении: [учеб. для вузов по специальности «Прикладная информатика (по обл.)» и др. экон. специальностям] /[В. В. Трофимов и др.]; под ред. В. В. Трофимова.
М.: Высш. образование, 2010.-480 с. Информационные технологии: [учеб. для студентов вузов, обучающихся по специальности.
80 801 «Прикладная информатика» и др. экон. специальностям / В. В. Трофимов и др.]; под ред. проф.
В. В. Трофимова.
М.: Юрайт, 2009.-624 с. Исаев, Г. Н. Информационные технологии: Учебное пособие / Г. Н. Исаев. — М.: Омега-Л, 2013. ;
464 c. Карпова, И. П. Базы данных: Учебное пособие / И. П. Карпова. — СПб.: Питер, 2013. — 240 c. Кириллов, В.В.
Введение
в реляционные базы данных.
Введение
в реляционные базы данных / В. В. Кириллов, Г. Ю. Громов. — СПб.: БХВ-Петербург, 2012.
— 464 c. Комплексная система защиты информации на предприятии. Часть 1. — М.: Московская Финансово-Юридическая Академия, 2008. — 124 с. Информационные технологии: [учеб.
для студентов вузов, обучающихся по специальности 80 801 «Прикладная информатика» и др. экон. специальностям / В. В. Трофимов и др.]; под ред. проф.
В. В. Трофимова.
М.: Юрайт, 2009.-624 с. Коноплева, И. А. Информационные технологии: учеб. пособие: [для вузов по специальности «Прикладная информатика (по областям)] /И. А. Коноплева, О. А. Хохлова, А. В. Денисов.
М.: Проспект, 2010.-294 с. Кудинов, Ю. И. Основы современной информатики: учеб. пособие для студентов вузов, обучающихся по специальности «Прикладная информатика» /Ю. И. Кудинов, Ф. Ф. Пащенко.
СПб.: Лань, 2009.-255 с. Приложение 1Генерация таблиц базы данныхCREATETABLE[dbo]. calend]([code][int]NOTNULL,[code_cli][int]NULL,[day][datetime]NULL,[code_pr][int]NULL,[ves][int]NULL, CONSTRAINT[PK_calend]PRIMARYKEYCLUSTEREDCREATETABLE[dbo]. clients]([code_cli][int]NOTNULL,[fio][nvarchar](50)NULL,[dtr][datetime]NULL,[pol][nvarchar](1)NULL,[koef][money]NULL,[ves][int]NULL,[rost][int]NULL,[norma][money]NULL, CONSTRAINT[PK_clients]PRIMARYKEYCLUSTEREDCREATETABLE[dbo]. prod]([code_pr][int]NOTNULL,[nam][nvarchar](50)NULL,[calor][int]NULL,[bel][money]NULL,[zr][money]NULL,[ugl][money]NULL, CONSTRAINT[PK_prod]PRIMARYKEYCLUSTEREDПредставление по расчету нормы белков, жиров, углеводовSELECT dbo.clients.fio, SUM (dbo.calend.ves * dbo.prod.bel) AS s1, SUM (dbo.calend.ves * dbo.prod.zr) AS s2, SUM (dbo.calend.ves * dbo.prod.ugl) AS s3FROM dbo. calend INNER JOINdbo. clients ON dbo.calend.code_cli = dbo.clients.code_cli INNER JOINdbo. prod ON dbo.calend.code_pr = dbo.prod.code_prGROUP BY dbo.clients.fioПриложение 2Программныекоды (фрагмент).
1.Процедура записи в справочник клиентов и расчета нормы калорийности. procedure TForm3.RzBitBtn1Click (Sender: TObject);varkoef, norma, vzr: currency; pol: string[1]; beginif combobox1. Text='мужской' then pol:='м' else pol:='ж';//расчеткоэффициентафизическихнагрузокif radiobutton1. Checked=true then koef:=1.2;if radiobutton2. Checked=true then koef:=1.375;if radiobutton3. Checked=true then koef:=1.55;if radiobutton4. Checked=true then koef:=1.75;if radiobutton5. Checked=true then koef:=1.9;//Расчет возраста в годахvzr:=(now-datetimepicker1.Date)/365;ifpol='м' thenbegin//Расчет нормы потребления калорий для мужчинnorma:=int (koef*(66+13*strtoint (edit3.Text)+5*strtoint (edit4.Text)-6.8*vzr));endelsebegin//Расчет нормы потребления калорий для женщинnorma:=int (koef*(655+9.6*strtoint (edit3.Text)+1.8*strtoint (edit4.Text)-4.7*vzr));end;//вывод на экран норму калорийedit5. Text:=currtostr (norma);//Записьвсправочникинформацииоклиентеform1.ADOQuery1.AppendRecord ([edit1.Text, edit2. Text, datetimepicker1. Date, pol, koef, edit3. Text, edit4. Text, edit5. Text]);//получениеновогоидентификатораedit1.Text:=inttostr (1+strtoint (edit1.Text));//очистка полей перед вводом нового клиентаedit2. Clear; edit3. Clear; edit4. Clear; edit5. Clear;showmessage ('Записано');end;2. Формирование отчета о соблюдении режима питанияprocedure TForm7. RzBitBtn1Click (Sender: TObject);varExcelApp:variant; i: integer;begin //загрузкашаблонаExcelExcelApp :=CreateOleObject ('Excel.Application');ExcelApp.workbooks.open ('C:calorxltrezim.xlt');ExcelApp.WorkSheets[1]. Activate;ExcelApp.Visible := False;//Выборка по журналу питания для выбранного из списка клиентаwith form1. ADOQuery6 dobeginclose;sql.Clear;sql.Add ('select * from view2 where code_cli='+form1.ADOQuery1code_cli.AsString);open;end;//подготовка к печати журнала питанияfori:=1 to form1. ADOQuery6.RecordCount dobegin//выводдатыexcelapp.cells[5+i, 1]: =form1.ADOQuery6day.AsString;//выводколичествапотребленныхкалорийexcelapp.cells[5+i, 2]:=form1.adoquery6potr.Asfloat; //рамкадлязаполненнойячейкиexcelapp.cells[5+i, 1]. borders. linestyle:=1;excelapp.cells[5+i, 2].borders.linestyle:=1;//выводнормыкалорийexcelapp.cells[5+i, 3]:=form1.adoquery1norma.Asfloat;excelapp.cells[5+i, 3].borders.linestyle:=1;//выводотклоненийотнормыкалорийexcelapp.cells[5+i, 4]:=form1.adoquery6potr.Asfloat-form1.adoquery1norma.Asfloat;excelapp.cells[5+i, 4].borders.linestyle:=1;//выводколичествапотребленныхбелковexcelapp.cells[5+i, 5]:=form1.adoquery6sumbel.AsFloat;excelapp.cells[5+i, 5].borders.linestyle:=1;//выводнормыпотребленныхбелковexcelapp.cells[5+i, 6]:=0.8*form1.ADOQuery1ves.AsFloat;excelapp.cells[5+i, 6].borders.linestyle:=1;//выводотклонения по белкам от нормыexcelapp. cells[5+i, 7]: =0.8*form1.ADOQuery1ves.AsFloat-form1.adoquery6sumbel.AsFloat;excelapp.cells[5+i, 7].borders.linestyle:=1;//выводсуммыпотребленныхжировexcelapp.cells[5+i, 8]:=form1.adoquery6sumzr.AsFloat;excelapp.cells[5+i, 8].borders.linestyle:=1;//выводнормыпотребленияжировif form1. ADOQuery1pol.AsString='м' then excelapp. cells[5+i, 9]: ='120' else excelapp. cells[5+i, 9]: ='110';excelapp.cells[5+i, 9].borders.linestyle:=1;//выводотклоненияпопотреблкеннымжирамif form1. ADOQuery1pol.AsString='м' then excelapp. cells[5+i, 10]: =floattostr (120-form1.adoquery6sumzr.AsFloat) else excelapp. cells[5+i, 10]: =floattostr (110-form1.adoquery6sumzr.AsFloat);//выводсуммыпотребленныхуглеводовexcelapp.cells[5+i, 11]:=form1.adoquery6sumugl.AsFloat;excelapp.cells[5+i, 11].borders.linestyle:=1;//выводнормыпотребленияуглеводовexcelapp.cells[5+i, 12]:=2*form1.ADOQuery1ves.AsFloat;excelapp.cells[5+i, 12].borders.linestyle:=1;//вывод отклонений потребления углеводов от нормыexcelapp. cells[5+i, 13]: =2*form1.ADOQuery1ves.AsFloat-form1.adoquery6sumugl.AsFloat;excelapp.cells[5+i, 13].borders.linestyle:=1;excelapp.cells[5+i, 10].borders.linestyle:=1; form1. ADOQuery6. Next;end;excelapp.cells[3,2]: =form1.ADOQuery1fio.AsString;//выводотчетанаэкранexcelapp.visible:=true;excelapp:=unassigned;end;
