Разработка элементов информационной системы средствами СУБД MS Access и языка программирования VBA

Размещено на http://www.allbest.ru/

Министерство образования Республики Беларусь

Министерство образования и науки Российской Федерации

Государственное учреждение высшего профессионального образования

БЕЛОРУССКО-РОССИЙСКИЙ УНИВЕРСИТЕТ

Кафедра «Автоматизированные системы управления»

Курсовая работа

Разработка элементов информационной системы средствами СУБД MS Access и языка программирования VBA

по дисциплине «Программные средства ПЭВМ»

051.23 01 02.081427 .10.81-01

Выполнил: студент гр. АСОИР-083

Лапицкий А.В.

Руководитель: Василевский В.П

2010

Содержание

Введение

1. Анализ предметной области

2. Использование интерфейсных средств СУБД MS Access 2003

2.1 Проектирование схемы данных

2.2 Создание средствами QBE запросов с условиями, итоговых запросов, запросов с вычисляемыми полями, запросов на обновление, удаление, добавление записей, перекрестных запросов

2.3 Создание составного отчёта, содержащего диаграмму. Группировка и сортировка в отчётах

2.4 Создание иерархической формы по двум связанным таблицам

2.5 Создание страниц доступа к данным

3. Использование языка программирования VBA

3.1 Создание макросов

3.2 Разработка программы на VBA

3.2.1 Создание базы данных и таблиц в объектных моделях DAO и ADO. Изменение структуры таблиц программными средствами

3.2.1.1 Создание временной таблицы в объектных моделях DAO

3.2.1.2 Создание временной таблицы в объектной модели ADO

3.2.1.3 Удаление таблиц в объектных моделях DAO

3.2.1.4 Удаление таблиц в объектных моделях ADO

3.2.2 Создание, изменение и выполнение запросов программными средствами

3.3 Разработка функций на VBA

3.4 Создание главной кнопочной формы. Программирование Элементов управления формы

Заключение

Список использованных источников

Введение

база интерфейсный access данные

Со времени появление первого компьютера до сегодняшнего дня прошло 64 года, но несмотря на такой короткий срок в технологии компьютеров произошел прорыв. Хоть и современные компьютеры очень сильно отличаются от первых - все равно цель у них осталась одна: делать жизнь человека проще и помогать ему на работе и дома. И сейчас тяжело представить жизнь современного человека без компьютера. Компьютер еще полезен тем, что может хранить большое количество информации, что для человека является небольшой сложностью.

Информация легче воспринимается и передается, если она упорядочена и разбита на группы. Это значительно упрощает поиск и вывод нужных данных. Именно для этого используются системы баз данных.

Существует множество видов баз данных. Они чаще всего разделяются по сфере их использования, по классу пользователей и нужд, которые должны выполнять данные базы. Ведь это очевидно, что обычный коллекционер не станет пользоваться самой сложной и навороченной базой данных, когда ему стоит лишь составить простой список его коллекции. Это не разумно.

Для данного курсового проекта я использовал общедоступную, простую в использовании базу данных от компании Microsoft Office с названием Access. Данная БД имеет дружественный интерфейс и предназначена для массового пользователя.

Моей целью при выполнении курсового проекта является составление

БД на тему «Журналисты и статьи»

1. Анализ предметной области

Основным структурным компонентом базы данных, как правило, является таблица. При определении состава таблиц следует руководствоваться правилом: в каждой таблице должны храниться данные только об одной сущности. Сущность - совокупность объектов, обладающих одинаковым набором свойств.

В предметной области «Редакция» сущностями являются: «Журналисты» и «Статьи». Для каждого отдельного экземпляра сущности в таблице создается отдельная запись.

Свойство (атрибут) - определенная часть информации о некотором объекте. Хранится в виде столбца (поля) таблицы.

Если в базе данных должна содержаться информация о разных классах объектов, то она должна быть разбита на отдельные таблицы. Таблицы создаются в режиме «Конструктор» (Вставка/Таблица/Конструктор).

Предметная область данной курсовой работы “Редакция”. Следовательно, наша БД должна содержать три таблицы, в нашем случае - «Журналисты», «Статьи», «Зарплата»

