Разработка программного продукта для управления запасами кисломолочной продукции на предприятии ТОО "МИЛХ"

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

Рубрика Программирование, компьютеры и кибернетика
Вид дипломная работа
Язык русский
Дата добавления 23.04.2015
Размер файла 2,9 M

Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.

procedure TForm1.sButton6Click(Sender: TObject);

begin

Browser.Navigate(PathToMyDir+'html\info.html');

sLabel1.Caption:='Справочная информация';

end;

Процедура вызова программы приема молочной продукции. [27]

procedure TForm1.sButton7Click(Sender: TObject);

begin

form2.showmodal

end;

Процедура авторизации, служит для проверки введенных пользователем логина и пароля. [19]

procedure TForm1.FormActivate(Sender: TObject);

begin

if (form6.sEdit1.Text<>'admin')and(form6.sMaskEdit1.Text<>'pass') then

begin

MessageDlg('Логин или пароль не верны', mtError,[mbOk], 0);

close;end;

datamodule3.TzDbf1.DbfFileName:=PathToMyDir+'data\main.dbf';

datamodule3.TzDbf1.Active:=true;

end;

Процедура вызова программы вывода запасов компании в полном объеме. [8]

procedure TForm1.sButton8Click(Sender: TObject);

begin

form4.showmodal

end;

Процедура обработки действующих констант. [28]

procedure Run(App: string);

var

ErrStr: string;

PMSI: TStartupInfo;

PMPI: TProcessInformation;

begin

try

CreateProcess(nil, @App[1], nil, nil, False, NORMAL_PRIORITY_CLASS, nil, nil, PMSI, PMPI);

except

