Разработка информационной системы средствами СУБД Access (стр. 4 из 4)

3.2 Разработка модулей

Приложение содержит три модуля, которые реализуют специальные алгоритмы обработки данных. Требуется написать процедуру поиска данных по категории в таблице Охранники.

Option Compare Database

Private Sub Кнопка23_Click()

'определение объектных переменных

DimdbsAsDatabase

DimrstAsRecordset

'определение полей для ввода ключей

Dim nt As String

'запись в dbs ссылки на текущую базу данных

Set dbs = CurrentDb()

'запись в rst ссылки на таблицу Поставка

Set rst = dbs.OpenRecordset("Охранники", dbOpenTable)

'ввод названия товара для поиска

nt = InputBox("Введите категорию", "Ввод параметров поиска")

'цикл, работающий пока таблица не закончилась

DoWhileNotrst.EOF

'сравнение введенного текста с полем из записи таблицы Охранники

Ifnt = rst![Категория] Then

'вывод найденной записи

MsgBox " Категория: " & rst![Категория] & _

" ФИО: " & rst![ФИО], vbOKOnly

EndIf

'переход на следующую запись

rst.MoveNext

'конец цикла

Loop

End Sub

Написать процедуру создания таблицы Список категорий (структура таблицы аналогична таблице Категории) и ввода в нее записей.

Private Sub Кнопка3_Click()

Dim dbs As DAO.Database

Dim rst As DAO.TableDef

Dim Fiel1 As DAO.Field

Dim Fiel2 As DAO.Field

Dim rstt As DAO.Recordset

Dim indi As DAO.Index

Set dbs = CurrentDb()

'создание таблицы

Set rst = dbs.CreateTableDef("Список категорий")

'описание первого поля Fiel1

Set Fiel1 = rst.CreateField("Категория", dbText, 25)

'добавление поля Fiel1 в семеКатегорияйство полей таблицы tb1

rst.Fields.Append Fiel1

'описание второго поля Fiel2

SetFiel2 = rst.CreateField("Стоимость часа работы", dbText, 25)

'добавление поля Fiel2 в семейство полей таблицы tb1

rst.Fields.AppendFiel2

'добавление таблицы в семейство таблиц

dbs.TableDefs.Appendrst

MsgBox "Таблица Список Категорий", vbOKOnly

zzz:

Setrstt = dbs.OpenRecordset("Список Категорий")

DoWhileMsgBox("Будем вводить данные", vbOKCancel) = vbOK

'добавление пустой записи

rstt.AddNew

rstt![Категория] = InputBox("Введите категорию")

rstt![Стоимость часа работы] = InputBox("ВВедите стоимость часа работы")

'запись введенных данных в таблицу

rstt.Update

Loop

'описание ошибочной ситуации

End Sub

3.3 Создание панели управления приложением

Панель управления приложением позволяет объединить созданные элементы приложения в единое целое и вызывать их из одного объекта.

Первая страница панели содержит следующие кнопки: Формы, Запросы, Отчеты, Макросы, Модули, Конструктор, Выход. На странице Формы содержатся следующие кнопки: Заказы, Охранники, Категории-Охранники, Заказы-Категории. На странице Запросы содержатся кнопки для вызова маросов, которые в свою очередь вызывают запросы 1а, 2, 3, 4а, 5.

На странице Модули вызывается форма модулей. На странице Запросы содержатся кнопки для вызова макросов, которые в свою очередь вызывают запросы 1, 2, 3, 4. Кнопка Конструктор вызывает конструктор кнопочных форм.

Рисунок 38

ЗАКЛЮЧЕНИЕ

В ходе выполнения курсовой работы были рассмотрены следующие вопросы:

- создание базы данных и таблиц средствами СУБД Access;

- управление базами данных;

- создание баз данных на основе таблиц

- получены навыки программирования в MSOffice

ПрименениеСУБД Access для разработки базы данных и приложения для работы с ней показало, что данная СУБД:

- обеспечивает удобные средства для описания структуры таблиц (мастер и Конструктор), возможность просто задать имя поля, выбрать тип данных из списка, размер и формат поля, задать поле со списком и определить источник данных для него;

- Позволяет создавать автоматизированные базы данных на основе языка VisualBasicforApplication.

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

1. Сергеева Т.И. Создание приложений для работы с базами данных с применением MSSQLServer и Access: практикум / Т.И. Сергеева, М.Ю. Сергеев. Воронеж: ГОУВПО «ВГТУ», 2009.
2. Сенов А.В. Access 2003. Практическая разработка баз данных / А.В. Сенов. СПб.: Питер, 2005.
3. Голицина О.Л., Максимов Н.В., Попов И.И. Базы данных: Учебное пособие. – М.: ФОРУМ: ИНФРА-М, 2003. – 352 с.
4. Джексон Г. Проектирование реляционных баз данных для использования с микроЭВМ. -М.: Мир, 1991. – 252 с.