Таблица «Журналисты» содержит табельный номер, фамилия, имя, отчество, год рождения, редакция, статус. Для полей фамилия, имя, отчество, редакция, статус задан тип данных «Текстовый», для поля табельный номер задан тип данных «Числовой». Для поля год рождения задан тип данных «Дата/время».

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

Таблица «Зарплата» создается аналогично предыдущим таблицам.

2. Использование интерфейсных средств СУБД MS Access 2003

2.1 Проектирование схемы данных

Сущность таблицы «Журналисты» имеет следующие атрибуты: Табельный номер, Фамилия, Имя, Отчество, Год рождения, Редакция, Статус. Табельный номер мы выбираем в качестве ключевого поля.

Она имеет вид представленный на рисунках 1.1, 1.2

Рисунок 1.1 - Окно конструктора таблицы “Журналисты”

Рисунок 1.2 - Таблица “Журналисты”

Сущность таблицы «Статьи» имеет следующие атрибуты: Табельный номер, Фамилия, Статьи, Жанр, Количество опубликованных статей, Город проживания, Вид.

Она имеет вид представленный на рисунках 2.1, 2.2.

Рисунок 2.1 - Окно конструктора таблицы “Журналисты”

Рисунок 2.2 - Окно конструктора таблицы “Журналисты”

Сущность таблицы «Зарплата» имеет следующие атрибуты: Табельный номер, Фамилия, Имя, Отчество, Год рождения, Редакция, Статус. Табельный номер мы выбираем в качестве ключевого поля.

Она имеет вид представленный на рисунках 3.1, 3.2

Рисунок 3.1 - Окно конструктора таблицы “Зарплата”



Рисунок 3.2 - Таблицы “Зарплата”

Чтобы объединить сущности необходимо задать связь между таблицами. Связь между таблицами осуществляется с помощью общих полей.

Между таблицами установлена связь “один - ко - многим”, при таком типе связи каждой записи в одной таблице соответствует несколько записей в связанной таблице.

Чтобы в связанных таблицах не нарушалась целостность данных, нужно для связи добавить опции «Обеспечение целостности данных». После этого Access сделает невозможным запись в не ключевую таблицу такого значения общего поля, которого нет в ключевой таблице. После установления целостности данных Access включает две дополнительные опции: «Каскадное обновление связанных полей» и «Каскадное удаление связанных полей». Первая опция позволяет при изменении какого-либо значения ключевого поля в ключевой таблице Access автоматически обновит значения этого поля для соответствующих записей во всех связанных таблицах. Вторая опция позволяет при удалении одной из записей в ключевой таблице удалить те записи в таблице со стороны "много", которые имеют такое же значение ключа.

На рисунке 4 представлена схема данных.



Рисунок 4 - Окно Схема данных

2.2 Создание средствами QBE запросов с условиями, итоговых запросов, запросов с вычисляемыми полями, запросов на обновление, удаление, добавление записей, перекрестных запросов

Для быстрого доступа и целенаправленного поиска необходимой информации в базе данных лучше всего использовать запросы. Запрос - это обращение к базе данных для поиска или изменения в базе данных информации, соответствующей заданным критериям.

Запрос на выборку выполняет отбор данных из одной или нескольких таблиц по заданным пользователем критериям, не приводящий к изменениям в самой базе данных. Запросы можно создавать для отбора данных как из одной, так и из нескольких таблиц, что позволяет оперировать полной информацией всей базы данных.

Создаем запрос зарплат журналистов, которых больше 700000 рублей

Рисунок 5 - Запрос на выборку в режиме конструктора.

В результате выполнения данного запроса получим таблицу, представ-ленную на рисунке 6.

Рисунок 6 - Результат выполнения запроса «Зарплаты» в режиме таблицы

Запрос на выборку позволяет быстро получить доступ к интересующей информации. Он производит отбор по заданным пользователем критериям. Запрос на выборку применим ко всем типам данных, и может включать в себя данные как из одной таблицы, так и из нескольких.

