Проектирование и разработка баз и банков данных

ПОЯСНИТЕЛЬНАЯ ЗАПИСКА

К КУРСОВОМУ ПРОЕКТУ

ПО ДИСЦИПЛИНЕ “БАЗЫ И БАНКИ ДАННЫХ”

Тема: “Проектирование и реализация базы данных”

Выполнил студент гр. Э-282:

Богдановский А. А.

Принял преподаватель:

Сухомлинов А. И.

________________________

Дата:

“ ” января 1996 г.

ОГЛАВЛЕНИЕ

I. Постановка задачи 3

II. Разработка базы данных “ПДС” 3

III. Реализация базы данных “ПДС” 3

IV. Схема данных и программные тексты 3

V. Описание автоматизированного рабочего места 4

VI. Результаты работы 6

СПИСОК ЛИТЕРАТУРЫ 7

Приложение I. Отчет по летней практике по теме “Инфологическое

моделирование” 8

Приложение II. Программные тексты, запросы и схема данных 13

Приложение III. Таблицы данных с информацией 17

Приложение IV. Примеры отчетов 19

1 Постановка задачи

Лаборатория инженерной океанологии (ЛИО) при дальневосточном научно-

исследовательском гидрометеорологическом институте (ДВНИГМИ) производит

расчеты предельно-допустимых сбросов (ПДС) для предприятий различных видов

деятельности. Расчет производится с помощью специальных программ расчета

ПДС по методике /1/.

Разработать и реализовать базу данных (БД) “ПДС”, обеспечивающую

хранение, накопление и предоставление всей информации о предприятии-

заказчике, необходимой для программы расчета ПДС.

2 Разработка базы данных “ПДС”

Разработка базы данных “ПДС” проводилась в работе по летней практике.

В этой работе была составлена полная инфологическая модель базы данных с

типами сущностей, типами связей, их атрибутами и графическим представлением

модели.

Отчет по вышеуказанной летней практике представлен в данной

пояснительной записке в приложении I.

3 Реализация базы данных “ПДС”

База данных “ПДС” была реализована на СУБД Microsoft Access 2.0 в

среде Microsoft Windows 3.1 * . При выборе СУБД использовались /3-5/. В

качестве руководства по генерации таблиц, экранных форм, запросов, отчетов,

по программированию макрокоманд и программных модулей использовалась /2/.

База данных вместе с таблицами данных, экранными формами, запросами,

отчетными формами в Microsoft Access представляется в одном файле. База

данных “ПДС” хранится в файле PDS.MDB.

Схема данных, тексты макрокоманд и программное описание элементов

управление приведены в разделе IV. Описание реализованного рабочего места

(АРМ) на основе базы “ПДС” приводится в разделе V настоящей записки.

4 Схема данных и программные тексты

Так как представление структуры базы данных, экранных форм, запросов,

отчетных форм в Microsoft Access обеспечивается внутренней реализацией СУБД

(в отличие от распространенных СУБД типа dBase, FoxPro, и т. д., в которых

эти характеристики описываются программным путем), то представление полного

программного кода базы данных, написанной на Microsoft Access является

невозможным, в связи с отсутствием такового.

Однако, при создании экранных форм для присвоения различных функций

элементам управления - кнопкам - использовался внутренний язык СУБД -

Access Basic. Некоторые процедуры, написанные на этом языке, представлены в

приложении II.

В базе данных “ПДС” для генерации двух отчетов используется два

запроса. Хотя эти запросы генерировались визуальными средствами, но есть

возможность представить их в виде SQL-запроса. Эти два SQL-запроса

представлены также в приложении II.

Для связи таблиц баз данных, также как и для запросов, используется

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

приложении II.

5 Описание автоматизированного рабочего места

В результате работы было создано автоматизированное рабочее место

(АРМ) в виде набора связанных экранных форм и отчетов, позволяющее вводить,

редактировать, просматривать данные по предприятиям, по выпускам

предприятий, загрязняющие вещества, концентрации веществ по выпускам,

контрольные створы для выпусков, параметры загрязняющих веществ в

контрольных створах. Кроме того, имеется возможность генерации отчетов по

данным о выпусках предприятия и о концентрации загрязненных веществ по

конкретному выпуску.

После загрузки главного (и единственного) файла базы “ПДС” PDS.MDB из

СУБД Microsoft Access на экране автоматически появляется следующий экран:

[pic]

Из главного экрана можно попасть в следующие экраны:

. Кнопка “Предприятия” - экран для работы с базой Предприятия (добавление,

удаление, редактирование Предприятий и их выпусков, а также концентраций

загрязняющих веществ по каждому выпусков):

[pic]

. Кнопка “Контрольные створы” - работа с базой контрольных створов вместе с

базой загрязняющих веществ по каждому створу:

[pic]

. Кнопка “Вещества” - добавление новых контролируемых загрязняющих веществ:

[pic]

Таким образом, программа “поддержки” базы данных “ПДС” содержит три

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

этих форм, существует еще несколько, которые являются вспомогательными и

вызываются из форм, описанных выше. Вспомогательные формы в данной записке

не приводятся из-за их малозначимости.

6 Результаты работы

В результате непродолжительной работы с базой данных “ПДС” с помощью

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

информацией о выпусках. Таблицы, представляющие эти данные представлены в

приложении 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.

ПРОЦЕДУРЫ ОПИСАНИЯ ФУНКЦИЙ ЭЛЕМЕНТОВ УПРАВЛЕНИЯ ЭКРАННЫХ ФОРМ

