Курсовая ИТС

11

Приложение 1

Пример оформления титульного листа

МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РФ

ФГБОУ ВПО «Брянский государственный технический университет»

Кафедра «Экономика, организация производства, управление»

Курсовая работа по дисциплине «Информационные системы и технологии»

на тему: «Применение информационных технологий обработки

экономических данных при анализе рынка товаров и услуг (на примере ООО "Синтез")»

Выполнил:

студент гр. 12-ЭК

Петров О.И.

Руководитель:

к.т.н., доц.

Демиденко А.И.

Брянск 2013

12

Приложение 2

Сегментация рынка товаров и услуг

Рынок товаров и услуг

Товары

Услуги

Потребительские

Товары производ-

ственного

товары

назначения

Предметы быст-

Предметы

длительного

рого потребления

использования

Продукты

Напитки

Алкогольные

Безалкогольные

напитки

напитки

Сок

Минеральная

Чай

Кофе

вода

13

Приложение 3

Примеры экранных форм

Рис. 1. Главная форма

Рис. 2. Форма ввода данных

14

Приложение 4

Примерный текст макроса формы ввода данных

Private Sub CommandButton1_Click()

Worksheets("Лист2").Cells(2, 1).Select

Selection.EntireRow.Insert

Worksheets("Лист2").Cells(2, 1) = Предприятие

Worksheets("Лист2").Cells(2, 2) = Товар

Worksheets("Лист2").Cells(2, 3) = CDate(Период)

Worksheets("Лист2").Cells(2, 4) = CSng(Цена)

End Sub

Private Sub CommandButton2_Click()

Hide

End Sub

Private Sub UserForm_Initialize()

Application.Worksheets("Лист2").Select

Предприятие.AddItem "Предприятие 1" Предприятие.AddItem "Предприятие 2" Предприятие.AddItem "Предприятие 3"

Товар.AddItem "Товар 1" Товар.AddItem "Товар 2" Товар.AddItem "Товар 3" Товар.AddItem "Товар 4"

Период.AddItem "июль, 2011 г." Период.AddItem "август, 2011 г."

Период.AddItem "сентябрь, 2011 г." Период.AddItem "октябрь, 2011 г."

Период.AddItem "ноябрь, 2011 г."

Период.AddItem "декабрь, 2011 г."

Период.AddItem "январь, 2012 г."

Период.AddItem "февраль, 2012 г."

Период.AddItem "март, 2012 г." End Sub

Private Sub Период_Change()

End Sub

Private Sub Предприятие_Change()

End Sub

Private Sub Товар_Click()

End Sub

Private Sub Цена_Change()

End Sub