Реферат: Проектирование и разработка баз и банков данных - текст реферата. Скачать бесплатно.
Банк рефератов, курсовых и дипломных работ. Много и бесплатно. # | Правила оформления работ | Добавить в избранное
 
 
   
Меню Меню Меню Меню Меню
   
Napishem.com Napishem.com Napishem.com

Реферат

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

Банк рефератов / Программирование

Рубрики  Рубрики реферат банка

закрыть
Категория: Реферат
Язык реферата: Русский
Дата добавления:   
 
Скачать
Архив Zip, 140 kb, скачать бесплатно
Заказать
Узнать стоимость написания уникального реферата

Узнайте стоимость написания уникальной работы

Дальневосточный Государственный Технический университет Кафедра Информационных Систем Управления Владивосток 1996 Дальневост очный Государственный Технический Университет Кафедра Технической Кибернетики и Информатики ОТЧЕТ по летней практике Тема : “Инфологическое моделирование базы данных” Студент группы Э -282: Богдановский А . А. Преподаватель : Су хомлинов А . И. Владивосток 1995 I. Постановка задачи Составить инфологическую модель базы данных (БД ), необходимой для предоставления информации программе расчета предельно-допустимых сбросов (ПДС ) сточных вод предприятий в прибрежную зону моря. Эт а программа производит расчет максимально-допустимых концентраций загрязняющих веществ в выпусках сточной воды Предприятие , для которого производится расчет ПДС может иметь несколько выпусков . Каждый выпуск характеризуется своими техническими параметрами, которые учитываются в расчетах . Каждый выпуск имеет свой набор загрязняющих веществ . Для каждого выпуска существует свой контрольный створ (точка на море , отстоящая от места выпуска на 50-500 м , в которой производится замер концентраций загрязняющих веще с тв ). Несколько выпусков могут иметь один и тот же контрольный створ , но не наоборот. Расчет производится для каждого выпуска в отдельности в два этапа . Первый - это расчет для каждого загрязняющего вещества индивидуального ПДС (без учета других веществ ) п о специальной методике * * ВНИИВО , “Методика расчета ПДС веществ в водные объекты со сточными водами” , Харьков 1990 г. . Для этого расчета требуются следующие данные : фоновая концентрация вещества в контрольном створе , концентрация вещества в сточных водах в ыпуска , диаметр выпускного отверстия , минимальная скорость морского течения в месте выпуска , расход сточных вод , угол истечения стоков относительно поверхности моря , расстояние от выпуска до поверхности моря , до берега и до ближайшей границы водопользован и я (т . е . до контрольного створа ), коэффициент неконсервативности (КНК ) вещества , предельно допустимая концентрация (ПДК ) вещества в контрольном створе. Второй этап - расчет ПДС для каждого вещества на основе индивидуального ПДС с учетом других веществ , на ходящихся в одной группе с одинаковым лимитирующим фактором вредности (ЛФВ ) или в одной группе с одинаковым классом опасности . Распределение веществ по группам ЛФВ и классам опасности происходит в зависимости от типа водопользования предприятия , для котор о го считается ПДС. Проектируемая БД должна содержать информацию по всем предприятиям , для которых производился расчет ПДС . Значения фоновых концентраций , концентраций в стоках и ПДК веществ должны быть закреплены за датой. Таким образом , программе расчет а ПДС требуются следующие данные : · наименование и характеристики всех выпусков , для которых производится расчет ПДС ; · список всех контролируемых веществ для каждого выпуска с концентрациями этих веществ в сточных водах ; · ПДК , фоновая концентрация и К НК веществ в контрольных створах для каждого выпуска ; · таблица соответствий веществ с ЛФВ в зависимости от типа водопользования предприятия , для которого производится расчет. II. Типы сущностей и атрибуты Тип сущности Атрибуты Предприятие Код , Наиме нование Выпуск Код , Наименование , <Технические характеристики > КонтрольныйСтвор Код , Наименование Вещество Код , Наименование ТипВодопользования Код , Наименование ЛФВ Код , Наименование КлассОпасности Код , Наименование III. Типы связей и атрибуты Т ип связи Типы сущностей Атрибуты ИмеетВыпуск Предприятие , Выпуск — ИмеетТипВодопользования Предприятие , ТипВодопользования — ИмеетКонтрольныйСтвор Выпуск , КонтрольныйСтвор — КонцентрацияСтока Выпуск , Вещество Концентрация , Дата КонцентрацияФона Контро льныйСтвор , Вещество Концентрация , Дата КонцентрацияПД КонтрольныйСтвор , Вещество Концентрация , Дата КНК КонтрольныйСтвор , Вещество Коэффициент , Дата ГруппыПоЛФВ ТипВодопользования , Вещество , ЛФВ — ГруппыПоКлассуОпасности ТипВодопользования , Вещество , КлассОпасности — IV. Ограничения Ключи Атрибут Тип сущности /связи Код Предприятие Код Выпуск Код КонтрольныйСтвор Код Вещество Код ТипВодопользования Код ЛФВ Код КлассОпасности Дата КонцентрацияСтока Дата КонцентрацияФона Дата КонцентрацияПД Дата КНК Виды связей 1. Один-к-одному ИмеетТипВодопользования 2. Один-ко-многим ИмеетВыпуск Предприятие Выпуск ИмеетКонтрольныйСтвор КонтрольныйСтвор Выпуск 3. Многие-ко-мног им КонцентрацияСтока КонцентрацияФона КонцентрацияПД КНК Ограничения по существованию ИмеетВыпуск Предприятие Выпуск V. Графическое представление инфологической модели (ER-диаграмма ) ПОЯСНИТЕЛЬНАЯ ЗАПИСКА К КУРСОВОМУ ПРОЕКТУ ПО ДИСЦИПЛИНЕ “БАЗЫ И БАНКИ ДАННЫХ” Тема : “Проектирование и реализация базы данных” Выполнил студент гр . Э -282: Богдановский А . А. Принял преподаватель : Сухомлинов А . И. ________________________ Дата : “ ” января 1996 г. 14 ОГЛАВЛЕНИЕ I. Постано вка задачи II. Разработка базы данных “ПДС” III. Реализация базы данных “ПДС” IV. Схема данных и программные тексты V. Описание автоматизированного рабочего места VI. Результаты работы СПИСОК ЛИТЕРАТУРЫ Приложение I. Отчет по летней практике по теме “Инфологическое моделирование” Приложение II. Программн ые тексты , запросы и схема данных Приложение III. Таблицы данных с информацией Приложение IV. Примеры отчетов VI. Постановка задачи Лаборатория инженерной океанологии (ЛИО ) при дальневосточном научно-исследовательском гидрометеорологическом институте (ДВНИГМ И ) производит расчеты предельно-допустимых сбросов (ПДС ) для предприятий различных видов деятельности . Расчет производится с помощью специальных программ расчета ПДС по методике /1/. Разработать и реализовать базу данных (БД ) “ПДС” , обеспечивающую хранени е , накопление и предоставление всей информации о предприятии-заказчике , необходимой для программы расчета ПДС. VII. Разработка базы данных “ПДС” Разработка базы данных “ПДС” проводилась в работе по летне й практике . В этой работе была составлена полная инфологическая модель базы данных с типами сущностей , типами связей , их атрибутами и графическим представлением модели . Отчет по вышеуказанной летней практике представлен в данной пояснительной записке в п риложении I. VIII. Реализация базы данных “ПДС” База данных “ПДС” была реализована на СУБД Microsoft Access 2.0 в среде Microsoft Windows 3.1 * * Базы данных Microsoft Access принадлежат к типу реляционн ых баз данных . В таких базах данных сведения , относящиеся к различным вопросам , сохраняются в отдельных таблицах . Возможность вывода информации из базы данных обеспечивается указанием соотношений между объектами . (вырезка из /2/). . При выборе СУБД исполь зовались /3-5/. В качестве руководства по генерации таблиц , экранных форм , запросов , отчетов , по программированию макрокоманд и программных модулей использовалась /2/. База данных вместе с таблицами данных , экранными формами , запросами , отчетными формами в Microsoft Access представляется в одном файле . База данных “ПДС” хранится в файле PDS.MDB. Схема данных , тексты макрокоманд и программное описание элементов управление приведены в разделе IV . Описание реализованного рабочего мес та (АРМ ) на основе базы “ПДС” приводится в разделе V настоящей записки. IX. Схема данных и программные тексты Так как представление структуры базы данны х , экранных форм , запросов , отчетных форм в Microsoft Access обеспечивается внутренней реализацией СУБД (в отличие от распространенных СУБД типа dBase, FoxPro, и т . д ., в которых эти характеристики описываются программным путем ), то представление полного п рограммного кода базы данных , написанной на Microsoft Access является невозможным , в связи с отсутствием такового. Однако , при создании экранных форм для присвоения различных функций элементам управления - кнопкам - использовался внутренний язык СУБД - Ac cess Basic. Некоторые процедуры , написанные на этом языке , представлены в приложении II. В базе данных “ПДС” для генерации двух отчетов используется два запроса . Хотя эти запросы генерировались визуальными средствами , но есть возможность представить их в виде SQL-запроса . Эти два SQL-запроса представлены также в приложении II. Для связи таблиц баз данных , также как и для запросов , используется визуальная генерация . Схема данных в графическом виде представлена также в приложении II. X. Описание автоматизированного рабочего места В результате работы было создано автоматизированное рабочее место (АРМ ) в виде набора связанных экранных форм и отчетов , позволяющее вводить , р едактировать , просматривать данные по предприятиям , по выпускам предприятий , загрязняющие вещества , концентрации веществ по выпускам , контрольные створы для выпусков , параметры загрязняющих веществ в контрольных створах . Кроме того , имеется возможность ге н ерации отчетов по данным о выпусках предприятия и о концентрации загрязненных веществ по конкретному выпуску. После загрузки главного (и единственного ) файла базы “ПДС” PDS.MDB из СУБД Microsoft Access на экране автоматически появляется следующий экран : Из главного экрана можно попасть в следующие экраны : · Кнопка “Предприятия” - экран для работы с базой Предприятия (добавление , удаление , редактирование Предприятий и их выпусков , а также концентраций загрязняющих ве ществ по каждому выпусков ): · Кнопка “Контрольные створы” - работа с базой контрольных створов вместе с базой загрязняющих веществ по каждому створу : · Кнопка “Вещества” - доба вление новых контролируемых загрязняющих веществ : Таким образом , программа “поддержки” базы данных “ПДС” содержит три главные экранные формы , с помощью которых можно вести базу данных . Кроме этих форм , существует еще несколько , которые являются вспомогательными и вызываются из форм , описанных выше . Вспомогательные формы в данной записке не приводятся из-за их малозначимости. XI. Результаты работы В результате непрод олжительной работы с базой данных “ПДС” с помощью разработанных экранных форм были введены данные о нескольких предприятиях с информацией о выпусках . Таблицы , представляющие эти данные представлены в приложении 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. 19 (Продолжение приложения I) 20 Приложение I. Отчет по летней практике по теме Инфологическое моделирование 12 Приложе ние 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 Форма “Главная” 23 (Продолжение приложения II) 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 E rror 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 Do Cmd 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 GoToRec ord , , 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 E rror 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_ ПереходКПервойЗаписи _Cli ck: 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 DoMenu Item 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: E xit 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]![Концентрация Стоков ]![Выпуск ])); СХЕМА ДАННЫХ 27 (Продолжение приложения III) 26 Приложение 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 - 27 - Прил ожение 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
1Архитектура и строительство
2Астрономия, авиация, космонавтика
 
