Проектирование и реализация базы данных
Скачать реферат: Проектирование и реализация базы данных |
|||
|
Оглавление курсовой работы
I. Постановка задачи
II. Разработка базы данных “ПДС”
III. Реализация базы данных “ПДС”
IV. Схема данных и программные тексты
V. Описание автоматизированного рабочего места
VI. Результаты работы
Список литературы
Приложение I Отчет по летней практике по теме “Инфологическое моделирование”
Приложение II. ....... Программные тексты, запросы и схема данных
Приложение III. ...... Таблицы данных с информацией
Приложение IV........ Примеры отчетов
I. Постановка задачи
Лаборатория инженерной океанологии (ЛИО) при дальневосточном научно-исследовательском гидрометеорологическом институте (ДВНИГМИ) производит расчеты предельно-допустимых сбросов (ПДС) для предприятий различных видов деятельности. Расчет производится с помощью специальных программ расчета ПДС по методике /1/.
Разработать и реализовать базу данных (БД) “ПДС”, обеспечивающую хранение, накопление и предоставление всей информации о предприятии-заказчике, необходимой для программы расчета ПДС.
II. Разработка базы данных “ПДС”
Разработка базы данных “ПДС” проводилась в работе по летней практике. В этой работе была составлена полная инфологическая модель базы данных с типами сущностей, типами связей, их атрибутами и графическим представлением модели.
Отчет по вышеуказанной летней практике представлен в данной пояснительной записке в приложении I.
III. Реализация базы данных “ПДС”
База данных “ПДС” была реализована на СУБД Microsoft Access 2.0 в среде Microsoft Windows 3.1 * . При выборе СУБД использовались /3-5/. В качестве руководства по генерации таблиц, экранных форм, запросов, отчетов, по программированию макрокоманд и программных модулей использовалась /2/.
База данных вместе с таблицами данных, экранными формами, запросами, отчетными формами в Microsoft Access представляется в одном файле. База данных “ПДС” хранится в файле PDS.MDB.
Схема данных, тексты макрокоманд и программное описание элементов управление приведены в разделе IV. Описание реализованного рабочего места (АРМ) на основе базы “ПДС” приводится в разделе V настоящей записки.
IV. Схема данных и программные тексты
Так как представление структуры базы данных, экранных форм, запросов, отчетных форм в Microsoft Access обеспечивается внутренней реализацией СУБД (в отличие от распространенных СУБД типа dBase, FoxPro, и т. д., в которых эти характеристики описываются программным путем), то представление полного программного кода базы данных, написанной на Microsoft Access является невозможным, в связи с отсутствием такового.
Однако, при создании экранных форм для присвоения различных функций элементам управления - кнопкам - использовался внутренний язык СУБД - Access Basic. Некоторые процедуры, написанные на этом языке, представлены в приложении II.
В базе данных “ПДС” для генерации двух отчетов используется два запроса. Хотя эти запросы генерировались визуальными средствами, но есть возможность представить их в виде SQL-запроса. Эти два SQL-запроса представлены также в приложении II.
Для связи таблиц баз данных, также как и для запросов, используется визуальная генерация. Схема данных в графическом виде представлена также в приложении II.
V. Описание автоматизированного рабочего места
В результате работы было создано автоматизированное рабочее место (АРМ) в виде набора связанных экранных форм и отчетов, позволяющее вводить, редактировать, просматривать данные по предприятиям, по выпускам предприятий, загрязняющие вещества, концентрации веществ по выпускам, контрольные створы для выпусков, параметры загрязняющих веществ в контрольных створах. Кроме того, имеется возможность генерации отчетов по данным о выпусках предприятия и о концентрации загрязненных веществ по конкретному выпуску.
После загрузки главного (и единственного) файла базы “ПДС” PDS.MDB из СУБД Microsoft Access на экране автоматически появляется следующий экран:
Из главного экрана можно попасть в следующие экраны:
Кнопка “Предприятия” - экран для работы с базой Предприятия (добавление, удаление, редактирование Предприятий и их выпусков, а также концентраций загрязняющих веществ по каждому выпусков):
Кнопка “Контрольные створы” - работа с базой контрольных створов вместе с базой загрязняющих веществ по каждому створу:
Кнопка “Вещества” - добавление новых контролируемых загрязняющих веществ:
Таким образом, программа “поддержки” базы данных “ПДС” содержит три главные экранные формы, с помощью которых можно вести базу данных. Кроме этих форм, существует еще несколько, которые являются вспомогательными и вызываются из форм, описанных выше. Вспомогательные формы в данной записке не приводятся из-за их малой значимости.
VI. Результаты работы
В результате непродолжительной работы с базой данных “ПДС” с помощью разработанных экранных форм были введены данные о нескольких предприятиях с информацией о выпусках. Таблицы, представляющие эти данные представлены в приложении III.
В приложении IV представлены два вида отчетов, которые может генерировать БД “ПДС”.
Список литературы
1. Методика расчета предельно-допустимых сбросов (ПДС) веществ в водные объекты со сточными водами. - Харьков, 1990, - 115 c.
2. Электронная встроенная гипертекстовая справочная система Microsoft Access, файл MSACC20.HLP, 4.7 Мбайта.
3. Журнал “PC Magazine Russian Edition” ?7 1994, статья У . Плейна , “Microsoft Access”.
4. Журнал “PC Magazine Russian Edition” ?5 1994.
5. Журнал “КомпьюТерра” №37-38 1994.
Приложение I. Отчет по летней практике по теме “Инфологическое моделирование”
Приложение II. Программные тексты, запросы и схема данных
ПРОЦЕДУРЫ ОПИСАНИЯ ФУНКЦИЙ ЭЛЕМЕНТОВ УПРАВЛЕНИЯ ЭКРАННЫХ ФОРМ
Форма “Выпуски”
Sub ДобавлениеНовойЗапис_Click () On Error GoTo Err_ДобавлениеНовойЗапис_Click DoCmd GoToRecord , , A_NEWREC Exit_ДобавлениеНовойЗапис_Click: Exit Sub Err_ДобавлениеНовойЗапис_Click: MsgBox Error$ Resume Exit_ДобавлениеНовойЗапис_Click End Sub Sub ДублироватьЗаписьВВы_Click () On Error GoTo Err_ДублироватьЗаписьВВы_Click DoCmd DoMenuItem A_FORMBAR, A_EDITMENU, A_SELECTRECORD_V2, , A_MENU_VER20 DoCmd DoMenuItem A_FORMBAR, A_EDITMENU, A_COPY, , A_MENU_VER20 DoCmd DoMenuItem A_FORMBAR, A_EDITMENU, 6, , A_MENU_VER20'Paste Append Exit_ДублироватьЗаписьВВы_Click: Exit Sub Err_ДублироватьЗаписьВВы_Click: MsgBox Error$ Resume Exit_ДублироватьЗаписьВВы_Click End Sub Sub УдалениеЗаписиВВыпус_Click () On Error GoTo Err_УдалениеЗаписиВВыпус_Click DoCmd DoMenuItem A_FORMBAR, A_EDITMENU, A_SELECTRECORD_V2, , A_MENU_VER20 DoCmd DoMenuItem A_FORMBAR, A_EDITMENU, A_DELETE_V2, , A_MENU_VER20 Exit_УдалениеЗаписиВВыпус_Click: Exit Sub Err_УдалениеЗаписиВВыпус_Click: MsgBox Error$ Resume Exit_УдалениеЗаписиВВыпус_Click End Sub Sub ВызовФормы_Концентра_Click () On Error GoTo Err_ВызовФормы_Концентра_Click Dim DocName As String DocName = "Концентрация Стоков" DoCmd OpenForm DocName, , , "[Выпуск] = Forms![Предприятие]![Выпуск].Form![Выпуск]" Exit_ВызовФормы_Концентра_Click: Exit Sub Err_ВызовФормы_Концентра_Click: MsgBox Error$ Resume Exit_ВызовФормы_Концентра_Click End Sub Sub Кнопка47_Click () On Error GoTo Err_Кнопка47_Click Dim DocName As String Dim LinkCriteria As String DocName = "КонтрольныйСтвор" LinkCriteria = "[Контрольный Створ] = Forms![Предприятие]![Выпуск].Form![Поле46]" DoCmd OpenForm DocName, , , LinkCriteria DoCmd GoToControl "Внедренный_объект16" Forms![КонтрольныйСтвор]![ПереходКПервойЗаписиВПредприятиях].Доступ = 0 Forms![КонтрольныйСтвор]![ПереходКПредыдущейЗаписиВПредприятиях].Доступ = 0 Forms![КонтрольныйСтвор]![ПереходКСледующейЗаписиВПредприятиях].Доступ = 0 Forms![КонтрольныйСтвор]![ПереходКПоследнейЗаписиВПредприятиях].Доступ = 0 Forms![КонтрольныйСтвор]![Кнопка20].Доступ = 0 Forms![КонтрольныйСтвор]![Кнопка21].Доступ = 0 Forms![КонтрольныйСтвор]![Кнопка22].Доступ = 0 Forms![КонтрольныйСтвор]![Название].Доступ = 0 Exit_Кнопка47_Click: Exit Sub Err_Кнопка47_Click: MsgBox Error$ Resume Exit_Кнопка47_Click End Sub
Форма “Главная”
Sub Кнопка2_Click () On Error GoTo Err_Кнопка2_Click Dim DocName As String Dim LinkCriteria As String DocName = "Предприятие" DoCmd OpenForm DocName, , , LinkCriteria Exit_Кнопка2_Click: Exit Sub Err_Кнопка2_Click: MsgBox Error$ Resume Exit_Кнопка2_Click End Sub Sub Кнопка3_Click () On Error GoTo Err_Кнопка3_Click Dim DocName As String Dim LinkCriteria As String DocName = "КонтрольныйСтвор" DoCmd OpenForm DocName, , , LinkCriteria Exit_Кнопка3_Click: Exit Sub Err_Кнопка3_Click: MsgBox Error$ Resume Exit_Кнопка3_Click End Sub Sub Кнопка9_Click () On Error GoTo Err_Кнопка9_Click DoCmd Close Exit_Кнопка9_Click: Exit Sub Err_Кнопка9_Click: MsgBox Error$ Resume Exit_Кнопка9_Click End Sub Sub Кнопка6_Click () On Error GoTo Err_Кнопка6_Click Dim DocName As String Dim LinkCriteria As String DocName = "О программе" DoCmd OpenForm DocName, , , LinkCriteria Exit_Кнопка6_Click: Exit Sub Err_Кнопка6_Click: MsgBox Error$ Resume Exit_Кнопка6_Click End Sub Sub Кнопка5_Click () On Error GoTo Err_Кнопка5_Click Dim DocName As String Dim LinkCriteria As String DocName = "Вещество" DoCmd OpenForm DocName, , , LinkCriteria Exit_Кнопка5_Click: Exit Sub Err_Кнопка5_Click: MsgBox Error$ Resume Exit_Кнопка5_Click End Sub
Форма “Контрольный Створ”
Sub Form_Close () Forms![КонтрольныйСтвор]![ПереходКПервойЗаписиВПредприятиях].Доступ = 1 Forms![КонтрольныйСтвор]![ПереходКПредыдущейЗаписиВПредприятиях].Доступ = 1 Forms![КонтрольныйСтвор]![ПереходКСледующейЗаписиВПредприятиях].Доступ = 1 Forms![КонтрольныйСтвор]![ПереходКПоследнейЗаписиВПредприятиях].Доступ = 1 Forms![КонтрольныйСтвор]![Кнопка20].Доступ = 1 Forms![КонтрольныйСтвор]![Кнопка21].Доступ = 1 Forms![КонтрольныйСтвор]![Кнопка22].Доступ = 1 Forms![КонтрольныйСтвор]![Название].Доступ = 1 End Sub Sub ВыходИзФормыКонтроль_Click () On Error GoTo Err_ВыходИзФормыКонтроль_Click DoCmd Close Exit_ВыходИзФормыКонтроль_Click: Exit Sub Err_ВыходИзФормыКонтроль_Click: MsgBox Error$ Resume Exit_ВыходИзФормыКонтроль_Click End Sub Sub Кнопка20_Click () On Error GoTo Err_Кнопка20_Click DoCmd DoMenuItem A_FORMBAR, A_EDITMENU, 10, , A_MENU_VER20 Exit_Кнопка20_Click: Exit Sub Err_Кнопка20_Click: MsgBox Error$ Resume Exit_Кнопка20_Click End Sub Sub Кнопка21_Click () On Error GoTo Err_Кнопка21_Click DoCmd GoToRecord , , A_NEWREC Exit_Кнопка21_Click: Exit Sub Err_Кнопка21_Click: MsgBox Error$ Resume Exit_Кнопка21_Click End Sub Sub Кнопка22_Click () On Error GoTo Err_Кнопка22_Click DoCmd DoMenuItem A_FORMBAR, A_EDITMENU, A_SELECTRECORD_V2, , A_MENU_VER20 DoCmd DoMenuItem A_FORMBAR, A_EDITMENU, A_DELETE_V2, , A_MENU_VER20 Exit_Кнопка22_Click: Exit Sub Err_Кнопка22_Click: MsgBox Error$ Resume Exit_Кнопка22_Click End Sub Sub ПереходКПервойЗаписи_Click () On Error GoTo Err_ПереходКПервойЗаписи_Click DoCmd GoToRecord , , A_FIRST Exit_ПереходКПервойЗаписи_Click: Exit Sub Err_ПереходКПервойЗаписи_Click: MsgBox Error$ Resume Exit_ПереходКПервойЗаписи_Click End Sub Sub ПереходКПоследнейЗап_Click () On Error GoTo Err_ПереходКПоследнейЗап_Click DoCmd GoToRecord , , A_LAST Exit_ПереходКПоследнейЗап_Click: Exit Sub Err_ПереходКПоследнейЗап_Click: MsgBox Error$ Resume Exit_ПереходКПоследнейЗап_Click End Sub Sub ПереходКПредыдущейЗа_Click () On Error GoTo Err_ПереходКПредыдущейЗа_Click DoCmd GoToRecord , , A_PREVIOUS Exit_ПереходКПредыдущейЗа_Click: Exit Sub Err_ПереходКПредыдущейЗа_Click: If Err <> 2105 Then MsgBox Error$ Resume Exit_ПереходКПредыдущейЗа_Click End Sub Sub ПереходКСледующейЗап_Click () On Error GoTo Err_ПереходКСледующейЗап_Click DoCmd GoToRecord , , A_NEXT Exit_ПереходКСледующейЗап_Click: Exit Sub Err_ПереходКСледующейЗап_Click: If Err <> 2105 Then MsgBox Error$ Resume Exit_ПереходКСледующейЗап_Click End Sub
Форма “Концентрация Стоков”
Sub ЗакрытиеФормы_Концен_Click () On Error GoTo Err_ЗакрытиеФормы_Концен_Click DoCmd Close Exit_ЗакрытиеФормы_Концен_Click: Exit Sub Err_ЗакрытиеФормы_Концен_Click: MsgBox Error$ Resume Exit_ЗакрытиеФормы_Концен_Click End Sub Sub ОтчетПоКонцентрациям_Click () On Error GoTo Err_ОтчетПоКонцентрациям_Click Dim DocName As String DocName = "ОтчетПоКонцентрациям" DoCmd OpenReport DocName, A_PREVIEW Exit_ОтчетПоКонцентрациям_Click: Exit Sub Err_ОтчетПоКонцентрациям_Click: MsgBox Error$ Resume Exit_ОтчетПоКонцентрациям_Click End Sub
Форма “Предприятие”
Sub Закрыть_Форму_Предпр_Click () On Error GoTo Err_Закрыть_Форму_Предпр_Click DoCmd Close Exit_Закрыть_Форму_Предпр_Click: Exit Sub Err_Закрыть_Форму_Предпр_Click: MsgBox Error$ Resume Exit_Закрыть_Форму_Предпр_Click End Sub Sub Запустить_Форму_Выпу_Click () On Error GoTo Err_Запустить_Форму_Выпу_Click Dim DocName As String Dim LinkCriteria As String DocName = "Выпуск" DoCmd OpenForm DocName, , , LinkCriteria Exit_Запустить_Форму_Выпу_Click: Exit Sub Err_Запустить_Форму_Выпу_Click: MsgBox Error$ Resume Exit_Запустить_Форму_Выпу_Click End Sub Sub НоваяЗаписьВПредприя_Click () On Error GoTo Err_НоваяЗаписьВПредприя_Click DoCmd GoToRecord , , A_NEWREC Exit_НоваяЗаписьВПредприя_Click: Exit Sub Err_НоваяЗаписьВПредприя_Click: MsgBox Error$ Resume Exit_НоваяЗаписьВПредприя_Click End Sub Sub ОтчетПоВыпускам_Click () On Error GoTo Err_ОтчетПоВыпускам_Click Dim DocName As String DocName = "ОтчетПоВыпускамПредприятия" DoCmd OpenReport DocName, A_PREVIEW Exit_ОтчетПоВыпускам_Click: Exit Sub Err_ОтчетПоВыпускам_Click: MsgBox Error$ Resume Exit_ОтчетПоВыпускам_Click End Sub Sub ПереходКПервойЗаписи_Click () On Error GoTo Err_ПереходКПервойЗаписи_Click DoCmd GoToRecord , , A_FIRST Exit_ПереходКПервойЗаписи_Click: Exit Sub Err_ПереходКПервойЗаписи_Click: MsgBox Error$ Resume Exit_ПереходКПервойЗаписи_Click End Sub Sub ПереходКПоследнейЗап_Click () On Error GoTo Err_ПереходКПоследнейЗап_Click DoCmd GoToRecord , , A_LAST Exit_ПереходКПоследнейЗап_Click: Exit Sub Err_ПереходКПоследнейЗап_Click: MsgBox Error$ Resume Exit_ПереходКПоследнейЗап_Click End Sub Sub ПереходКПредыдущейЗа_Click () On Error GoTo Err_ПереходКПредыдущейЗа_Click DoCmd GoToRecord , , A_PREVIOUS Exit_ПереходКПредыдущейЗа_Click: Exit Sub Err_ПереходКПредыдущейЗа_Click: If Err <> 2105 Then MsgBox Error$ Resume Exit_ПереходКПредыдущейЗа_Click End Sub Sub ПереходКСледующейЗап_Click () On Error GoTo Err_ПереходКСледующейЗап_Click DoCmd GoToRecord , , A_NEXT Exit_ПереходКСледующейЗап_Click: Exit Sub Err_ПереходКСледующейЗап_Click: If Err <> 2105 Then MsgBox Error$ Resume Exit_ПереходКСледующейЗап_Click End Sub Sub ПоискЗаписиВПредприя_Click () On Error GoTo Err_ПоискЗаписиВПредприя_Click DoCmd DoMenuItem A_FORMBAR, A_EDITMENU, 10, , A_MENU_VER20 Exit_ПоискЗаписиВПредприя_Click: Exit Sub Err_ПоискЗаписиВПредприя_Click: MsgBox Error$ Resume Exit_ПоискЗаписиВПредприя_Click End Sub Sub Редактирование_Выпус_Click () On Error GoTo Err_Редактирование_Выпус_Click Dim DocName As String Dim LinkCriteria As String DocName = "Выпуск" LinkCriteria = "[Предприятие] = [Предприятие]![Предприятие]" DoCmd OpenForm DocName, , , LinkCriteria Exit_Редактирование_Выпус_Click: Exit Sub Err_Редактирование_Выпус_Click: MsgBox Error$ Resume Exit_Редактирование_Выпус_Click End Sub Sub СписокПредприятийДля_AfterUpdate () DoCmd ApplyFilter , "НазваниеПредприятие = Me![СписокПредприятийДляПоиска]" End Sub Sub УдалениеЗаписиВПредп_Click () On Error GoTo Err_УдалениеЗаписиВПредп_Click DoCmd DoMenuItem A_FORMBAR, A_EDITMENU, A_SELECTRECORD_V2, , A_MENU_VER20 DoCmd DoMenuItem A_FORMBAR, A_EDITMENU, A_DELETE_V2, , A_MENU_VER20 Exit_УдалениеЗаписиВПредп_Click: Exit Sub Err_УдалениеЗаписиВПредп_Click: MsgBox Error$ Resume Exit_УдалениеЗаписиВПредп_Click End Sub
ЗАПРОСЫ ДЛЯ СОЗДАНИЯ ОТЧЕТОВ (В ФОРМЕ SQL)
Запрос “ЗапросДляОтчетаПоВыпускам”
SELECT DISTINCTROW Предприятие.НазваниеПредприятия, Выпуск.НазваниеВыпуска, Выпуск.Расход, Выпуск.Диаметр, Выпуск.РасстояниеДоБерега, Выпуск.Глубина, Выпуск.СкоростьТечения
FROM Предприятие INNER JOIN Выпуск ON Предприятие.Предприятие = Выпуск.Предприятие
WHERE ((Предприятие.НазваниеПредприятия=[Forms]![Предприятие]![НазваниеПредприятия]));
Запрос “ЗапросДляОтчетаПоКонцентрациям”
SELECT DISTINCTROW Выпуск.НазваниеВыпуска, Вещество.Название, СвязьКонцентрацияСтока.Коцентрация, Выпуск.Выпуск
FROM Выпуск INNER JOIN (Вещество INNER JOIN СвязьКонцентрацияСтока ON Вещество.Вещество = СвязьКонцентрацияСтока.Вещество) ON Выпуск.Выпуск = СвязьКонцентрацияСтока.Выпуск
WHERE ((Выпуск.Выпуск=[forms]![Концентрация Стоков]![Выпуск]));
СХЕМА ДАННЫХ
Приложение III. Таблицы данных с информацией
Таблица “Вещество”
Вещество |
Название |
22 |
Взвешенные вещества |
23 |
Растворенный кислород |
24 |
БПК полное |
25 |
БПК 5 |
26 |
ХПК |
27 |
Аммоний солевой |
28 |
Азот аммонийный |
29 |
Сухой остаток |
30 |
Нитриты |
31 |
Нитраты |
32 |
Нефтепродукты |
33 |
Фенолы |
34 |
Амминосульфаты (гр. СПАВ) |
35 |
Амминосульфонаты (гр. СПАВ) |
36 |
Минерализация |
37 |
Хлориды (для пресн.) |
38 |
Хлориды |
39 |
Сульфаты |
Таблица “Выпуск”
Выпуск |
Предп-риятие |
Контрольный створ |
Название Выпуска |
Расход |
Диаметр |
Расстояние ДоБерега |
Глубина |
Плотность Стоков |
Скорость Течения |
Направ-ление Течения |
24 |
5 |
1 |
Выпуск N1 |
0.02 |
0.2 |
1 |
1.2 |
1.03 |
120 |
0 |
25 |
5 |
1 |
Выпуск N2 |
0.05 |
0.2 |
0 |
1.2 |
1.03 |
120 |
0 |
26 |
6 |
2 |
Выпуск N1 |
0.00143 |
0.25 |
205 |
4.35 |
1.003 |
15 |
1 |
27 |
7 |
4 |
Выпуск N1 |
0.0045 |
0.2 |
15 |
2.3 |
1.02 |
20 |
0 |
29 |
7 |
4 |
Выпуск N4 |
0.0032 |
0.25 |
0 |
1.2 |
1.02 |
20 |
0 |
30 |
7 |
4 |
Выпуск N5 |
0.08 |
0.25 |
0 |
1.2 |
1.02 |
20 |
0 |
32 |
8 |
3 |
Выпуск в кутовую часть бухты |
0.00432 |
0.2 |
0.2 |
2.2 |
1.033 |
0.1 |
0 |
Таблица “Контрольный Створ”
Контрольный Створ |
Название |
1 |
р. Светлое |
2 |
б. Андреева |
3 |
б. Малый Гайдамак |
4 |
з. Восточный |
Таблица “Предприятие”
Предприятие |
НазваниеПредприятия |
5 |
Рыбзавод "Светлое" |
6 |
Рыбколхоз "Новый Мир" |
7 |
Порт "Восточный" |
8 |
ГСРЗ "Гайдамак" |
Таблица “СвязьВеществаКонтрольногоСтвора”
Вещества Контрольного Створа |
Вещество |
Контрольный Створ |
ПДК |
Фон |
КНК |
1 |
22 |
1 |
2.75 |
2.5 |
0 |
2 |
25 |
1 |
1.8 |
3.5 |
0.03 |
3 |
28 |
1 |
0.05 |
0.03 |
0.1 |
4 |
31 |
1 |
0.005 |
0.0006 |
0.3 |
5 |
26 |
1 |
1.5 |
0 |
0 |
6 |
29 |
1 |
10.3 |
0 |
0 |
7 |
36 |
1 |
1.2 |
0 |
0 |
8 |
37 |
1 |
300 |
10 |
0 |
9 |
22 |
2 |
2.75 |
2.5 |
0 |
10 |
23 |
2 |
1.3 |
2.5 |
0.4 |
11 |
24 |
2 |
3.4 |
5.6 |
0.005 |
12 |
25 |
2 |
1.8 |
0.04 |
0 |
13 |
26 |
2 |
1.5 |
0.05 |
0.05 |
14 |
27 |
2 |
2.3 |
1.2 |
0 |
15 |
22 |
4 |
2.75 |
2.5 |
0.01 |
16 |
24 |
4 |
3.4 |
2.3 |
0 |
17 |
23 |
4 |
1.3 |
1.1 |
0 |
18 |
25 |
4 |
1.8 |
0.1 |
0 |
19 |
27 |
4 |
2.3 |
0.0001 |
0.06 |
Таблица “СвязьКонцентрацияСтока”
Концентрация В Сточной Воде |
Вещество |
Выпуск |
Коцентрация |
5 |
22 |
30 |
2 |
7 |
23 |
30 |
0.2 |
8 |
28 |
30 |
0.32 |
9 |
29 |
30 |
0.0004 |
10 |
26 |
30 |
0 |
11 |
25 |
30 |
1.4 |
12 |
36 |
30 |
0 |
13 |
37 |
30 |
0 |
14 |
25 |
30 |
0 |
15 |
24 |
24 |
2.4 |
16 |
28 |
24 |
0.01 |
17 |
31 |
24 |
0.001 |
18 |
36 |
24 |
0 |
19 |
32 |
24 |
0.005 |
20 |
37 |
24 |
10 |
21 |
34 |
24 |
1.2 |
22 |
30 |
24 |
0.0003 |
23 |
39 |
24 |
0 |
24 |
23 |
26 |
1.2 |
25 |
29 |
26 |
1 |
26 |
24 |
26 |
2.8 |
27 |
26 |
26 |
0.02 |
28 |
27 |
26 |
0.003 |
29 |
23 |
25 |
0.1 |
30 |
24 |
25 |
2.4 |
31 |
27 |
25 |
1.2 |
32 |
29 |
25 |
1.3 |
33 |
36 |
25 |
0 |
34 |
26 |
25 |
0 |
35 |
35 |
25 |
0.002 |
36 |
22 |
27 |
4.8 |
37 |
23 |
27 |
10.12 |
38 |
25 |
27 |
12.89 |
39 |
22 |
29 |
13.4 |
40 |
23 |
29 |
12.8 |
41 |
24 |
29 |
4.6 |
42 |
25 |
29 |
1.2 |
43 |
22 |
32 |
0.02 |
44 |
23 |
32 |
0.06 |
45 |
29 |
32 |
1.2 |
46 |
36 |
32 |
5.6 |
Приложение IV........ Примеры отчетов
ОТЧЕТ ПО ВЫПУСКАМ ПРЕДПИЯТИЯ
Информация о выпусках предприятия
Название предприятия: Рыбзавод "Светлое" Название выпуска: Выпуск N1 Расход: 0.02 куб. м/с Диаметр: 0.2 м Расстояние до берега: 1 м Глубина: 1.2 м Скорость течения: 120 м/с Название предприятия: Рыбзавод "Светлое" Название выпуска: Выпуск N2 Расход: 0.05 куб. м/с Диаметр: 0.2 м Расстояние до берега: 0 м Глубина: 1.2 м Скорость течения: 120 м/с
ОТЧЕТ ПО ЗАГРЯЗНЯЮЩИМ ВЕЩЕСТВАМ ВЫПУСКА
Концентрации веществ по выпуску
Выпуск N1
Предприятие: Рыбзавод "Светлое"
Вещество Концентрация (мг/л) БПК полное 2.4 Азот аммонийный 0.01 Нитраты 0.001 Минерализация 0 Нефтепродукты 0.005 Хлориды (для пресн.) 10 Амминосульфаты (гр. СПАВ) 1.2 Нитриты 0.0003 Сульфаты 0
* Базы данных Microsoft Access принадлежат к типу реляционных баз данных. В таких базах данных сведения, относящиеся к различным вопросам, сохраняются в отдельных таблицах. Возможность вывода информации из базы данных обеспечивается указанием соотношений между объектами. (вырезка из /2/).