Создадим запрос, который позволяет найти Даты рождения, дата рождения журналистов расположена в диапазоне между 12.10.1980 и 11.11.1991. Запрос в режиме конструктор и результат его выполнения представлены на рисунках 7 и 8 соответственно.

Рисунок 7 - Запрос на выборку в режиме конструктора



Рисунок 8 - Результат выполнения запроса на выборку в режиме таблицы.

Итоговый запрос - запрос, в котором по одному полю производится группировка, а во всех остальных полях вводятся итоговые функции. Итоговые запросы позволяют производить вычисления с данными, занесенными в таблицу. Access предоставляет ряд функций, обеспечивающих выполнение групповых операций.

Создадим итоговый запрос, позволяющий вычислить количество городоав в которых проживают журналисты. Для этого в режиме конструктора необходимо выбрать команду «Группировка». В появившемся поле «Группировка» указываем COUNT для поля Город проживания». Эта функция вычисляет количество записей, отобранных запросом в определенном поле, в которых значения данного поля отличны от нуля.

Рисунок 9 - Итоговый запрос в режиме конструктора

После выполнения запроса получим результат, представленный на рисунке 10

Рисунок 10 - Результат выполнения итогового запроса в режиме таблицы

Для наглядности выполнения запросов на обновление, удаление и добавление записей создадим таблицу с помощью запроса на создание таблицы «Могилёв» содержащую поля «Фамилия», «Имя», «Отчество», «Редакция», «Статья». В данную таблицу включены все журналисты, проживающие в городе Могилеве. Она представлена на рисунке 11.

Рисунок 11 - Таблица «Могилёв» в режиме таблица

Создание запросов на обновление. Этот тип запросов-действий предназначен для изменения значений некоторых полей для всех выбранных записей. Обычный запрос можно преобразовать в запрос на обновление с помощью команды Запрос/Обновление в режиме конструктора запросов.

Запрос на обновление в режиме конструктора представлен на рисунке 12.

Рисунок 12 - Запрос на обновление в режиме конструктора

При вызове запроса появляется окно представленное на рисунке 13.

Рисунок 13- Запрос на обновление

В результате выполнения данного запроса таблица «Могилёв» изменится следующим образом, представленным на рисунке 14.

Рисунок 14 - Результат выполнения запроса на обновление в таблице

С помощью запроса на добавление записей можно скопировать выбранные записи и поместить их в другую таблицу. Можно также использовать запрос на добавление для переноса данных в используемую базу данных из другого источника (из какой-либо другой таблицы). Обычный запрос можно преобразовать в запрос на добавление с помощью команды Запрос/Добавление в режиме конструктора запросов. Добавим тех, кто проживает в городе Минске из таблицы «Статьи» в таблицу «Могилёв» с названием города «Минск».

На рисунке 15 показан запрос на добавление в режиме конструктора.

Рисунок 15- Запрос на добавление в режиме конструктора

При обращении к запросу на экран выводится сообщение, представленное на рисунке 16.

Рисунок 16-Запрос на добавление

При нажатии кнопки «Да» таблица «Могилёв» изменится, как показано на рисунке 17.



Рисунок 17- Результат выполнения запроса на добавление в таблице

Запрос на удаление служит для удаления группы записей базы данных, удовлетворяющих определенным условиям. Обычный запрос можно преобразовать в запрос на удаление с помощью команды Запрос/Удаление в режиме Конструктора запросов. При этом в бланке запроса появится строка «Удаление», где можно ввести условие для удаления записей. Удалим все города из таблицы «Могилёв» с названием города «Могилёв». Запрос представлен на рисунке 18.

Рисунок 18- Запрос на удаление в режиме конструктора

Рисунок 19-Запрос на удаление

В результате получим таблицу «Могилёв» в которой останутся только журналисты проживающие в городе Минске (рисунок 20).

Рисунок 20-Результат выполнения запроса на удаление в таблице

С помощью перекрестного запроса можно более наглядно представить данные итоговых запросов, предусматривающих группировку по нескольким признакам. Можно создать перекрестную таблицу с помощью мастера. На основе исходной таблицы или запроса мастер создает итоговую выборку, в которой группирует и сортирует данные по полям, используемым в качестве строки и столбца перекрестной таблицы, а также вычисляет итоговое значение по заданному полю данных.