Форма “Выпуски”

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]![Концентрация Стоков]![Выпуск]));

СХЕМА ДАННЫХ

[pic]

Таблица “Вещество”

|Веще|Название |

|ство| |

|22 |Взвешенные |

| |вещества |

|23 |Растворенный |

| |кислород |

|24 |БПК полное |

|25 |БПК 5 |

|26 |ХПК |

|27 |Аммоний |

| |солевой |

|28 |Азот |

| |аммонийный |

|29 |Сухой остаток |

|30 |Нитриты |

|31 |Нитраты |

|32 |Нефтепродукты |

|33 |Фенолы |

|34 |Амминосульфаты|

| |(гр. СПАВ) |

|35 |Амминосульфона|

| |ты (гр. СПАВ) |

|36 |Минерализация |

|37 |Хлориды (для |

| |пресн.) |

|38 |Хлориды |

|39 |Сульфаты |

Таблица “Выпуск”

|Вып|Пр|Контроль|Названи|Рас|Диа|Рассто|Глу|Плотно|Скорос|Направ|

|уск|ед|ный |е |ход|мет|яние |бин|сть |ть |ление |

| |ия| | | | |га | | |я |я |

| |ти| | | | | | | | | |

| |е | | | | | | | | | |

|24 |5 |1 |Выпуск |0.0|0.2|1 |1.2|1.03 |120 |0 |

| | | |N1 |2 | | | | | | |

|25 |5 |1 |Выпуск |0.0|0.2|0 |1.2|1.03 |120 |0 |

| | | |N2 |5 | | | | | | |

|26 |6 |2 |Выпуск |0.0|0.2|205 |4.3|1.003 |15 |1 |

| | | |N1 |014|5 | |5 | | | |

| | | | |3 | | | | | | |

|27 |7 |4 |Выпуск |0.0|0.2|15 |2.3|1.02 |20 |0 |

| | | |N1 |045| | | | | | |

|29 |7 |4 |Выпуск |0.0|0.2|0 |1.2|1.02 |20 |0 |

| | | |N4 |032|5 | | | | | |

|30 |7 |4 |Выпуск |0.0|0.2|0 |1.2|1.02 |20 |0 |

| | | |N5 |8 |5 | | | | | |

|32 |8 |3 |Выпуск |0.0|0.2|0.2 |2.2|1.033 |0.1 |0 |

| | | |в |043| | | | | | |

| | | |кутовую|2 | | | | | | |

Таблица “Контрольный Створ”

|Контрольн|Название|

|ый Створ | |

|1 |р. |

| |Светлое |

|2 |б. |

| |Андреева|

|3 |б. Малый|

| |Гайдамак|

|4 |з. |

| |Восточны|

| |й |

Таблица “Предприятие”

|Предп|НазваниеПре|

|рияти|дприятия |

|е | |

|5 |Рыбзавод |

| |"Светлое" |

|6 |Рыбколхоз |

| |"Новый Мир"|

|7 |Порт |

| |"Восточный"|

|8 |ГСРЗ |

| |"Гайдамак" |

Таблица “СвязьВеществаКонтрольногоСтвора”

|Вещества |Веще|Контрольн|ПД|Фо|КН|

|Контрольного |ство|ый Створ |К |н |К |

|1 |22 |1 |2.|2.|0 |

| | | |75|5 | |

|2 |25 |1 |1.|3.|0.|

| | | |8 |5 |03|

|3 |28 |1 |0.|0.|0.|

| | | |05|03|1 |

|4 |31 |1 |0.|0.|0.|

| | | |00|00|3 |

| | | |5 |06| |

|5 |26 |1 |1.|0 |0 |

| | | |5 | | |

|6 |29 |1 |10|0 |0 |

| | | |.3| | |

|7 |36 |1 |1.|0 |0 |

| | | |2 | | |

|8 |37 |1 |30|10|0 |

| | | |0 | | |

|9 |22 |2 |2.|2.|0 |

| | | |75|5 | |

|10 |23 |2 |1.|2.|0.|

| | | |3 |5 |4 |

|11 |24 |2 |3.|5.|0.|

| | | |4 |6 |00|

| | | | | |5 |

|12 |25 |2 |1.|0.|0 |

| | | |8 |04| |

|13 |26 |2 |1.|0.|0.|

| | | |5 |05|05|

|14 |27 |2 |2.|1.|0 |

| | | |3 |2 | |

|15 |22 |4 |2.|2.|0.|

| | | |75|5 |01|

|16 |24 |4 |3.|2.|0 |

| | | |4 |3 | |

|17 |23 |4 |1.|1.|0 |

| | | |3 |1 | |

|18 |25 |4 |1.|0.|0 |

| | | |8 |1 | |

|19 |27 |4 |2.|0.|0.|

| | | |3 |00|06|

| | | | |01| |

Таблица “СвязьКонцентрацияСтока”

|Воде | | |я |

|5 |22 |30 |2 |

|7 |23 |30 |0.2 |

|8 |28 |30 |0.32 |

|9 |29 |30 |0.000|

| | | |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.000|

| | | |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 |

ОТЧЕТ ПО ВЫПУСКАМ ПРЕДПИЯТИЯ

Информация о выпусках предприятия

Название предприятия: Рыбзавод "Светлое"

Название выпуска: Выпуск 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/).

Рефераты

Проектирование и разработка баз и банков данных

Проектирование и разработка баз и банков данных