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

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);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

LucValues, ResultField:Variant;

implementation

{$R *.dfm}

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

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;

button1.Enabled:=true;

button3.Enabled:=false;

end;

procedure TForm5.Button1Click(Sender: TObject);

var s:integer;

begin

form6.label4.Caption:=edit1.text;

s:=0;

LucValues := edit1.Text;

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

s:=ResultField;

form6.ADOQuery2.SQL.Clear;

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

form6.ADOQuery2.Active:=true;

form6.ComboBox1.Clear;

orm6.ADOQuery1.First;

WHILE not form6.ADOQuery1.Eof DO begin

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

form6.ADOQuery1.Next;

end;

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

form6.ShowModal;

end;

procedure TForm5.Button2Click(Sender: TObject);

begin

close;

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);

procedure FormCreate(Sender: TObject);

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; информационный система база данные

procedure TForm6.FormCreate(Sender: TObject);

begin

end;

При запуске программы появляется окно входа в программу:

Программа работает в двух режимах:

Пользователь

Администратор

Расчет дополнительной заработной платы разработчиков программы

В статье "Дополнительная заработная плата" планируются и учитываются выплаты, предусмотренные законодательством о труде или коллективными договорами за непроработанное на производстве (неявочное) время: оплата очередных и дополнительных отпусков, компенсация за неиспользованный отпуск, оплата льготных часов подросткам, оплата времени, связанного с выполнением государственных и общественных обязанностей и др. Она определяется в процентном отношении основной заработной платы.

Здоп. = Кдоп. * Зосн

где

Кдоп. - коэффициент, учитывающий величину дополнительной зарплаты разработчиков программы. Примем Кдоп. равным 0,3;

Зосн. - затраты на основную заработную плату.

На основе формулы (4.0) определяем:

Расчет накладных расходов

В статью "Накладные расходы" включаются расходы на управление и хозяйственное обслуживание. По этой статье учитывается заработная плата аппарата управления и общехозяйственных служб, затраты на содержание и текущий ремонт зданий, сооружений, оборудования и инвентаря, амортизационные отчисления на их полное восстановление и капитальный ремонт, расходы по охране труда, научно-технической информации, изобретательству и рационализации. Величина накладных расходов определяется в процентах от основной и дополнительной заработной платы.

Накладные расходы (Рнакл.) рассчитываются по формуле:

Рнакл.=Кн * (Зосн.+Здоп.)

где

Кн - коэффициент накладных расходов. Примем Кн равным 1.1.

Зосн. - затраты на основную заработную плату;

Здоп. - затраты на дополнительную заработную плату.

На основе формулы (4.0) определяем:

Рнакл. = 1.1 * (60428,20+ 18128,46) = 86412,33 руб.

Результаты расчета затрат на разработку информационной системы предприятия сведем в таблицу (Таблица 4.4).

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

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

- основная заработная плата обслуживающего персонала системы;

- дополнительная заработная плата обслуживающего персонала системы;

- отчисления на социальные страхования;

- расчет затрат на амортизацию ЭВМ;

- расходы на электроэнергию, используемую при эксплуатации информационной системы;

- накладные расходы.

При расчетах используем те же формулы, что и в предыдущем разделе.

Примем в нашем проекте:

Омес. руководителя разработки программы = 8500 руб.;

Омес. системного инженера, осуществляющего эксплуатацию информационной системы = 7500 руб.;

Др.мес. = 21 день;

Кд = 1,2.

Результаты расчета затрат на основную заработную плату обслуживающего персонала информационной системы представлены в таблице (Таблица 4.5).

Таблица 4.5

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

Отпускная цена (ОЦ) разрабатываемой системы определяется как сумма полной себестоимости, планируемой прибыли и НДС.

Планируемая прибыль составляет 15% от полной себестоимости.

НДС составляет 20% от суммы полной себестоимости и планируемой прибыли.

ОЦ = (Сполн.+Пр.пл.+НДС) = (197619,68 + 29642,95 + 45452,53) = =272715,16 руб.

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

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

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

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

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

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

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

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

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

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

ГЛАВА 5. ЭКОЛОГИЧЕСКИЕ ТРЕБОВАНИЯ К ОХРАНЕ ТРУДА

Требования к ПЭВМ

ПЭВМ должны соответствовать требованиям санитарных правил и каждый их тип подлежит санитарно-эпидемиологической экспертизе с оценкой в испытательных лабораториях, аккредитованных в установленном порядке.

Концентрации вредных веществ, выделяемых ПЭВМ в воздух помещений, не должны превышать предельно допустимых концентраций (ПДК), установленных для атмосферного воздуха.

