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

ПОЯСНИТЕЛЬНАЯЗАПИСКА

К КУРСОВОМУ ПРОЕКТУ
ПО ДИСЦИПЛИНЕ “БАЗЫ И БАНКИ ДАННЫХ”

Тема: “Проектирование и реализация базы данных”

Выполнил студент гр. Э-282:

     Богдановский А. А.

Принял преподаватель:

Сухомлинов А. И.

________________________

Дата:

“     ”   января     1996 г.

<span Times New Roman";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:RU;mso-fareast-language:RU;mso-bidi-language:AR-SA">

ОГЛАВЛЕНИЕ

 TOC o «1-3» f … Постановка задачи… GOTOBUTTON_Toc347180702   PAGEREF_Toc347180702 3

II. … Разработкабазы данных “ПДС”… GOTOBUTTON_Toc347180703   PAGEREF_Toc347180703 3

III. . Реализациябазы данных “ПДС”… GOTOBUTTON_Toc347180704   PAGEREF_Toc347180704 3

IV. … Схемаданных и программные тексты… GOTOBUTTON_Toc347180705   PAGEREF_Toc347180705 3

V. … Описаниеавтоматизированного рабочего места… GOTOBUTTON_Toc347180706   PAGEREF_Toc347180706 4

VI. … Результатыработы… GOTOBUTTON_Toc347180707   PAGEREF_Toc347180707 6

СПИСОК ЛИТЕРАТУРЫ… GOTOBUTTON_Toc347180708   PAGEREF_Toc347180708 7

Приложение I.… Отчет по летней практике потеме “Инфологическое моделирование”       GOTOBUTTON_Toc347180709   PAGEREF_Toc347180709 8

ПриложениеII. … Программные тексты,запросы и схема данных… GOTOBUTTON_Toc347180710   PAGEREF_Toc347180710 13

ПриложениеIII. … Таблицы данных синформацией… GOTOBUTTON_Toc347180711   PAGEREF_Toc347180711 17

ПриложениеIV.… Примеры отчетов… GOTOBUTTON_Toc347180712   PAGEREF_Toc347180712 19

<span Times New Roman";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:RU;mso-fareast-language:RU;mso-bidi-language:AR-SA">
I.<span Times New Roman"">                 

            Лабораторияинженерной океанологии (ЛИО) при дальневосточном научно-исследовательскомгидрометеорологическом институте (ДВНИГМИ) производит расчетыпредельно-допустимых сбросов (ПДС) для предприятий различных видовдеятельности. Расчет производится с помощью специальных программ расчета ПДС пометодике /1/.

            Разработатьи реализовать базу данных (БД) “ПДС”, обеспечивающую хранение, накопление ипредоставление всей информации о предприятии-заказчике, необходимой дляпрограммы расчета ПДС.

II.<span Times New Roman"">             

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

            Отчет повышеуказанной летней практике представлен в данной пояснительной записке вприложении I.

III.<span Times New Roman"">          

            База данных“ПДС” была реализована на СУБД Microsoft Access 2.0 в среде Microsoft Windows3.1 *. При выборе СУБД использовались /3-5/.В качестве руководства по генерации таблиц, экранных форм, запросов, отчетов,по программированию макрокоманд и программных модулей использовалась /2/.

            База данныхвместе с таблицами данных, экранными формами, запросами, отчетными формами вMicrosoft Access представляется в одном файле. База данных “ПДС” хранится вфайле PDS.MDB.

            Схемаданных, тексты макрокоманд и программное описание элементов управлениеприведены в разделе  REF _Ref347152189 n  REF_Ref347151590 n