Создадим перекрестный запрос для таблицы «Статьи», включив в него поля «Фамилия», «Город проживания» и вычисляемое поле для подсчета городов в которых живут журналисты. Запрос отображен на рисунках 21,22.

Рисунок 21- Окно конструктора перекрестного запроса



Рисунок 22- Результат выполнения перекрестного запроса

2.3 Создание составного отчёта, содержащего диаграмму. Группировка и сортировка в отчётах

Отчеты представляют собой наилучшее средство представления информации из базы данных в виде печатного документа. В основном отчеты применяются для просмотра «картины в целом», поэтому часто базируются на многотабличных запросах.

По сравнению с другими методами вывода данных на печать отчеты обладают двумя принципиальными преимуществами:

- отчеты предоставляют широкие возможности для группировки и вычисления промежуточных и общих итогов для больших наборов данных;

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

При создании отчета удобно использовать режим “Мастер отчетов”. Для отчета была выбрана таблицы «Журналисты» и «Статьи». Из этих таблиц в отчет были включены следующие поля: «Табельный номер», «Фамилия», «Имя», «Отчество», «Город проживания», «Статья», «Жанр». Отчет представлен на рисунках 23,24.



Рисунок 23- Окно конструктора отчета

Рисунок 24- Полученный отчет

Исходными данными для построения диаграмм могут быть данные таблиц либо запросов. Реальные таблицы в базах данных содержат огромное количество записей. Если при построении диаграммы не ограничить количество отображаемых в ней данных, то она будет загромождена излишними деталями. Поэтому чаще всего диаграммы строят по результатам запросов к базе данных.



Рисунок 25 - Диаграмма

Рисунок 26 - Диаграмма

2.4 Создание иерархической формы по двум связанным таблицам

Зачастую на практике требуются формы, позволяющие производить одновременный ввод или просмотр данных, хранимых в двух или более связанных таблицах. Например, при выводе информации о стране, было бы неплохо сразу размещать необходимую информацию о городах этой страны. Эти данные реально хранятся в разных таблицах, связанных отношением “один-ко-многим”.

Но можно создать форму, которая позволит вводить, редактировать и просматривать все эти данные одновременно. В таких случаях для отображения записей основной и подчиненной таблиц можно использовать многотабличную иерархическую форму. Иерархической называется форма, содержащая поля из главной и одной или нескольких подчиненных форм. На рисунке 27 представлена иерархическая форма в режиме конструктора.

Рисунок 27 - Окно конструктора иерархической формы

На рисунке 28 представлена форма «Журналисты» в режиме таблицы.

Рисунок 28- форма «Журналисты»

2.5 Создание страниц доступа к данным

Чтобы создать Страницу, необходимо в меню выбрать Вставка \ Страница. При нажатии появляется окно, в котором мы можем выбрать способ создания страниц (см. рисунок 29)

Рисунок 29 - Создание страницы доступа к данным с помощью мастера

Рисунок 30 - Добавляем поля из таблиц, которые мы хотим увидеть на созданной странице.



Рисунок 31 - Страница доступа

3. Использование языка программирования VBA

3.1 Создание макросов

Макросом называется набор команд, каждая из которых выполняет определенные действия. Макросы применяются для автоматизации часто выполняемых задач в Access. Макросы применяются главным образом для автоматизации работы с формами и отчетами. Макрокоманды можно разделить на следующие типы:

1. макрокоманда для работы с данными в формах и отчетах (найти запись)

2. макрокоманда выполнения (открыть запрос)

3. макрокоманда импорта, экспорта

4. макрокоманда для работы с объектом БД (копия объекта)

Создадим макрос на выполнения: откроем перекрестный запрос. Для этого указываем макрокоманду открыть запрос, в окне аргументов макрокоманды указываем имя запроса «Перекрестный запрос», режим «Таблица», режим данных «Только чтение». На рисунке 32 представлен макрос режиме конструктор.

