Разработка автоматизированной системы определения меню питания в детских учреждениях

Разработан проект автоматизированной системы определения меню питания в детских учреждениях. Разработана структурная схема системы, разработана математическая модель, спроектирована модель базы данных, а также разработан интерфейс автоматизированной системы.

В следующей главе были реализованы основные модули автоматизированной системы определения меню питания в детских учреждениях. Была проведена опытная эксплуатация, в ходе которой были выявлены и исправлены все недостатки.

Были рассмотрены главные вопросы, касающиеся организационно-экономического процесса и автоматизации. Были проведены расчеты на:

разработку системы

заработную плату разработчикам

дополнительную заработную плату

отчисление на социальное страхование и обеспечение

амортизацию ЭВМ

электроэнергию

накладных расходов

отпускную цену разрабатываемой системы

В результате всех расчетов получилось, что на создание данного продукта - необходимо 197619,68 руб. А отпускная цена - 272715,16 руб.

Исходя из полученных результатов, можно сделать вывод, что данная система является экономически выгодной.

Были описаны необходимые требования и условия для комфортной и безопасной работы человека, находящегося в непосредственной близости от постоянно функционирующих ЭВМ.

Резюмируя всё вышеперечисленное, разработанная система может быть рекомендована для пользования в детских дошкольных учреждениях. Она позволяет повышать качество детского питания за счёт минимизации ошибок при проектировании меню.

СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ

В.П. Агальцов, Базы данных. В 2-х кн. Книга 1. Локальные базы данных: учебник. М: ИД «ФОРУМ»: ИНФРА-М, 2009.

Душин В.К., Теоретические основы информационных процессов и систем, Издательский дом «Дашков и К», Москва, 2008 г.

Фаронов В.В. Программирование баз данных в Delphi 7: Учебный курс. - СПб.: Питер, 2004 - 464 с.

Нивеницын Э.Л. Проектирование информационных систем. Разработка пользовательского интерфейса: Сб. практ. заданий для студ. спец. 351400 "Прикладная информатика (в экономике)"/Э.Л. Нивеницын, И.И. Чукляев .-Смоленск: Универсум, 2004.-32

Петров, В. Н. «Информационные системы», Санкт-Петербург 2002, «Питер», Советов, Б.Я.Базы данных: теория и практика: учебник для студ. вузов/Б.Я. Советов, В.В. Цехановский, В.Д. Чертовской.-М.:Высшая школа,2005.-463 с.

Фуфаев, Э.В. Базы данных/Э.В. Фуфаев, Д.Э. Фуфаев.-М. : Академия, 2005. - 320с

Хомоненко А.Д. Базы данных: Учеб. для вузов/А.Д. Хомоненко, В. М. Цыганков, М.Г.Мальцев; Под ред. проф. А.Д.Хомоненко.-2- е изд., доп. и перераб.-СПб.: КОРОНА принт,2002.-672 с

Кауфельд Дж., Access 2003 для "Чайников", Диалектика, Вильямс, 2003, 320 с.

Вендров, А. М. «Проектирование программного обеспечения экономических информационных систем», Москва 2006, «Финансы и статистика»

Каратыгин С. Базы данных: Простейшие средства обработки информации. Электронные таблицы. Системы управления базами данных: В 2-х т.-М.:ABF.- Компьютер для носорога: Кн.3. Носорог в море данных). Т.2(стр.412-757).-1995.-352с.

Диго, С.М.Базы данных: проектирование и использование/С. М.Диго.-М.: Финансы и статистика, 2005

Карпова, Т.С. Базы данных: модели, разработка, реализация: Учеб.-СПб.:Питер,2001.-304 с

Архангельский А.Я. Программирование в Delphi 7. -Москва, 2003, 1152 с.

Орлов, С. А. Технологии разработки программного обеспечения. Разработка сложных программных систем: Учеб. пособие для студ. вузов по спец. "Информатика и вычислит. техника".- СПб.: Питер,2002.-464 с.:

Овчинников В.Г. Методология проектирования автоматизированных информационных систем: основы системного подхода. - М.: Компания Спутник+,2005. - 285с.

Стенли Б. Липпман, Жози Лажойе, Барбара Му, Язык программирования C++. Вводный курс; изд. третье, 1195 с.

Смирнова Г. Н. Проектирование экономических информационных систем: учеб. для вузов/ Г. Н. Смирнова, А. А. Сорокин, Ю. Ф. Тельнов; - М.: Финансы и статистика, 2005. - 510 с.

ГОСТ 34.602-89 Техническое задание на создание автоматизированной системы. - М.: Изд-во стандартов, 1994.

ГОСТ 34.601-90 Информационная технология. Комплекс стандартов на автоматизированные системы. Стадии создания. - М.: Изд-во стандартов, 1991.

