Проектирование и разработка баз и банков данных
Отчет по практике - Компьютеры, программирование
Другие отчеты по практике по предмету Компьютеры, программирование
>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 Выпуск.НазваниеВыпуска, Вещество.Название, СвязьКонцентрацияСтока.Коцентрация, Выпуск.Выпуск
FROM Выпуск INNER JOIN (Вещество INNER JOIN СвязьКонцентрацияСтока ON Вещество.Вещество = СвязьКонцентрацияСтока.Вещество) ON Выпуск.Выпуск = СвязьКонцентрацияСтока.Выпуск
WHERE ((Выпуск.Выпуск=[forms]![Концентрация Стоков]![Выпуск]));
СХЕМА ДАННЫХ
Таблица “Вещество”
ВеществоНазвание22Взвешенные вещества23Растворенный кислород24БПК полное25БПК 526ХПК27Аммоний солевой28Азот аммонийный29Сухой остаток30Нитриты31Нитраты32Нефтепродукты33Фенолы34Амминосульфаты (гр. СПАВ)35Амминосульфонаты (гр. СПАВ)36Минерализация37Хлориды (для пресн.)38Хлориды39Сульфаты
Таблица “Выпуск”
ВыпускПредприятиеКонтрольный створНазвание
ВыпускаРасходДиаметрРасстояние
ДоБерегаГлубинаПлотность
СтоковСкорость
ТеченияНаправление
Течения2451Выпуск N10.020.211.21.0312002551Выпуск N20.050.201.21.0312002662Выпуск N10.001430.252054.351.0031512774Выпуск N10.00450.2152.31.022002974Выпуск N40.00320.2501.21.022003074Выпуск N50.080.2501.21.022003283Выпуск в кутовую часть бухты0.004320.20.22.21.0330.10
Таблица “Контрольный Створ”
Контрольный СтворНазвание1р. Светлое2б. Андреева3б. Малый Гайдамак4з. Восточный
Таблица “Предприятие”
ПредприятиеНазваниеПредприятия5Рыбзавод "Светлое"6Рыбколхоз "Новый Мир"7Порт "Восточный"8ГСРЗ "Гайдамак"
Таблица “СвязьВеществаКонтрольногоСтвора”
Вещества Контрольного СтвораВеществоКонтрольный СтворПДКФонКНК12212.752.5022511.83.50.0332810.050.030.143110.0050.00060.352611.500629110.30073611.200837130010092222.752.50102321.32.50.4112423.45.60.005122521.80.040132621.50.050.05142722.31.20152242.752.50.01162443.42.30172341.31.10182541.80.10192742.30.00010.06
Таблица “СвязьКонцентрацияСтока”
Концентрация В Сточной ВодеВеществоВыпускКоцентрация522302723300.2828300.32929300.000410263001125301.41236300133730014253001524242.41628240.011731240.00118362401932240.005203724102134241.22230240.000323392402423261.225292612624262.82726260.022827260.0032923250.13024252.43127251.23229251.3333625034262503535250.0023622274.837232710.1238252712.8939222913.440232912.84124294.64225291.24322320.024423320.064529321.24636325.6
ОТЧЕТ ПО ВЫПУСКАМ ПРЕДПИЯТИЯ
Информация о выпусках предприятия
Название предприятия:Рыбзавод "Светлое"
Название выпуска:Выпуск 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