Читайте данную работу прямо на сайте или скачайте
Проектирование и разработка баз и банков данных
ПОЯСНИТЕЛЬНАЯ ЗАПИСКА
К КУРСОВОМУ ПРОЕКТУ
ПО ДИСЦИПЛИНЕ БАЗЫ И БАНКИ ДАННЫХФ
Тема: Проектирование и реализация базы данных
Выполнил студент гр. Э-282:
Богдановский А. А.
Принял преподаватель:
Сухомлинов А. И.
Дата:
У Ф января а 1996 г.
ОГЛАВЛЕНИЕ
а TOC \o "1-3" \f ...... Постановка задачи.......................................................................................................................................... GOTOBUTTON _Toc347180702а а 1>IV.
Так как представление структуры базы данных, экранных форм, запросов, отчетных форм в Microsoft Access обеспечивается внутренней реализацией СУБД (в отличие от распространенных СУБД типа dBase, FoxPro, и т. д., в которых эти характеристики описываются программным путем), то представление полного программного кода базы данных, написанной на Microsoft Access является невозможным, в связи с отсутствием такового.
Однако, при создании экранных форм для присвоения различных функций элементам правления - кнопкам - использовался внутренний язык СУБД - Access Basic. Некоторые процедуры, написанные на этом языке, представлены в приложении II.
В базе данных ПДСФ для генерации двух отчетов используется два запроса. Хотя эти запросы генерировались визуальными средствами, но есть возможность представить их в виде SQL-запроса. Эти два SQL-запроса представлены также в приложении II.
Для связи таблиц баз данных, также как и для запросов, используется визуальная генерация. Схема данных в графическом виде представлена также в приложении II.
V.
В результате работы было создано автоматизированное рабочее место (АРМ) в виде набора связанных экранных форм и отчетов, позволяющее вводить, редактировать, просматривать данные по предприятиям, по выпускам предприятий, загрязняющие вещества, концентрации веществ по выпускам, контрольные створы для выпусков, параметры загрязняющих веществ в контрольных створах. Кроме того, имеется возможность генерации отчетов по данным о выпусках предприятия и о концентрации загрязненных веществ по конкретному выпуску.
После загрузки главного (и единственного) файла базы ПДСФ PDS.MDB из СУБД Microsoft Access на экране автоматически появляется следующий экран:
Из главного экрана можно попасть в следующие экраны:
Таким образом, программа поддержки базы данных ПДСФ содержит три главные экранные формы, с помощью которых можно вести базу данных. Кроме этих форм, существует еще несколько, которые являются вспомогательными и вызываются из форм, описанных выше. Вспомогательные формы в данной записке не приводятся из-за их малозначимости.
1.
2.
3.
4.
5.
а TC "Приложение I. Отчет по летней практике по теме \Инфологическое моделирование\Ф "
а TC " Приложение 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]![Концентрация Стоков]![Выпуск]));
СХЕМА ДАННЫХ
а TC " Приложение. Таблицы данных с информацией "
Таблица Вещество
Вещество |
Название |
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.6 |
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.1 |
0.06 |
Таблица СвязьКонцентрацияСтока
Концентрация В Сточной Воде |
Вещество |
Выпуск |
Коцентрация |
5 |
22 |
30 |
2 |
7 |
23 |
30 |
0.2 |
8 |
28 |
30 |
0.32 |
9 |
29 |
30 |
0.4 |
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.3 |
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 |
а TC " Приложение 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.3
Сульфаты 0
* Базы данных Microsoft Access принадлежат к типу реляционных баз данных. В таких базах данных сведения, относящиеся к различным вопросам, сохраняются в отдельных таблицах. Возможность вывода информации из базы данных обеспечивается казанием соотношений между объектами. (вырезка из /2/).