1.3 Математическое описание задачи Входные данные

Входными данными в создаваемой нами базе данных являются:

• наименование продукции, поступившей в магазин;

• вид товара;

• количество;

• стоимость единицы продукции;

• дата изготовления;

• срок реализации;

названия фирм-производителей продукции;название страны, на территории которой произведён товар

Формат ячеек по умолчанию установлен общий.

Выходные данные

Выходными данными в создаваемой нами базе данных являются:

- вычисление общей стоимости по каждому виду товаров

Математическая модель

Получение выходных данных в данной задаче предполагает вычисления. Покажем, какие зависимости существуют между входными и выходными данными.

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

I_i = C_i * D_{i ,} где I_i - общая стоимость товара

C_i - количество

D _i – стоимость единицы товара

1.4 Создание базы данных

Формируем заголовок таблицы «Продажи». Для заполнения таблицы данными создаём форму следующим образом:

Заполняем заголовок таблицы и вводим первую запись, выделяем их и выполняем команду «Данные» ― «Форма». В итоге получаем форму следующего вида:

Последовательно для каждой продукции заполняем форму, используя кнопки «Добавить», «Удалить», «Далее», «Назад».

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

1.5 Поиск данных

Все операции, связанные с поиском данных описаны в пункте «Создание макросов и назначение их объектам», так как один из созданных макросов осуществляет поиск данных в базе.

1.6 Создание макросов и назначение их объектам

В проекте созданы три макроса:

- максимальное количество продукции

- товары с истекшим сроком годности

- информация о стране

Макросы: Получение информации о стране, которая задана пользователем.

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

Выделяем любую ячейку вне таблицы и выполняем команду «Сервис» — «Макрос» — «Начать запись» нажимаем ОК. После этого выделяем любую ячейку таблицы, выполняем команду «Данные» — «Фильтр» — «Автофильтр», в раскрывающемся списке столбца «название страны,гдн произведен товар» выбираем любое наименование, например, «Великобритания», останавливаем запись нажатием на кнопке «Остановить запись» на появившейся при записи макроса панели управления. Затем заходим в меню со списком макросов: «Сервис» — «Макрос» — «Макросы». Выделяем имя созданного макроса и на панели справа от списка щелкаем на кнопке «Изменить». Открывается окно среды Visual Basic for Applications с кодом макроса. Там мы после оператора Criteria1: вместо других записей вводим =InputBox("Введите название страны"). В итоге код макроса принимает следующий вид:

Sub Макрос3()

'

' Макрос3 Макрос

' Макрос записан 5/5/2006 (et502)

'

'

Range("H2").Select

Selection.AutoFilter

Selection.AutoFilter Field:=8, Criteria1:=InputBox("Введите название страны")

End Sub

При запуске макроса будет выведено окно, в которое нужно ввести название страны и для получения информации о нёй нажать ОК справа от текстового поля.

В результате получим: