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

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

Для достижения этого применяют различные огнегасящие материалы и смеси (называемые далее веществами гашения или способами гашения).

Основными способами гашения являются:

- вода, которая может подаваться в огонь пожара цельными или распыленными струями;

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

- инертные газовые разбавители (диоксид углерода, азот, аргон, водяной пар, дымовые газы);

- гомогенные ингибиторы - галогеноуглеводороды (хладоны) с низкой температурой кипения;

- гетерогенные ингибиторы - порошки для гашения огня;

- комбинированные смеси.

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

4.4.4 Пожарная сигнализация

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

Наиболее распространены одно- и многоточечные индикаторы задымленности (каждый со своими источником питания и сигнализатором). Индикаторы задымленности бывают трех типов: ионизационные, фотоэлектрические и комбинированные (ионизационно-фотоэлектрические). В ионизационных индикаторах задымленности имеется небольшое количество радиоактивного изотопа (америция-231), который ионизует воздух в датчике, делая его электропроводящим. Частицы дыма уменьшают проводимость воздуха, вследствие чего и включается звуковой сигнал. В камере с фотоэлементом фотоэлектрического индикатора задымленности предусмотрен малый источник света. Бытовые системы пожарной сигнализации обычно представляют собой ряд индикаторов задымленности, подключенных к общему контрольному блоку с питанием от сети переменного тока и отдельным аккумулятором, способным питать систему в течение 24 ч. Такие системы часто оборудованы также тепловыми детекторами, ручными (кнопочными) сигнализаторами, звонками и сиренами.

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

1. Бизнес-анализ с помощью Excel 2000.Конрад Карлберг.: Учеб. пособие/ Пер. с англ. - М.: Издат. дом "Вильямс", 2000. - 480 с.: ил.

2. Использование MS Excel и VBA в экономике и финансах. Гарнаев А.- Санкт-Петербург, BHV, 1999. - 336 с.

3. Начальный курс информатики для пользователей персональных компьютеров / Уч.-метод. пособие. Павлыш В.Н., Анохина И.Ю., Кононенко И.Н., Зензеров В.И.- Донецк: ДонНТУ, 2006. - 235 с.

4.Объектно-ориентированный подход в программировании. О. Н.Евсеева. Программирование и реализация приложений в среде Microsoft Office. Учебное пособие. Ульяновск. 2000

6. Программирование на VBA в Microsoft Office 2010. Слепцова Л.Д. Самоучитель. : - М: Издательский дом "Диалектика", "Вильямс", 2010- 432 с

8. Средства разработки VBA-программиста. Биллиг В.А. Офисное программирование. Том 1. - М.: Издательско-торговый дом "Русская редакция", 2001 - 480 с.: ил

9. Сборник примеров и задач. Лавренов С.М. Excel - М.: Финансы и статистика, 2003. - 336 с.: ил.

10. Самоучитель программирования на VBA в Microsoft Office Хорев В.Д. /. - К.: Юниор, 2001. -320 с.VBA в Office 2000. Офисное программирование. Биллиг В.А - М.: Издательско-торговый дом "Русская Редакция", 1999. - 480 с.: ил. (вроде бы есть сайты у этого автора.

11. Excel для экономистов и менеджеров. Экономические расчёты и оптимизационное моделирование в среде Excel.Дубина А., Орлова С., Шубина И., Хромов А. - СПб.: Питер, 2004. - 295 с.: ил.

12. excelexpert.ru/nastrojka-lenty-instrumentov-vkladok-excel.

13. Microsoft Excel 97 в подлиннике. Персон РТ. I. - Санкт-Петербург, BHV, 1997. - 1272 с.

14. Microsoft Word: Visual Basic for Application. Copyright 2002-2007 by Susan Doney Designs, 37 страниц

15. Useful Microsoft Word Techniques. Copyright 2002-2007 by Susan Doney Designs, 54 страницы.

16. VBA. Обработка ошибок в программах на. О.А. Бияков. Методические указания по курсу "Информатика и программирование" для студентов специальности 351400 "Прикладная информатика в экономике". Кемерово 2006/

17. VBA для "чайников", 3-е издание. Камминг, Стив.: Пер. с англ. - М.: Издательский дом "Вильямс", 2001 - 448 с.

18.VB & VBA in a NutShell: The Language by Paul Lomax. Copiright 1998 O`Reilly & Associates, Inc.

19. ttp://msdn.microsoft.com/ru-ru/library/95b8f22f(v=vs.90).aspx.

20.http://stackoverflow.com/questions/18313899/vba-new-database-connection.

21. http://support.microsoft.com/kb/306125/ru.

22. http://www.excel-easy.com/vba.html/

23. http://technet.microsoft.com/ru-ru/library/dd776381(v=sql.105).aspx.

Приложение. Листинг программы

Public Const sep = "~$~"

Public Const PROJECT_NAME = "Knopki"

' список допустимых элементов управления на пользовательской панели инструментов

Public Enum CONTROL_TYPES

ct_BUTTON = msoControlButton

ct_TEXTBOX = msoControlEdit

ct_COMBOBOX = msoControlComboBox

ct_DROPDOWN = msoControlDropdown

ct_POPUP = msoControlPopup

End Enum

Function Add_Control(ByRef Comm_Bar, ByVal B_Type As Integer, ByVal B_Face As Integer, _

ByVal On_Action As String, ByVal B_Caption As String, _

Optional ByVal Begin_Group As Boolean = False, Optional Tag As String = "") _

As CommandBarControl

' добавляет контролы в меню Comm_Bar ' type=1 - это кнопка, type=4 - это комбобокс, 10 - popup

Sub УдалениеПанелиИнструментов()

If Err.Number Then ' если панель не найдена - создаём её

If Clean Then ' перебираем на ней все элементы, и удаляем их

GetCommandBar.Visible = True ' отображаем панель инструментов

End Function

Sub ФормированиеПанелиИнструментов()

Add_Control AddinMenu, ct_BUTTON, 271, "PERSONAL.XLSB!connect", "Выгрузка данных",, True

Add_Control AddinMenu, ct_BUTTON, 1099, "PERSONAL.XLSB!clear", "Очистка", msoButtonIconAndCaption, True

End Sub

Sub SetIsAddinAsFalse()

msg = "Нет открытых книг Excel" & vbNewLine & _

'MsgBox "Получена команда поиска текста: " & txt, vbInformation

ReDim res(0 To coll.Count - 1, 0 To 3)

res(i - 1, 0) = i

res(i - 1, 1) = arr(1)

res(i - 1, 2) = arr(0)

res(i - 1, 3) = arr(2)

msg = "Поиск завершён" & vbNewLine & _

"Текст """ & txt & """ не найден ни на одном из листов файла "" & ActiveWorkbook.Name & """

strConn = "Driver={SQL Server};Server=STAS-ПК\MSSQL; Database=Страхование;"

queryArr = Array("SELECT * FROM Договора")