3Безопасность жизнедеятельности
4Биология
 
5Военная кафедра, гражданская оборона
 
6География, экономическая география
7Геология и геодезия
8Государственное регулирование и налоги
 
9Естествознание
 
10Журналистика
 
11Законодательство и право
12Адвокатура
13Административное право
14Арбитражное процессуальное право
15Банковское право
16Государство и право
17Гражданское право и процесс
18Жилищное право
19Законодательство зарубежных стран
20Земельное право
21Конституционное право
22Конституционное право зарубежных стран
23Международное право
24Муниципальное право
25Налоговое право
26Римское право
27Семейное право
28Таможенное право
29Трудовое право
30Уголовное право и процесс
31Финансовое право
32Хозяйственное право
33Экологическое право
34Юриспруденция
 
35Иностранные языки
36Информатика, информационные технологии
37Базы данных
38Компьютерные сети
39Программирование
40Искусство и культура
41Краеведение
42Культурология
43Музыка
44История
45Биографии
46Историческая личность
47Литература
 
48Маркетинг и реклама
49Математика
50Медицина и здоровье
51Менеджмент
52Антикризисное управление
53Делопроизводство и документооборот
54Логистика
 
55Педагогика
56Политология
57Правоохранительные органы
58Криминалистика и криминология
59Прочее
60Психология
61Юридическая психология
 
