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

Общими чертами чрезвычайной ситуации являются:

- наличие или угроза гибели и (или) поражение людей или значительное нарушение условий их жизнедеятельности;

- причинение экономических потерь;

- ухудшение состояния окружающей среды.

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

Первичными поражающими факторами чрезвычайных ситуаций техногенного характера, вызванных пожаром, являются:

- световое излучение;

- повышенная температура воздуха в помещении;

- задымление рабочего помещения;

- химическое загрязнение рабочего помещения.

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

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

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

Возникновение чрезвычайной ситуации техногенного характера (10000) могут вызвать:

- транспортные аварии и катастрофы (10100);

- пожары и неспровоцированные взрывы (10200);

- неожиданное разрушение домов и сооружений (10600);

- аварии на электроэнергетических системах (10700);

- аварии на системах связей и телекоммуникации (10900).

Основными причинами возникновения чрезвычайных ситуаций техногенного характера, связанных с пожарами и неспровоцированными взрывами (10200) могут быть:

- пожары (взрывы) на транспорте (10203);

- пожары (взрывы) в домах и сооружениях гражданского назначения (10205).

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

Причинами возникновения ЧС природного характера (20000) могут быть:

- землетрясения (20101);

- оседание (провал) земной поверхности (20105);

-крупный град (20203);

- инфекционные отравления людей (20600).

ЧС социально-политического характера (30000) связано с противоправными действиями террористического и антиконституционного характера:

- вооруженные нападения, захват или удержание важных объектов или реальная угроза осуществления таких акций (30100);

- установление взрывного устройства в общественном месте, учреждении, организации и т.п. (30400).

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

7.3.1 Первичные средства пожаротушения

ЛИСТИНГ ПРОГРАММЫ

unit MainUnit;

MainFrm: TMainFrm;

implementation

uses DataUnit, PromtUnit, CountryUnit, CityUnit, StateUnit, WorkerUnit,

ReaderSearchUnit, AuthorUnit, TepUnit, LitUnit, ReportUnit, AboutUnit;

{$R *.dfm}

function TMainFrm.InputCheck( page: integer ): boolean;

begin

result := true;

case page of

0: if ( RFam.Text = '' ) or ( RName.Text = '' ) or ( RPar.Text = '' ) or

( RAdress.Text = '' ) or ( RDocSeria.Text = '' ) or ( RDocNum.Text = '' ) or

( RDocState.Text = '' ) then

result := false;

1: if ( ANum.Text = '0' ) or ( ANumWorker.Text = '0' ) or

( AType.ItemIndex = -1 ) or ( AEndDate.Text = '' ) then

result := false;

2: begin

end;

end;

if not result then

MessageDlg( 'Ошибка: не введены все обязательные значения полей!',

mtWarning, [mbOk], 0 );

end;

procedure TMainFrm.GetDataFromIBDataSet;

begin

with DModule.IBReaderDataSet do begin

NumReader.Text := FieldByName( 'oNumReader' ).AsString;

RFam.Text := FieldByName( 'oFam' ).AsString;

RName.Text := FieldByName( 'oName' ).AsString;

RPar.Text := FieldByName( 'oPar' ).AsString;

RBDate.Text := FieldByName( 'oBorn_Date' ).AsString;

RAdress.Text := FieldByName( 'oAdress' ).AsString;

RPhone.Text := FieldByName( 'oPhone' ).AsString;

RDocSeria.Text := FieldByName( 'oDoc_Seria' ).AsString;

RDocNum.Text := FieldByName( 'oDoc_Num' ).AsString;

RDocState.Text := FieldByName( 'oState_Name' ).AsString;

RDocCity.Text := FieldByName( 'oCity_Name' ).AsString;

//RDocCountry.Text := FieldByName( 'oCountry_Name' ).AsString;

RDocDate.Text := FieldByName( 'oDoc_Date' ).AsString;

end;

with DModule.IBAbonDataSet do begin

ANum.Text := FieldByName( 'oNumAbon' ).AsString;

