Вища. шк., 1986. - 456 c.
18. Полтев М.К. Охорона праці в машинобудуванні: Підручник для машинобудівних вузів./М.К. Полтев - М .: Вища школа, 1980. - 255c.
19. СанПіН 2.01.02-85. Протипожежні норми.
20. СанПіН 2.2.4/2.1.8.10-32-2002. Шум на робочих місцях, у приміщеннях житлових, громадських будівель і на території житлової забудови.
. СанПіН 9-131 РБ 2000. Гігієнічні вимоги до Дмитрий Мансуров, електронно-обчислювальних машин і організації роботи.- Мн .: Міністерство охорони здоров'я республіки Білорусь, 2001. - 210 с.
22. СанПіН 9-80 РБ 98. Гігієнічні вимоги до мікроклімату виробничих приміщень.- Мн .: 1998.
Додаток А
Лістинг програми
unit Unit1;
interface
, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, ExtCtrls, jpeg, Grids, ComCtrls, Menus, printers;
=class (TForm): TImage ;: TImage ;: TEdit ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TImage ;: TStringGrid ;: TStringGrid ;: TImage ;: TTimer ;: TStatusBar ;: TImage ;: TMainMenu ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TPrinterSetupDialog ;: TMenuItem; FormCreate (Sender: TObject) ; StringGrid1SelectCell (Sender: TObject; ACol, ARow: Integer; CanSelect: Boolean); StringGrid2SelectCell (Sender: TObject; ACol, ARow: Integer;
var CanSelect: Boolean); Timer1Timer (Sender: TObject); StringGrid1MouseMove (Sender: TObject; Shift: TShiftState; X ,: Integer); Image1MouseMove (Sender: TObject; Shift: TShiftState; X ,: Integer); Image2MouseMove (Sender: TObject; Shift: TShiftState; X ,: Integer); Image3MouseMove (Sender: TObject; Shift: TShiftState; X ,: Integer); Image4MouseMove (Sender: TObject; Shift: TShiftState; X ,: Integer) ; StringGrid2MouseMove (Sender: TObject; Shift: TShiftState; X ,: Integer); Edit1MouseMove (Sender: TObject; Shift: TShiftState; X ,: Integer); Image5MouseMove (Sender: TObject; Shift: TShiftState; X ,: Integer); N2Click (Sender: TObject); N3Click (Sender: TObject); FormMouseMove (Sender: TObject; Shift: TShiftState; X, Y:
Integer); N4Click (Sender: TObject); N5Click (Sender: TObject);
{Private declarations}
{Public declarations};
: TForm1;
Unit2, Unit3, Unit4, Unit6;
{$ R * .dfm}
TForm1.Edit1MouseMove (Sender: TObject; Shift: TShiftState;
X ,: Integer) ;. Panels [0] .Text:= Модель агрегату raquo ;; TForm1.FormMouseMove (Sender: TObject; Shift: TShiftState;
X ,: Integer) ;. Panels [0] .Text:= raquo ;;;
TForm1.Image1MouseMove (Sender: TObject; Shift: TShiftState;,: Integer) ;. Panels [0] .Text:= Зображення агрегату raquo ;;;
TForm1.Image2MouseMove (Sender: TObject; Shift: TShiftState;
X ,: Integer) ;. Panels [0] .Text:= Зображення агрегату raquo ;;;
TForm1.Image3MouseMove (Sender: TObject; Shift: TShiftState;,: Integer) ;. Panels [0] .Text:= Вид різьблення/вид підключення агрегату raquo ;;;
TForm1.Image4MouseMove (Sender: TObject; Shift: TShiftState;
X ,: Integer) ;. Panels [0] .Text:= Зображення аналога агрегату raquo ;;;
TForm1.Image5MouseMove (Sender: TObject; Shift: TShiftState;
X ,: Integer) ;. Panels [0] .Text:= Технічні характеристики агрегату raquo ;;;
TForm1.FormCreate (Sender: TObject);
var s1, s2, U, I, A, B, C, k, sh: string; n, j: integer;
f: textfile;:= raquo ;; s2:=laquo;raquo;;:=laquo;raquo;;:=laquo;raquo;;:=laquo;raquo;;:=laquo;raquo;;:=laquo;raquo;;.Caption:=laquo;raquo;;.Caption:=laquo;raquo;;.Caption:=laquo;A: raquo ;;. Caption:= B: raquo ;;. Caption:= C: raquo;;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.RowCount:=2;.Cells[0,0]:=laquo;Компонентыraquo;;.Cells[0,1]:=laquo;raquo;;.Cells[0,0]:=laquo;raquo;;.Cells[0,1]:=laquo;raquo;;:=Edit1.text;(f,ExtractFilePath(paramstr(0))+laquo;1laquo;+s1+raquo;1.txtraquo;);(f);(f,U);(f,I);(f,A);(f,B);(f,C);
closefile (f);
StringGrid1.Visible:=True;(f,ExtractFilePath(paramstr(0))+laquo;1laquo;+s1+raquo;2.txtraquo;);(f);(f,n);.RowCount:=n+1;j :=1 to n do
begin (f, k) ;. Cells [0, j]:=k;
end; (f...