62Радиоэлектроника
63Религия
 
64Сельское хозяйство и землепользование
65Социология
66Страхование
 
67Технологии
68Материаловедение
69Машиностроение
70Металлургия
71Транспорт
72Туризм
 
73Физика
74Физкультура и спорт
75Философия
 
76Химия
 
77Экология, охрана природы
78Экономика и финансы
79Анализ хозяйственной деятельности
80Банковское дело и кредитование
81Биржевое дело
82Бухгалтерский учет и аудит
83История экономических учений
84Международные отношения
85Предпринимательство, бизнес, микроэкономика
86Финансы
87Ценные бумаги и фондовый рынок
88Экономика предприятия
89Экономико-математическое моделирование
90Экономическая теория

 Анекдоты - это почти как рефераты, только короткие и смешные Следующий
Это какой же эгоистичной сволочью нужно было быть, чтобы презреть традиции предков, наплевать на общественное мнение, бросить вызов морали, слезть с дерева и взять в руки палку?!
Anekdot.ru

Узнайте стоимость курсовой, диплома, реферата на заказ.

Обратите внимание, реферат по программированию "Проектирование и разработка баз и банков данных", также как и все другие рефераты, курсовые, дипломные и другие работы вы можете скачать бесплатно.

Смотрите также:


Банк рефератов - РефератБанк.ру
© РефератБанк, 2002 - 2016
Рейтинг@Mail.ru