Вимоги безпеки після закінчення роботи

↑

⇐ ПредыдущаяСтр 22 из 94Следующая ⇒

4 Вимоги безпеки після закінчення роботи

4.1 Після закінчення роботи на ПЕОМ працівник повинен додержуватись такої послідовності вимикання обладнання:

- здійснити закриття всіх активних завдань;

- здійснити паркування зчитуючої головки диска (якщо не передбачене автоматичне паркування головки);

- переконатись у відсутності дискет у дисководах;

- вимкнути живлення процесора;

- вимкнути живлення всіх периферійних пристроїв;

- вимкнути блок живлення;

- штепсельні вилки витягнути з розеток;

- накрити клавіатуру кришкою.

4.2 Після закінчення робіт оглянути і привести в порядок робоче місце, вимити з милом руки і обличчя.

4.3 Про всі недоліки, що виявились у процесі роботи повідомити керівника робіт.

5 Вимоги безпеки в аварійних ситуаціях

5.1Працівник на ПЕОМ зобов'язаний:

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

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

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

- у випадку виникнення різі в очах, різкого погіршення видимості, неможливості фокусування погляду і наведення його на різкість, виникнення болей у пальцях такистях рук, посилення серцебиття - негайно покинути робоче місце, повідомити про те, що сталось, керівника і звернутись до лікаря;

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

5.2 Про усі аварійні ситуації негайно повідомляти керівника робіт.

Додаток 2

Додаток 3

ORG_.dfm

object Form1: TForm1

Left = 237

Top = 130

BorderIcons = [biSystemMenu, biMinimize]

BorderStyle = bsSingle

Caption = #1041#1044' '#1045#1078#1077#1076#1085#1077#1074#1085#1080#1082

ClientHeight = 321

ClientWidth = 757

Color = clBtnFace

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = -14

Font.Name = 'MS Sans Serif'

Font.Style = []

Icon.Data = {

0000010001002020100000000000E80200001600000028000000200000004000

0000010004000000000080020000000000000000000000000000000000000000

000000008000008000000080800080000000800080008080000080808000C0C0

C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000

0000000000000000000000000000000000000000000000000000000000000000

0000000000000000000000000000000000000000000000000000000000000000

000BB333333333333333300000000000000B0000000000000000300000000000

000B7FF6FFFFFFFFFFF0300000000000000B7FF6FFFFFFFFFFF0300000000000

000B7666666666666660300000000000000B7FF6FFFFFFFFFFF0300000000000

000B7FF6FFFFFFFFFFF0300000000000000B7666666666666660300000000000

000B7FF6FFFFFFFFFFF0300000000000000B7FF6FFFFFFFFFFF0300000000000

000B7666666666666660300000000000000B7FF6FFFFFFFFFFF0300000000000

000B7FF6FFFFFFFFFFF0300000000000000B7666666666666660300000000000

000B7FF6FFFFFFFFFFF0300000000000000B7FF6FFFFFFFFFFF0300000000000

000B7666666666666660300000000000000B7FF6FFFFFFFFFFF0300000000000

000B7FF6FFFFFFFFFFF0300000000000000B7FF68888888888F0300000000000

000B7FF00000000008F0300000000000000B7770FF8888770770B00000000000

000BBBBB0FF88770BBBBB000000000000000000000F887000000000000000000

000000000FF88870000000000000000000000000000000000000000000000000

000000000000000000000000000000000000000000000000000000000000FFFF

FFFFFFFFFFFFFFFFFFFFFE00007FFC00003FFC00003FFC00003FFC00003FFC00

003FFC00003FFC00003FFC00003FFC00003FFC00003FFC00003FFC00003FFC00

003FFC00003FFC00003FFC00003FFC00003FFC00003FFC00003FFC00003FFC00

003FFC00003FFC00003FFE00007FFFF00FFFFFF81FFFFFFFFFFFFFFFFFFF}

