Смекни!
smekni.com

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

ДальневосточныйГосударственный

Техническийуниверситет


КафедраИнформационныхСистем Управления


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


К КУРСОВОМУПРОЕКТУ
ПОДИСЦИПЛИНЕ“БАЗЫ И БАНКИДАННЫХ”


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


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

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


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

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


________________________


Дата:

января 1996 г.


ОГЛАВЛЕНИЕ


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

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

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

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

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


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

Лабораторияинженернойокеанологии(ЛИО) при дальневосточномнаучно-исследовательскомгидрометеорологическоминституте(ДВНИГМИ) производитрасчетыпредельно-допустимыхсбросов (ПДС)для предприятийразличных видовдеятельности.Расчет производитсяс помощью специальныхпрограмм расчетаПДС по методике/1/.

Разработатьи реализоватьбазу данных(БД) “ПДС”, обеспечивающуюхранение, накоплениеи предоставлениевсей информациио предприятии-заказчике,необходимойдля программырасчета ПДС.

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

Разработкабазы данных“ПДС” проводиласьв работе полетней практике.В этой работебыла составленаполная инфологическаямодель базыданных с типамисущностей,типами связей,их атрибутамии графическимпредставлениеммодели.

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


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

Базаданных “ПДС”была реализованана СУБД Microsoft Access 2.0 всреде Microsoft Windows 3.1 *. При выбореСУБД использовались/3-5/. В качестверуководствапо генерациитаблиц, экранныхформ, запросов,отчетов, попрограммированиюмакрокоманди программныхмодулей использовалась/2/.

Базаданных вместес таблицамиданных, экраннымиформами, запросами,отчетнымиформами в MicrosoftAccess представляетсяв одном файле.База данных“ПДС” хранитсяв файле PDS.MDB.

Схемаданных, текстымакрокоманди программноеописание элементовуправлениеприведены вразделе . Описаниереализованногорабочего места(АРМ) на основебазы “ПДС”приводитсяв разделе настоящейзаписки.

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

Таккак представлениеструктуры базыданных, экранныхформ, запросов,отчетных формв Microsoft Access обеспечиваетсявнутреннейреализациейСУБД (в отличиеот распространенныхСУБД типа dBase,FoxPro, и т. д., в которыхэти характеристикиописываютсяпрограммнымпутем), то представлениеполного программногокода базы данных,написаннойна Microsoft Access являетсяневозможным,в связи с отсутствиемтакового.

Однако,при созданииэкранных формдля присвоенияразличныхфункций элементамуправления- кнопкам - использовалсявнутреннийязык СУБД - AccessBasic. Некоторыепроцедуры,написанныена этом языке,представленыв приложенииII.

Вбазе данных“ПДС” для генерациидвух отчетовиспользуетсядва запроса.Хотя эти запросыгенерировалисьвизуальнымисредствами,но есть возможностьпредставитьих в виде SQL-запроса.Эти два SQL-запросапредставленытакже в приложенииII.

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

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

Врезультатеработы былосоздано автоматизированноерабочее место(АРМ) в виде наборасвязанныхэкранных форми отчетов,позволяющеевводить, редактировать,просматриватьданные попредприятиям,по выпускампредприятий,загрязняющиевещества,концентрациивеществ повыпускам, контрольныестворы длявыпусков, параметрызагрязняющихвеществ в контрольныхстворах. Крометого, имеетсявозможностьгенерацииотчетов поданным о выпускахпредприятияи о концентрациизагрязненныхвеществ поконкретномувыпуску.

Послезагрузки главного(и единственного)файла базы“ПДС” PDS.MDB из СУБДMicrosoft Access на экранеавтоматическипоявляетсяследующийэкран:



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


  • Кнопка“Предприятия”- экран для работыс базой Предприятия(добавление,удаление,редактированиеПредприятийи их выпусков,а также концентрацийзагрязняющихвеществ покаждому выпусков):



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



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