IV.<span Times New Roman"">          

            Так какпредставление структуры базы данных, экранных форм, запросов, отчетных форм вMicrosoft Access обеспечивается внутренней реализацией СУБД (в отличие отраспространенных СУБД типа dBase, FoxPro, и т. д., в которых эти характеристикиописываются программным путем), то представление полного программного кода базыданных, написанной на Microsoft Access является невозможным, в связи сотсутствием такового.

            Однако, присоздании экранных форм для присвоения различных функций элементам управления — кнопкам — использовался внутренний язык СУБД — Access Basic. Некоторыепроцедуры, написанные на этом языке, представлены в приложении II.

            В базеданных “ПДС” для генерации двух отчетов используется два запроса. Хотя этизапросы генерировались визуальными средствами, но есть возможность представитьих в виде SQL-запроса. Эти два SQL-запроса представлены также в приложении II.

            Для связитаблиц баз данных, также как и для запросов, используется визуальная генерация.Схема данных в графическом виде представлена также в приложении II.

V.<span Times New Roman"">             

            Врезультате работы было создано автоматизированное рабочее место (АРМ) в виденабора связанных экранных форм и отчетов, позволяющее вводить, редактировать,просматривать данные по предприятиям, по выпускам предприятий, загрязняющиевещества, концентрации веществ по выпускам, контрольные створы для выпусков,параметры загрязняющих веществ в контрольных створах. Кроме того, имеетсявозможность генерации отчетов по данным о выпусках предприятия и о концентрациизагрязненных веществ по конкретному выпуску.

            Послезагрузки главного (и единственного) файла базы “ПДС” PDS.MDB из СУБД MicrosoftAccess на экране автоматически появляется следующий экран:

<img src="/cache/referats/2430/image002.jpg" v:shapes="_x0000_i1025">

<span Times New Roman";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:RU;mso-fareast-language:RU;mso-bidi-language:AR-SA">

Из главного экрана можно попасть в следующие экраны:

·<span Times New Roman"">     

<img src="/cache/referats/2430/image004.jpg" v:shapes="_x0000_i1026">

·<span Times New Roman"">     

<img src="/cache/referats/2430/image006.jpg" v:shapes="_x0000_i1027">

·<span Times New Roman"">     

<img src="/cache/referats/2430/image008.jpg" v:shapes="_x0000_i1028">

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

VI.<span Times New Roman"">          

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

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

 TC " СПИСОКЛИТЕРАТУРЫ "

1.<span Times New Roman"">                 

2.<span Times New Roman"">                 

3.<span Times New Roman"">                 

4.<span Times New Roman"">                 

5.<span Times New Roman"">                 

<span Times New Roman";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:RU;mso-fareast-language:RU;mso-bidi-language:AR-SA">

 TC "Приложение I. Отчет по летней практике потеме “Инфологическое моделирование”"

<span Times New Roman";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:RU;mso-fareast-language:RU;mso-bidi-language:AR-SA">



<span Times New Roman";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:RU;mso-fareast-language:RU;mso-bidi-language:AR-SA">

 TC " Приложение II. Программные тексты, запросы исхема данных "

ПРОЦЕДУРЫОПИСАНИЯ ФУНКЦИЙ ЭЛЕМЕНТОВ УПРАВЛЕНИЯ ЭКРАННЫХ ФОРМ

Форма “Выпуски”

<span Times New Roman";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:RU;mso-fareast-language:RU;mso-bidi-language:AR-SA">

<span Courier New";mso-bidi-font-family: «Times New Roman»">Sub ДобавлениеНовойЗапис_Click ()

<span Courier New";mso-bidi-font-family: «Times New Roman»">On Error GoTo Err_ДобавлениеНовойЗапис_Click

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">    DoCmd GoToRecord,, A_NEWREC

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">Exit_ДобавлениеНовойЗапис_Click:

<span Courier New";mso-bidi-font-family: «Times New Roman»">    Exit Sub

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">Err_ДобавлениеНовойЗапис_Click:

<span Courier New";mso-bidi-font-family: «Times New Roman»">    MsgBox Error$

<span Courier New";mso-bidi-font-family: «Times New Roman»">    ResumeExit_ДобавлениеНовойЗапис_Click

<span Courier New";mso-bidi-font-family: «Times New Roman»">   

<span Courier New";mso-bidi-font-family: «Times New Roman»">End Sub

<span Courier New";mso-bidi-font-family: «Times New Roman»">Sub ДублироватьЗаписьВВы_Click ()

