nttostr(trunc((strtoint(sEdit1.Text)*strtoint(sEdit7.Text))/100));.Text:=FloatToStrF(0.01*strtoint(sedit11.Text)+1.1*strtofloat(sedit9.Text)+0.2*strtoint(sedit10.Text)+strtofloat(sedit8.Text), ffnumber,2000,2);.Text:=floattostr(0.6*strtofloat(pn4.Text)+y2*1.1+0.2*y3);.Text:=floattostr(0.7*strtofloat(pn4.Text)+y2*1.1+0.2*y3);:=0.5*strtofloat(pn4.Text)+y2*1.1+0.2*y3;.Text:=floattostr(4*(strtofloat(pn5.Text)+y5));.Text:=inttostr(trunc((strtoint(sEdit1.Text)*strtoint(sEdit4.Text))/100));.Text:=inttostr(trunc((strtoint(sEdit1.Text)*strtoint(sEdit5.Text))/100));.Text:=inttostr(trunc((strtoint(sEdit1.Text)*strtoint(sEdit6.Text))/100));
end;
Процедура збереження розрахункових даних в базі даних з урахуванням рівня зберігається закваски.
procedure TForm2.sButton1Click (Sender: TObject); sRadioButton1.Checked then.TzDbf1.Insert;.TzDbf1[laquo;dzakraquo;]:=Date;.TzDbf1[laquo;dizgraquo;]:=Date+1;.TzDbf1[laquo;dgodraquo;]:=Date+6;.TzDbf1[laquo;prraquo;]:=sLabel19.Caption;.TzDbf1[laquo;kolraquo;]:=strtoint(sn1.Text);.TzDbf1[laquo;statraquo;]:=laquo;На продажеraquo;;.TzDbf1[laquo;sebraquo;]:=strtofloat(pn1.Text);.TzDbf1.Post;;sRadioButton2.Checked then.TzDbf1.Insert;.TzDbf1[laquo;dzakraquo;]:=Date;.TzDbf1[laquo;dizgraquo;]:=Date+1;.TzDbf1[laquo;dgodraquo;]:=Date+6;.TzDbf1[laquo;prraquo;]:=sLabel21.Caption;.TzDbf1[laquo;kolraquo;]:=strtoint(sn2.Text);.TzDbf1[laquo;statraquo;]:=laquo;На продажеraquo;;.TzDbf1[laquo;sebraquo;]:=strtofloat(pn2.Text);.TzDbf1.Post;;sRadioButton3.Checked then.TzDbf1.Insert;.TzDbf1[laquo;dzakraquo;]:=Date;.TzDbf1[laquo;dizgraquo;]:=Date+1;.TzDbf1[laquo;dgodraquo;]:=Date+6;.TzDbf1[laquo;prraquo;]:=sLabel22.Caption;.TzDbf1[laquo;kolraquo;]:=strtoint(sn3.Text);.TzDbf1[laquo;statraquo;]:=laquo;На продажеraquo;;.TzDbf1[laquo;sebraquo;]:=strtofloat(pn3.Text);.TzDbf1.Post;;sn4.Textlt;gt;laquo;0raquo; then.TzDbf1.Insert;.TzDbf1[laquo;dzakraquo;]:=Date;.TzDbf1[laquo;dizgraquo;]:=Date+1;.TzDbf1[laquo;dgodraquo;]:=Date+5;.TzDbf1[laquo;prraquo;]:=sLabel23.Caption;.TzDbf1[laquo;kolraquo;]:=strtoint(sn4.Text);.TzDbf1[laquo;statraquo;]:=laquo;На продажеraquo;;.TzDbf1[laquo;sebraquo;]:=strtofloat(pn4.Text);.TzDbf1.Post;;sn5.Textlt;gt;laquo;0raquo; then.TzDbf1.Insert;.TzDbf1[laquo;dzakraquo;]:=Date;.TzDbf1[laquo;dizgraquo;]:=Date+1;.TzDbf1[laquo;dgodraquo;]:=Date+20;.TzDbf1[laquo;prraquo;]:=sLabel24.Caption;.TzDbf1[laquo;kolraquo;]:=strtoint(sn5.Text);.TzDbf1[laquo;statraquo;]:=laquo;На продажеraquo;;.TzDbf1[laquo;sebraquo;]:=strtofloat(pn5.Text);.TzDbf1.Post;;sn6.Textlt;gt;laquo;0raquo; then.TzDbf1.Insert;.TzDbf1[laquo;dzakraquo;]:=Date;.TzDbf1[laquo;dizgraquo;]:=Date+1;.TzDbf1[laquo;dgodraquo;]:=Date+20;.TzDbf1[laquo;prraquo;]:=sLabel25.Caption;.TzDbf1[laquo;kolraquo;]:=strtoint(sn6.Text);.TzDbf1[laquo;statraquo;]:=laquo;На продажеraquo;;.TzDbf1[laquo;sebraquo;]:=strtofloat(pn6.Text);.TzDbf1.Post;;sn7.Textlt;gt;laquo;0raquo; then.TzDbf1.Insert;.TzDbf1[laquo;dzakraquo;]:=Date;.TzDbf1[laquo;dizgraquo;]:=Date+1;.TzDbf1[laquo;dgodraquo;]:=Date+20;.TzDbf1[laquo;prraquo;]:=sLabel26.Caption;.TzDbf1[laquo;kolraquo;]:=strtoint(sn7.Text);.TzDbf1[laquo;statraquo;]:=laquo;На продажеraquo;;.TzDbf1[laquo;sebraquo;]:=strtofloat(pn7.Text);.TzDbf1.Post;;.Text:=laquo;0raquo;;.Text:=laquo;0raquo;;;;
4. Техніка безпеки
. 1 Аналіз небезпечних і шкідливих факторів при роботі з комп'ютером
У зв'язку з науково-технічним прогресом проблема взаємодії людини і сучасної техніки стала вельми актуальною. Надзвичайно велика роль людини-оператора, керуючого іноді не тільки окремими машинами і агрегатами, а й цілими системами технічних пристроїв, величезними потоками енергії.
Метою цього розділу є аналіз небезпечних і шкідливих факторів праці інженера програміста і розробка заходів захисту від них, оцінка умов праці.
У розділі також розглядаються питання техніки безпеки.
Робота інженера-програміста пов'язана з програмним забезпеченням.
При цьому використовується: комп'ютер, кольоровий монітор, принтер, сканер.
У процесі використання ПЕОМ здоров'ю, а іноді й життя оператора загрожують різні шкідливі фактори, пов'язані з роботою на персональному комп'ютері. Типовими відчуттями, які відчувають до кінця дня люди, що працюють за комп'ютером, є: головний біль, різь в очах, що тягнуть болі в м'язах шиї, рук і спини, свербіж шкіри на обличчі і т.п. Випробовувані щодня, вони можуть призвести до мігреней, часткової втрати зору, сколіозу, тремору, шкірним запалень і іншим небажаним явищам.
Була також виявлений зв'язок між роботою на комп'ютері і такими недугами, як астенопія (швидка стомлюваність очі), болі в спині і шиї, зап'ястний синдром (болюча поразка серединного нерва зап'ястя), тенденіти (запальні проце...