OldCreateOrder = False

Position = poScreenCenter

OnActivate = FormActivate

PixelsPerInch = 120

TextHeight = 16

object Label1: TLabel

Left = 8

Top = 10

Width = 54

Height = 20

Caption = 'Label1'

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = -17

Font.Name = 'MS Sans Serif'

Font.Style = []

ParentFont = False

end

object Label2: TLabel

Left = 8

Top = 41

Width = 48

Height = 16

Caption = 'Label2'

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = -15

Font.Name = 'MS Sans Serif'

Font.Style = [fsBold]

ParentFont = False

end

object DBGrid1: TDBGrid

Left = 8

Top = 72

Width = 737

Height = 209

DataSource = DataSource1

TabOrder = 0

TitleFont.Charset = DEFAULT_CHARSET

TitleFont.Color = clWindowText

TitleFont.Height = -14

TitleFont.Name = 'MS Sans Serif'

TitleFont.Style = []

Columns = <

item

   Expanded = False

   FieldName = 'Data'

   Title.Caption = #1050#1086#1075#1076#1072

   Title.Font.Charset = DEFAULT_CHARSET

   Title.Font.Color = clWindowText

   Title.Font.Height = -11

   Title.Font.Name = 'MS Sans Serif'

   Title.Font.Style = [fsItalic]

   Visible = True

end

item

   Expanded = False

   FieldName = 'What'

   Title.Caption = #1063#1090#1086

   Title.Font.Charset = DEFAULT_CHARSET

   Title.Font.Color = clWindowText

   Title.Font.Height = -11

   Title.Font.Name = 'MS Sans Serif'

   Title.Font.Style = [fsItalic]

   Visible = True

end>

end

object Button1: TButton

Left = 360

Top = 288

Width = 129

Height = 25

Caption = #1057#1083#1077#1076'. '#1085#1077#1076#1077#1083#1103

TabOrder = 1

OnClick = Button1Click

end

object Button2: TButton

Left = 8

Top = 288

Width = 105

Height = 25

Caption = #1057#1077#1075#1086#1076#1085#1103

TabOrder = 2

OnClick = Button2Click

end

object Button3: TButton

Left = 120

Top = 288

Width = 113

Height = 25

Caption = #1047#1072#1074#1090#1088#1072

TabOrder = 3

OnClick = Button3Click

end

object Button4: TButton

Left = 240

Top = 288

Width = 113

Height = 25

Caption = #1069#1090#1072' '#1085#1077#1076#1077#1083#1103

TabOrder = 4

OnClick = Button4Click

end

object Button5: TButton

Left = 496

Top = 287

Width = 249

 Height = 26

Caption = #1042#1089#1077' '#1079#1072#1076#1072#1085#1080#1103

TabOrder = 5

OnClick = Button5Click

end

object DBNavigator1: TDBNavigator

Left = 416

Top = 24

Width = 330

Height = 26

DataSource = DataSource1

TabOrder = 6

end

object Table1: TTable

DatabaseName = 'diary'

TableName = 'diary.DB'

Left = 152

Top = 120

end

object DataSource1: TDataSource

DataSet = Query1

Left = 216

Top = 120

end

object Query1: TQuery

DatabaseName = 'diary'

SQL.Strings = (

'SELECT DISTINCT Data, What'

'FROM "diary" '

'WHERE'

'(Data = '#39'03.02.2002'#39')'

'ORDER BY Data, What')

Left = 184

Top = 120

end

end

Org.dpr

// Головний модуль программи Організатор.

// Щоб  його побачити, виберіть в меню

// Project команду View Source.

program org;

uses

Forms,

org_ in 'org_.pas' {Form1},

SysUtils,Dialogs,

DateUtils, // для доступу до IncDay

DBTables; // для доступу до Session, AddStandardAlias

{$R *.res}

var

  Present: TDateTime;  // сьогодні

NextDay: TDateTime;  // наступний день