<span Courier New";mso-bidi-font-family: «Times New Roman»">On Error GoTo Err_ДублироватьЗаписьВВы_Click

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">    DoCmd DoMenuItemA_FORMBAR, A_EDITMENU, A_SELECTRECORD_V2,, A_MENU_VER20

<span Courier New";mso-bidi-font-family: «Times New Roman»">    DoCmd DoMenuItemA_FORMBAR, A_EDITMENU, A_COPY,, A_MENU_VER20

<span Courier New";mso-bidi-font-family: «Times New Roman»">    DoCmd DoMenuItemA_FORMBAR, A_EDITMENU, 6,, A_MENU_VER20'Paste Append

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">Exit_ДублироватьЗаписьВВы_Click:

<span Courier New";mso-bidi-font-family: «Times New Roman»">    Exit Sub

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">Err_ДублироватьЗаписьВВы_Click:

<span Courier New";mso-bidi-font-family: «Times New Roman»">    MsgBox Error$

<span Courier New";mso-bidi-font-family: «Times New Roman»">    ResumeExit_ДублироватьЗаписьВВы_Click

<span Courier New";mso-bidi-font-family: «Times New Roman»">   

<span Courier New";mso-bidi-font-family: «Times New Roman»">End Sub

<span Courier New";mso-bidi-font-family: «Times New Roman»">Sub УдалениеЗаписиВВыпус_Click ()

<span Courier New";mso-bidi-font-family: «Times New Roman»">On Error GoTo Err_УдалениеЗаписиВВыпус_Click

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">    DoCmd DoMenuItemA_FORMBAR, A_EDITMENU, A_SELECTRECORD_V2,, A_MENU_VER20

<span Courier New";mso-bidi-font-family: «Times New Roman»">    DoCmd DoMenuItemA_FORMBAR, A_EDITMENU, A_DELETE_V2,, A_MENU_VER20

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">Exit_УдалениеЗаписиВВыпус_Click:

<span Courier New";mso-bidi-font-family: «Times New Roman»">    Exit Sub

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">Err_УдалениеЗаписиВВыпус_Click:

<span Courier New";mso-bidi-font-family: «Times New Roman»">    MsgBox Error$

<span Courier New";mso-bidi-font-family: «Times New Roman»">    ResumeExit_УдалениеЗаписиВВыпус_Click

<span Courier New";mso-bidi-font-family: «Times New Roman»">   

<span Courier New";mso-bidi-font-family: «Times New Roman»">End Sub

<span Courier New";mso-bidi-font-family: «Times New Roman»">Sub ВызовФормы_Концентра_Click ()

<span Courier New";mso-bidi-font-family: «Times New Roman»">On Error GoTo Err_ВызовФормы_Концентра_Click

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">    Dim DocName AsString

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">    DocName =«Концентрация Стоков»

<span Courier New";mso-bidi-font-family: «Times New Roman»">    DoCmd OpenFormDocName,,, "[Выпуск] = Forms![Предприятие]![Выпуск].Form![Выпуск]"

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">Exit_ВызовФормы_Концентра_Click:

<span Courier New";mso-bidi-font-family: «Times New Roman»">    Exit Sub

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">Err_ВызовФормы_Концентра_Click:

<span Courier New";mso-bidi-font-family: «Times New Roman»">    MsgBox Error$

<span Courier New";mso-bidi-font-family: «Times New Roman»">    ResumeExit_ВызовФормы_Концентра_Click

<span Courier New";mso-bidi-font-family: «Times New Roman»">   

<span Courier New";mso-bidi-font-family: «Times New Roman»">End Sub

<span Courier New";mso-bidi-font-family: «Times New Roman»">Sub Кнопка47_Click ()

<span Courier New";mso-bidi-font-family: «Times New Roman»">On Error GoTo Err_Кнопка47_Click

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">    Dim DocName AsString

<span Courier New";mso-bidi-font-family: «Times New Roman»">    Dim LinkCriteriaAs String

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">    DocName =«КонтрольныйСтвор»

