Создание базы данных, содержащей сведения, необходимые для ведения учета распределения грантов, страница 3

Список использованной литературы.

1.  Базы данных: модели, разработка,  реализация / Т.С. Карпова. – СПб.: Питер, 2001.

2.  Бекаревич Ю.Б.  MS Access 2000. – СПб.: БХВ - Петербург, 2001.

3.  Глушаков С.В. Microsoft office 2000. – Ростов-на-Дону: Феникс, 2001.

4.  Потапкин А.В. Основы Visual Basic for Aplications для  пакета Microsoft office - М., 2001.

5.  Методические указания по выполнению лабораторных работ «СУБД Microsoft Access 2000», СПб: СПбГИЭУ, 2001

Приложение 1. Описание программного текста.

Программный текст формы «Главная» с пошаговым комментарием.

Option Compare Database //загрузка базы данных

1. Процедура нажатие на кнопку «Заполнение таблиц»:

PrivateSub Кнопка1_Click() //объявление процедуры-подпрограммы с составным именем, включающим имя кнопки и имя события

OnErrorGoToErr_Кнопка1_Click //в случае ошибки – переход к стандартной обработке ошибок VBA

DimstDocNameAsString//объявление переменной строкового типа

    DimstLinkCriteriaAsString //объявление переменной строкового типа

    stDocName = "Заполнение таблиц" //инструкция присваивания,переменная получает конкретное значение

    DoCmd.OpenFormstDocName, , , stLinkCriteria //реализация главной функции процедуры – открытие формы «Заполнение таблиц», где DoCmd – объект активного приложения Access, предназначенный для выполнения макрокоманд, а OpenForm – метод, применяемый к данному объекту.

Exit_Кнопка1_Click: //объявление окончания процедуры

    ExitSub //завершение выполнения процедуры

Err_Кнопка1_Click: //определение начала программы обработки ошибок

    MsgBoxErr.Description//вывод стандартного сообщения об ошибке

    ResumeExit_Кнопка1_Click //передача управления на метку инструкции, завершающей выполнение процедуры

   EndSub //завершение текста процедуры

2. Процедура нажатие на кнопку «Запросы»:

PrivateSub Кнопка2_Click() //объявление процедуры-подпрограммы с составным именем, включающим имя кнопки и имя события

OnErrorGoToErr_Кнопка2_Click //в случае ошибки – переход к стандартной обработке ошибок VBA

    Dim stDocName As String //объявление переменной строкового типа

     Dim stLinkCriteria As String //объявление переменной строкового типа

    stDocName = "Запросы" //инструкция присваивания,переменная получает конкретное значение

    DoCmd.OpenFormstDocName, , , stLinkCriteria //реализация главной функции процедуры – открытие формы «Заполнение таблиц», где DoCmd – объект активного приложения Access, предназначенный для выполнения макрокоманд, а OpenForm – метод, применяемый к данному объекту.

Exit_Кнопка2_Click: //объявление окончания процедуры

    ExitSub //завершение выполнения процедуры

Err_Кнопка2_Click: //определение начала программы обработки ошибок

    MsgBoxErr.Description //вывод стандартного сообщения об ошибке

    ResumeExit_Кнопка2_Click //передача управления на метку инструкции, завершающей выполнение процедуры

EndSub//завершение текста процедуры

3. Процедура нажатие на кнопку «Просмотр отчетов»:

PrivateSub Кнопка3_Click() //объявление процедуры-подпрограммы с составным именем, включающим имя кнопки и имя события

OnErrorGoToErr_Кнопка3_Click //в случае ошибки – переход к стандартной обработке ошибок VBA

    Dim stDocName As String //объявление переменной строкового типа

     Dim stLinkCriteria As String //объявление переменной строкового типа

    stDocName = "Просмотр отчетов" //инструкция присваивания,переменная получает конкретное значение

    DoCmd.OpenFormstDocName, , , stLinkCriteria //реализация главной функции процедуры – открытие формы «Заполнение таблиц», где DoCmd – объект активного приложения Access, предназначенный для выполнения макрокоманд, а OpenForm – метод, применяемый к данному объекту.

Exit_Кнопка3_Click: //объявление окончания процедуры

    ExitSub //завершение выполнения процедуры

Err_Кнопка3_Click: //определение начала программы обработки ошибок

    MsgBoxErr.Description //вывод стандартного сообщения об ошибке

    ResumeExit_Кнопка3_Click //передача управления на метку инструкции, завершающей выполнение процедуры

EndSub//завершение текста процедуры

4. Процедура нажатие на кнопку «Справка»:

PrivateSub Кнопка4_Click() //объявление процедуры-подпрограммы с составным именем, включающим имя кнопки и имя события

OnErrorGoToErr_Кнопка4_Click //в случае ошибки – переход к стандартной обработке ошибок VBA

    Dim stDocName As String //объявление переменной строкового типа

     Dim stLinkCriteria As String //объявление переменной строкового типа

    stDocName = "Справка" //инструкция присваивания,переменная получает конкретное значение

    DoCmd.OpenFormstDocName, , , stLinkCriteria //реализация главной функции процедуры – открытие формы «Заполнение таблиц», где DoCmd – объект активного приложения Access, предназначенный для выполнения макрокоманд, а OpenForm – метод, применяемый к данному объекту.

Exit_Кнопка4_Click: //объявление окончания процедуры

    ExitSub //завершение выполнения процедуры

Err_Кнопка4_Click: //определение начала программы обработки ошибок

    MsgBoxErr.Description //вывод стандартного сообщения об ошибке

    ResumeExit_Кнопка4_Click //передача управления на метку инструкции, завершающей выполнение процедуры

EndSub//завершение текста процедуры

5. Процедура выход из приложения

PrivateSub Кнопка5_Click() //объявление процедуры-подпрограммы с составным именем, включающим имя кнопки и имя события

OnErrorGoToErr_Кнопка5_Click //в случае ошибки – переход к стандартной обработке ошибок VBA

    DoCmd.Quit //реализация главной функции процедуры – открытие формы «Заполнение таблиц», где DoCmd – объект активного приложения Access, предназначенный для выполнения макрокоманд, а Quit – метод, применяемый к данному объекту.

Exit_Кнопка5_Click: //объявление окончания процедуры

    ExitSub //завершение выполнения процедуры

Err_Кнопка5_Click: //определение начала программы обработки ошибок

    MsgBoxErr.Description //вывод стандартного сообщения об ошибке

    ResumeExit_Кнопка5_Click //передача управления на метку инструкции, завершающей выполнение процедуры

    End Sub //завершение текста процедуры