Такимобразом, программа“поддержки”базы данных“ПДС” содержиттри главныеэкранные формы,с помощью которыхможно вестибазу данных.Кроме этихформ, существуетеще несколько,которые являютсявспомогательнымии вызываютсяиз форм, описанныхвыше. Вспомогательныеформы в даннойзаписке неприводятсяиз-за их малозначимости.

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

Врезультатенепродолжительнойработы с базойданных “ПДС”с помощьюразработанныхэкранных формбыли введеныданные о несколькихпредприятияхс информациейо выпусках.Таблицы, представляющиеэти данныепредставленыв приложенииIII.

ВприложенииIV представленыдва вида отчетов,которые можетгенерироватьБД “ПДС”.


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


  1. Методика расчетапредельно-допустимыхсбросов (ПДС)веществ в водныеобъекты состочными водами.- Харьков, 1990, - 115 c.

  2. Электроннаявстроеннаягипертекстоваясправочнаясистема Microsoft Access,файл MSACC20.HLP, 4.7 Мбайта.

  3. Журнал “PC MagazineRussian Edition” №7 1994, статьяУ. Плейна, “MicrosoftAccess”.

  4. Журнал “PC MagazineRussian Edition” №5 1994.

  5. Журнал “КомпьюТерра”№37-38 1994.


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


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


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

SubДобавлениеНовойЗапис_Click()

OnError GoTo Err_ДобавлениеНовойЗапис_Click


DoCmdGoToRecord , , A_NEWREC


Exit_ДобавлениеНовойЗапис_Click:

ExitSub


Err_ДобавлениеНовойЗапис_Click:

MsgBoxError$

ResumeExit_ДобавлениеНовойЗапис_Click


EndSub


SubДублироватьЗаписьВВы_Click()

OnError GoTo Err_ДублироватьЗаписьВВы_Click


DoCmdDoMenuItem A_FORMBAR, A_EDITMENU, A_SELECTRECORD_V2, , A_MENU_VER20

DoCmdDoMenuItem A_FORMBAR, A_EDITMENU, A_COPY, , A_MENU_VER20

DoCmdDoMenuItem A_FORMBAR, A_EDITMENU, 6, , A_MENU_VER20'Paste Append


Exit_ДублироватьЗаписьВВы_Click:

ExitSub


Err_ДублироватьЗаписьВВы_Click:

MsgBoxError$

ResumeExit_ДублироватьЗаписьВВы_Click


EndSub


SubУдалениеЗаписиВВыпус_Click()

OnError GoTo Err_УдалениеЗаписиВВыпус_Click


DoCmdDoMenuItem A_FORMBAR, A_EDITMENU, A_SELECTRECORD_V2, , A_MENU_VER20

DoCmdDoMenuItem A_FORMBAR, A_EDITMENU, A_DELETE_V2, , A_MENU_VER20


Exit_УдалениеЗаписиВВыпус_Click:

ExitSub


Err_УдалениеЗаписиВВыпус_Click:

MsgBoxError$

ResumeExit_УдалениеЗаписиВВыпус_Click


EndSub


SubВызовФормы_Концентра_Click()

OnError GoTo Err_ВызовФормы_Концентра_Click


DimDocName As String


DocName= "КонцентрацияСтоков"

DoCmdOpenForm DocName, , , "[Выпуск]= Forms![Предприятие]![Выпуск].Form![Выпуск]"


Exit_ВызовФормы_Концентра_Click:

ExitSub


Err_ВызовФормы_Концентра_Click:

MsgBoxError$

ResumeExit_ВызовФормы_Концентра_Click


EndSub


SubКнопка47_Click ()

OnError GoTo Err_Кнопка47_Click


DimDocName As String

DimLinkCriteria As String


DocName= "КонтрольныйСтвор"

LinkCriteria= "[КонтрольныйСтвор] =Forms![Предприятие]![Выпуск].Form![Поле46]"

DoCmdOpenForm DocName, , , LinkCriteria


DoCmdGoToControl "Внедренный_объект16"

Forms![КонтрольныйСтвор]![ПереходКПервойЗаписиВПредприятиях].Доступ= 0