<span Courier New";mso-bidi-font-family: «Times New Roman»">    LinkCriteria ="[Контрольный Створ] = Forms![Предприятие]![Выпуск].Form![Поле46]"

<span Courier New";mso-bidi-font-family: «Times New Roman»">    DoCmd OpenFormDocName,,, LinkCriteria

<span Courier New";mso-bidi-font-family: «Times New Roman»">   

<span Courier New";mso-bidi-font-family: «Times New Roman»">    DoCmd GoToControl«Внедренный_объект16»

<span Courier New";mso-bidi-font-family: «Times New Roman»">    Forms![КонтрольныйСтвор]![ПереходКПервойЗаписиВПредприятиях].Доступ= 0

<span Courier New";mso-bidi-font-family: «Times New Roman»">   Forms![КонтрольныйСтвор]![ПереходКПредыдущейЗаписиВПредприятиях].Доступ= 0

<span Courier New";mso-bidi-font-family: «Times New Roman»">   Forms![КонтрольныйСтвор]![ПереходКСледующейЗаписиВПредприятиях].Доступ =0

<span Courier New";mso-bidi-font-family: «Times New Roman»">   Forms![КонтрольныйСтвор]![ПереходКПоследнейЗаписиВПредприятиях].Доступ =0

<span Courier New";mso-bidi-font-family: «Times New Roman»">   Forms![КонтрольныйСтвор]![Кнопка20].Доступ = 0

<span Courier New";mso-bidi-font-family: «Times New Roman»">   Forms![КонтрольныйСтвор]![Кнопка21].Доступ = 0

<span Courier New";mso-bidi-font-family: «Times New Roman»">   Forms![КонтрольныйСтвор]![Кнопка22].Доступ = 0

<span Courier New";mso-bidi-font-family: «Times New Roman»">   Forms![КонтрольныйСтвор]![Название].Доступ = 0

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">Exit_Кнопка47_Click:

<span Courier New";mso-bidi-font-family: «Times New Roman»">    Exit Sub

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">Err_Кнопка47_Click:

<span Courier New";mso-bidi-font-family: «Times New Roman»">    MsgBox Error$

<span Courier New";mso-bidi-font-family: «Times New Roman»">    ResumeExit_Кнопка47_Click

<span Courier New";mso-bidi-font-family: «Times New Roman»">   

<span Courier New";mso-bidi-font-family: «Times New Roman»">End Sub

<span Times New Roman";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:RU;mso-fareast-language:RU;mso-bidi-language:AR-SA">

Форма“Главная”

<span Times New Roman";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:RU;mso-fareast-language:RU;mso-bidi-language:AR-SA">

<span Courier New";mso-bidi-font-family: «Times New Roman»">Sub Кнопка2_Click ()

<span Courier New";mso-bidi-font-family: «Times New Roman»">On Error GoTo Err_Кнопка2_Click

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">    Dim DocName AsString

<span Courier New";mso-bidi-font-family: «Times New Roman»">    Dim LinkCriteriaAs String

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">    DocName =«Предприятие»

<span Courier New";mso-bidi-font-family: «Times New Roman»">    DoCmd OpenFormDocName,,, LinkCriteria

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">Exit_Кнопка2_Click:

<span Courier New";mso-bidi-font-family: «Times New Roman»">    Exit Sub

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">Err_Кнопка2_Click:

<span Courier New";mso-bidi-font-family: «Times New Roman»">    MsgBox Error$

<span Courier New";mso-bidi-font-family: «Times New Roman»">    ResumeExit_Кнопка2_Click

<span Courier New";mso-bidi-font-family: «Times New Roman»">   

<span Courier New";mso-bidi-font-family: «Times New Roman»">End Sub

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">Sub Кнопка3_Click ()

<span Courier New";mso-bidi-font-family: «Times New Roman»">On Error GoTo Err_Кнопка3_Click

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">    Dim DocName AsString