ANumWorker.Text := FieldByName( 'oNumWorker' ).AsString;

AType.ItemIndex := FieldByName( 'oAbonType' ).AsInteger - 1;

AEndDate.Text := FieldByName( 'oEndDate' ).AsString;

end;

end;

procedure TMainFrm.FormClose( Sender: TObject; var Action: TCloseAction );

begin

if MessageDlg( 'Сохранить изменения в базе данных?',

mtConfirmation, [mbYes, mbNo], 0 ) = mrYes then

DModule.IBTransaction.Commit

else

DModule.IBTransaction.Rollback;

DModule.IBLibrary.CloseDataSets;

DModule.IBLibrary.Close;

Application.Terminate;

end;

procedure TMainFrm.EraseBtnClick(Sender: TObject);

begin

with DModule do begin

IBReaderDataSet.Close;

IBAbonDataSet.Close;

end;

EraseReader;

EraseAboniment;

end;

procedure TMainFrm.AddBtnClick(Sender: TObject);

begin

case PageControl.ActivePageIndex of

0: begin

AddReader;

end;

1: begin

if ( DModule.IBReaderDataSet.FieldByName( 'oNumReader' ).AsInteger = 0 ) then begin

MessageDlg( 'Ошибка: информация о читателе отсутствует!', mtError, [mbOk], 0 );

exit;

end;

AddAboniment;

GetAboniment;

end;

2: begin

if ( DModule.IBReaderDataSet.FieldByName( 'oNumReader' ).AsInteger = 0 ) then begin

MessageDlg( 'Ошибка: информация о читателе отсутствует!', mtError, [mbOk], 0 );

exit;

end;

GiveLiterature;

GetLiteratureGiven;

end;

end;

GetDataFromIBDataSet;

end;

procedure TMainFrm.UpdBtnClick(Sender: TObject);

begin

if ( DModule.IBReaderDataSet.FieldByName( 'oNumReader' ).AsInteger = 0 ) then begin

MessageDlg( 'Ошибка: информация о читателе отсутствует!', mtError, [mbOk], 0 );

exit;

end;

case PageControl.ActivePageIndex of

0: begin

UpdReader;

end;

1: begin

UpdAboniment;

GetAboniment;

end;

2: begin

UpdLitGiven;

GetLiteratureGiven;

end;

end;

GetDataFromIBDataSet;

end;

procedure TMainFrm.DeleteBtnClick(Sender: TObject);

begin

if ( DModule.IBReaderDataSet.FieldByName( 'oNumReader' ).AsInteger = 0 ) then begin

MessageDlg( 'Ошибка: информация о читателе отсутствует!', mtError, [mbOk], 0 );

exit;

end;

with DModule do

case PageControl.ActivePageIndex of

0: begin

DelReader;

end;

1: begin

DelAboniment;

end;

2: begin

DelGivenLit;

GetLiteratureGiven;

end;

end;

end;

procedure TMainFrm.LCountryClick(Sender: TObject);

begin

ActiveWnd := 1;

Application.CreateForm( TCountryFrm, CountryFrm );

CountryFrm.ShowModal;

end;

procedure TMainFrm.LCityClick(Sender: TObject);

begin

ActiveWnd := 1;

Application.CreateForm( TCityFrm, CityFrm );

CityFrm.ShowModal;

end;

procedure TMainFrm.LStateClick(Sender: TObject);

begin

ActiveWnd := 1;

if Trim( RDocCity.text ) <> '' then begin

Application.CreateForm( TStateFrm, StateFrm );

StateFrm.ShowModal;

end

else begin

MessageDlg( 'Ошибка: Не указано значение поля "Город"!',

mtError, [mbOk], 0 );

end;

end;

procedure TMainFrm.ExitBtnClick(Sender: TObject);

begin

Close;

end;

procedure TMainFrm.FormShow(Sender: TObject);

begin

DModule.IBTransaction.StartTransaction;

end;

procedure TMainFrm.LNumWorkerClick(Sender: TObject);

begin