Forms![КонтрольныйСтвор]![ПереходКПредыдущейЗаписиВПредприятиях].Доступ= 0

Forms![КонтрольныйСтвор]![ПереходКСледующейЗаписиВПредприятиях].Доступ= 0

Forms![КонтрольныйСтвор]![ПереходКПоследнейЗаписиВПредприятиях].Доступ= 0

Forms![КонтрольныйСтвор]![Кнопка20].Доступ= 0

Forms![КонтрольныйСтвор]![Кнопка21].Доступ= 0

Forms![КонтрольныйСтвор]![Кнопка22].Доступ= 0

Forms![КонтрольныйСтвор]![Название].Доступ= 0


Exit_Кнопка47_Click:

ExitSub


Err_Кнопка47_Click:

MsgBoxError$

ResumeExit_Кнопка47_Click


EndSub


Форма “Главная”

SubКнопка2_Click ()

OnError GoTo Err_Кнопка2_Click


DimDocName As String

DimLinkCriteria As String


DocName= "Предприятие"

DoCmdOpenForm DocName, , , LinkCriteria


Exit_Кнопка2_Click:

ExitSub


Err_Кнопка2_Click:

MsgBoxError$

ResumeExit_Кнопка2_Click


EndSub


SubКнопка3_Click ()

OnError GoTo Err_Кнопка3_Click


DimDocName As String

DimLinkCriteria As String


DocName= "КонтрольныйСтвор"

DoCmdOpenForm DocName, , , LinkCriteria


Exit_Кнопка3_Click:

ExitSub


Err_Кнопка3_Click:

MsgBoxError$

ResumeExit_Кнопка3_Click


EndSub


SubКнопка9_Click ()

OnError GoTo Err_Кнопка9_Click


DoCmdClose


Exit_Кнопка9_Click:

ExitSub


Err_Кнопка9_Click:

MsgBoxError$

ResumeExit_Кнопка9_Click


EndSub


SubКнопка6_Click ()

OnError GoTo Err_Кнопка6_Click


DimDocName As String

DimLinkCriteria As String


DocName= "О программе"

DoCmdOpenForm DocName, , , LinkCriteria


Exit_Кнопка6_Click:

ExitSub


Err_Кнопка6_Click:

MsgBoxError$

ResumeExit_Кнопка6_Click


EndSub


SubКнопка5_Click ()

OnError GoTo Err_Кнопка5_Click


DimDocName As String

DimLinkCriteria As String


DocName= "Вещество"

DoCmdOpenForm DocName, , , LinkCriteria


Exit_Кнопка5_Click:

ExitSub


Err_Кнопка5_Click:

MsgBoxError$

ResumeExit_Кнопка5_Click


EndSub

Форма “КонтрольныйСтвор”

SubForm_Close ()

Forms![КонтрольныйСтвор]![ПереходКПервойЗаписиВПредприятиях].Доступ= 1

Forms![КонтрольныйСтвор]![ПереходКПредыдущейЗаписиВПредприятиях].Доступ= 1

Forms![КонтрольныйСтвор]![ПереходКСледующейЗаписиВПредприятиях].Доступ= 1

Forms![КонтрольныйСтвор]![ПереходКПоследнейЗаписиВПредприятиях].Доступ= 1

Forms![КонтрольныйСтвор]![Кнопка20].Доступ= 1

Forms![КонтрольныйСтвор]![Кнопка21].Доступ= 1

Forms![КонтрольныйСтвор]![Кнопка22].Доступ= 1

Forms![КонтрольныйСтвор]![Название].Доступ= 1

EndSub


SubВыходИзФормыКонтроль_Click()

OnError GoTo Err_ВыходИзФормыКонтроль_Click


DoCmdClose


Exit_ВыходИзФормыКонтроль_Click:

ExitSub


Err_ВыходИзФормыКонтроль_Click:

MsgBoxError$

ResumeExit_ВыходИзФормыКонтроль_Click


EndSub


SubКнопка20_Click ()

OnError GoTo Err_Кнопка20_Click