ErrStr := 'Fault run process: ''' + App + '''';

Application.MessageBox(@ErrStr[1], 'Failure process', MB_OK + MB_ICONERROR);

end; end;

Процедура запуска аналитической части программного комплекса по расчету оптимального запаса предприятия. [21]

procedure TForm1.sButton9Click(Sender: TObject);

begin

setcurrentdir('c:\prog');

ShellExecute(Handle, nil, 'c:\prog\milh\milh.exe', nil, nil, SW_SHOW);

end;

Процедура, запускаемая при открытии окна. [30]

procedure TForm1.FormShow(Sender: TObject);

begin

form6.showmodal

end;

3.3 Технологическая схема приема молока

На рисунке 3.8, вкратце, разъяснена технологическая схема приемки молока. Обязательным компонентом производства кисломолочной и сырной продукции является молоко. Фирма, закупая молоко у розничных производителей (крестьянские хозяйства и т.д.), принимает его, обрабатывает, пастеризует и сепарирует. Во время этого процесса происходит созревание сливок и сметаны, легко вырабатывает творог. При этом творог и сливки используются для производства сыра, дрожжей и закваски. При заквашивании, сквашивании и необходимом охлаждении получаем Катык, ряженку и кефир. Дополнительные формулы по расчету количества готовой продукции и ее себестоимости были предоставлены товариществом с ограниченной ответственностью "МИЛХ". Программа отлично синхронизирует вновь внесенные данные во всех доступных ячейках, при этом эти изменения не влияют на содержание базы данных, так как данные вносятся туда только при тщательной их подготовки пользователем и только при нажатии на кнопку "Принять". В теоретическом материале описывается метод исследования оптимального запаса. В данной программе он использован для подсчета запаса промежуточной продукции и ее использовании при выработке готовой продукции. Ведь в случае хорошо рассчитанного процесса, количество потерь сокращается на весомые цифры. Вот допустим при обработке молока созревают сливки и сметана, конечно, сметана уже готовый продукт, а вот сливки можно рационально использовать при выработке сыра.

Рисунок 3.8

На рисунке 3.9 показана форма с приведенным списком движения молочной продукции на сегодняшний день. Вы можете просмотреть список только тех товаров, которые находятся на складе, нажав на кнопку "Только на продажу", а нажав на кнопку "Все" снова отобразятся все данные таблицы. Результат этих действий показан на рисунке 3.10.

Процедура позволяющая определить первоначальные значения полей ввода.

procedure TForm4.FormActivate(Sender: TObject);

var

I,x: Integer;

begin

x:=0;

for I := 1 to 9 do / Iterate

begin

tedit(findcomponent('edit'+inttostr(i))).Text:=form1.M1.Lines[i+x];

inc(x);

end;

end;

Рисунок 3.9

Рисунок 3.10

Нажав на кнопку "Отпустить товар" у пользователя появляется возможность отпустить или часть товара или же все количество рисунок 3.11. При этом надо не забывать о сроке годности товара и вовремя его удалять.

Процедура сохранения оперативных данных в файл.

procedure TForm4.Button1Click(Sender: TObject);

var

I,x: Integer;

begin

x:=0;

for I := 1 to 9 do // Iterate

begin

form1.M1.Lines[i+x]:=tedit(findcomponent('edit'+inttostr(i))).Text;

inc(x);

end; // for

form1.M1.Lines.SaveToFile(GetCurrentDir+'\data\dan.ini');

close;

end;

Рисунок 3.11

Нажав на кнопку "Статистика" пользователь может просмотреть отчет о проданных товарах по дням для дальнейшей оценки рисунок 3.12.

Рисунок 3.12

Процедура определения основных элементов для дальнейшего подсчета.

procedure TForm1.DBEdit1Change(Sender: TObject);

var p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,p11,p12,p13:real;

I: Integer;

x:integer;

begin

x:=0;

if (d2.TzDbf1.State =dsedit) or (d2.TzDbf1.State =dsinsert) then

begin

if d2.TzDbf1.State =dsinsert then x:=s1.ColCount

else

begin

for I := 0 to s1.ColCount - 1 do if s1.Cells[i,0]=datetostr(d2.TzDbf1['data']) then x:=i;

end;

p1:=d2.TzDbf1['p1'];

p2:=d2.TzDbf1['p2'];

p3:=d2.TzDbf1['p3'];

p4:=d2.TzDbf1['p4'];

p5:=d2.TzDbf1['p5'];

p6:=d2.TzDbf1['p6'];

p7:=d2.TzDbf1['p7'];

p8:=p3*p7;

p9:=(p3+p4)*p7;

p10:=p6-p9;

p11:=p10+p8;

d2.TzDbf1['p8']:= p8;

d2.TzDbf1['p9']:= p9;

d2.TzDbf1['p10']:= p10;

d2.TzDbf1['p11']:= p11;

if d2.TzDbf1['loc']=false then

begin

if x=0 then p12:=p6-p7;

if x<>0 then p12:=strtofloat(s1.Cells[x-1,12])-p7;

end

else

begin

if x=0 then p12:=p6-p7 else p12:=strtofloat(s1.Cells[x-1,12])-p7+p9;

end;

d2.TzDbf1['p12']:= p12;

end;

caption:=inttostr(x); end;

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

procedure TForm1.BitBtn1Click(Sender: TObject);

var

I: Integer;

begin

s1.ColCount:=d2.TzDbf1.RecordCount;

d2.TzDbf1.First;

for I := 0 to d2.TzDbf1.RecordCount - 1 do // Iterate

begin

s1.Cells[i,0]:=datetostr(d2.TzDbf1['data']);

s1.Cells[i,1]:=floattostr(d2.TzDbf1['p1']);

s1.Cells[i,2]:=floattostr(d2.TzDbf1['p2']);

s1.Cells[i,3]:=floattostr(d2.TzDbf1['p3']);

s1.Cells[i,4]:=floattostr(d2.TzDbf1['p4']);

s1.Cells[i,5]:=floattostr(d2.TzDbf1['p5']);

s1.Cells[i,6]:=floattostr(d2.TzDbf1['p6']);

s1.Cells[i,7]:=floattostr(d2.TzDbf1['p7']);

s1.Cells[i,8]:=floattostr(d2.TzDbf1['p8']);

s1.Cells[i,9]:=floattostr(d2.TzDbf1['p9']);

s1.Cells[i,10]:=floattostr(d2.TzDbf1['p10']);

s1.Cells[i,11]:=floattostr(d2.TzDbf1['p11']);

s1.Cells[i,12]:=floattostr(d2.TzDbf1['p12']);

d2.TzDbf1.Next;

end; // for

end;

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

procedure TForm1.Button7Click(Sender: TObject);

var

I,x: Integer;

p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,p11,p12,p13:real;

begin

d2.TzDbf1.First;

for I := 0 to d2.TzDbf1.RecordCount - 1 do // Iterate

begin

d2.TzDbf1.Edit;

p1:=d2.TzDbf1['p1'];

p2:=d2.TzDbf1['p2'];

p3:=d2.TzDbf1['p3'];

p4:=d2.TzDbf1['p4'];

p5:=d2.TzDbf1['p5'];

p6:=d2.TzDbf1['p6'];

p7:=d2.TzDbf1['p7'];

p8:=p3*p7;

p9:=(p3+p4)*p7;

p10:=p6-p9;

p11:=p10+p8;

d2.TzDbf1['p8']:= p8;

d2.TzDbf1['p9']:= p9;

d2.TzDbf1['p10']:= p10;

d2.TzDbf1['p11']:= p11;

if d2.TzDbf1['loc']=false then

begin

if i=0 then p12:=p6-p7;

if i>0 then p12:=strtofloat(s1.Cells[i-1,12])-p7;

end

else

begin

if x=0 then p12:=p6-p7;

if i>0 then p12:=strtofloat(s1.Cells[i-1,12])-p7+p9;

end;

d2.TzDbf1['p12']:= p12;

d2.TzDbf1.Post;

s1.Cells[i,0]:=datetostr(d2.TzDbf1['data']);

s1.Cells[i,1]:=floattostr(d2.TzDbf1['p1']);

s1.Cells[i,2]:=floattostr(d2.TzDbf1['p2']);

s1.Cells[i,3]:=floattostr(d2.TzDbf1['p3']);

s1.Cells[i,4]:=floattostr(d2.TzDbf1['p4']);

s1.Cells[i,5]:=floattostr(d2.TzDbf1['p5']);

s1.Cells[i,6]:=floattostr(d2.TzDbf1['p6']);

s1.Cells[i,7]:=floattostr(d2.TzDbf1['p7']);

s1.Cells[i,8]:=floattostr(d2.TzDbf1['p8']);

s1.Cells[i,9]:=floattostr(d2.TzDbf1['p9']);

s1.Cells[i,10]:=floattostr(d2.TzDbf1['p10']);

s1.Cells[i,11]:=floattostr(d2.TzDbf1['p11']);

s1.Cells[i,12]:=floattostr(d2.TzDbf1['p12']);

d2.TzDbf1.Next;

end; // for

end;

Процедура запускающая форму с первоначальными данными по умолчанию.

procedure TForm1.sLabel2Click(Sender: TObject);

begin

form3.showmodal

end;

Процедура вывода диаграммы движения товаров на складе.

procedure TForm1.sLabel4Click(Sender: TObject);

begin

form4.showmodal

end;

Процедура удаления записей, предварительно опрашивающей пользователя об уверенности в их удалении.

procedure TForm1.sBitBtn1Click(Sender: TObject);

begin

if MessageDlg('Удаляем?',mtConfirmation, [mbYes, mbNo], 0) = mrYes then

begin

d2.TzDbf1.Delete;

d2.TzDbf1.Pack;

d2.TzDbf1.Refresh;

BitBtn1Click(Sender);

end;

end;

Передвижение курсора на запись назад.

procedure TForm1.sBitBtn3Click(Sender: TObject);

begin

d2.TzDbf1.Prior

end;

Передвижение курсора на запись вперед.

procedure TForm1.sBitBtn2Click(Sender: TObject);

begin

d2.TzDbf1.Next

end;

Отмена последнего действия пользователя.

procedure TForm1.sBitBtn4Click(Sender: TObject);

begin

d2.TzDbf1.Cancel;

BitBtn1Click(Sender);

end;

Процедура сохранения и обновления данных.

procedure TForm1.sBitBtn5Click(Sender: TObject);

begin

d2.TzDbf1.Post;

Button7Click(Sender);

end;

Процедура непосредственного копирования оперативных данных в базу данных.

сбыт молоко программный оператор

procedure TForm1.sBitBtn6Click(Sender: TObject);

var x1,x2,x3,x:real;

begin

Button7Click(Sender);

d2.TzDbf1.Insert;

d2.TzDbf1['p1']:=strtofloat(m1.Lines[1]);

d2.TzDbf1['p2']:=strtofloat(m1.Lines[3]);

d2.TzDbf1['p4']:=strtofloat(m1.Lines[5]);

d2.TzDbf1['p5']:=strtofloat(m1.Lines[7]);

d2.TzDbf1['p6']:=strtofloat(m1.Lines[9]);

d2.TzDbf1['p7']:=strtofloat(m1.Lines[11]);

x1:=strtofloat(m1.Lines[13]);

x2:=strtofloat(m1.Lines[15]);

x3:=strtofloat(m1.Lines[17]);

x:=round(sqrt((2*x3*d2.TzDbf1['p1'])/(d2.TzDbf1['p7']*(x1+x2))));

d2.TzDbf1['p3']:=x;

end;

Вывод страницы помощи.

procedure TForm1.sLabel3Click(Sender: TObject);

begin

form5.showmodal

end;

3.4 Теоретические исследования оптимального запаса

Переходим к пункту "Теоретические исследования". При выборе данного элемента основного меню, запускается внешний модуль, позволяющий провести столь необходимые расчеты оптимального запаса с использованием формулы Уилсона рисунок 3.13.

Рисунок 3.13

Как видно из вышеуказанного рисунка, пользователь имеет возможность добавлять, редактировать и удалять данные. При добавлении новой записи большинство полей заполняется автоматически исходя из значений по умолчанию. На рисунке 3.14 показана форма, на которой пользователь может изменить исходные значения, используемые для расчетов по формуле Уилсона.

Рисунок 3.14

Для наглядности исследования в программе имеется возможность построения диаграммы движения запасов молока рисунок 3.15 и изучения основ исследования оптимального запаса рисунок 3.16.

Рисунок 3.15

Рисунок 3.16

Процедура расчета оптимального запаса кисломолочной продукции на складе предприятия.

procedure TForm2.sEdit6Change(Sender: TObject);

var

x1,x2,x3,x4:integer;

y1,y2,y3,y4,y5,y6,y7:real;

begin

sEdit7.Text:=inttostr(100-(strtoint(sEdit2.Text)+strtoint(sEdit3.Text)+strtoint(sEdit4.Text)+strtoint(sEdit5.Text)+strtoint(sEdit6.Text)));

sEdit3.Text:=sedit2.Text;

x1:=strtoint(sEdit1.Text);

y1:=strtofloat(sEdit8.Text);

y2:=strtofloat(sEdit9.Text);

y3:=strtofloat(sEdit10.Text);

y4:=strtofloat(sEdit11.Text);

if sRadioButton1.Checked=true then

begin

sn2.Text:='0';pn2.Text:='0';

sn3.Text:='0';pn3.Text:='0';

y6:=0.3*strtofloat(pn4.Text)+0.2*y3;

y7:=0.1*strtofloat(pn4.Text)+y2*1.1+0.2*y3;

pn1.Text:=floattostr(y6+y7);

sn1.Text:=inttostr(trunc((strtoint(sEdit1.Text)*strtoint(sEdit2.Text))/100));

end;

if sRadioButton2.Checked=true then

begin

sn1.Text:='0';pn1.Text:='0';

sn3.Text:='0';pn3.Text:='0';

y6:=0.2*strtofloat(pn4.Text)+0.2*y3;

y7:=0.1*strtofloat(pn4.Text)+y2*1.1+0.2*y3;

pn2.Text:=floattostr(y6+y7);

sn2.Text:=inttostr(trunc((strtoint(sEdit1.Text)*strtoint(sEdit2.Text))/100));

end;

if sRadioButton3.Checked=true then

begin

sn2.Text:='0';pn2.Text:='0';

sn1.Text:='0';pn1.Text:='0';

y6:=0.1*strtofloat(pn4.Text)+0.2*y3;

y7:=0.1*strtofloat(pn4.Text)+y2*1.1+0.2*y3;

pn3.Text:=floattostr(y6+y7);

sn3.Text:=inttostr(trunc((strtoint(sEdit1.Text)*strtoint(sEdit2.Text))/100));

end;

sn4.Text:=inttostr(trunc((strtoint(sEdit1.Text)*strtoint(sEdit7.Text))/100));

n4.Text:=FloatToStrF(0.01*strtoint(sedit11.Text)+1.1*strtofloat(sedit9.Text)+0.2*strtoint(sedit10.Text)+strtofloat(sedit8.Text), ffnumber,2000,2);

pn5.Text:=floattostr(0.6*strtofloat(pn4.Text)+y2*1.1+0.2*y3);

pn7.Text:=floattostr(0.7*strtofloat(pn4.Text)+y2*1.1+0.2*y3);

y5:=0.5*strtofloat(pn4.Text)+y2*1.1+0.2*y3;

pn6.Text:=floattostr(4*(strtofloat(pn5.Text)+y5));

sn5.Text:=inttostr(trunc((strtoint(sEdit1.Text)*strtoint(sEdit4.Text))/100));

sn6.Text:=inttostr(trunc((strtoint(sEdit1.Text)*strtoint(sEdit5.Text))/100));

sn7.Text:=inttostr(trunc((strtoint(sEdit1.Text)*strtoint(sEdit6.Text))/100));

end;

Процедура сохранения расчетных данных в базе данных с учетом уровня хранящейся закваски.

procedure TForm2.sButton1Click(Sender: TObject);

begin

if sRadioButton1.Checked then

begin

datamodule3.TzDbf1.Insert;

datamodule3.TzDbf1['dzak']:=Date;

datamodule3.TzDbf1['dizg']:=Date+1;

datamodule3.TzDbf1['dgod']:=Date+6;

datamodule3.TzDbf1['pr']:=sLabel19.Caption;

datamodule3.TzDbf1['kol']:=strtoint(sn1.Text);

datamodule3.TzDbf1['stat']:='На продаже';

datamodule3.TzDbf1['seb']:=strtofloat(pn1.Text);

datamodule3.TzDbf1.Post;

end;

if sRadioButton2.Checked then

begin

datamodule3.TzDbf1.Insert;

datamodule3.TzDbf1['dzak']:=Date;

datamodule3.TzDbf1['dizg']:=Date+1;

datamodule3.TzDbf1['dgod']:=Date+6;

datamodule3.TzDbf1['pr']:=sLabel21.Caption;

datamodule3.TzDbf1['kol']:=strtoint(sn2.Text);

datamodule3.TzDbf1['stat']:='На продаже';

datamodule3.TzDbf1['seb']:=strtofloat(pn2.Text);

datamodule3.TzDbf1.Post;

end;

if sRadioButton3.Checked then

begin

datamodule3.TzDbf1.Insert;

datamodule3.TzDbf1['dzak']:=Date;

datamodule3.TzDbf1['dizg']:=Date+1;

datamodule3.TzDbf1['dgod']:=Date+6;

datamodule3.TzDbf1['pr']:=sLabel22.Caption;

datamodule3.TzDbf1['kol']:=strtoint(sn3.Text);

datamodule3.TzDbf1['stat']:='На продаже';

datamodule3.TzDbf1['seb']:=strtofloat(pn3.Text);

datamodule3.TzDbf1.Post;

end;

if sn4.Text<>'0' then

begin

datamodule3.TzDbf1.Insert;

datamodule3.TzDbf1['dzak']:=Date;

datamodule3.TzDbf1['dizg']:=Date+1;

datamodule3.TzDbf1['dgod']:=Date+5;

datamodule3.TzDbf1['pr']:=sLabel23.Caption;

datamodule3.TzDbf1['kol']:=strtoint(sn4.Text);

datamodule3.TzDbf1['stat']:='На продаже';

datamodule3.TzDbf1['seb']:=strtofloat(pn4.Text);

datamodule3.TzDbf1.Post;

end;

if sn5.Text<>'0' then

begin

datamodule3.TzDbf1.Insert;

datamodule3.TzDbf1['dzak']:=Date;

datamodule3.TzDbf1['dizg']:=Date+1;

datamodule3.TzDbf1['dgod']:=Date+20;

datamodule3.TzDbf1['pr']:=sLabel24.Caption;

datamodule3.TzDbf1['kol']:=strtoint(sn5.Text);

datamodule3.TzDbf1['stat']:='На продаже';

datamodule3.TzDbf1['seb']:=strtofloat(pn5.Text);

datamodule3.TzDbf1.Post;

end;

if sn6.Text<>'0' then

begin

datamodule3.TzDbf1.Insert;

datamodule3.TzDbf1['dzak']:=Date;

datamodule3.TzDbf1['dizg']:=Date+1;

datamodule3.TzDbf1['dgod']:=Date+20;

datamodule3.TzDbf1['pr']:=sLabel25.Caption;

datamodule3.TzDbf1['kol']:=strtoint(sn6.Text);

datamodule3.TzDbf1['stat']:='На продаже';

datamodule3.TzDbf1['seb']:=strtofloat(pn6.Text);

datamodule3.TzDbf1.Post;

end;

if sn7.Text<>'0' then

begin

datamodule3.TzDbf1.Insert;

datamodule3.TzDbf1['dzak']:=Date;

datamodule3.TzDbf1['dizg']:=Date+1;

datamodule3.TzDbf1['dgod']:=Date+20;

datamodule3.TzDbf1['pr']:=sLabel26.Caption;

datamodule3.TzDbf1['kol']:=strtoint(sn7.Text);

datamodule3.TzDbf1['stat']:='На продаже';

datamodule3.TzDbf1['seb']:=strtofloat(pn7.Text);

datamodule3.TzDbf1.Post;

end;

sedit1.Text:='0';

sedit8.Text:='0';

close;

end;

4. Техника безопасности

4.1 Анализ опасных и вредных факторов при работе с компьютером

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

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

В разделе также рассматриваются вопросы техники безопасности.

Работа инженера-программиста связана с программным обеспечением.

При этом используется: компьютер, цветной монитор, принтер, сканер.

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

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

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

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

Вредным называется фактор, длительное воздействие которого на человека, приводит к профессиональным заболеваниям.

Работая за компьютером, необходимо соблюдать правила:

Расстояние от экрана до глаз - 70-80 см (расстояние вытянутой руки);

Вертикально прямая спина;

Плечи опущены и расслаблены;

Ноги на полу и не скрещены;

Локти, запястья и кисти рук на одном уровне;

Локтевые, тазобедренные, коленные, голеностопные суставы под прямым углом.

4.2 Охрана труда

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

Лица, не достигшие 18-летнего возраста, не допускаются к работам в электроустановках.

Лица не должны иметь увечий и болезней, мешающих производственной работе.

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

Перед допуском к работе ответственный руководитель и производитель работ совместно с допускающим проверяет выполнение технических мероприятий по подготовке рабочего места.

На рабочем месте оператора ЭВМ необходимо соблюдать правила внутреннего распорядка, а именно:

запрещается курить и распивать спиртные напитки;

выполнять требования по обеспечению пожаро- и взрывобезопасности;

уведомлять администрацию о случаях травмирования, неисправности оборудования;

уметь оказывать первую помощь;

соблюдать правила личной гигиены.

Перед началом работы следует применить средства индивидуальной защиты; подготовить рабочее место к эксплуатации; проверить исправность оборудования.

Убедиться в наличии защитного экрана для монитора, а также токоизоляции проводов.

После чего, включить сеть электропитания (под напряжением 220 В), системный блок и монитор (при этом не следует открывать корпус системного блока, или прикасаться к экрану монитора).

Во время работы необходимо:

ѕ выполнять требования по безопасному выполнению работ;

ѕ соблюдать правила использования ЭВМ;

ѕ вести безопасное содержание рабочего места.

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

В случае обнаружения неисправности:

ѕ оборудования, которые могут привести к авариям и несчастным случаям;

ѕ необходимо известить администрацию о происшествии;

ѕ соблюдать правила техники безопасности;

ѕ уметь оказать первую помощь при травмировании, поражении электрическим током.

Не следует оператору касаться проводов, открывать корпус системного блока и монитора; сеть электропитания.

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

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

4.3 Организация рабочего места оператора

Санитарно-гигиенические требования.

Помещения должны иметь естественное и искусственное освещение в соответствии с СанПиН 2.2.2.542-96.

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

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

Освещенность поверхности ученических столов при искусственном освещении должна быть в пределах 300-500 лк. Светильники должны иметь светорассеивающую арматуру.

В качестве источников света рекомендуется использовать люминесцентные лампы мощностью 40Вт, 58Вт или энергоэкономичные мощностью 36Вт типа ЛБ, ЛХБ как наиболее эффективные и приемлемые с точки зрения спектрального состава.

Для помещений с ПЭВМ и ВДТ следует применять светильники серии ЛП036 с высокочастотными пускорегулируемыми аппаратами (ВЧПРА). Можно допустить применение светильников без ВЧПРА в модификации "кососвет".

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

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

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

Электроснабжение кабинета должно быть выполнено в соответствии с требованиями ГОСТ 28139-89 и ПУЭ.

Подводка электрического напряжения к столам сотрудников учреждения должна быть стационарной и скрытой.

Расположение электрощита и Устройства защитного отключения должно давать сотруднику возможность мгновенного отключения системы электроснабжения.

Для обеспечения пожарной безопасности помещение должен быть укомплектован 2-мя углекислотными огнетушителями (типа ОУ-2).

Для окраски стен и панелей должны быть использованы светлые тона красок (р=0,5-0,6). Состав красок должен исключать возникновение известковой пыли.

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

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

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

Уровень шума на рабочем месте во всех учебных помещениях с ВДТ и ПЭВМ не должен превышать 50 дБА. (Санитарные нормы допустимого шума в помещениях жилых и общественных зданий и на территории жилой застройки N 3077-84, п.7.2).

Требования к комплекту мебели.

Помещение, кабинет должны быть оснащены определенным комплектом специализированной мебели, отвечающей требованиям ГОСТ 22046-89, имеющей сертификат соответствия технической документации и гигиенический сертификат.

Кабинет должен иметь мебель для:

- организации рабочего места сотрудника;

- для рационального размещения и хранения средств;

- для организации использования аппаратуры.

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

Мебель для рационального размещения и хранения учебного оборудования должна состоять из комбинированного шкафа по ГОСТ 18666-95.

Высота рабочей поверхности стола для взрослых пользователей должна регулироваться в пределах 680-800 мм.

Рабочий стол должен иметь пространство для ног (600500450 мм).

Рабочий стул (кресло) должен быть подъемно-поворотным и регулируемым по высоте и углам наклона сиденья и спинки.

Рабочее место должно быть оборудовано подставкой для ног (300400150 мм).

Требования безопасности перед началом работы.

До включения используемого на рабочем месте оборудования оператор обязан:

- осмотреть и привести в порядок рабочее место, убрать с рабочего места все посторонние предметы, которые могут отвлекать внимание и затруднять работу.

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

- проверить правильность и надежность заземления оборудования.

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

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

- кабели электропитания ПЭВМ и другого оборудования (включая переноски и удлинители) должны находиться с тыльной стороны рабочего места;

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

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

- убедиться в отсутствии дрожания и мерцания изображения на экране монитора;

- установить яркость, контрастность, цвет и размер символов, фон экрана, обеспечивающие наиболее комфортное и четкое восприятие изображения.

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

Требования безопасности при выполнении работ.

Оператор во время работы обязан:

- в течение рабочего дня содержать в порядке и чистоте рабочее место;

- не закрывать вентиляционные отверстия ПЭВМ;

- при необходимости временного прекращения работы корректно закрыть все активные задачи;

- соблюдать правила эксплуатации оборудования и требования настоящей инструкции;

- при работе с каждой программой выбирать наиболее оптимальное сочетание визуальных параметров (цвет и размер символов, фон экрана, яркость, контрастность и др.);

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

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

Требования безопасности в аварийных ситуациях.

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

Инструкция. Первая помощь человеку, пораженному электрическим током.

Первую доврачебную помощь пораженному человеку током должен уметь оказывать каждый работающий с электроустановками. Она состоит из двух этапов:

а) Освобождение пострадавшего от действия тока.

б) Оказание ему медицинской помощи.

Освобождение можно осуществить несколькими способами:

а) Отключить электроустановку, которой касается человек, от источник питания.

б) Оттянуть пострадавшего. При напряжениях до 1000В допускается оттягивание пострадавшего, взявшись за его одежду и предварительно изолировав руки (перчатками, шарфом, рукавицами …). Действовать необходимо одной рукой. Изолировать себя от пола можно став на резиновый коврик, сухую доску или одежду.

в) Перерубить провода. Перерубать провода до напряжения 1000В можно топором с сухой деревянной ручкой или другим инструментом с изолированными ручками. Каждый провод нудно перерубать отдельно, чтобы не вызвать короткого замыкания.

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

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

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

В случае отсутствия у пострадавшего дыхания и (или) пульса ему необходимо производить искусственное дыхание и непрямой массаж сердца. Никогда не следует отказываться от оказания помощи пострадавшему и считать его мертвым из-за отсутствия дыхания, сердцебиения и других признаков жизни. Однако попытки оживления эффективны лишь, когда с момента остановки сердца прошло не более 5-6 минут.

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

Требования безопасности по окончании работы.

По окончании работы оператор обязан соблюдать следующую последовательность отключения оборудования:

- произвести закрытие всех выполняемых на ПЭВМ задач;

- отключить питание в последовательности, установленной инструкциями по эксплуатации на оборудование с учетом характера выполняемых работ.

Убрать со стола рабочие материалы и привести в порядок рабочее место.

Заключение

Для обеспечения непрерывного и эффективного функционирования практически любой организации необходимо создание запасов. Правильное и своевременное определение оптимальной стратегии управления запасами, а также нормативного уровня запасов дает возможность высвободить значительные оборотные средства, замороженные в виде запасов, что (в конечном счете) повышает эффективность используемых ресурсов.

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

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

В большинстве моделей управление запасами осуществляется оптимизацией функции затрат, включающей затраты на оформление заказов, закупку и хранение продукции, а также потери от дефицита. Потери от дефицита обычно наиболее сложно оценить т.к. они могут быть обусловлены такими нематериальными факторами, как, например, ухудшение репутации. С другой стороны, хотя оценку затрат на оформление заказа получить нетрудно, включение в модель этой статьи расходов существенно усложняет математическое описание задачи, а это не входило в список заданий ТОО "МИЛХ" на разработку автоматизированной системы.

Выполненный программный проект в рамках дипломной работы был в значительной мере оценен ТОО "МИЛХ" и успешно внедрен в производство.

Список использованной литературы

1. Е. Фирон "Управление снабжением и запасами" ЗАО "Бизнес Микро" 1999 г.

2. Е.С. Голик "Математические методы системного анализа и теории принятия решений" Северо-Западный государственный заочный технический университет 2005 г.

3. Ю.А. Львов "Экономика и организация бизнеса" ГМП "Формика" 1992г.

4. Петухова Г.Л. Секреты создания "золотого" запаса. Кое-что о методах расчета оптимальной величины товарных запасов // Маркетолог. 2000. №11.

5. Александровский А.Д. Разработка корпоративных приложений. Delphi 5, Москва, 2000 (508).

6. Александровский А.Д. Delphi 4.0. Учебный курс, Москва, 1998 (450).

7. Котенок, Дарахвелидзе, "Delphi 5 для профессионалов" С-П 2000.

8. П. Шурманов, В. Фаронов, "Delphi 4, руководство пользователя баз данных", Москва, "Нолидж" 1999.

9. Стивен Хольцнер, "Dynamic HTML. Руководство разработчика", Москва 2000.

10. "Обмен многоязыковой информацией через World-Wide Web", Тошихиро Такада, Компьютерные сети и системы ISDN, том 27, № 2, стр. 235-241, ноябрь 1994 г.

11. "Практическое руководство по SGML", Э. ван Хервайнен, Kluwer Academic Publishers Group, Norwell and Dordrecht, 1990.

12. "Интернационализация языка разметки гипертекстов", Ф. Ерго, Ж. Николь, Г. Адамс и М. Дюрст, январь, 1997 г.

13. "Выгрузка файлов на базе форм в HTML", Э. Небель и Л. Масинтер, ноябрь 1995 г.

14. "Язык разметки гипертекстов 2.0", Т. Бернерс-Ли и Д. Коннолли, ноябрь 1995 г.

15. "Спецификация языка разметки гипертекстов, версия 3.0", Дейв Рэгетт, сентябрь 1995 г.

16. "Универсальные идентификаторы ресурсов (URI): Общий синтаксис и семантика", Т. Бернерс-Ли, Р. Филдинг, Л. Масинтер, 18 ноября 1997 г.

17. А.Я. Архангельский. Программирование в Delphi 7.- М.:ООО "Бином-пресс", 2004.-1152 с.:ил.

18. Фаронов В.В. Система программирования Delphi.- СПб.: БХВ - Петербург, 2003.-912 с.: ил.

19. Turbo Pascal учебник Немнюгин С.А. - М.: ООО "Бином-Пресс", 2002.

20. "Шаг за шагом". Фарнов В.В.- М.: АО "Учебник пресс", 2000.

21. Сизов А.В. Справочник по Turbo Pascal 6. - С.-П. "Литиздат", 1995.

22. Гаевский А. Разработка программных приложений на Delphi 6 - М.: Киев, 2000.

23. Немнюгин С.А. Программирование - М.: Питер, 2000.

24. Ремизов Н. Delphi - М.: Питер, 2000.

25. Т.А. Ильина. Программирование на Delphi 6 - М.: Питер, 2000.

26. Епанешников А.М. Программирование в среде Delphi 6.0. - С-П.: Питер. 2000. - 231 с.

27. Гофман В.А., Хомоненко А.В. Delphi 6. - С-П.: БХВ-Петербург. 2002. 520 с.

28. Дейт К. Объектно-ориентированное программирование. - М.: Hаука. 2002. - 483 с.

29. Корзун А.М. Программирование в среде Delphi 6.0. - С-П.: Питер. 2003.

30. Кулибин В.А., Delphi 7 в примерах.- М.: Питер, 2000. 2004. - 450 с.

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


Подобные документы

Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д.
PPT, PPTX и PDF-файлы представлены только в архивах.
Рекомендуем скачать работу.