<span Courier New";mso-bidi-font-family: «Times New Roman»">    Dim LinkCriteriaAs String

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">    DocName =«КонтрольныйСтвор»

<span Courier New";mso-bidi-font-family: «Times New Roman»">    DoCmd OpenFormDocName,,, LinkCriteria

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">Exit_Кнопка3_Click:

<span Courier New";mso-bidi-font-family: «Times New Roman»">    Exit Sub

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">Err_Кнопка3_Click:

<span Courier New";mso-bidi-font-family: «Times New Roman»">    MsgBox Error$

<span Courier New";mso-bidi-font-family: «Times New Roman»">    ResumeExit_Кнопка3_Click

<span Courier New";mso-bidi-font-family: «Times New Roman»">   

<span Courier New";mso-bidi-font-family: «Times New Roman»">End Sub

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">Sub Кнопка9_Click ()

<span Courier New";mso-bidi-font-family: «Times New Roman»">On Error GoTo Err_Кнопка9_Click

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">    DoCmd Close

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">Exit_Кнопка9_Click:

<span Courier New";mso-bidi-font-family: «Times New Roman»">    Exit Sub

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">Err_Кнопка9_Click:

<span Courier New";mso-bidi-font-family: «Times New Roman»">    MsgBox Error$

<span Courier New";mso-bidi-font-family: «Times New Roman»">    ResumeExit_Кнопка9_Click

<span Courier New";mso-bidi-font-family: «Times New Roman»">   

<span Courier New";mso-bidi-font-family: «Times New Roman»">End Sub

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">Sub Кнопка6_Click ()

<span Courier New";mso-bidi-font-family: «Times New Roman»">On Error GoTo Err_Кнопка6_Click

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">    Dim DocName AsString

<span Courier New";mso-bidi-font-family: «Times New Roman»">    Dim LinkCriteriaAs String

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">    DocName = «Опрограмме»

<span Courier New";mso-bidi-font-family: «Times New Roman»">    DoCmd OpenFormDocName,,, LinkCriteria

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">Exit_Кнопка6_Click:

<span Courier New";mso-bidi-font-family: «Times New Roman»">    Exit Sub

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">Err_Кнопка6_Click:

<span Courier New";mso-bidi-font-family: «Times New Roman»">    MsgBox Error$

<span Courier New";mso-bidi-font-family: «Times New Roman»">    ResumeExit_Кнопка6_Click

<span Courier New";mso-bidi-font-family: «Times New Roman»">   

<span Courier New";mso-bidi-font-family: «Times New Roman»">End Sub

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">Sub Кнопка5_Click ()

<span Courier New";mso-bidi-font-family: «Times New Roman»">On Error GoTo Err_Кнопка5_Click

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">    Dim DocName AsString

<span Courier New";mso-bidi-font-family: «Times New Roman»">    Dim LinkCriteriaAs String

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">    DocName =«Вещество»

<span Courier New";mso-bidi-font-family: «Times New Roman»">    DoCmd OpenFormDocName,,, LinkCriteria

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">Exit_Кнопка5_Click:

<span Courier New";mso-bidi-font-family: «Times New Roman»">    Exit Sub

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">Err_Кнопка5_Click:

<span Courier New";mso-bidi-font-family: «Times New Roman»">    MsgBox Error$

<span Courier New";mso-bidi-font-family: «Times New Roman»">    ResumeExit_Кнопка5_Click

<span Courier New";mso-bidi-font-family: «Times New Roman»">   

<span Courier New";mso-bidi-font-family: «Times New Roman»">End Sub

<span Times New Roman";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:RU;mso-fareast-language:RU;mso-bidi-language:AR-SA">

Форма“КонтрольныйСтвор”

<span Times New Roman";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:RU;mso-fareast-language:RU;mso-bidi-language:AR-SA">

<span Courier New"; mso-bidi-font-family:«Times New Roman»">Sub Form_Close ()

<span Courier New";mso-bidi-font-family: «Times New Roman»">   Forms![КонтрольныйСтвор]![ПереходКПервойЗаписиВПредприятиях].Доступ = 1