ActiveWnd := 2;

Application.CreateForm( TWorkerFrm, WorkerFrm );

WorkerFrm.ShowModal;

end;

procedure TMainFrm.MExitClick(Sender: TObject);

begin

ExitBtn.OnClick( sender );

end;

procedure TMainFrm.LCityMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

LCity.Font.Color := clPurple;

end;

procedure TMainFrm.LStateMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

LState.Font.Color := clPurple;

end;

procedure TMainFrm.LCityMouseLeave(Sender: TObject);

begin

LCity.Font.Color := clBlue;

end;

procedure TMainFrm.LStateMouseLeave(Sender: TObject);

begin

LState.Font.Color := clBlue;

end;

procedure TMainFrm.LNumWorkerMouseMove(Sender: TObject; Shift: TShiftState;

X, Y: Integer);

begin

LNumWorker.Font.Color := clPurple;

end;

procedure TMainFrm.LNumWorkerMouseLeave(Sender: TObject);

begin

LNumWorker.Font.Color := clBlue;

end;

procedure TMainFrm.LNumReaderMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

LNumReader.Font.Color := clPurple;

end;

procedure TMainFrm.LAuthorNameMouseMove(Sender: TObject;

Shift: TShiftState; X, Y: Integer);

begin

LAuthorName.Font.Color := clPurple;

end;

procedure TMainFrm.LAuthorNameMouseLeave(Sender: TObject);

begin

LAuthorName.Font.Color := clBlue;

end;

procedure TMainFrm.LTepographyMouseMove(Sender: TObject;

Shift: TShiftState; X, Y: Integer);

begin

LTepography.Font.Color := clPurple;

end;

procedure TMainFrm.LTepographyMouseLeave(Sender: TObject);

begin

LTepography.Font.Color := clBlue;

end;

procedure TMainFrm.LLitMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

LLit.Font.Color := clPurple;

end;

procedure TMainFrm.LLitMouseLeave(Sender: TObject);

begin

LLit.Font.Color := clBlue;

end;

procedure TMainFrm.LAuthorNameClick(Sender: TObject);

begin

Application.CreateForm( TAuthorFrm, AuthorFrm );

AuthorFrm.ShowModal;

end;

procedure TMainFrm.LTepographyClick(Sender: TObject);

begin

ActiveWnd := 4;

Application.CreateForm( TTepFrm, TepFrm );

TepFrm.ShowModal;

end;

procedure TMainFrm.LLitClick(Sender: TObject);

begin

if LitTypeCB.ItemIndex = -1 then begin

MessageDlg( 'Не выбран тип литературы!', mtError, [mbOk], 0 );

exit;

end;

Application.CreateForm( TLitFrm, LitFrm );

LitFrm.ShowModal;

end;

procedure TMainFrm.LitTypeCBChange(Sender: TObject);

begin

DelEditFields;

if LitTypeCB.ItemIndex <> 0 then begin

AuthorName.Enabled := false;

Tepography.Enabled := false;

LAuthorName.Enabled := false;

LTepography.Enabled := false;

end

else begin

AuthorName.Enabled := true;

Tepography.Enabled := true;

LAuthorName.Enabled := true;

LTepography.Enabled := true;

end;

end;

procedure TMainFrm.N8Click(Sender: TObject);

begin

ShellExecute( handle, 'open', 'LibraryHelp.hlp', nil, nil, SW_RESTORE );

end;

procedure TMainFrm.RDocSeriaKeyPress(Sender: TObject; var Key: Char);

var keys: set of char;

begin

keys := ['а'..'я', 'А'..'Я', chr( 8 )];

if not( key in keys ) then

key := #0;

end;

procedure TMainFrm.RDocNumKeyPress(Sender: TObject; var Key: Char);

var keys: set of char;

begin

keys := ['0'..'9', chr( 8 )];

if not( key in keys ) then

key := #0;

end;

procedure TMainFrm.RDocCityKeyPress(Sender: TObject; var Key: Char);

var keys: set of char;

begin

