I. Постановка завдання Лабораторія інженерної океанології (Ліо) при далекосхідному науково-дослідному гідрометеорологічному інституті (ДВНІГМІ) провадить розрахунки гранично-допустимих скидів (ПДС) для підприємств різних видів діяльності. Розрахунок проводиться за допомогою спеціальних програм розрахунку ПДС за методикою/1 /. Розробити і реалізувати базу даних (БД) "ПДС", що забезпечує зберігання, накопичення та надання всієї інформації про підприємство-замовника, необхідної для програми розрахунку ПДС. II. Розробка бази даних "ПДС" Розробка бази даних "ПДС" проводилася в роботі по літній практиці. У цій роботі була складена повна інфологіческая модель бази даних з типами сутностей, типами зв'язків, їх атрибутами і графічним представленням моделі. Звіт за вищезазначеним річній практиці представлений в цiй пояснювальній записці в додатку 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 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 Випуск.НазваніеВипуска.