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

В связи с техническими характеристиками машин, используемых на предприятии, заказчик предъявил следующие требования:

• процессор PentiumIII;

• операционная система Windows2000 или более поздней версии;

• 512 MbRAM;

• дисковое пространство 245 MB, включая 115 MB пространства на жестком диске под операционную систему;

• CD(DVD)-дисковод;

• клавиатура, манипулятор мышь;

• среда MicrosoftOfficeAccess.

1.3. Структура меню

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

Каталог:

• Открыть отчет;

Добавить новый товар:

• Добавить запись;

• Сохранить новую запись

• Обновить форму;

• Весь товар;

Просмотреть отчеты:

• Группы товаров;

• Магазин;

• Поиск игрушки;

• Список товаров;

Накладные:

• Приход;

• Реализация;

• Печать накладных;

2. Программная реализация информационной системы

2.1 Таблицы

На снимке экрана представлены Таблицы, используемые в системе:

Структура каждой из таблиц

2.2 Формы

В данной информационно-справочной системе существуют следующие Формы:

На форме Приход товара и Реализация товара можно выполнить следующие действия:

1. Выполнить запрос на обновление

2. Открыть обновленную форму

2.3 Запросы

Далее представлен снимок запросов системы:

Структура каждого запроса:

2.4 Отчеты

Для печатной документации реализованы следующие Отчеты:

Структура каждого отчета:

2.5 Макросы и модули

На снимке показаны Макросы которые в данной системе реализовывают различные переходы по формам, поиск данных, открытие отчетов:

В модуле 1 находится код для формы Добавление_тов. Примеркода:

Option Compare Database

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

On Error GoTo Err_Кнопка15_Click

DoCmd.GoToRecord , , acNewRec

Exit_Кнопка15_Click:

Exit Sub

Err_Кнопка15_Click:

MsgBoxErr.Description

Resume Exit_Кнопка15_Click

End Sub

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

On Error GoTo Err_Кнопка16_Click

DoCmd.RunCommandacCmdSaveRecord

Exit_Кнопка16_Click:

Exit Sub

Err_Кнопка16_Click:

MsgBoxErr.Description

Resume Exit_Кнопка16_Click

End Sub

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

On Error GoTo Err_Кнопка17_Click

DoCmd.RunCommandacCmdRefresh

Exit_Кнопка17_Click:

Exit Sub

Err_Кнопка17_Click:

MsgBoxErr.Description

Resume Exit_Кнопка17_Click

End Sub

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

On Error GoTo Err_Кнопка18_Click

DoCmd.RunCommandacCmdRefresh

Exit_Кнопка18_Click:

Exit Sub

Err_Кнопка18_Click:

MsgBoxErr.Description

Resume Exit_Кнопка18_Click

End Sub

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

On Error GoTo Err_Кнопка19_Click

If Me.Dirty Then Me.Dirty = False

DoCmd.Close

Exit_Кнопка19_Click:

Exit Sub

Err_Кнопка19_Click:

MsgBoxErr.Description

Resume Exit_Кнопка19_Click

End Sub

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

On Error GoTo Err_Кнопка20_Click

Dim stDocName As String

stDocName = ChrW(1052) &ChrW(1072) &ChrW(1082) &ChrW(1088) &ChrW(1086) &ChrW(1089) &ChrW(50)

DoCmd.RunMacrostDocName

Exit_Кнопка20_Click:

Exit Sub

Err_Кнопка20_Click:

MsgBoxErr.Description

Resume Exit_Кнопка20_Click

EndSub