6 Создание отчетов

• · В окне БД выбираю вкладку создание и щелкаем по кнопке Мастер отчетов;
• · В окне мастера выбираем таблицы с помощью кнопки Добавить переносим поля, которые необходимы для отчета в правую часть окна;
• · Нажимаю кнопку Далее, Готово.
• · Переходим в Режим конструктора и красиво оформляем отчет.
• · По этим шагам я подготовил два отчета (см. рис. 4.13 и 4.14).

Рис. 4.13 Отчет «Поставщики

Рис. 4.14 Отчет «Реализация овощей»

7 Программирование таблицы

Visual Basic Application (VВА) является полнофункциональным объектно-ориентированным языком программирования, позволяющим создавать приложения пользователя в среде СУБД Access. VВА — это общее средство программирования для всего семейства Microsoft Office, включая Word, Excel, Access, Outlook, Project.

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

Для создания новой таблицы в Microsoft VВА:

• · открываю базу данных на вкладке Модули;
• · разрабатываю процедуру, создающую новую таблицу «Ящики» с полями: название, состав, стоимость:

Рассмотрим создание новой таблицы Ящики оптом по супер цене в текущей базе данных.

Sub CreateTableDefX ().

`Определяем переменные.

Dim myDb As Database.

Dim myTab As TableDef.

Dim myF As Field.

Set myDb=CurrentDb ().

`Создаем новый объект TableDef — таблицу «Ящики оптом по супер цене» .

Set myTab= myDb. CreateTableDef («Ящики оптом по супер цене»).

`Создаем новый объект Field — текстовое поле «Название» и добавляем его к семейству полей объекта таблицы «Ящики оптом по супер цене» .

Set myF=myTab.CreateField («Название», dbText).

myTab.Fields.Append myF.

`Создаем новый объект Field — текстовое поле «Состав» и добавляем его к семейству полей объекта таблицы «Ящики оптом по супер цене» .

Set myF=myTab.CreateField («Состав», dbText).

myTab.Fields.Append myF.

`Создаем новый объект Field — текстовое поле «Стоимость» и добавляем его к семейству полей объекта таблицы «Ящики оптом по супер цене» .

Set myF=myTab.CreateField («Стоимость», dbText).

myTab.Fields.Append myF.

' Добавляем объект таблицу «Ящики оптом по супер цене» к семейству таблиц базы данных.

myDb.TableDefs.Append myTab.

End Sub.

В итоге получаю следующий программный код (см. рис. 4.18).

4.18 Программный код на создание таблицы «Ящики».

В результате получается таблица «Ящики оптом по супер цене» (см. рис. 4.19).

Рис. 4.19 Таблица «Ящики»

После выполнения этих шагов я получил базу данных «Овощной магазин». На этом этап реализации программного продукта можно считать завершенным: описана технология создания всех объектов базы данных «Овощной магазин» в соответствии с требованиями заказчика.