DoCmdDoMenuItem A_FORMBAR, A_EDITMENU, 10, , A_MENU_VER20


Exit_Кнопка20_Click:

ExitSub


Err_Кнопка20_Click:

MsgBoxError$

ResumeExit_Кнопка20_Click


EndSub


SubКнопка21_Click ()

OnError GoTo Err_Кнопка21_Click


DoCmdGoToRecord , , A_NEWREC


Exit_Кнопка21_Click:

ExitSub


Err_Кнопка21_Click:

MsgBoxError$

ResumeExit_Кнопка21_Click


EndSub


SubКнопка22_Click ()

OnError GoTo Err_Кнопка22_Click


DoCmdDoMenuItem A_FORMBAR, A_EDITMENU, A_SELECTRECORD_V2, , A_MENU_VER20

DoCmdDoMenuItem A_FORMBAR, A_EDITMENU, A_DELETE_V2, , A_MENU_VER20


Exit_Кнопка22_Click:

ExitSub


Err_Кнопка22_Click:

MsgBoxError$

ResumeExit_Кнопка22_Click


EndSub


SubПереходКПервойЗаписи_Click()

OnError GoTo Err_ПереходКПервойЗаписи_Click


DoCmdGoToRecord , , A_FIRST


Exit_ПереходКПервойЗаписи_Click:

ExitSub


Err_ПереходКПервойЗаписи_Click:

MsgBoxError$

ResumeExit_ПереходКПервойЗаписи_Click


EndSub


SubПереходКПоследнейЗап_Click()

OnError GoTo Err_ПереходКПоследнейЗап_Click


DoCmdGoToRecord , , A_LAST


Exit_ПереходКПоследнейЗап_Click:

ExitSub


Err_ПереходКПоследнейЗап_Click:

MsgBoxError$

ResumeExit_ПереходКПоследнейЗап_Click


EndSub


SubПереходКПредыдущейЗа_Click()

OnError GoTo Err_ПереходКПредыдущейЗа_Click


DoCmdGoToRecord , , A_PREVIOUS


Exit_ПереходКПредыдущейЗа_Click:

ExitSub


Err_ПереходКПредыдущейЗа_Click:

IfErr 2105 Then MsgBox Error$

ResumeExit_ПереходКПредыдущейЗа_Click


EndSub


SubПереходКСледующейЗап_Click()

OnError GoTo Err_ПереходКСледующейЗап_Click


DoCmdGoToRecord , , A_NEXT


Exit_ПереходКСледующейЗап_Click:

ExitSub


Err_ПереходКСледующейЗап_Click:

IfErr 2105 Then MsgBox Error$

ResumeExit_ПереходКСледующейЗап_Click


EndSub


Форма “КонцентрацияСтоков”

SubЗакрытиеФормы_Концен_Click()

OnError GoTo Err_ЗакрытиеФормы_Концен_Click


DoCmdClose


Exit_ЗакрытиеФормы_Концен_Click:

ExitSub


Err_ЗакрытиеФормы_Концен_Click:

MsgBoxError$

ResumeExit_ЗакрытиеФормы_Концен_Click


EndSub


SubОтчетПоКонцентрациям_Click()

OnError GoTo Err_ОтчетПоКонцентрациям_Click


DimDocName As String


DocName= "ОтчетПоКонцентрациям"

DoCmdOpenReport DocName, A_PREVIEW


Exit_ОтчетПоКонцентрациям_Click:

ExitSub


Err_ОтчетПоКонцентрациям_Click:

MsgBoxError$

ResumeExit_ОтчетПоКонцентрациям_Click


EndSub

Форма “Предприятие”

SubЗакрыть_Форму_Предпр_Click()

OnError GoTo Err_Закрыть_Форму_Предпр_Click


DoCmdClose


Exit_Закрыть_Форму_Предпр_Click:

ExitSub


Err_Закрыть_Форму_Предпр_Click:

MsgBoxError$

ResumeExit_Закрыть_Форму_Предпр_Click


EndSub


SubЗапустить_Форму_Выпу_Click()

