Файл: Проектирование реализации операций бизнес-процесса «Управление товарными потоками» (Выбор комплекса задач автоматизации).pdf

• Кнопка24_Click() открывает кнопочную форму «Меню_Поставки на склады»;
• Кнопка25_Click() открывает кнопочную форму «Меню_Доставки в магазины»;
• Кнопка26_Click() открывает кнопочную форму «Меню_Продажи»;
• Кнопка28_Click() осуществляет выход из MS Access и заканчивает работу системы.

Полный текст всех программных модулей приведен в Приложении 1.

2.7.2 Модуль формы «Меню_Поставки на склады»

Модуль состоит из 6 процедур – обработчиков нажатий управляющих кнопок на форме:

• Кнопка24_Click() открывает форму «Товар»;
• Кнопка25_Click() открывает форму «Поставщик»;
• Кнопка26_Click() открывает форму «Склады»;
• Кнопка27_Click() открывает форму «Поставка на склад»;
• Кнопка29_Click() открывает запрос «Поставка на склад_ перекрестный»;
• Кнопка28_Click() закрывает текущую форму.

2.7.3 Модуль формы «Меню_Доставки в магазины»

Модуль состоит из 6 процедур – обработчиков нажатий управляющих кнопок на форме:

• Кнопка24_Click() открывает форму «Экспедиторы»;
• Кнопка25_Click() открывает форму «Магазин»;
• Кнопка27_Click() открывает запрос «Доставка товара в магазины_перекрестный»;
• Кнопка26_Click() открывает форму «Доставка»;
• Кнопка28_Click() открывает запрос «Доставка товара в магазины_перекрестный»;
• Кнопка29_Click() закрывает текущую форму.

2.7.4 Модуль формы «Меню_Продажи»

Модуль состоит из 7 процедур – обработчиков нажатий управляющих кнопок на форме:

• Кнопка25_Click() открывает запрос «Наличие товара в магазинах»;
• Кнопка24_Click() открывает форму «Продажи»;
• Кнопка26_Click() открывает отчет «Счет»;
• Кнопка27_Click() открывает запрос «Получение товара магазинами_перекрестный»;
• Кнопка28_Click() открывает запрос «Продажи товаров_перекрестный»;
• Кнопка30_Click() открывает отчет «Ежемесячные продажи по магазинам»;
• Кнопка29_Click() закрывает текущую форму.

2.8. Контрольный пример реализации проекта и его описание

В качестве контрольного примера последовательно выполним основные действия в спроектированной информационной системе.

1. Оформление новой поставки товара «Амортизатор Porter задний MOBIS» на склад №1 в объеме 20 шт. показано на рисунке 50. В результате операции добавлена новая запись в таблице «Поставка на склад» (код поставки равен 19). Все таблицы базы данных распечатаны в Приложении 2.

2. Оформление новой доставки товара «Амортизатор Porter задний MOBIS» со склада №1 в магазин №2 в количестве 5 шт. показано на рисунке 51. В результате операции добавлена новая запись в таблице «Доставка товара» (код доставки равен 21).

Рисунок 50. Оформление поставки товара на склад.

Рисунок 51. Оформление доставки товара в магазин.

3. Оформление новой продажи товара «Амортизатор Porter задний MOBIS» в магазине №2 в количестве 3 шт. показано на рисунке 52. В результате операции добавлена новая запись в таблице «Продажи» (номер счет равен 15).

4. Выставленный счет покупателю показан на рисунке 53.

Рисунок 52. Оформление продажи товара.

Рисунок 53. Выставленный счет покупателю.

5. Фрагмент отчета по продажам, где отображается запись о совершенной в контрольном примере продаже, показан на рисунке 54 (вторая строка).

Рисунок 54. Фрагмент отчета по продажам.

Заключение

...Целью данной курсовой работы было создание программного продукта, который был бы удобный в использовании и показывал все характеристики предметной области, приобрести навыки работы с Microsoft Access, научиться создавать таблицы, работать с формами и отчетами, использовать запросы для упрощения работы с базами данных.

В процессе описания экономической сущности задач учета складских операций и реализации продукции дается понятие об объекте, области и ее характеристике, описаны основные функциональные задачи управления складским учетом. Были выявлены информационные потоки организации. В результате изучения информационных потоков были выявлены зависимости и факторы, которые влияют на работу склада. В ходе проектирования была построена инфологическая модель, датологическая модель и их описание.

В данной курсовой работе была реализована база данных «Склад автозапчастей», позволяющая автоматизировать работу фирмы ООО «ЮВИЛИС ЛАЙН».

Разработанное программное обеспечение позволяет вести учет товара, поставок и доставок на складе и в магазин.

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

Список литературы

1. Владимир Грекул, Нина Коровкина, Юрий Куприянов. Проектное управление в сфере информационных технологий. – М.:БИНОМ, ИНФРА-М, 2013.
2. Ричард Ньютон. Управление проектами от А до Я. – М.: Альпина Паблишер, 2014.
3. В.Г. Елиферов, В.В. Репин. Процессный подход к управлению. Моделирование бизнес-процессов. – М.:Манн, Иванов и Фербер, 2013.
4. Базарова А.С. Организация складского учёта – М.: Триумф, 2005–128с.
5. Вендров А.М. Проектирование программного обеспечения экономических информационных систем: Учебник – М.:Финансы и статистика, 2000 – 352 с.
6. Смирнова Г.Н., Сорокин А.А., Тельнов Ю.Ф. Проектирование экономических информационных систем, М. 2002 – 276 с.
7. Широков Л.А., Рабинович А.Е., Широкова О.Л. Информационное обеспечение системы управления. СУБД «Access». - М.:МГИУ, 2001-234с.
8. Экономическая информатика: Учебник / Под ред. П. В. Конюховского и Д. Н Колесова – СПб: Питер, 2001. – 560 с.