Рисунок 32 Макрос в режиме конструктора

На рисунке 33 представлен результат выполнения макроса.

Рисунок 33 Результат выполнения макроса

В MS Access макросы делятся на 3 вида:

1) линейные макросы;

2) макросы с условием;

3) групповые макросы.

Макрос, в котором все макрокоманды выполняются последовательно, называется линейным. Создадим линейный макрос, позволяющий определить «Могилёв». Данный макрос в режиме конструктора представлен на рисунке 34.

Рисунок 34 - Линейный макрос в режиме конструктора

В результате получим таблицу представленную на рисунке 35.



Рисунок 35 - Результат выполнения линейного макроса в режиме таблицы

Если в одном макросе объединены несколько логически связанных макросов, то такой макрос называется групповым. Создадим групповой макрос, позволяющий в кнопочной форме открывать созданные ранее: таблицу «Журналисты», таблицу «Зарплаты», отчет «Зарплата» и форму «Журналисты». Данный макрос в режиме конструктора представлен на рисунке 36.

Рисунок 36 - Групповой макрос в режиме конструктора.

Результат выполнения группового макроса представлен на рисунке 37.



Рисунок 37 - Результат выполнения группового макроса.

3.2 Разработка программы на VBA

Язык Visual Basic for Applications является объектно-ориентированным языком программирования. Стандартные объекты Visual Basic представляют собой основное средство манипуляции с данными Microsoft Access и других приложений семейства Microsoft Office. Знание технологии объектно-ориентированного программирования и состава объектных моделей Visual Basic позволяет разрабатывать профессиональные приложения, выполняющие всю необходимую обработку данных.

В Microsoft Access 2003 сохранилась возможность двух способов работы с данными:

1. посредством DAO (Data Access Objects);

2. посредством ADO (ActiveX Data Objects).

Объектная модель Microsoft DAO 3.6 (DAO, Data Access Objects) -- это унифицированный набор объектов для доступа к данным.

Объекты управления данными ActiveX (ADO/ ActiveX Data Objects) предназначены для обеспечения доступа к источникам данных разных видов, от текстовых файлов до распределенных баз данных. ADO представляет собой объектно-ориентированный интерфейс для приложений, использующих OLE DB. OLE DB -- это программный интерфейс, удовлетворяющий спецификации COM (Component Object Model, компонентная модель объектов), который предоставляет унифицированный способ доступа к различным источникам данных. Интерфейс OLE DB разрабатывался с целью получения оптимальной функциональности для приложений разных видов и поэтому не является простым в использовании. ADO -- промежуточное звено между приложением и OLE DB, предоставляющее разработчикам приложений удобный объектно-ориентированный интерфейс.

При работе в редакторе VBA создаётся окно проекта рисунок 44.

Рисунок 38 - Окно проекта

3.2.1 Создание базы данных и таблиц в объектных моделях DAO и ADO. Изменение структуры таблиц программными средствами

3.2.1.1 Создание временной таблицы в объектных моделях DAO

Private Sub Таблица_DAO()

' Создание таблицы средствами DAO

'Объявляем объектные переменные для объектов: база данных, таблица и поле

Dim db As Database, td As TableDef, fld As Field

'Устанавливаем ссылку на текущую базу данных

Set db = CurrentDb

'Создаем новую таблицу, используя метод CreateTableDef 'объекта Database

Set td = db.CreateTableDef("Таблица DAO")

'Создаем поле в таблице, используя метод CreateField объекта 'TableDef.

Set fld = td.CreateField("Фамилия", dbText)

'Добавляем поле "Фамилия" в семейство Fields таблицы

td.Fields.Append fld

'Создаем второе поле с именем "Имя" и типом Текстовый

Set fld = td.CreateField("Имя", dbText)

'Добавляем поле "Имя" в семейство Fields таблицы

td.Fields.Append fld

'Создаем третье поле с именем "Отчество" и типом Текстовый

Set fld = td.CreateField("Отчество", dbText)

'Добавляем поле "Отчество" в семейство Fields таблицы

td.Fields.Append fld

'Создаем четвертое поле с именем "Редакция" и типом Текстовый