OnError GoTo Err_Запустить_Форму_Выпу_Click


DimDocName As String

DimLinkCriteria As String


DocName= "Выпуск"

DoCmdOpenForm DocName, , , LinkCriteria


Exit_Запустить_Форму_Выпу_Click:

ExitSub


Err_Запустить_Форму_Выпу_Click:

MsgBoxError$

ResumeExit_Запустить_Форму_Выпу_Click


EndSub


SubНоваяЗаписьВПредприя_Click()

OnError GoTo Err_НоваяЗаписьВПредприя_Click


DoCmdGoToRecord , , A_NEWREC


Exit_НоваяЗаписьВПредприя_Click:

ExitSub


Err_НоваяЗаписьВПредприя_Click:

MsgBoxError$

ResumeExit_НоваяЗаписьВПредприя_Click


EndSub


SubОтчетПоВыпускам_Click()

OnError GoTo Err_ОтчетПоВыпускам_Click


DimDocName As String


DocName= "ОтчетПоВыпускамПредприятия"

DoCmdOpenReport DocName, A_PREVIEW


Exit_ОтчетПоВыпускам_Click:

ExitSub


Err_ОтчетПоВыпускам_Click:

MsgBoxError$

ResumeExit_ОтчетПоВыпускам_Click


EndSub


SubПереходКПервойЗаписи_Click()

OnError GoTo Err_ПереходКПервойЗаписи_Click


DoCmdGoToRecord , , A_FIRST


Exit_ПереходКПервойЗаписи_Click:

ExitSub


Err_ПереходКПервойЗаписи_Click:

MsgBoxError$

ResumeExit_ПереходКПервойЗаписи_Click


EndSub


SubПереходКПоследнейЗап_Click()

OnError GoTo Err_ПереходКПоследнейЗап_Click


DoCmdGoToRecord , , A_LAST


Exit_ПереходКПоследнейЗап_Click:

ExitSub


Err_ПереходКПоследнейЗап_Click:

MsgBoxError$

ResumeExit_ПереходКПоследнейЗап_Click


EndSub


SubПереходКПредыдущейЗа_Click()

OnError GoTo Err_ПереходКПредыдущейЗа_Click


DoCmdGoToRecord , , A_PREVIOUS


Exit_ПереходКПредыдущейЗа_Click:

ExitSub


Err_ПереходКПредыдущейЗа_Click:

IfErr 2105 Then MsgBox Error$

ResumeExit_ПереходКПредыдущейЗа_Click


EndSub


SubПереходКСледующейЗап_Click()

OnError GoTo Err_ПереходКСледующейЗап_Click


DoCmdGoToRecord , , A_NEXT


Exit_ПереходКСледующейЗап_Click:

ExitSub


Err_ПереходКСледующейЗап_Click:

IfErr 2105 Then MsgBox Error$

ResumeExit_ПереходКСледующейЗап_Click


EndSub


SubПоискЗаписиВПредприя_Click()

OnError GoTo Err_ПоискЗаписиВПредприя_Click


DoCmdDoMenuItem A_FORMBAR, A_EDITMENU, 10, , A_MENU_VER20


Exit_ПоискЗаписиВПредприя_Click:

ExitSub


Err_ПоискЗаписиВПредприя_Click:

MsgBoxError$

ResumeExit_ПоискЗаписиВПредприя_Click


EndSub


SubРедактирование_Выпус_Click()

OnError GoTo Err_Редактирование_Выпус_Click


DimDocName As String

DimLinkCriteria As String


DocName= "Выпуск"

LinkCriteria= "[Предприятие]= [Предприятие]![Предприятие]"

DoCmdOpenForm DocName, , , LinkCriteria


Exit_Редактирование_Выпус_Click:

ExitSub


Err_Редактирование_Выпус_Click:

MsgBoxError$

ResumeExit_Редактирование_Выпус_Click


EndSub


SubСписокПредприятийДля_AfterUpdate()

DoCmdApplyFilter , "НазваниеПредприятие= Me![СписокПредприятийДляПоиска]"