<span Courier New";mso-bidi-font-family: «Times New Roman»">   Forms![КонтрольныйСтвор]![ПереходКПредыдущейЗаписиВПредприятиях].Доступ= 1

<span Courier New";mso-bidi-font-family: «Times New Roman»">   Forms![КонтрольныйСтвор]![ПереходКСледующейЗаписиВПредприятиях].Доступ =1

<span Courier New";mso-bidi-font-family: «Times New Roman»">   Forms![КонтрольныйСтвор]![ПереходКПоследнейЗаписиВПредприятиях].Доступ =1

<span Courier New";mso-bidi-font-family: «Times New Roman»">   Forms![КонтрольныйСтвор]![Кнопка20].Доступ = 1

<span Courier New";mso-bidi-font-family: «Times New Roman»">   Forms![КонтрольныйСтвор]![Кнопка21].Доступ = 1

<span Courier New";mso-bidi-font-family: «Times New Roman»">   Forms![КонтрольныйСтвор]![Кнопка22].Доступ = 1

<span Courier New";mso-bidi-font-family: «Times New Roman»">    Forms![КонтрольныйСтвор]![Название].Доступ= 1

<span Courier New";mso-bidi-font-family: «Times New Roman»">End Sub

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">Sub ВыходИзФормыКонтроль_Click ()

<span Courier New";mso-bidi-font-family: «Times New Roman»">On Error GoTo Err_ВыходИзФормыКонтроль_Click

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">    DoCmd Close

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">Exit_ВыходИзФормыКонтроль_Click:

<span Courier New";mso-bidi-font-family: «Times New Roman»">    Exit Sub

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">Err_ВыходИзФормыКонтроль_Click:

<span Courier New";mso-bidi-font-family: «Times New Roman»">    MsgBox Error$

<span Courier New";mso-bidi-font-family: «Times New Roman»">    ResumeExit_ВыходИзФормыКонтроль_Click

<span Courier New";mso-bidi-font-family: «Times New Roman»">   

<span Courier New";mso-bidi-font-family: «Times New Roman»">End Sub

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">Sub Кнопка20_Click ()

<span Courier New";mso-bidi-font-family: «Times New Roman»">On Error GoTo Err_Кнопка20_Click

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">    DoCmd DoMenuItemA_FORMBAR, A_EDITMENU, 10,, A_MENU_VER20

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">Exit_Кнопка20_Click:

<span Courier New";mso-bidi-font-family: «Times New Roman»">    Exit Sub

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">Err_Кнопка20_Click:

<span Courier New";mso-bidi-font-family: «Times New Roman»">    MsgBox Error$

<span Courier New";mso-bidi-font-family: «Times New Roman»">    ResumeExit_Кнопка20_Click

<span Courier New";mso-bidi-font-family: «Times New Roman»">   

<span Courier New";mso-bidi-font-family: «Times New Roman»">End Sub

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">Sub Кнопка21_Click ()

<span Courier New";mso-bidi-font-family: «Times New Roman»">On Error GoTo Err_Кнопка21_Click

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">    DoCmd GoToRecord,, A_NEWREC

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">Exit_Кнопка21_Click:

<span Courier New";mso-bidi-font-family: «Times New Roman»">    Exit Sub

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">Err_Кнопка21_Click:

<span Courier New";mso-bidi-font-family: «Times New Roman»">    MsgBox Error$

<span Courier New";mso-bidi-font-family: «Times New Roman»">    ResumeExit_Кнопка21_Click

<span Courier New";mso-bidi-font-family: «Times New Roman»">   

<span Courier New";mso-bidi-font-family: «Times New Roman»">End Sub

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">Sub Кнопка22_Click ()

<span Courier New";mso-bidi-font-family: «Times New Roman»">On Error GoTo Err_Кнопка22_Click

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">    DoCmd DoMenuItemA_FORMBAR, A_EDITMENU, A_SELECTRECORD_V2,, A_MENU_VER20