Set fld = td.CreateField("Редакция", dbText)

'Добавляем поле "Редакция" в семейство Fields таблицы

td.Fields.Append fld

'Добавляем таблицу к семейству TableDefs базы данных

db.TableDefs.Append td

'Обновляем количество объектов семейства TableDefs

db.TableDefs.Refresh

End Sub

Результат выполнения программы представлен на рисунке 39.



Рисунок 39 - Временная таблица

3.2.1.2 Создание временной таблицы в объектной модели ADO

Private Sub Таблица_ADO()

' Создание таблицы средствами ADO

'Объявляем объектные переменные Connection и Catalog для связи данных

Dim cnn As New ADODB.Connection

Dim cat As New ADOX.Catalog

'Устанавливаем ссылку на текущую базу данных, используя объект connection ADODB

Set cnn = CurrentProject.Connection

'присваиваем объекту cat наше соединение

cat.ActiveConnection = cnn

'создаем таблицу

Dim Tabl As New Table

Tabl.Name = "Таблица ADO"

'Добавляем несколько полей в семейство Columns

With Tabl

.Columns.Append "Фамилия", adVarWChar

.Columns.Append "Имя", adVarWChar

.Columns.Append "Отчество", adVarWChar

.Columns.Append "Редакция", adVarWChar

End With

On Error GoTo err

'добавлем таблицу в семейство Tables

cat.Tables.Append Tabl

'Обновляем количество объектов семейства Tables

cat.Tables.Refresh

err:

MsgBox "Таблица создана", 0, "результат"

'закрываем соединение

Set cat.ActiveConnection = Nothing

'освобождаем переменную

Set cat = Nothing

End Sub

Результат выполнения программы представлен на рисунке 40.

Рисунок 40 - Временная таблица

3.2.1.3 Удаление таблиц в объектных моделях DAO

Private Sub Удаленеи_DAO()

'Удаление таблицы средствами DAO

Dim db As Database

'Устанавливаем ссылку на текущую базу данных

Set db = CurrentDb

db.TableDefs.Delete "Таблица DAO"

db.TableDefs.Refresh

'Освобождаем объектную переменную

Set db = Nothing

End Sub

3.2.1.4 Удаление таблиц в объектных моделях ADO

Private Sub Удаление_ADO()

'Удаление таблицы средствами ADO

'Объявляем объектные переменные Connection и Catalog для связи данных

Dim cnn As New ADODB.Connection

Dim cat As New ADOX.Catalog

'Устанавливаем ссылку на текущую базу данных, используя объект connection ADODB

Set cnn = CurrentProject.Connection

'присваиваем объекту cat наше соединение

cat.ActiveConnection = cnn

On Error GoTo err

'удаляем временную таблицу

cat.Tables.Delete ("Таблица ADO")

'закрываем соединение

Set cat.ActiveConnection = Nothing

'освобождаем переменную

Set cat = Nothing

GoTo ends

err:

ends:

MsgBox "Таблица удалена", 0, "результат"

End Sub

3.2.2 Создание, изменение и выполнение запросов программными средствами

Создадим с помощью объекта DAO запрос на выборку. Условием отбора является Зарплата >=1000000 (рисунок 41).

Private Sub Запрос_Зарплата_больше_1000000()

Dim db As Database, qd As QueryDef, rs As DAO.Recordset

Dim msg, title As String

Set db = CurrentDb

'создаем новый запрос и сохраняем его в базе данных

Set qd = db.CreateQueryDef("Запрос(VBA)")

qd.SQL = "SELECT Табельный_номер, Фамилия, FROM [Зарплата] -

WHERE ([Зарплата].[Зарплата])>1000000 "

'создаем набор записей на базе нового запроса

Set rs = qd.OpenRecordset(dbOpenDynaset)

Set rs = Nothing

msg = "Новый ЗАПРОС создан"

title = "Внимание"

MsgBox msg, , title

DoCmd.OpenQuery "Запрос(VBA)"

End Sub

Рисунок 41 - запрос, созданный программными средствами

3.3 Разработка функций на VBA