keys := ['а'..'я', 'А'..'Я', chr( 8 )];

if not( key in keys ) then

key := #0;

end;

procedure TMainFrm.RBDateKeyPress(Sender: TObject; var Key: Char);

var keys: set of char;

begin

keys := ['0'..'9', '.', chr( 8 )];

if not( key in keys ) then

key := #0;

end;

unit PromtUnit;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls, IniFiles;

type

TLoginPromtFrm = class(TForm)

GroupBox1: TGroupBox;

Label1: TLabel;

GroupBox2: TGroupBox;

EUserName: TEdit;

EPassword: TEdit;

Label2: TLabel;

Label3: TLabel;

GroupBox3: TGroupBox;

Button1: TButton;

Button2: TButton;

GroupBox4: TGroupBox;

BDPath: TEdit;

Label4: TLabel;

Button3: TButton;

OpenDlg: TOpenDialog;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

private

{ Private declarations }

public

path, user_name, password: ShortString;

end;

var

LoginPromtFrm: TLoginPromtFrm;

Ini: TIniFile;

implementation

{$R *.dfm}

uses MainUnit, DataUnit;

procedure TLoginPromtFrm.Button1Click(Sender: TObject);

begin

Application.CreateForm( TMainFrm, MainFrm );

with DModule.IBLibrary do begin

DatabaseName := BDPath.Text;

Params.Add( 'user_name=' + EUserName.Text );

Params.Add( 'password=' + EPassword.Text );

end;

try

if not DModule.IBLibrary.Connected then

DModule.IBLibrary.Connected := true;

Hide;

MainFrm.Show;

except on e: exception do

MessageDlg( 'Ошибка соединения: ваше имя и пароль не определены!',

mtError, [mbOk], 190 );

end;

end;

procedure TLoginPromtFrm.Button2Click(Sender: TObject);

begin

Application.Terminate;

end;

procedure TLoginPromtFrm.FormCreate(Sender: TObject);

var F: file;

p: array[0..255] of char;

begin

GetCurrentDirectory( 100, p );

if not FileExists( p + '\Setings.ini' ) then begin

AssignFile( F, p + '\Setings.ini' );

Rewrite( f );

CloseFile( F );

end;

Ini := TIniFile.Create( p + '\Setings.ini' );

BDPath.text := Ini.ReadString( 'Library', 'Path', 'D:\Database\' );

EUserName.Text := 'SYSDBA';

end;

procedure TLoginPromtFrm.Button3Click(Sender: TObject);

begin

if OpenDlg.Execute then begin

BDPath.Text := OpenDlg.FileName;

Ini.WriteString( 'Library', 'Path', BDPath.Text );

end;

end;

procedure TLoginPromtFrm.FormClose(Sender: TObject;

var Action: TCloseAction);

begin

Ini.Free;

end;

end.

unit LitUnit;

interface

uses

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

Dialogs, StdCtrls, Buttons, Grids, DBGrids;

type

TLitFrm = class(TForm)

GroupBox1: TGroupBox;

GroupBox2: TGroupBox;

GroupBox3: TGroupBox;

DBGrid: TDBGrid;

SDate: TEdit;

EDate: TEdit;

LitSearchBtn: TBitBtn;

AddLitBit: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

BitBtn5: TBitBtn;

NameLit: TEdit;

LName: TLabel;

Label1: TLabel;

Label2: TLabel;

procedure FormCreate(Sender: TObject);

procedure LitSearchBtnClick(Sender: TObject);

procedure AddLitBitClick(Sender: TObject);

procedure BitBtn5Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure SDateKeyPress(Sender: TObject; var Key: Char);

private

public

Res: boolean;

LitName, TepName: ShortString;

PrintDate: TDateTime;

procedure GetBooks;

procedure GetMagazines;

procedure GetPapers;

procedure AddBook;

procedure AddPaper;

procedure AddMagazine;

procedure UpdBook;

procedure UpdMagazine;

procedure UpdPaper;

procedure DelLit( litType: byte );