Рисунок 5 — Титульный лист приложения.
На листе Прайс-лист расположено описание продаваемого товара. А именно: вид цветов: срезанные или в горшке, сорт, производитель срезанных цветов, высота, цвет и цена продаваемого товара. На этом листе расположены две кнопки перехода на титульный лист и на форму для оформления заказа. Рисунок 6 — Вид листа Прайс-лист.
На форме оформление заказа расположены два переключателя (OptionButton), которые позволяют выбрать тот вид товара, который нужен покупателю: срезанные цветы или цветы в горшках. В зависимости от того какой переключатель выбран, отображаются соответственные элементы управления формы для оформления заказа: выпадающий список (ComboBox) для выбора товара и три элемента TextBox для ввода количества заказываемых цветов и для отображения цены и суммы покупки. Также на форму помещены две кнопки Купить и Закрыть. Рисунок 7 — Вид формы Оформление заказа.
При нажатии на кнопку Закрыть форма заказа закрывается и происходит возврат на Прайс-лист. При нажатии на кнопку Купить на листе Склад вычитается количество купленных цветов от количества соответственных цветов на складе, а также вся информация о заказе отображается на листе Заказы. На листе Склад отображается остаток товара на складе и закупочнаяцена товара. А также кнопки На главную и Заказы для переходов на соответственные страницы. Рисунок 8 — Вид листа Склад.
На листе Заказы отображаются сведения о заказах цветов: названии, цене и количестве заказываемых цветов, сумме заказов. А также рассчитывается доход фирмы от каждой покупки, общее количество проданных товаров, сумма проданных товаров и общий доход фирмы с учетом запланированных отходов (убытков) в 5%.Рисунок 9 — Вид листа Заказы3.
3. Разработка программных модулей.
На форме Оформление заказа расположены следующие элементы: OptionButton1 и OptionButton2 — предназначены для выбора вида заказа;ComboBox1 и ComboBox2 — предназначены для выбора названия заказываемых цветов;TextBox3 и TextBox4 — предназначены для отображения цены заказываемого цветкаTextBox1 и TextBox2 — предназначены для указания количества заказываемых цветовTextBox5 и TextBox6 — предназначены для отображения суммы заказаCommandButton1 — предназначен для оформления покупки CommandButton2 — предназначен для закрытия формы. Рисунок 10 — Вид формы Оформление заказа в редакторе VisualBasicПри инициализации формы Оформление заказа была создана процедура, которая заполняет выпадающие списки значениями заказываемых цветов: Private Sub UserForm_Initialize ()ComboBox1.Visible = FalseComboBox2. Visible = FalseTextBox2. Visible = FalseTextBox3. Visible = FalseTextBox6. Visible = FalseTextBox4. Visible = FalseTextBox1. Visible = FalseTextBox5. Visible = FalseComboBox1. AddItem «Аваланж» 'Заполнениезначениями ComboBox1 и ComboBox2ComboBox1. AddItem «Аваланж.
Кенди" ComboBox1. AddItem «Агапантус.
БлюАйз" ComboBox1. AddItem «Айвенго» ComboBox1. AddItem «Аква» ComboBox1. AddItem «Акито» ComboBox1. AddItem «Алкеми» ComboBox1. AddItem «Алкеми» ComboBox1. AddItem «Амалия» ComboBox1. AddItem «Аметист» ComboBox2. AddItem «Агава.
Американа" ComboBox2. AddItem «Азалия.
ГельмутВегель" ComboBox2. AddItem «Бегонияцветущая» ComboBox2. AddItem «Гарденияжасминовидная» ComboBox2. AddItem «Герберамикс» ComboBox2. AddItem «Глоксиния» ComboBox2. AddItem «Диффенбахия.
Компакта" ComboBox2. AddItem «Драцена.
Маргината" ComboBox2. AddItem «Каланхое.
Пинк" ComboBox2. AddItem «Орхидея.
Ванда" EndSubПри выборе переключателя с видом заказа создана процедура, которая отображает элементы формы для соответствующего заказа: PrivateSub OptionButton1_Click ()ComboBox1.Visible = True 'Отображение только тех элементов формы, которые нужны для заказа срезанных цветов или цветов в горшкахTextBox4. Visible = TrueTextBox1. Visible = TrueTextBox5. Visible = TrueComboBox2. Visible = FalseTextBox2. Visible = FalseTextBox3. Visible = FalseTextBox6. Visible = FalseEndSubКогда выбирается нужный цветок в списке выбора, запускается процедура, которая подставляет в следующее текстовое поле цену этого цветка: Private Sub ComboBox1_Change ()For i = 4 To 50If (Sheets («Прайс-лист»).Cells (i, 1) = UserForm1. ComboBox1) ThenTextBox4. Text = Sheets («Прайс-лист»).Cells (i, 5) End IfNext iEnd SubКогда заполняется количество заказываемых цветов, срабатывает процедура, которая считает сумму заказа: Private Sub TextBox1_Change ()For i = 4 To 50 'РасчетсуммызаказаIf (Sheets («Прайс-лист»).Cells (i, 1) = UserForm1. ComboBox1) Thencena = Sheets («Прайс-лист»).Cells (i, 5) kol = Val (TextBox1.Text)Sum = kol * cenaTextBox5. Text = CStr (Sum)End IfNext iEndSubПри нажатии на кнопку Купить будет запущена процедура, которая вычитает количество купленных цветов, от количества соответствующих цветов на складе, отображает все данные по заказу на листе Заказы, отображает закупочную цену заказанных цветов и считает доход фирмы от данного заказа: Private Sub CommandButton1_Click ()Dim posAs IntegerIf OptionButton1 = True Then 'ЗаказсрезанныхцветовActiveWorkbook.Sheets («Склад»).Select 'Активизируемлист.
СкладFor i = 2 To 50 'поиск строки выбранного товараIf (Sheets («Склад»).Cells (i, 1) = UserForm1. ComboBox1) Thenkol = Val (TextBox1.Text)pos = i 'запоминаем позицию строкиEndIfNext iCells (pos, 3) = Cells (pos, 3) — kol ' отнимаем от того что было на складе количество заказанного товараActiveWorkbook. Sheets («Заказы»).Select 'Активизируем лист ЗаказыNextRow = Sheets («Заказы»).Range («B» & Rows. Count).End (xlUp).Row + 1 'Добавляем в новую строку данные нового заказаSheets («Заказы»).Cells (NextRow, 1) = ComboBox1Sheets («Заказы»).Cells (NextRow, 2) = CInt (TextBox4)Sheets («Заказы»).Cells (NextRow, 3) = CInt (TextBox1)Sheets («Заказы»).Cells (NextRow, 4) = CInt (TextBox5)For i = 2 To 50 'отображение цены закупкиIf (Sheets («Склад»).Cells (i, 1) = UserForm1. ComboBox1) ThenSheets («Заказы»).Cells (NextRow, 5) = Sheets («Склад»).Cells (i, 2) End IfNext iSheets («Заказы»).Cells (NextRow, 6) = Sheets («Заказы»).Cells (NextRow, 2) * Sheets («Заказы»).Cells (NextRow, 3) — Sheets («Заказы»).Cells (NextRow, 3) * Sheets («Заказы»).Cells (NextRow, 5) 'РасчетдоходафирмысданногозаказаEndIfПри нажатии на кнопку Закрыть будет запущена процедура, которая закрывает форму и сбрасывает значения всех элементов формы в первоначальное значение: PrivateSub CommandButton2_Click ()UserForm1.Hide 'Закрытие формы и сброс всех элементов формыComboBox1 = «» TextBox1. Text = «» TextBox4. Text = «» TextBox5. Text = «» EndSub3.
4. Описание тестового примера. Руководство пользователя.
При запуске программы открывается окно, которое предлагает выбрать три действия: сделать заказ, просмотреть информацию о товарах на складе и просмотреть информацию о заказах и доходах фирмы. Щелкнув на кнопку Сделать заказ откроется лист, на котором отображен прайс-лист товаров фирмы, на котором можно выбрать требуемый товар, просмотреть его описание и цену. Для оформления заказа нужно нажать на соответствующую кнопку. Откроется форма Оформление заказа. Рисунок 11 — Форма оформления заказа.
Здесь нужно выбрать вид товара: срезанный или в горшке. Отобразятся соответственные элементы формы, с помощью них можно выбрать требуемый цветок, указать нужное количество заказываемых цветов, просмотреть сумму заказа и нажать кнопку Купить. Рисунок 12 — Заполненная форма оформления заказа После нажатия на кнопку Купить со склада списывается проданное количество цветов. Рисунок 13 — Количество проданных цветов на складе.
Данные по заказу отображаются на листе Заказы. Также на этом листе отображается закупочная цена купленных цветов и рассчитывается доход фирмы от данной операции. А также общее количество проданных цветов, сумма проданных товаров и общий доход фирмы с учетом запланированных отходов (убытков) в 5%.Рисунок 14 — Данные о проведенной операции.
ЗАКЛЮЧЕНИЕ
Целью курсовой работы являлось изучение возможностей и применения языка программирования VBA для решения практических задач. Цель, поставленная в начале работы, достигнута. Были рассмотрены современные языки программирования, приведена классификация языков программирования. Был произведен обзор возможностей языка программирования VBAи его объектной структуры, разобраны общие принципы создания VBA-программы. Была разработанаинформационно-поисковая система учета продажи и складских запасов цветов в цветочном магазине. Она позволит сократить потери на торговом предприятии, избежать ошибок в управлении, а значит, увеличить прибыль. Кроме того, освободит работников цветочного магазина от рутинных и бумажных операций и позволит им больше времени уделять клиентам. Внедрённая в цветочный магазин информационная система должна привести к следующим результатам:
повышению производительности труда;
продукция станет более конкурентоспособной, т.к. дизайнеры смогут большее время уделять разработке новых товаров, а не работе с бумажными документами.
время обработки заказов сократится в несколько раз;у руководства предприятия появится эффективная система отчетности, позволяющая своевременно определять состояние дел в магазине и вовремя отслеживать положительные и отрицательные изменения для принятия обоснованных управленческих решений.
СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ
Казанский А. А. Прикладное программирование на Excel 2013:
учеб. Пособие для прикладногобакалавриата / А. А. Казанский. — М.: Издательство Юрайт, 2016. — 159 с. Комолова Н. В. Программирование на VBAв Excel 2016.
Самоучитель / Н. В. Комолова, Е. С. Яковлева. — СПб.: БХВ-Петербург, 2017. — 432 с. Лебедев В. М. Программирование на VBA в MSExcel: учеб.
Пособие для академическогобакалавриата / В. М. Лебедев. — М.: Издательство Юрайт, 2017. — 272 с. Макарова Н. В., Волков В. Б. Информатика: Учебник для вузов. — СПб.:Питер, 2015.
— 576 с. Михеев Р. VBA и программирование в MS O ffice для пользователей / Ростислав Михеев. — М.: БХВ-Петербург, 2014. -407c.Осетрова.
И.С., Осипов.
Н. А. M icrosoftVisualBasicforApplication — СПб: НИУИТМО, 2013. — 120 с. Симонович С. В. Информатика.
Базовый курс / С. В. Симонович. — 3-е изд. — СПб: Питер, 2014.
— 640с. Слепцова Л. Д. Программирование на VBAв MicrosoftOffice 2010. — М.: ООО «И.Д. Вильямс», 2010. — 432 с. Уокенбах, Джон.
Excel 2013.
Профессиональное программирование на VBA.: Пер. с англ. — М.: ООО «И.Д. Вильямс», 2017. — 960 с. Уокенбах, Джон. MicrosoftExcel 2013.
Библия пользователя.: Пер. с англ. — М.: ООО «И.Д. Вильямс», 2017. — 928 с. Уокенбах, Джон. Формулы в Excel 2013 — М.: «Вильямс», 2017. — 720 с. TIOBE Index _ TIOBE — The Software Quality Company [Электронныйресурс]//URL:
https://www.tiobe.com/tiobe-index/.