<span Courier New";mso-bidi-font-family: «Times New Roman»">    DoCmd DoMenuItemA_FORMBAR, A_EDITMENU, A_DELETE_V2,, A_MENU_VER20

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">Exit_Кнопка22_Click:

<span Courier New";mso-bidi-font-family: «Times New Roman»">    Exit Sub

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">Err_Кнопка22_Click:

<span Courier New";mso-bidi-font-family: «Times New Roman»">    MsgBox Error$

<span Courier New";mso-bidi-font-family: «Times New Roman»">    Resume Exit_Кнопка22_Click

<span Courier New";mso-bidi-font-family: «Times New Roman»">   

<span Courier New";mso-bidi-font-family: «Times New Roman»">End Sub

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">Sub ПереходКПервойЗаписи_Click ()

<span Courier New";mso-bidi-font-family: «Times New Roman»">On Error GoTo Err_ПереходКПервойЗаписи_Click

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">    DoCmd GoToRecord,, A_FIRST

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">Exit_ПереходКПервойЗаписи_Click:

<span Courier New";mso-bidi-font-family: «Times New Roman»">    Exit Sub

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">Err_ПереходКПервойЗаписи_Click:

<span Courier New";mso-bidi-font-family: «Times New Roman»">    MsgBox Error$

<span Courier New";mso-bidi-font-family: «Times New Roman»">    ResumeExit_ПереходКПервойЗаписи_Click

<span Courier New";mso-bidi-font-family: «Times New Roman»">   

<span Courier New";mso-bidi-font-family: «Times New Roman»">End Sub

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">Sub ПереходКПоследнейЗап_Click ()

<span Courier New";mso-bidi-font-family: «Times New Roman»">On Error GoTo Err_ПереходКПоследнейЗап_Click

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">    DoCmd GoToRecord,, A_LAST

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">Exit_ПереходКПоследнейЗап_Click:

<span Courier New";mso-bidi-font-family: «Times New Roman»">    Exit Sub

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">Err_ПереходКПоследнейЗап_Click:

<span Courier New";mso-bidi-font-family: «Times New Roman»">    MsgBox Error$

<span Courier New";mso-bidi-font-family: «Times New Roman»">    ResumeExit_ПереходКПоследнейЗап_Click

<span Courier New";mso-bidi-font-family: «Times New Roman»">   

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">End Sub

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">Sub ПереходКПредыдущейЗа_Click ()

<span Courier New";mso-bidi-font-family: «Times New Roman»">On Error GoTo Err_ПереходКПредыдущейЗа_Click

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">    DoCmd GoToRecord,, A_PREVIOUS

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">Exit_ПереходКПредыдущейЗа_Click:

<span Courier New";mso-bidi-font-family: «Times New Roman»">    Exit Sub

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">Err_ПереходКПредыдущейЗа_Click:

<span Courier New";mso-bidi-font-family: «Times New Roman»">    If Err <>2105 Then MsgBox Error$

<span Courier New";mso-bidi-font-family: «Times New Roman»">    ResumeExit_ПереходКПредыдущейЗа_Click

<span Courier New";mso-bidi-font-family: «Times New Roman»">   

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">End Sub

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">Sub ПереходКСледующейЗап_Click ()

<span Courier New";mso-bidi-font-family: «Times New Roman»">On Error GoTo Err_ПереходКСледующейЗап_Click

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">    DoCmd GoToRecord,, A_NEXT

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">Exit_ПереходКСледующейЗап_Click:

<span Courier New";mso-bidi-font-family: «Times New Roman»">    Exit Sub

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">Err_ПереходКСледующейЗап_Click:

<span Courier New";mso-bidi-font-family: «Times New Roman»">    If Err <>2105 Then MsgBox Error$

<span Courier New";mso-bidi-font-family: «Times New Roman»">    ResumeExit_ПереходКСледующейЗап_Click

<span Courier New";mso-bidi-font-family: «Times New Roman»">   

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">End Sub

<span Times New Roman";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:RU;mso-fareast-language:RU;mso-bidi-language:AR-SA">

Форма “КонцентрацияСтоков”