Мощность экспозиционной дозы мягкого рентгеновского излучения в любой точке на расстоянии 0,05 м от экрана и корпуса ВДТ (на электроннолучевой трубке) при любых положениях регулировочных устройств не должна превышать 1 мкЗв/час (100 мкР/час).

Конструкция ПЭВМ должна обеспечивать возможность поворота корпуса в горизонтальной и вертикальной плоскости с фиксацией в заданном положении для обеспечения фронтального наблюдения экрана ВДТ. Дизайн ПЭВМ должен предусматривать окраску корпуса в спокойные мягкие тона с диффузным рассеиванием света. Корпус ПЭВМ, клавиатура и другие блоки и устройства ПЭВМ должны иметь матовую поверхность с коэффициентом отражения 0,4 - 0,6 и не иметь блестящих деталей, способных создавать блики.

Конструкция ВДТ должна предусматривать регулирование яркости и контрастности.

Документация на проектирование, изготовление и эксплуатацию ПЭВМ не должна противоречить требованиям санитарных правил.

Требования к мониторам (ВДТ) и ПЭВМ

Конструкция монитора (видео терминального устройства - ВДТ) должна обеспечивать возможность фронтального наблюдения экрана путем поворота корпуса в горизонтальной плоскости вокруг вертикальной оси в пределах ± 30° и в вертикальной плоскости вокруг горизонтальной оси в пределах ± 30° с фиксацией в заданном положении. Дизайн мониторов должен предусматривать окраску в спокойные мягкие тона с диффузным рассеиванием света. Корпус монитора и ПЭВМ, клавиатура должны иметь матовую поверхность одного цвета с коэффициентом отражения 0,4 - 0,6 и не иметь блестящих деталей, способных создавать блики.

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

ВДТ и ПЭВМ должны обеспечивать мощность экспозиционной дозы рентгеновского излучения в любой точке на расстоянии 0,05м. от экрана и корпуса монитора при любых положениях регулировочных устройств не должна превышать 7,74х10 А/кг, что соответствует эквивалентной дозе, равной 0,1 мбэр/час (100 мкР/час).

5.2 Требования к помещениям для эксплуатации мониторов и ПЭВМ

Примечания: к категории 1а относятся работы, производимые сидя и не требующие физического напряжения, при которых расход энергии составляет до 120 ккал/ч; к категории 1б относятся работы, производимые сидя, стоя или связанные с ходьбой и сопровождающиеся некоторым физическим напряжением, при которых расход энергии составляет от 120 до 150 ккал/ч.

В производственных помещениях, в которых работа с мониторами и ПЭВМ является основной (диспетчерские, операторские, расчетные, кабины и посты управления, залы вычислительной техники и др.) должны обеспечиваться оптимальные параметры микроклимата. На других рабочих местах следует поддерживать параметры микроклимата на допустимом уровне, соответствующем требованиям нормативов.

Для повышения влажности воздуха в помещениях с мониторами ПЭВМ следует применять увлажнители воздуха, заправляемые ежедневно дистиллированной или прокипяченной питьевой водой.

В помещениях, оборудованных ПЭВМ, проводится ежедневная влажная уборка и систематическое проветривание после каждого часа работы на ПЭВМ.

Уровни положительных и отрицательных аэроионов в воздухе помещений, где расположены ПЭВМ, должны соответствовать действующим санитарно-эпидемиологическим нормативам.

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

Содержание вредных химических веществ в производственных помещениях, в которых работа с использованием ПЭВМ является основной (диспетчерские, операторские, расчетные, кабины и посты управления, залы вычислительной техники и др.), не должно превышать предельно допустимых концентраций загрязняющих веществ в атмосферном воздухе населенных мест в соответствии с действующими гигиеническими нормативами. [27]

5.4 Требования к уровням шума и вибрации на рабочих местах, оборудованных ПЭВМ

В производственных помещениях при выполнении основных или вспомогательных работ с использованием ПЭВМ уровни шума на рабочих местах не должны превышать предельно допустимых значений, установленных для данных видов работ в соответствии с действующими санитарно-эпидемиологическими нормативами.

При выполнении работ с использованием ПЭВМ в производственных помещениях уровень вибрации не должен превышать допустимых значений вибрации для рабочих мест в соответствии с действующими санитарно-эпидемиологическими нормативами.

Шумящее оборудование (печатающие устройства, серверы и т.п.), уровни шума которого превышают нормативные, должно размещаться вне помещений с ПЭВМ.

5.5 Требования к освещению на рабочих местах, оборудованных ПЭВМ