Проектирование и разработка баз и банков данных
ДальневосточныйГосударственный
Техническийуниверситет
КафедраИнформационныхСистем Управления
ПОЯСНИТЕЛЬНАЯЗАПИСКА
К КУРСОВОМУПРОЕКТУ
ПОДИСЦИПЛИНЕ“БАЗЫ И БАНКИДАННЫХ”
Тема: “Проектированиеи реализациябазы данных”
Выполнилстудент гр.Э-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 представленыдва вида отчетов,которые можетгенерироватьБД “ПДС”.
СПИСОКЛИТЕРАТУРЫ
Методика расчетапредельно-допустимыхсбросов (ПДС)веществ в водныеобъекты состочными водами.- Харьков, 1990, - 115 c.
Электроннаявстроеннаягипертекстоваясправочнаясистема Microsoft Access,файл MSACC20.HLP, 4.7 Мбайта.
Журнал “PC MagazineRussian Edition” №7 1994, статьяУ. Плейна, “MicrosoftAccess”.
Журнал “PC MagazineRussian Edition” №5 1994.
Журнал “КомпьюТерра”№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м
Глубина: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/).
Владивосток
1996
M
ДальневосточныйГосударственный
ТехническийУниверситет
КафедраТехническойКибернетикии Информатики
ОТЧЕТ
по летнейпрактике
Тема: “Инфологическоемоделированиебазы данных”
Студент группыЭ-282:
БогдановскийА. А.
Преподаватель:
СухомлиновА. И.
Владивосток
1995
Постановказадачи
Составитьинфологическуюмодель базыданных (БД),необходимойдля предоставленияинформациипрограммерасчетапредельно-допустимыхсбросов (ПДС)сточных водпредприятийв прибрежнуюзону моря.
Этапрограммапроизводитрасчет максимально-допустимыхконцентрацийзагрязняющихвеществ в выпускахсточной воды
Предприятие,для которогопроизводитсярасчет ПДСможет иметьнескольковыпусков. Каждыйвыпуск характеризуетсясвоими техническимипараметрами,которые учитываютсяв расчетах.Каждый выпускимеет свойнабор загрязняющихвеществ. Длякаждого выпускасуществуетсвой контрольныйствор (точкана море, отстоящаяот места выпускана 50-500 м, в которойпроизводитсязамер концентрацийзагрязняющихвеществ). Нескольковыпусков могутиметь один итот же контрольныйствор, но ненаоборот.
Расчетпроизводитсядля каждоговыпуска в отдельностив два этапа.Первый - эторасчет длякаждого загрязняющеговеществаиндивидуальногоПДС (без учетадругих веществ)по специальнойметодике*.Для этого расчетатребуютсяследующиеданные: фоноваяконцентрациявещества вконтрольномстворе, концентрациявещества всточных водахвыпуска, диаметрвыпускногоотверстия,минимальнаяскорость морскоготечения в местевыпуска, расходсточных вод,угол истечениястоков относительноповерхностиморя, расстояниеот выпуска доповерхностиморя, до берегаи до ближайшейграницы водопользования(т. е. до контрольногоствора), коэффициентнеконсервативности(КНК) вещества,предельнодопустимаяконцентрация(ПДК) веществав контрольномстворе.
Второйэтап - расчетПДС для каждоговещества наоснове индивидуальногоПДС с учетомдругих веществ,находящихсяв одной группес одинаковымлимитирующимфактором вредности(ЛФВ) или в однойгруппе с одинаковымклассом опасности.Распределениевеществ погруппам ЛФВи классам опасностипроисходитв зависимостиот типа водопользованияпредприятия,для которогосчитается ПДС.
ПроектируемаяБД должна содержатьинформациюпо всем предприятиям,для которыхпроизводилсярасчет ПДС.Значения фоновыхконцентраций,концентрацийв стоках и ПДКвеществ должныбыть закрепленыза датой.
Такимобразом, программерасчета ПДСтребуютсяследующиеданные:
наименованиеи характеристикивсех выпусков,для которыхпроизводитсярасчет ПДС;
списоквсех контролируемыхвеществ длякаждого выпускас концентрациямиэтих веществв сточных водах;
ПДК,фоновая концентрацияи КНК веществв контрольныхстворах длякаждого выпуска;
таблицасоответствийвеществ с ЛФВв зависимостиот типа водопользованияпредприятия,для которогопроизводитсярасчет.
Типысущностей иатрибуты
Типсущности | Атрибуты |
| Предприятие | Код,Наименование |
| Выпуск | Код,Наименование, |
| КонтрольныйСтвор | Код,Наименование |
| Вещество | Код,Наименование |
| ТипВодопользования | Код,Наименование |
| ЛФВ | Код,Наименование |
| КлассОпасности | Код,Наименование |
Типы связейи атрибуты
Типсвязи | Типысущностей | Атрибуты |
| ИмеетВыпуск | Предприятие,Выпуск | — |
| ИмеетТипВодопользования | Предприятие,ТипВодопользования | — |
| ИмеетКонтрольныйСтвор | Выпуск,КонтрольныйСтвор | — |
| КонцентрацияСтока | Выпуск,Вещество | Концентрация,Дата |
| КонцентрацияФона | КонтрольныйСтвор,Вещество | Концентрация,Дата |
| КонцентрацияПД | КонтрольныйСтвор,Вещество | Концентрация,Дата |
| КНК | КонтрольныйСтвор,Вещество | Коэффициент,Дата |
| ГруппыПоЛФВ | ТипВодопользования,Вещество, ЛФВ | — |
| ГруппыПоКлассуОпасности | ТипВодопользования,Вещество,КлассОпасности | — |
Ограничения
Ключи
Атрибут | Типсущности/связи |
| Код | Предприятие |
| Код | Выпуск |
| Код | КонтрольныйСтвор |
| Код | Вещество |
| Код | ТипВодопользования |
| Код | ЛФВ |
| Код | КлассОпасности |
| Дата | КонцентрацияСтока |
| Дата | КонцентрацияФона |
| Дата | КонцентрацияПД |
| Дата | КНК |
Виды связей
Один-к-одному
ИмеетТипВодопользованияОдин-ко-многим
ИмеетВыпускПредприятиеЮВыпуск
ИмеетКонтрольныйСтворКонтрольныйСтворЮВыпускМногие-ко-многим
КонцентрацияСтока
КонцентрацияФона
КонцентрацияПД
КНК
Ограниченияпо существованию
| ИмеетВыпуск | ПредприятиеЮВыпуск |
Графическоепредставлениеинфологическоймодели (ER-диаграмма)
*ВНИИВО, “Методикарасчета ПДСвеществ в водныеобъекты состочными водами”,Харьков 1990 г.
M