Year, Month, Day : Word; // рік, місяць, день

Query: TQuery; // запрос, забезпечуючий

            // створення  БД (таблиці)

begin

Application.Initialize;

Application.Title := 'Ежедневник';

Application.CreateForm(TForm1, Form1);

 { Псевдонім для доступу до бази даних створюється в

час запуску программи і існує тільки в

час работи программи.

База даних знаходится в тому же каталогі,що

й використовуючий файл программы. Імя каталогу,

в якому знаходится використовуючий файл можна отримати

звернувшись до функції ParamStr. }

 // створеня псевдоніму

 with Session do

 begin

ConfigMode := cmSession;

AddStandardAlias('diary', // псевдонім БД

                 ExtractFilePath(ParamStr(0)), // каталог

                'PARADOX');

 end;

 // встановлюємо потокову  дату

Present:= Now; // Now - функція,повертає потокову дату і час

DecodeDate(Present, Year, Month, Day);

case {dof} DayOfWeek(Present) of

6: NextDay := IncDay(Present,3); // пятница

7: NextDay := IncDay(Present,2); // суббта

else NextDay := IncDay(Present,1)

end;

// запит до бази даних: чи є справи, заплановані

// на сьгодні та ближайші  дні

Form1.Query1.SQL[3] :=

    '(Data >= '''+ FormatDateTime('dd/mm/yyyy',Present)+''')' + 'and'+

    '(Data <= '''+ FormatDateTime('dd/mm/yyyy',NextDay)+''')';

try

Form1.Query1.Open; // выполнить запрос

except

on E:EDBEngineError do

   // Помилка при використані запиту  може

   // бути визвана тим, що файла бази даних немає.

   // Запропонувати користувачю створити

   // файл бази даних.

   begin

       MessageDlg('Файл таблиці бази даних не найдено .'+#13+

       'Таблиця буде створена.',mtWarning,[mbYes],0);

       Query := TQuery.Create(Form1);

       with Query do

       begin

           // створимо запит, забезпечуючий

           // створення БД

           SQL.Add('CREATE TABLE diary (');

           SQL.Add('What CHAR(80),');

           SQL.Add('Data DATE);');

           ExecSQL;

       end;

       // таблиця створена

       Form1.Query1.Open; // дамо запит

   end;

end;

if Form1.Query1.RecordCount <> 0 //є справи ,заплановані на наступна дні then

   Form1.DataSource1.DataSet := Form1.Query1

else

   begin

       Form1.DataSource1.DataSet := Form1.Table1;

       Form1.Table1.Open;

       ShowMessage('На сьгодні і наступні дні' +

                   'ніяких справ не заплановано.');

   end;

Application.Run;

end.

Org_pas

{

 Зразу після запуску программи посылає запит до бази

 даних, для того щоб з′ясувати, чи є справи, заплановані

 на сьогодні. Якщо щось заплановано, то на екрані зявляється

 вікно Ежедневник.

 Запит  до бази даних з початку  роботи програми формує головна процедура

 програми.

 Щоб її побачити, виберіть із меню Project команду View Source.

}

unit org_;

interface

uses

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

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

type

TForm1 = class(TForm)

Table1: TTable;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

Query1: TQuery;

Label1: TLabel;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Label2: TLabel;

DBNavigator1: TDBNavigator;

procedure FormActivate(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

stDay : array[1..7] of string[11] = ('неділя','понеділок','вівторок',

                                  'середа','четвер','пятница','субота');

stMonth : array[1..12] of string[8] = ('січень','лютий','березень',

                                 'квітень','травень','червень','липень',

                                     'серпень','вересень','жовтень',

                                     'листопад','грудень');

implementation

{$R *.dfm}

uses DateUtils;

// сьогоднішня дата і день тижня

procedure TForm1.FormActivate(Sender: TObject);

var

Present: TDateTime;

Year, Month, Day : Word;

 begin

Present:= Now; // Now - функція, повертає дату и час

  DecodeDate(Present, Year, Month, Day);

Label1.Caption := 'Сегодня ' + IntToStr(Day)+' '

+ StMonth[Month] + ' '+ IntToStr(Year)+' года, '+stDay[DayOfWeek(Present)]+'.';

Form1.Label2.Caption := 'Сьогодні і на наступні дні:';

end;

// клацання на кнопкі Сьогодні

procedure TForm1.Button2Click(Sender: TObject);

var

st : string; // критерії запиту

begin

Form1.Label2.Caption := 'Сьогодні';

st:= FormatDateTime('dd/mm/yyyy',Now);

Form1.Query1.SQL[3] := '(Data = '''+st+''')';

Form1.Query1.Open;

if form1.Query1.RecordCount <> 0 then

   form1.DataSource1.DataSet := Form1.Query1

else begin

   ShowMessage('На сьогодні ні яких справ не заплановано.');

   //form1.DataSource1.DataSet := Table1;

end;

end;

// завтра

procedure TForm1.Button3Click(Sender: TObject);

var

Present,         // сьогодні

Tomorrow: TDateTime; // завтра

 begin

Form1.Label2.Caption := 'Завтра';

Present:= Now; // Now - функція, повертає дату і час

Tomorrow := IncDay(Present); // завтра

Form1.Query1.SQL[3] :=

    '(Data = '''+ FormatDateTime('dd/mm/yyyy',Tomorrow)+''')';

Form1.Query1.Open;

if form1.Query1.RecordCount <> 0 then

   form1.DataSource1.DataSet := Form1.Query1

else

   ShowMessage('На завтра ні яких справ не заплановано.');

end;

// на цьому тижні

procedure TForm1.Button4Click(Sender: TObject);

var

Present: TDateTime;

EndOfWeek: TDateTime;

 begin

Form1.Label2.Caption := 'На цьому тижні';

Present:= Now; // Now - функція, повертає дату і час

  EndOfWeek := StartOfAWeek(YearOf(Present),WeekOf(Present)+1);

Form1.Query1.SQL[3] :=

    '(Data >= '''+ FormatDateTime('dd/mm/yyyy',Present)+''')' + 'and'+

    '(Data < '''+ FormatDateTime('dd/mm/yyyy',EndOfWeek)+''')';

Form1.Query1.Open;

if form1.Query1.RecordCount <> 0 then

   form1.DataSource1.DataSet := Form1.Query1

else

   ShowMessage('На цьому тижні ні яких справ не заплановано.');

end;

// на наступному тижні

procedure TForm1.Button1Click(Sender: TObject);

var

Present: TDateTime;

d1, d2: TDateTime;

 begin

Form1.Label2.Caption := 'На наступному тижні';

Present:= Now; // Now - функція, повертає дату і час

d1 := StartOfAWeek(YearOf(Present),WeekOf(Present)+1);

d2 := StartOfAWeek(YearOf(Present),WeekOf(Present)+2);

Form1.Query1.SQL[3] :=

    '(Data >= '''+ FormatDateTime('dd/mm/yyyy',d1)+''')' + 'and'+

    '(Data < '''+ FormatDateTime('dd/mm/yyyy',d2)+''')';

Form1.Query1.Open;

if form1.Query1.RecordCount <> 0 then

   form1.DataSource1.DataSet := Form1.Query1

else

   ShowMessage('На наступний тиждень ніяких справ не заплановано.');

end;

// показати всі записи

procedure TForm1.Button5Click(Sender: TObject);

begin

   Form1.Label2.Caption := 'Все, що задумано створено';

   DataSource1.DataSet := Table1;

   Table1.Active := True;

end;

end.

Познавательные статьи:



Где возникла философия и почему?

Относительная высота сжатой зоны бетона

Сущность проекции Гаусса-Крюгера и использование ее в геодезии

Тарифы на перевозку пассажиров