<span Times New Roman";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:RU;mso-fareast-language:RU;mso-bidi-language:AR-SA">

<span Courier New";mso-bidi-font-family: «Times New Roman»">Sub ЗакрытиеФормы_Концен_Click ()

<span Courier New";mso-bidi-font-family: «Times New Roman»">On Error GoTo Err_ЗакрытиеФормы_Концен_Click

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">    DoCmd Close

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">Exit_ЗакрытиеФормы_Концен_Click:

<span Courier New";mso-bidi-font-family: «Times New Roman»">    Exit Sub

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">Err_ЗакрытиеФормы_Концен_Click:

<span Courier New";mso-bidi-font-family: «Times New Roman»">    MsgBox Error$

<span Courier New";mso-bidi-font-family: «Times New Roman»">    ResumeExit_ЗакрытиеФормы_Концен_Click

<span Courier New";mso-bidi-font-family: «Times New Roman»">   

<span Courier New";mso-bidi-font-family: «Times New Roman»">End Sub

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">Sub ОтчетПоКонцентрациям_Click ()

<span Courier New";mso-bidi-font-family: «Times New Roman»">On Error GoTo Err_ОтчетПоКонцентрациям_Click

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">    Dim DocName AsString

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">    DocName =«ОтчетПоКонцентрациям»

<span Courier New";mso-bidi-font-family: «Times New Roman»">    DoCmd OpenReportDocName, A_PREVIEW

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">Exit_ОтчетПоКонцентрациям_Click:

<span Courier New";mso-bidi-font-family: «Times New Roman»">    Exit Sub

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">Err_ОтчетПоКонцентрациям_Click:

<span Courier New";mso-bidi-font-family: «Times New Roman»">    MsgBox Error$

<span Courier New";mso-bidi-font-family: «Times New Roman»">    ResumeExit_ОтчетПоКонцентрациям_Click

<span Courier New";mso-bidi-font-family: «Times New Roman»">   

<span Courier New";mso-bidi-font-family: «Times New Roman»">End Sub

<span Times New Roman";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:RU;mso-fareast-language:RU;mso-bidi-language:AR-SA">

Форма“Предприятие”

<span Times New Roman";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:RU;mso-fareast-language:RU;mso-bidi-language:AR-SA">

<span Courier New"; mso-bidi-font-family:«Times New Roman»">Sub Закрыть_Форму_Предпр_Click ()

<span Courier New";mso-bidi-font-family: «Times New Roman»">On Error GoTo Err_Закрыть_Форму_Предпр_Click

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">    DoCmd Close

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">Exit_Закрыть_Форму_Предпр_Click:

<span Courier New";mso-bidi-font-family: «Times New Roman»">    Exit Sub

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">Err_Закрыть_Форму_Предпр_Click:

<span Courier New";mso-bidi-font-family: «Times New Roman»">    MsgBox Error$

<span Courier New";mso-bidi-font-family: «Times New Roman»">    ResumeExit_Закрыть_Форму_Предпр_Click

<span Courier New";mso-bidi-font-family: «Times New Roman»">   

<span Courier New";mso-bidi-font-family: «Times New Roman»">End Sub

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">Sub Запустить_Форму_Выпу_Click ()

<span Courier New";mso-bidi-font-family: «Times New Roman»">On Error GoTo Err_Запустить_Форму_Выпу_Click

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">    Dim DocName AsString

<span Courier New";mso-bidi-font-family: «Times New Roman»">    Dim LinkCriteriaAs String

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">    DocName =«Выпуск»

<span Courier New";mso-bidi-font-family: «Times New Roman»">    DoCmd OpenFormDocName,,, LinkCriteria

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">Exit_Запустить_Форму_Выпу_Click:

<span Courier New";mso-bidi-font-family: «Times New Roman»">    Exit Sub

<span Courier New";mso-bidi-font-family: «Times New Roman»">

<span Courier New";mso-bidi-font-family: «Times New Roman»">Err_Запустить_Фо

еще рефераты
Еще работы по программированию, базе данных