EndSub


SubУдалениеЗаписиВПредп_Click()

OnError GoTo Err_УдалениеЗаписиВПредп_Click


DoCmdDoMenuItem A_FORMBAR, A_EDITMENU, A_SELECTRECORD_V2, , A_MENU_VER20

DoCmdDoMenuItem A_FORMBAR, A_EDITMENU, A_DELETE_V2, , A_MENU_VER20


Exit_УдалениеЗаписиВПредп_Click:

ExitSub


Err_УдалениеЗаписиВПредп_Click:

MsgBoxError$

ResumeExit_УдалениеЗаписиВПредп_Click


EndSub


ЗАПРОСЫДЛЯ СОЗДАНИЯОТЧЕТОВ (В ФОРМЕSQL)


Запрос“ЗапросДляОтчетаПоВыпускам”

SELECTDISTINCTROW Предприятие.НазваниеПредприятия,Выпуск.НазваниеВыпуска,Выпуск.Расход,Выпуск.Диаметр,Выпуск.РасстояниеДоБерега,Выпуск.Глубина,Выпуск.СкоростьТечения

FROMПредприятиеINNER JOIN Выпуск ONПредприятие.Предприятие= Выпуск.Предприятие

WHERE((Предприятие.НазваниеПредприятия=[Forms]![Предприятие]![НазваниеПредприятия]));


Запрос“ЗапросДляОтчетаПоКонцентрациям”

SELECTDISTINCTROW Выпуск.НазваниеВыпуска,Вещество.Название,СвязьКонцентрацияСтока.Коцентрация,Выпуск.Выпуск

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.2м


120м/с

Скоростьтечения:


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


Названиевыпуска:ВыпускN2


Расход:0.05куб.м/с


Диаметр:0.2м


Расстояниедо берега:


Глубина:1.2м


120м/с

Скоростьтечения:


ОТЧЕТ ПО ЗАГРЯЗНЯЮЩИМВЕЩЕСТВАМВЫПУСКА


Концентрациивеществ повыпуску


ВыпускN1


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


ВеществоКонцентрация

(мг/л)

БПКполное2.4

Азотаммонийный0.01

Нитраты0.001

Минерализация0

Нефтепродукты0.005

Хлориды(для пресн.)10

Амминосульфаты(гр. СПАВ)1.2

Нитриты0.0003

Сульфаты0


*Базы данныхMicrosoft Access принадлежатк типу реляционныхбаз данных. Втаких базахданных сведения,относящиесяк различнымвопросам,сохраняютсяв отдельныхтаблицах.Возможностьвывода информациииз базы данныхобеспечиваетсяуказаниемсоотношениймежду объектами.(вырезка из/2/).

Владивосток

1996



M

ДальневосточныйГосударственный

ТехническийУниверситет


КафедраТехническойКибернетикии Информатики


ОТЧЕТ

по летнейпрактике


Тема: “Инфологическоемоделированиебазы данных”


Студент группыЭ-282:

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


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

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


Владивосток

1995

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


Составитьинфологическуюмодель базыданных (БД),необходимойдля предоставленияинформациипрограммерасчетапредельно-допустимыхсбросов (ПДС)сточных водпредприятийв прибрежнуюзону моря.

Этапрограммапроизводитрасчет максимально-допустимыхконцентрацийзагрязняющихвеществ в выпускахсточной воды

Предприятие,для которогопроизводитсярасчет ПДСможет иметьнескольковыпусков. Каждыйвыпуск характеризуетсясвоими техническимипараметрами,которые учитываютсяв расчетах.Каждый выпускимеет свойнабор загрязняющихвеществ. Длякаждого выпускасуществуетсвой контрольныйствор (точкана море, отстоящаяот места выпускана 50-500 м, в которойпроизводитсязамер концентрацийзагрязняющихвеществ). Нескольковыпусков могутиметь один итот же контрольныйствор, но ненаоборот.

