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

I. Постановка завдання Лабораторія інженерної океанології (ЛИО) при далекосхідному науково-дослідному гідрометеорологічне інституті (ДВНИГМИ) виробляє розрахунки предельно-допустимых скидів (ПДС) підприємствам різних видів діяльності. Розрахунок проводиться за допомогою спеціальних програм розрахунку ПДС за методикою /1/. Накреслити й реалізувати базі даних (БД) «ПДС», що забезпечує зберігання, накопичення і надання всієї необхідної інформації про предприятии-заказчике, яка потрібна на програми розрахунку ПДС. II. Розробка бази даних «ПДС» Розробка бази даних «ПДС» проводилася у роботі з літньої практиці. У роботі було створено повна инфологическая модель бази даних із типами сутностей, типами зв’язків, їх атрибутами і графічним поданням моделі. Звіт з вказаної вище літньої практиці представлено даної пояснювальної записки при застосуванні I. III. Реалізація бази даних «ПДС» База даних «ПДС» реалізували на СУБД Microsoft Access 2.0 серед Microsoft Windows 3.1 *. При виборі СУБД використовувалися /3−5/. Як посібники з генерації таблиць, екранних форм, запитів, звітів, з програмування макрокоманд і програмних модулів використовувалася /2/. База даних разом із таблицями даних, екранними формами, запитами, звітними формами в Microsoft Access представляється щодо одного файлі. База даних «ПДС» зберігається в файлі PDS.MDB. Схема даних, тексти макрокоманд і встановлюють програмне опис елементів управління наведені у розділі IV. Опис реалізованого робочого місця (АРМ) з урахуванням бази «ПДС» наводиться розділ V справжньої записки. IV. Схема даних, і програмні тексти Оскільки уявлення структури бази даних, екранних форм, запитів, звітних форм в Microsoft Access забезпечується внутрішньої реалізацією СУБД (на відміну поширених СУБД типу dBase, FoxPro, тощо. буд., де ці характеристики описуються програмним шляхом), ту виставу повного програмного коду бази даних, написаної на Microsoft Access є неможливим, у зв’язку з відсутністю такого. Проте, під час створення екранних форм для присвоєння різних функцій елементам управління — кнопок — використовувався внутрішній мову СУБД — Access Basic. Деякі процедури, написані етой мовє, представлені у додатку II. У базі даних «ПДС» для генерації двох звітів використовується два запиту. Хоча цих запитів генерувалися візуальними засобами, але є можливість подати їх у вигляді SQL-запроса. Ці дві SQL-запроса представлені й у додатку II. Для зв’язку таблиць баз даних, як і для запитів, використовується візуальна генерація. Схема даних в графічному вигляді представлена й у додатку II. V. Опис автоматизованого робочого місця Через війну роботи була створено автоматизоване робоче місце (АРМ) як набору пов’язаних екранних форм і звітів, що дозволяє вводити, редагувати, переглядати дані про підприємствам, по випускам підприємств, забруднюючі речовини, концентрації речовин по випускам, контрольні створи для випусків, параметри забруднюючих речовин, у контрольних створах. З іншого боку, є можливість генерації звітів за даними про випусках підприємства міста і концентрацію забруднених речовин у конкретній випуску. Після завантаження головного (і єдиного) файла бази «ПДС» PDS. MDB з СУБД Microsoft Access на екрані автоматично з’являється наступний екран: З головного екрана потрапиш у наступні екрани: * Кнопка «Підприємства» — екран до роботи з базою Підприємства (додавання, видалення, редагування Підприємств та його випусків, і навіть концентрацій забруднюючих речовин в кожному випусків): * Кнопко «Контрольні створи» — роботу з базою контрольних створов разом із базою забруднюючих речовин в кожному створу: * Кнопко «Речовини» — додавання нових контрольованих забруднюючих речовин: Отже, програма «підтримки» бази даних «ПДС» містить головні екранні форми, з допомогою яких може бути базі даних. Крім цих форм, є ще кілька, що є допоміжними і викликається форму, описаних вище. Допоміжні форми у цій записці не наводяться через їх малозначущості. VI. Результати роботи Через війну нетривалої роботи з базою даних «ПДС» з допомогою розроблених екранних форм ввели даних про підприємствах з туристичною інформацією про випусках. Таблиці, які мають ці дані представлені у додатку III. У додатку IV представлені два виду звітів, що може генерувати БД «ПДС». 1. Методика розрахунку предельно-допустимых скидів (ПДС) речовин, у водні об'єкти зі стічними водами. — Харків, 1990, — 115 з. 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 Выпуск.НазваниеВыпуска.