Разработка экспертной системы контроля знаний
Основные понятия реляционных баз данных, порядок установки SQL Server. Проектирование схемы работы БД из Excel, ее реализация в среде Microsoft Visual Basic. Разработка интерфейса, эскиза вкладки и кнопок. Расчет затрат на разработку и отладку продукта.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | дипломная работа |
| Язык | русский |
| Дата добавления | 26.02.2015 |
| Размер файла | 634,5 K |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
- механический срыв пламени сильной струей газа или воды, взрывом;
- создание условий огнезаграждения, при которых огонь распространяется через узкие каналы, диаметр которых меньше диаметра гашения;
Для достижения этого применяют различные огнегасящие материалы и смеси (называемые далее веществами гашения или способами гашения).
Основными способами гашения являются:
- вода, которая может подаваться в огонь пожара цельными или распыленными струями;
- пены (воздушно-механические и химические разной кратности), которые представляют собой коллоидные системы, состоящие из пузырьков воздуха (в случае воздушно-механической пены), окруженных пленкой воды;
- инертные газовые разбавители (диоксид углерода, азот, аргон, водяной пар, дымовые газы);
- гомогенные ингибиторы - галогеноуглеводороды (хладоны) с низкой температурой кипения;
- гетерогенные ингибиторы - порошки для гашения огня;
- комбинированные смеси.
Выбор способа гашения и его подачи определяется классом пожара и условиями его развития.
4.4.4 Пожарная сигнализация
Наличие охранно-пожарной сигнализации - важнейшее требование к любому современному офису или предприятию. Отсутствие такой системы сразу вызывает нарекания со стороны пожарной инспекции и офис может быть просто не допущен к эксплуатации при несоблюдении норм пожарной безопасности.
Наиболее распространены одно- и многоточечные индикаторы задымленности (каждый со своими источником питания и сигнализатором). Индикаторы задымленности бывают трех типов: ионизационные, фотоэлектрические и комбинированные (ионизационно-фотоэлектрические). В ионизационных индикаторах задымленности имеется небольшое количество радиоактивного изотопа (америция-231), который ионизует воздух в датчике, делая его электропроводящим. Частицы дыма уменьшают проводимость воздуха, вследствие чего и включается звуковой сигнал. В камере с фотоэлементом фотоэлектрического индикатора задымленности предусмотрен малый источник света. Бытовые системы пожарной сигнализации обычно представляют собой ряд индикаторов задымленности, подключенных к общему контрольному блоку с питанием от сети переменного тока и отдельным аккумулятором, способным питать систему в течение 24 ч. Такие системы часто оборудованы также тепловыми детекторами, ручными (кнопочными) сигнализаторами, звонками и сиренами.
В комбинированных системах предусматриваются как пожарная, так и охранная сигнализации, причем сигнал второй отменяется сигналом первой.
Список использованной литературы
1. Бизнес-анализ с помощью Excel 2000.Конрад Карлберг.: Учеб. пособие/ Пер. с англ. - М.: Издат. дом "Вильямс", 2000. - 480 с.: ил.
2. Использование MS Excel и VBA в экономике и финансах. Гарнаев А.- Санкт-Петербург, BHV, 1999. - 336 с.
3. Начальный курс информатики для пользователей персональных компьютеров / Уч.-метод. пособие. Павлыш В.Н., Анохина И.Ю., Кононенко И.Н., Зензеров В.И.- Донецк: ДонНТУ, 2006. - 235 с.
4.Объектно-ориентированный подход в программировании. О. Н.Евсеева. Программирование и реализация приложений в среде Microsoft Office. Учебное пособие. Ульяновск. 2000
5. Программирование на VBA в Microsoft Office 2007. Слепцова Л.Д. Самоучитель. : - М: Издательский дом "Диалектика", "Вильямс", 2007 - 432 с
6. Программирование на VBA в Microsoft Office 2010. Слепцова Л.Д. Самоучитель. : - М: Издательский дом "Диалектика", "Вильямс", 2010- 432 с
7. Программирование в среде Visual Basic for Application Демидова Л.А., Пылкин А.Н.: Практикум. - V.: Горячая линия - Телеком, 2004. - 175 с.
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
On Error Resume Next
Set Add_Control = Comm_Bar.Controls.Add(Type:=B_Type)
With Add_Control
If B_Face > 0 Then .FaceId = B_Face:
.Tag = Tag: .OnAction = On_Action: .Caption = B_Caption: If Begin_Group Then .BeginGroup = True
End With
End Function
Sub УдалениеПанелиИнструментов()
GetCommandBar PROJECT_NAME, True
End Sub
Function GetCommandBar(ByVal CommandBarName As String, Optional ByVal Clean As Boolean = False, _
Optional ByVal Position As MsoBarPosition = msoBarFloating) As CommandBar
On Error Resume Next: Err.Clear
' получаем ссылку на пользовательскую панель инструментов
Set GetCommandBar = Application.CommandBars(CommandBarName)
If Err.Number Then ' если панель не найдена - создаём её
Set GetCommandBar = Application.CommandBars.Add(CommandBarName, Position, False, True)
End If
If Clean Then ' перебираем на ней все элементы, и удаляем их
For Each cbc In GetCommandBar.Controls: cbc.Delete: Next
End If
GetCommandBar.Visible = True ' отображаем панель инструментов
End Function
Sub ФормированиеПанелиИнструментов()
On Error Resume Next: Application.ScreenUpdating = False
' получаем ссылку на пользовательскую панель инструментов
Set AddinMenu = GetCommandBar(PROJECT_NAME, True)
' добавление новых элементов управления на панель
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()
On Error Resume Next: ThisWorkbook.IsAddin = False
End Sub
Sub SetIsAddinAsTrue()
On Error Resume Next: ThisWorkbook.IsAddin = True
End Sub
Sub SearchCell()
On Error Resume Next
If ActiveWorkbook Is Nothing Then
msg = "Нет открытых книг Excel" & vbNewLine & _
"Сначала откройте книгу Excel, а потом уже запускайте поиск!"
MsgBox msg, vbExclamation, "Поиск по всем листам книги"
Exit Sub
End If
txt = Application.CommandBars.ActionControl.Text
If Len(Trim(txt)) Then
'MsgBox "Получена команда поиска текста: " & txt, vbInformation
Dim coll As Collection: Set coll = SearchResults(txt)
If coll.Count Then
ReDim res(0 To coll.Count - 1, 0 To 3)
For i = 1 To coll.Count
arr = Split(coll(i), sep)
res(i - 1, 0) = i
res(i - 1, 1) = arr(1)
res(i - 1, 2) = arr(0)
res(i - 1, 3) = arr(2)
Next i
SF.Caption = "Результаты поиска текста """ & txt & """"
SF.Show
SF.ListBox_Search.List = res
SF.TextBox_count.Text = coll.Count
Else
msg = "Поиск завершён" & vbNewLine & _
"Текст """ & txt & """ не найден ни на одном из листов файла "" & ActiveWorkbook.Name & """
MsgBox msg, vbInformation, "Поиск по всем листам книги"
End If
End If
End Sub
Function SearchResults(ByVal txt As String) As Collection
Dim sh As Worksheet, rFndRng As Range, sAddress As String
Set SearchResults = New Collection
For Each sh In ActiveWorkbook.Worksheets
sAddress = "": Set rFndRng = Nothing
Set rFndRng = sh.UsedRange.Find(What:=txt, LookIn:=xlValues, LookAt:=xlPart)
If Not rFndRng Is Nothing Then
sAddress = rFndRng.Address
Do
SearchResults.Add rFndRng.Address & sep & rFndRng.Worksheet.Name & sep & rFndRng.Text
Set rFndRng = sh.UsedRange.FindNext(rFndRng)
Loop While sAddress <> rFndRng.Address
End If
Next sh
End Function
Макросы подключения и отчистки листа.
Sub connect()
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
Dim rs As ADODB.Recordset
Dim strConn As String
strConn = "Driver={SQL Server};Server=STAS-ПК\MSSQL; Database=Страхование;"
cn.Open strConn
Dim queryArr, i
queryArr = Array("SELECT * FROM Договора")
For i = LBound(queryArr) To UBound(queryArr)
ExecuteQuery queryArr(i), cn, rs
Next i
cn.Close
Set cn = Nothing
End Sub
Private Sub ExecuteQuery(query As Variant, ByRef cn As ADODB.Connection, ByRef rs As ADODB.Recordset)
Set rs = New ADODB.Recordset
With rs
.ActiveConnection = cn
.Open CStr(query)
Sheets(1).Range("A1").CopyFromRecordset rs
.Close
End With
Set rs = Nothing
End Sub
Sub clear()
Dim answer As Integer
answer = MsgBox("Вы действительно хотите отчистить лист?", vbYesNo + vbQuestion, "Отчистка листа")
If answer = vbYes Then
Cells.ClearContents
Else
'do nothing
End If
End Sub
Размещено на Allbest.ru
Подобные документы
Общие понятия реляционного похода к базам данных. Разработка программы для автоматизации функций руководителя салона сотовой связи. Детализация бизнес-процессов. Интерфейс для работы пользователя. Тестирование разработанной информационной системы.
курсовая работа [2,2 M], добавлен 26.06.2012Проектирование базы данных для автоматизации работы салона художественной татуировки в среде разработки Delphi 7 с использование сервера баз данных Microsoft SQL Server 2008 R2. Схема алгоритма системы. Протокол тестирования программного продукта.
курсовая работа [539,3 K], добавлен 15.02.2017Разработка программного продукта с помощью языка программирования Visual Basic. Описание интерфейса пользователя и возможностей программы. Исходный код основных модулей. Программа, демонстрирующая основные возможности диаграмм и среды Visual Basic.
контрольная работа [989,9 K], добавлен 29.03.2011Концептуальное проектирование базы данных: разработка схемы и структуры таблиц, описание атрибутов. Реализация базы данных в среде СУБД MS SQL Server 2000. Основные принципы создания таблиц. Доступ и обработка данных с помощью утилиты Enterprise Manager.
курсовая работа [3,8 M], добавлен 22.01.2013Решение экономических задач с помощью Microsoft Excel и инструментария Visual Basic For Application. Способы запуска редактора Visual Basic, правила его синтаксиса. Создание автоматических макросов по сортировке и выборке. Создание управляющих кнопок.
курсовая работа [852,0 K], добавлен 24.09.2010Microsoft Excel как программным средством для работы с таблицами данных, позволяющим вычислять значения, упорядочивать, анализировать и графически представлять различные виды данных, взаимодействие с Visual. Разработка базы данных, содержание и функции.
курсовая работа [1,8 M], добавлен 05.12.2012Функциональная модель системы. Проектирование схемы базы данных. Проектирование архитектуры системы. Принцип технологии клиент-сервер. Построение схемы ресурсов. Выбор программных средств. Разработка базы данных с использованием Microsoft SQL Server.
дипломная работа [1,1 M], добавлен 30.03.2015Разработка и освоение в современном производстве информационной подсистемы. Создание базы данных в среде MS SQL Server 2008 и приложения в среде MS Visual Studio 2012. Процесс ввода при выборе пунктов меню. Заполнение формы с критериями на фильтрацию.
отчет по практике [834,4 K], добавлен 27.11.2013Свойства объектов и проверка расчетной зависимости на основании экспериментальной выборки. Построение графической зависимости экспериментальных и расчетных значений от x для их сравнения. Выполнение работы в среде Visual Basic, Excel и MathCAD.
курсовая работа [261,9 K], добавлен 20.05.2011Структура типичной экспертной системы. База данных (рабочая память), её назначение. Функция getsport как экземпляр класса cSport. Алгоритм работы экспертной системы. Реализация пользовательского интерфейса. Результаты тестирования системы пользователем.
курсовая работа [1018,8 K], добавлен 13.06.2012