Geum.ru

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

Отчет по практике - Компьютеры, программирование

Другие отчеты по практике по предмету Компьютеры, программирование

?бавление, удаление, редактирование Предприятий и их выпусков, а также концентраций загрязняющих веществ по каждому выпусков):

 

 

  • Кнопка “Контрольные створы” - работа с базой контрольных створов вместе с базой загрязняющих веществ по каждому створу:

    •  

     

  • Кнопка “Вещества” - добавление новых контролируемых загрязняющих веществ:

    •  

     

    Таким образом, программа “поддержки” базы данных “ПДС” содержит три главные экранные формы, с помощью которых можно вести базу данных. Кроме этих форм, существует еще несколько, которые являются вспомогательными и вызываются из форм, описанных выше. Вспомогательные формы в данной записке не приводятся из-за их малозначимости.

    1. Результаты работы

    В результате непродолжительной работы с базой данных “ПДС” с помощью разработанных экранных форм были введены данные о нескольких предприятиях с информацией о выпусках. Таблицы, представляющие эти данные представлены в приложении III.

    В приложении IV представлены два вида отчетов, которые может генерировать БД “ПДС”.

     

     

     

     

    1. Методика расчета предельно-допустимых сбросов (ПДС) веществ в водные объекты со сточными водами. - Харьков, 1990, - 115c.
    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![Контрольны?/p>