ГОСТ 19.101-77 Виды программ и программных продуктов.

ГОСТ 19.105-78 Общие требования к программным документам.

Маклаков С.В. BPwin и ERwin. CASE - средства разработки информационных систем.

СанПиН 2.04.05-91 “Отопление, вентиляция и кондиционирование”, 1991.

СанПиН 2.2.4.548-96 “Гигиенические требования к микроклимату производственных помещений”, 2000 г.

АННОТАЦИЯ

Данный дипломный проект посвящен теме «Разработка автоматизированной системы определения меню питания в детских учреждениях».

При проектировании системы использовались: CASE - средство ERwin 4.0, язык программирования Delphi 7.0.

Программа обладает интуитивно понятным интерфейсом.

В процессе выполнения дипломного проекта достигнуты следующие результаты:

спроектирована концептуальная модель базы данных,

спроектирована логическая модель с учетом нормализации и ссылочной целостности данных,

осуществлена выборка СУБД и построена физическая модель с определением полей и типов данных,

выбран комплекс технических средств,

реализованы основные программные модули системы,

проведен анализ экологических и учет эргономических требований при проектировании пользовательского интерфейса.

Разработанная система направлена на повышение качества детского питания за счёт минимизации ошибок при проектировании меню.

This degree project on the theme "Development of an automated positioning system menus nutrition in children's institutions."

When designing the system used: CASE - tool ERwin 4.0, the programming language Delphi 7.0.

The program has an intuitive interface.

In carrying out the graduation project achieved the following results:

* designed a conceptual model of the database

* designed a logical model, taking into account the normalization and referential integrity of data

* retrieve a database and built a physical model with the definition of fields and data types

* selected a set of technical means,

* implemented major software modules of the system,

* an analysis of environmental and accounting requirements in the design of ergonomic user interface.

The developed system aims to improve the quality of infant formula to minimize errors due to the design of the menu.

• ПРИЛОЖЕНИЕ

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, DBCtrls, DB, ADODB, Grids, DBGrids, XPMan, StdCtrls,

ToolWin, ActnMan, ActnCtrls, ActnMenus, ActnColorMaps, ComCtrls, Menus;

type

TForm1 = class(TForm)

XPManifest1: TXPManifest;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

ty1: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N12: TMenuItem;

N4: TMenuItem;

GroupBox1: TGroupBox;

DBNavigator1: TDBNavigator;

DBGrid1: TDBGrid;

DataSource1: TDataSource;

DataSource2: TDataSource;

DataSource3: TDataSource;

DataSource4: TDataSource;

DataSource5: TDataSource;

DataSource6: TDataSource;

ADOQuery4: TADOQuery;

ADOQuery5: TADOQuery;

ADOQuery6: TADOQuery;

ADOTable1: TADOTable;

DataSource7: TDataSource;

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

ADOQuery2: TADOQuery;

ADOQuery1id_product: TAutoIncField;

ADOQuery1Naimenovanie: TWideStringField;

ADOQuery1Kaloriynost: TFloatField;

ADOQuery1Belki: TFloatField;

ADOQuery1Zhiri: TFloatField;

ADOQuery1Uglevodi: TFloatField;

ADOQuery2id_record: TAutoIncField;

ADOQuery2id_bluda: TIntegerField;

ADOQuery2id_product: TIntegerField;

ADOQuery2Kolichestvo: TFloatField;

ADOQuery2Kalor: TFloatField;

ADOQuery3: TADOQuery;

ADOQuery3id_bluda: TAutoIncField;

ADOQuery3Naimenovanie: TWideStringField;

ADOQuery3id_tip: TIntegerField;

ADOQuery3Kalor: TFloatField;

Button2: TButton;

GroupBox2: TGroupBox;

DBGrid2: TDBGrid;

DBNavigator2: TDBNavigator;

ADOQuery3Tip_bluda: TStringField;

Button3: TButton;

ADOQuery4id_tip: TAutoIncField;

ADOQuery4tip_bluda: TWideStringField;

Button4: TButton;