Рассмотрим разработку функций на VBA на примере создания диалогового окна для ввода имени и пароля. При создании форм и элементов управления Access устанавливает большинству свойств значения по умолчанию. Изменим значение свойства Модальное окно (Modal) формы в диалоговом окне Свойства (Properties). Для открытия формы как диалогового окна свойству Модальное окно необходимо присвоить значение Да (Yes) до открытия формы.

Первое свойство, которое мы изменим, -- это Caption. Далее присвоим свойству ScroLLBars (Полосы прокрутки) значение 0, это означает, что на форме не будет полос прокрутки. Нам необходимо изменить внешний вид формы, чтобы она была как можно больше похожа на стандартные диалоговые окна Windows. Для этого изменим на противоположные значения по умолчанию значения следующих свойств: DividingLines (Разделительные линии), NavigationButtons (Кнопки перехода), RecordSelectors (Область выделения).

Существуют такие свойства формы, которые нельзя установить из диалогового окна Свойства -- они изменяются только программно. Примером такого свойства является свойство Visible (Вывод на экран), которое использовали в приведенной ниже программе. У элементов управления тоже есть свойство Visible, но его значение можно изменять не только программно, но и из окна Свойства.

Private Sub Форма1()

Dim strFrm As String, blnOk As Boolean

strFrm = "Форма1"

'Открытие диалогового окна

DoCmd.OpenForm strFrm, , , , , acDialog

If CurrentProject.AllForms(strFrm).IsLoaded Then

'Проверка имени и пароля, например:

If Forms(strFrm).Поле0 = "Alex" And Forms(strFrm).Поле2 = "1990" Then

'Имя и пароль введены верно,

'закрываем диалоговое окно

DoCmd.Close acForm, strFrm

MsgBox "Добро пожаловать!", vbInformation, "Форма1"

blnOk = True

Else

'Имя и пароль введены неверно,

'подготавливаем диалоговое окно к новому запросу

MsgBox "Имя или пароль введены неверно!", _

vbExclamation, "Форма1"

blnOk = False

End If

strFrm = "Журналисты"

If blnOk Then

'Дальнейшие действия

DoCmd.OpenForm strFrm, , , , , acDialog

End If

End If

End Sub

На рисунке 42 представлена форма для ввода пароля.

Рисунок 42 - форма для ввода пароля

3.4 Создание главной кнопочной формы. Программирование Элементов управления формы

Для облегчения доступа к таблицам, отчетам, запросам и т.д., а также наилучшего представления базы данных используют кнопочную форму. Создают её с помощью Конструктора форм. На ней создают кнопки, нажатию которых соответствует вызов различных процедур. Например, в главной форме есть кнопки перехода по записям, кнопки закрытия формы, вызова запросов и др.

Создадим главную кнопочную форму «Главная кнопочная форма», которая будет содержать следующие кнопки: «Формы для ввода данных», «Запросы», «Отчеты», «Макросы» и кнопка для выхода из БД. Главная кнопочная форма представлена на рисунке 43.

Рисунок 43 - Главная кнопочная форма

Заключение

Данная курсовая работа является примером использования интерфейсных средств СУБД MS Access 2003. В ней рассмотрены основные методы работы с объектами MS Access 2003: таблицы, запросы, формы, отчёты. Приобретены навыки по созданию, удалению, изменению таблиц, запросов в автоматическом режиме, а также с использованием языка программирования VBA.

Были созданы формы с запрограммированными элементами управления с целью облегчения доступа к данным, быстрого поиска и т.д.

 Список использованных источников

1. Хомоненко А.Д., Гридин В.В. Microsoft Access. Экспресс-курс. - СПб.: БХВ-Петербург, 2008.- 304.: ил.

2. Харитонова И.А., В. Михеева В.Д. Microsoft ACCESS 2000: разработка приложений. - СПб.: БХВ - Санкт-Петербург, 2009. - 832 с.: ил.

3. Гарнаев А.Ю. Использование MS Excel и VBA в экономике и финансах. - СПб, БХВ -Санкт-Петербург, 2007.

Размещено на Allbest.ru

...