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

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

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

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

rst.Fields.Append Fiel2

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

dbs.TableDefs.Append rst

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

zzz:

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

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

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

rstt.AddNew

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

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

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

rstt.Update

Loop

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

End Sub 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

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

 

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

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

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

 

     Рисунок 38

 

ЗАКЛЮЧЕНИЕ 

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

• создание базы данных и таблиц средствами СУБД Access;
• управление базами данных;
• создание баз данных на основе таблиц
• получены навыки программирования в MS Office

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

• обеспечивает удобные средства для описания структуры таблиц (мастер и Конструктор), возможность просто задать имя поля, выбрать тип данных из списка, размер и формат поля, задать поле со списком и определить источник данных для него;
• Позволяет создавать автоматизированные базы данных на основе языка Visual Basic for Application.

 
 

 

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

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