procedure Button1Click(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure ADOQuery2CalcFields(DataSet: TDataSet);

procedure ADOQuery3CalcFields(DataSet: TDataSet);

procedure N7Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure N8Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

uses unit2, unit3, Unit4, unit5, unit6, unit7, unit8;

procedure TForm1.Button1Click(Sender: TObject);

begin

form3.ComboBox1.Text:='Пользователь';

form3.Edit2.Visible:=false;

form3.Label2.Visible:=false;

form3.Show;

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

form3.close;

end;

procedure TForm1.ADOQuery2CalcFields(DataSet: TDataSet);

begin

ADOQuery2Kalor.AsFloat:= ADOQuery2Kolichestvo.AsFloat*ADOQuery1Kaloriynost.AsFloat;

end;

procedure TForm1.ADOQuery3CalcFields(DataSet: TDataSet);

var

s:double;

begin

s:=0;

//ADOQuery3Kalor.AsFloat:=0;

ADOQuery2.SQL.Clear;

ADOQuery2.SQL.Add('select * from Технологические_карты where id_bluda='+ inttostr(ADOQuery3id_bluda.Value));

//ADOQUERY2.Open;

ADOQuery2.Active:=true;

ADOQuery2.First;

WHILE not ADOQuery2.Eof DO begin

s:=s+ADOQuery2Kalor.AsFloat;

ADOQuery2.Next;

end;

ADOQuery3Kalor.AsFloat:=s ;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

close;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

form4.showmodal;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

form5.ComboBox1.Clear;

ADOQuery4.First;

WHILE not ADOQuery4.Eof DO begin

form5.ComboBox1.Items.Add(ADOQuery4.FieldValues['tip_bluda']);

ADOQuery4.Next;

end;

form5.Button1.Enabled:=false;

form5.showmodal;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

form1.visible:=false;

form3.Show;

end;

procedure TForm1.Button4Click(Sender: TObject);

var k:integer;

begin

form6.label4.Caption:=ADOQuery3Naimenovanie.text;

k:=ADOQuery3id_bluda.AsInteger;

form6.ADOQuery2.SQL.Clear;

form6.ADOQuery2.SQL.Add('select * from Технологические_карты where id_bluda='+inttostr(k));

form6.ADOQuery2.Active:=true;

form6.ComboBox1.Clear;

form6.ADOQuery1.First;

WHILE not form6.ADOQuery1.Eof DO begin

orm6.ComboBox1.Items.Add(form6.ADOQuery1.FieldValues['Naimenovanie']);

form6.ADOQuery1.Next;

end;

form6.edit2.text:=inttostr(k);

form6.ShowModal;

end;

procedure TForm1.N9Click(Sender: TObject);

begin

GroupBox1.Visible:=true;

GroupBox2.Visible:=false;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

GroupBox1.Visible:=false;

GroupBox2.Visible:=false;

end;

procedure TForm1.N8Click(Sender: TObject);

begin

GroupBox1.Visible:=false;

GroupBox2.Visible:=true;

end;

end.

unit Unit3;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm3 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Edit2: TEdit;

Button1: TButton;

Label3: TLabel;

ComboBox1: TComboBox;

procedure ComboBox1Change(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

{$R *.dfm}

uses unit2, unit1, unit4, unit5, unit6;

procedure TForm3.ComboBox1Change(Sender: TObject);

begin

if ComboBox1.Text='Администратор'

then

begin

label2.Visible:=true;

edit2.Visible:=true;

end

else

begin

label2.Visible:=false;

edit2.Visible:=false;

end;

end;

procedure TForm3.Button1Click(Sender: TObject);

begin

if combobox1.Text='Администратор'

then form1.Visible:=true

else

form2.Visible:=true;

form3.Visible:=false;

end;

procedure TForm3.FormCreate(Sender: TObject);

begin

form3.Edit2.Visible:=false;

form3.Label2.Visible:=false;

form3.ComboBox1.Text:='Пользователь';

end;

end.

unit Unit4;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm4 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Button1: TButton;

Button2: TButton;

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

{$R *.dfm}

uses unit1, unit2, unit3, unit5, unit6;

procedure TForm4.Button2Click(Sender: TObject);

begin

close;

end;

procedure TForm4.Button1Click(Sender: TObject);

begin

form1.ADOQuery1.Insert;

form1.ADOQuery1.FieldByName('Naimenovanie').AsString:=Edit1.Text;

form1.ADOQuery1.FieldByName('Kaloriynost').Value:=Edit2.Text;

form1.ADOQuery1.FieldByName('Belki').Value:=Edit3.Text;

form1.ADOQuery1.FieldByName('Zhiri').Value:=Edit4.Text;

form1.ADOQuery1.FieldByName('Uglevodi').Value:=Edit5.Text;

form1.ADOQuery1.Post;

end;

end.

unit Unit5;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm5 = class(TForm)

Edit1: TEdit;

ComboBox1: TComboBox;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Label1: TLabel;

Label2: TLabel;

procedure Button3Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

LucValues, ResultField:Variant;

implementation

{$R *.dfm}

uses unit1, unit2, unit3, unit4, unit6;

procedure TForm5.Button3Click(Sender: TObject);

begin

form1.ADOQuery3.Insert;

form1.ADOQuery3.FieldByName('Naimenovanie').AsString:=Edit1.Text;

LucValues := ComboBox1.Text;

ResultField := form1.ADOQuery4.Lookup('tip_bluda',LucValues,'id_tip');

form1.ADOQuery3.FieldByName('id_tip').AsInteger := ResultField;

form1.ADOQuery3.Post;

end;

procedure TForm5.Button1Click(Sender: TObject);

var s:integer;

begin

LucValues := edit1.Text;

ResultField := form1.ADOQuery3.Lookup('Naimenovanie',LucValues,'id_bluda');

s:=ResultField;

form6.ShowModal;

form6.ADOQuery2.Filtered:=true;

form6.ADOQuery2.Filter:='id_bluda=1';

end;

end.

unit Unit6;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, DBCtrls, DB, ADODB, Grids, DBGrids, StdCtrls;

type

TForm6 = class(TForm)

GroupBox1: TGroupBox;

DBGrid1: TDBGrid;

ADOConnection1: TADOConnection;

DataSource1: TDataSource;

ADOQuery1: TADOQuery;

ADOQuery1id_product: TAutoIncField;

ADOQuery1Naimenovanie: TWideStringField;

ADOQuery1Kaloriynost: TFloatField;

ADOQuery1Belki: TFloatField;

ADOQuery1Zhiri: TFloatField;

ADOQuery1Uglevodi: TFloatField;

DataSource2: TDataSource;

ADOQuery2: TADOQuery;

ADOQuery2id_record: TAutoIncField;

ADOQuery2id_bluda: TIntegerField;

ADOQuery2id_product: TIntegerField;

ADOQuery2Kolichestvo: TFloatField;

ADOQuery2Kalor: TFloatField;

DataSource3: TDataSource;

ADOQuery2Product: TStringField;

DBNavigator1: TDBNavigator;

ADOQuery3: TADOQuery;

ADOQuery3id_bluda: TAutoIncField;

ADOQuery3Naimenovanie: TWideStringField;

ADOQuery3id_tip: TIntegerField;

ADOQuery3Kalor: TFloatField;

Button2: TButton;

Edit2: TEdit;

Label3: TLabel;

Label4: TLabel;

GroupBox2: TGroupBox;

ComboBox1: TComboBox;

Label1: TLabel;

Label2: TLabel;

Edit1: TEdit;

Button1: TButton;

procedure Button1Click(Sender: TObject);

procedure ADOQuery2CalcFields(DataSet: TDataSet);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

LucValues, ResultField:Variant;

implementation

{$R *.dfm}

uses unit1, unit2, unit3, unit4, unit5, unit7, unit8;

procedure TForm6.Button1Click(Sender: TObject);

begin

form6.ADOQuery2.Insert;

form6.ADOQuery2.FieldByName('id_bluda').AsString:=Edit2.Text;

LucValues := ComboBox1.Text;

ResultField := form6.ADOQuery1.Lookup('Naimenovanie',LucValues,'id_product');

form6.ADOQuery2.FieldByName('id_product').AsInteger := ResultField;

form6.ADOQuery2.FieldByName('Kolichestvo').AsString:=Edit1.Text;

form6.ADOQuery2.Post;

Combobox1.Clear;

Edit1.Clear;

end;

procedure TForm6.ADOQuery2CalcFields(DataSet: TDataSet);

begin

ADOQuery2Kalor.AsFloat:= ADOQuery2Kolichestvo.AsFloat*ADOQuery1Kaloriynost.AsFloat;

end;

end.

unit Unit7;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ComCtrls, StdCtrls;

type

TForm7 = class(TForm)

GroupBox1: TGroupBox;

MonthCalendar1: TMonthCalendar;

Edit1: TEdit;

Label1: TLabel;

Button1: TButton;

GroupBox2: TGroupBox;

Label2: TLabel;

ComboBox1: TComboBox;

Label3: TLabel;

ComboBox2: TComboBox;

Button2: TButton;

procedure MonthCalendar1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form7: TForm7;

implementation

{$R *.dfm}

uses unit1, unit2, unit3, unit4, unit5, unit6, unit8;

procedure TForm7.MonthCalendar1Click(Sender: TObject);

begin

edit1.Text:=datetostr(MonthCalendar1.Date);

end;

procedure TForm7.FormCreate(Sender: TObject);

begin

edit1.Text:=datetostr(MonthCalendar1.Date);

GroupBox2.visible:=false;

end;

procedure TForm7.Button1Click(Sender: TObject);

begin

GroupBox2.Visible:=true;

ComboBox1.Clear;

form1.ADOQuery3.First;

WHILE not form1.ADOQuery3.Eof DO begin

if {(form1.ADOQuery3Kalor.Value>405) and }(form1.ADOQuery3Kalor.Value<495) then

begin

ComboBox1.Items.Add(form1.ADOQuery3.FieldValues['Naimenovanie']);

end;

form1.ADOQuery3.Next;

end;

GroupBox1.Visible:=false;

end;

end.

Размещено на Allbest.ru