Расчетпроизводитсядля каждоговыпуска в отдельностив два этапа.Первый - эторасчет длякаждого загрязняющеговеществаиндивидуальногоПДС (без учетадругих веществ)по специальнойметодике*.Для этого расчетатребуютсяследующиеданные: фоноваяконцентрациявещества вконтрольномстворе, концентрациявещества всточных водахвыпуска, диаметрвыпускногоотверстия,минимальнаяскорость морскоготечения в местевыпуска, расходсточных вод,угол истечениястоков относительноповерхностиморя, расстояниеот выпуска доповерхностиморя, до берегаи до ближайшейграницы водопользования(т. е. до контрольногоствора), коэффициентнеконсервативности(КНК) вещества,предельнодопустимаяконцентрация(ПДК) веществав контрольномстворе.

Второйэтап - расчетПДС для каждоговещества наоснове индивидуальногоПДС с учетомдругих веществ,находящихсяв одной группес одинаковымлимитирующимфактором вредности(ЛФВ) или в однойгруппе с одинаковымклассом опасности.Распределениевеществ погруппам ЛФВи классам опасностипроисходитв зависимостиот типа водопользованияпредприятия,для которогосчитается ПДС.

ПроектируемаяБД должна содержатьинформациюпо всем предприятиям,для которыхпроизводилсярасчет ПДС.Значения фоновыхконцентраций,концентрацийв стоках и ПДКвеществ должныбыть закрепленыза датой.


Такимобразом, программерасчета ПДСтребуютсяследующиеданные:

  • наименованиеи характеристикивсех выпусков,для которыхпроизводитсярасчет ПДС;

  • списоквсех контролируемыхвеществ длякаждого выпускас концентрациямиэтих веществв сточных водах;

  • ПДК,фоновая концентрацияи КНК веществв контрольныхстворах длякаждого выпуска;

  • таблицасоответствийвеществ с ЛФВв зависимостиот типа водопользованияпредприятия,для которогопроизводитсярасчет.


Типысущностей иатрибуты


Типсущности

Атрибуты

Предприятие Код,Наименование
Выпуск

Код,Наименование,

КонтрольныйСтвор Код,Наименование
Вещество Код,Наименование
ТипВодопользования Код,Наименование
ЛФВ Код,Наименование
КлассОпасности Код,Наименование

Типы связейи атрибуты


Типсвязи

Типысущностей

Атрибуты

ИмеетВыпуск Предприятие,Выпуск
ИмеетТипВодопользования Предприятие,ТипВодопользования
ИмеетКонтрольныйСтвор Выпуск,КонтрольныйСтвор
КонцентрацияСтока Выпуск,Вещество Концентрация,Дата
КонцентрацияФона КонтрольныйСтвор,Вещество Концентрация,Дата
КонцентрацияПД КонтрольныйСтвор,Вещество Концентрация,Дата
КНК КонтрольныйСтвор,Вещество Коэффициент,Дата
ГруппыПоЛФВ ТипВодопользования,Вещество, ЛФВ
ГруппыПоКлассуОпасности ТипВодопользования,Вещество,КлассОпасности

Ограничения


Ключи


Атрибут

Типсущности/связи

Код Предприятие
Код Выпуск
Код КонтрольныйСтвор
Код Вещество
Код ТипВодопользования
Код ЛФВ
Код КлассОпасности
Дата КонцентрацияСтока
Дата КонцентрацияФона
Дата КонцентрацияПД
Дата КНК

Виды связей


  1. Один-к-одному

    ИмеетТипВодопользования

  2. Один-ко-многим
    ИмеетВыпускПредприятиеЮВыпуск
    ИмеетКонтрольныйСтворКонтрольныйСтворЮВыпуск

  3. Многие-ко-многим
    КонцентрацияСтока
    КонцентрацияФона
    КонцентрацияПД
    КНК


Ограниченияпо существованию


ИмеетВыпуск

ПредприятиеЮВыпуск


Графическоепредставлениеинфологическоймодели (ER-диаграмма)


*ВНИИВО, “Методикарасчета ПДСвеществ в водныеобъекты состочными водами”,Харьков 1990 г.


M