Приложение 1. Текст программных модулей

Модуль формы «Главная_форма».

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "Меню_Поставки на склады"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка24_Click:

Exit Sub

Err_Кнопка24_Click:

MsgBox Err.Description

Resume Exit_Кнопка24_Click

End Sub

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "Меню_Доставки в магазины"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка25_Click:

Exit Sub

Err_Кнопка25_Click:

MsgBox Err.Description

Resume Exit_Кнопка25_Click

End Sub

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "Меню_Продажи"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка26_Click:

Exit Sub

Err_Кнопка26_Click:

MsgBox Err.Description

Resume Exit_Кнопка26_Click

End Sub

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

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

DoCmd.Quit

Exit_Кнопка28_Click:

Exit Sub

Err_Кнопка28_Click:

MsgBox Err.Description

Resume Exit_Кнопка28_Click

End Sub

Модуль формы «Меню_Поставки на склады».

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "Товар"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка24_Click:

Exit Sub

Err_Кнопка24_Click:

MsgBox Err.Description

Resume Exit_Кнопка24_Click

End Sub

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "Поставщик"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка25_Click:

Exit Sub

Err_Кнопка25_Click:

MsgBox Err.Description

Resume Exit_Кнопка25_Click

End Sub

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "Склады"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка26_Click:

Exit Sub

Err_Кнопка26_Click:

MsgBox Err.Description

Resume Exit_Кнопка26_Click

End Sub

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "Поставка на склад"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка27_Click:

Exit Sub

Err_Кнопка27_Click:

MsgBox Err.Description

Resume Exit_Кнопка27_Click

End Sub

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

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

DoCmd.Close

Exit_Кнопка28_Click:

Exit Sub

Err_Кнопка28_Click:

MsgBox Err.Description

Resume Exit_Кнопка28_Click

End Sub

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

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

Dim stDocName As String

stDocName = "Поставка на склад_перекрестный"

DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Кнопка29_Click:

Exit Sub

Err_Кнопка29_Click:

MsgBox Err.Description

Resume Exit_Кнопка29_Click

End Sub

Модуль формы «Меню_Доставки в магазины».

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "Экспедиторы"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка24_Click:

Exit Sub

Err_Кнопка24_Click:

MsgBox Err.Description

Resume Exit_Кнопка24_Click

End Sub

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "Магазин"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка25_Click:

Exit Sub

Err_Кнопка25_Click:

MsgBox Err.Description

Resume Exit_Кнопка25_Click

End Sub

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "Доставка"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка26_Click:

Exit Sub

Err_Кнопка26_Click:

MsgBox Err.Description

Resume Exit_Кнопка26_Click

End Sub

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

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

Dim stDocName As String

stDocName = "Доставка товара в магазины_перекрестный"

DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Кнопка27_Click:

Exit Sub

Err_Кнопка27_Click:

MsgBox Err.Description

Resume Exit_Кнопка27_Click

End Sub

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

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

Dim stDocName As String

stDocName = "Доставка товара в магазины_перекрестный"

DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Кнопка28_Click:

Exit Sub

Err_Кнопка28_Click:

MsgBox Err.Description

Resume Exit_Кнопка28_Click

End Sub

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

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

DoCmd.Close

Exit_Кнопка29_Click:

Exit Sub

Err_Кнопка29_Click:

MsgBox Err.Description

Resume Exit_Кнопка29_Click

End Sub

Модуль формы «Меню_Продажи».

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "Продажи"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка24_Click:

Exit Sub

Err_Кнопка24_Click:

MsgBox Err.Description

Resume Exit_Кнопка24_Click

End Sub

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

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

Dim stDocName As String

stDocName = "Наличие товара в магазинах"

DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Кнопка25_Click:

Exit Sub

Err_Кнопка25_Click:

MsgBox Err.Description

Resume Exit_Кнопка25_Click

End Sub

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

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

Dim stDocName As String

stDocName = "Счет"

DoCmd.OpenReport stDocName, acPreview

Exit_Кнопка26_Click:

Exit Sub

Err_Кнопка26_Click:

MsgBox Err.Description

Resume Exit_Кнопка26_Click

End Sub

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

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

Dim stDocName As String

stDocName = "Получение товара магазинами_перекрестный"

DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Кнопка27_Click:

Exit Sub

Err_Кнопка27_Click:

MsgBox Err.Description

Resume Exit_Кнопка27_Click

End Sub

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

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

Dim stDocName As String

stDocName = "Продажи товаров_перекрестный"

DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Кнопка28_Click:

Exit Sub

Err_Кнопка28_Click:

MsgBox Err.Description

Resume Exit_Кнопка28_Click

End Sub

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

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

DoCmd.Close

Exit_Кнопка29_Click:

Exit Sub

Err_Кнопка29_Click:

MsgBox Err.Description

Resume Exit_Кнопка29_Click

End Sub

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

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

Dim stDocName As String

stDocName = "Ежемесячные продажи по магазинам"

DoCmd.OpenReport stDocName, acPreview

Exit_Кнопка30_Click:

Exit Sub

Err_Кнопка30_Click:

MsgBox Err.Description

Resume Exit_Кнопка30_Click

End Sub

Приложение 2. Таблицы базы данных