Тема: Информационно-аналитическая система товароведа

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

ФЕДЕРАЛЬНОЕ ГОСУДАРСТВЕННОЕ БЮДЖЕТНОЕ

ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ

ВЫСШЕГО ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ

КАМСКАЯ ГОСУДАРСТВЕННАЯ ИНЖЕНЕРНО-ЭКОНОМИЧЕСКАЯ АКАДЕМИЯ

ОТЧЕТ

по курсовой работе

по дисциплине «Информатика»

на тему «Информационно-аналитическая система товароведа»

Набережные Челны

2012 г

Содержание

Введение4

Постановка задачи6

Описание листов7

Титульный лист7

Кнопки, используемые на листе «Титульный»7

Прейскурант цен10

Кнопки, используемые на листе «Прейскурант цен»10

Учет реализации товаров14

Кнопки, используемые на листе «Учет реализации товаров»14

Продавцы20

Кнопки, используемые на листе «Продавцы»20

Заключение21

Список использованной литературы22

Введение

Целью курсовой работы по информатике является разработка информационно-аналитической системы средствами Excel с использованием возможностей программирования средствами VBA.

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

VBA (Visual Basic for Applications) – язык программирования фирмы Microsoft, интегрированный в приложения MS Office: Word, Excel, Outlook, Access, PowerPoint, FrontPage, Visio, Project, а также в огромное число прикладных программ других производителей.

Основное назначение языка – предоставить пользователям возможность создать надстройку над приложением, позволяющую эффективно решать собственные задачи. Они могут быть как простейшими, сиюминутными, так и представлять собой проекты колоссальной сложности. Однако литература имеется в изобилии только для двух программ: Access и Excel. Если для первой VBA – язык разработки приложений в среде СУБД, то во втором случае причина, скорее всего, лежит в финансовой обеспеченности задач разработки макросов.

Основные особенности:

Основное назначение VBA – предоставить пользователю возможность избавиться от выполнения рутинных, повторяющихся действий, описав их в виде программ.

Каждое приложение MS Office имеет свои особенности работы с информацией, свой набор объектов (объектную модель). Это определяет не только набор команд и функций, но и особенности выполнения некоторых из них в разных приложениях. Однако общий синтаксис и правила работы со свойствами объектов, названия функций и системных переменных остаются едиными, что намного облегчает освоение новых приложений.

При этом VBA является полноценным современным языком программирования, практически полностью идентичным Visual Basic. В нем отсутствуют лишь графические возможности для рисования.

Значительно упрощены правила работы с переменными. Пользователь может не заботится о присвоении типов, хотя при этом замедляется работа, занимается больше памяти и могут остаться невыявленными некоторые ошибки. (Функция отключаема как системно, так и программно.)

Многие действия, задаваемые в программе пользователем, в принципе не могут быть выполнены через меню: явное расширение наших возможностей.

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

Постановка задачи

Курсовая работа представляет собой информационно-аналитическую систему товароведа. Она предназначена для регистрации продаж товаров в определенное время. Требуется получить сведения о продаваемых товарах (с указанием наименования товара, код товара, цены, даты продажи, количества проданных товаров).

Исходная информация содержится в трех таблицах:

«Прейскурант цен» (код товара, наименование товара, цена за единицу товара).

«Учет реализации товаров» (дата продажи, код товара, наименование товара, количество проданного товара, выручка, отдел, Ф.И.О. продавца).

«Продавцы» (отдел, Ф.И.О. продавца).

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

Описание листов

Титульный лист

При открытии курсовой работы выводится сообщение «Добро пожаловать в информационно-аналитическую систему товароведа!». Для его реализации, а также определенных настроек рабочей области (отключение вывода строки формул, скрытие панелей инструментов и т.д.) в редакторе Visual Basic в элемент вводится следующая программа:

Private Sub Workbook_Open()

Sheets("Титульный лист").Activate

MsgBox "Вас приветствует информационно - аналитическая система товароведа!"

End Sub

Кнопки, используемые на листе «Титульный»

На листе реализованы шесть кнопок: «Автор», «Имя пользователя», «Выход», «Прейскурант цен», «Учет реализации товаров» и «Продавцы». Кнопки создаются через панель инструментов «Элементы управления».

При нажатии на кнопку «Выход» выводится запрос на подтверждение - «Вы действительно хотите выйти из Excel?».

При нажатии на кнопку «Да» вы выходите из программы, если «Нет», то выходит сообщение «Выход не состоится»

Программный код:

Sub выход()

выход Макрос

Dim txtСообщение As String, txtЗаголовок As String

Dim Кнопки As Integer, Результат As Integer

txtСообщение = "Вы действительно хотите выйти из Excel?"

txtЗаголовок = "До свидания!"

Кнопки = vbYesNo + vbQuestion + vbfaultButton2

Результат = MsgBox(txtСообщение, Кнопки, txtЗаголовок)

If Результат = vbYes Then

Application.Quit

Else: MsgBox "Выход не состоится", vbOKOnly, "Снова привет!"

End If

End Sub

При нажатии на кнопку «Имя пользователя», выводится окно ввода, которое запрашивает имя пользователя, а затем обновляет лист ввода.

Программный код:

Sub имя()

имя Макрос

Dim txtСообщение As String, txtЗаголовок As String

Dim txtРезультат As String, txtПоУмолчанию As String

txtСообщение = "Как ваше имя?"

txtЗаголовок = "Пример окна ввода"

txtПоУмолчанию = "Неизвестный пользователь"

txtРезультат = InputBox(txtСообщение, txtЗаголовок, txtПоУмолчанию)

Worksheets("Титульный лист").Select

Range("A1").Select

ActiveCell.Formula = txtРезультат

End Sub

При нажатии на кнопки «Прейскурант цен», «Учет реализации товаров», «Продавцы» вы переходите на соответствующие листы.

При нажатии на кнопку «Сведение об авторе», выходит форма, содержащая сведения об авторе курсовой работы.

Программный код:

Sub Автор()

Автор Макрос

UserForm1.Show

End Sub

Прейскурант цен

На листе Прейскурант цен расположена таблица, содержащая следующие данные:

Код товара;

Наименование товара;

Цена за единицу товара;

Кнопки, используемые на листе «Прейскурант цен»

Кнопка «Титульный лист»

При нажатии на кнопку «Титульный лист», выводится главное меню управления программой.

Программный код:

Sub Титульный()

титульный Макрос

Sheets("Титульный лист").Select

MsgBox ("Вы перешли на Титульный лист")

End Sub

Кнопка «Добавление и удаление данных»

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

Программные коды:

Для кнопки «Добавить»

Private Sub CommandButton1_Click()

Dim Y As Byte

If TextBox1 = "" Or TextBox2 = "" Or TextBox3 = "" Then

Y = MsgBox("Добавление данного товара невозможно, т.к. не введены все критерии", vbOKCancel, "Товар")

If h = vbCancel Then GoTo e Else GoTo 12

End If

Dim name As String, simvol As String

Dim pr As Object, X As Object

Dim Название As String, Символ As String

Dim Цена As Integer

ActiveWorkbook.Sheets("Прейскурант цен").Activate

simvol = TextBox1

Set pr = ActiveSheet.Range("a1")

Do While Not IsEmpty(pr)

Set X = pr.Offset(1, 0)

If pr = simvol Then

Y = MsgBox("Добавление невозможно, т.к. введенный код уже зарегистрирован", vbOKCancel, "Код")

If Y = vbCancel Then GoTo e Else GoTo 12

End If

Set pr = X

Loop

ActiveWorkbook.Sheets("Прейскурант цен").Activate

name = TextBox2

Set pr = ActiveSheet.Range("b2")

Do While Not IsEmpty(pr)

Set X = pr.Offset(1, 0)

If pr = name Then

Y = MsgBox("Такой товар уже есть в списке, внести его еще под другим кодом?", vbYesNo + vbQuestion, "Товар")

If Y = vbYes Or Y = vbNo Then GoTo 5 Else GoTo 12

End If

Set pr = X

Loop

5 Символ = TextBox1

Название = TextBox2

Цена = TextBox3

ActiveWorkbook.Sheets("Прейскурант цен").Activate

Range("A3").Select

Selection.EntireRow.Insert

Set pr = ActiveSheet.Range("A2")

Do While Not IsEmpty(pr)

Set X = pr.Offset(1, 0)

Set pr = X

Loop

pr = Символ

pr.Offset(0, 1) = Название

pr.Offset(0, 2) = Цена

Set pr = Nothing

Set X = Nothing

Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

12 UserForm3.Hide

e: End Sub

Программный код для кнопки «Сброс»

Private Sub CommandButton2_Click()

TextBox1 = ""

TextBox2 = ""

TextBox3 = ""

End Sub

Программный код для кнопки «Удалить»

Private Sub CommandButton3_Click()

Dim pr As Object, X As Object

Dim name As String

Dim h As Byte

Dim Y As Byte

h = MsgBox("Вы действительно хотите удалить этот товар?", vbYesNo + vbQuestion, "Удаление")

If h = vbYes Then Else GoTo e

name = ComboBox1

If ComboBox1 = "" Then

Y = MsgBox("Удаление невозможно, т.к. не выделен объект", vbYesNo + vbQuestion, "Удаление")

If Y = vbYes Then GoTo 12 Else GoTo e

End If

ActiveWorkbook.Sheets("Учет реализации товаров").Activate

Set pr = ActiveSheet.Range("b2")

Do While Not IsEmpty(pr)

Set X = pr.Offset(1, 0)

If pr = name Then

pr.Select

Selection.EntireRow.Delete

End If

Set pr = X

Loop

ActiveWorkbook.Sheets("Прейскурант цен").Activate

Set pr = ActiveSheet.Range("a2")

Do While Not IsEmpty(pr)

Set X = pr.Offset(1, 0)

If pr = name Then

pr.Select

Selection.EntireRow.Delete

End If

Set pr = X

Loop

12 ComboBox1 = ""

Labe17 = ""

UserForm3.Hide

e: End Sub

Учет реализации товаров

На листе Учет реализации товаров расположена таблица, содержащая следующие данные:

Отдел

Ф.И.О. продавца

Дата продажи

Код товара

Наименование товара

Количество проданного товара

Выручка

Кнопки, используемые на листе «Учет реализации товаров»

Кнопка «Титульный лист».

При нажатии на кнопку «Титульный лист» появляется главное меню управления программой.

Кнопка «Сортировка».

При нажатии на кнопку «Сортировка» выводится пользовательская форма «Сортировка», предназначенная для сортировки товаров по ниже перечисленным разделам:

Отдел

Ф.И.О. продавца

Дата продажи

Код товара

Наименование

Количество проданного товара

Выручка

При нажатии кнопки Отмена форма закрывается.

Программный год для кнопки «Сортировка»

Private Sub CommandButton1_Click()

Range("A5").Select

Selection.Sort Key1:=Range("D7"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

End Sub

Private Sub CommandButton2_Click()

Range("A5").Select

Selection.Sort Key1:=Range("E7"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

End Sub

Private Sub CommandButton3_Click()

Range("A5").Select

Selection.Sort Key1:=Range("F7"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

End Sub

Private Sub CommandButton4_Click()

UserForm7.Hide

End Sub

Private Sub CommandButton5_Click()

Range("A5").Select

Selection.Sort Key1:=Range("B7"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

End Sub

Private Sub CommandButton6_Click()

Range("A5").Select

Selection.Sort Key1:=Range("C7"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

End Sub

Private Sub CommandButton7_Click()

Range("A5").Select

Selection.Sort Key1:=Range("G7"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

End Sub

Кнопка «Поиск и изменение».

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

Поиск состоит из следующих процедур: из раскрывающегося списка выбирается дата реализации товара, затем в список заносятся все товары, которые были реализованы в магазине в указанную дату. После чего, необходимо выбрать конкретный товар, затем заполняются два текстовых поля соответствующими данными (название и количество). При нажатие кнопки «Изменить» активизируется пользовательская форма, и можно изменить количество реализованного товара. При этом измененные данные попадают в таблицу на листе «Учет реализации товаров» и происходит перерасчет суммы.

Программные для этой формы следующие:

Private Sub CommandButton1_Click()

UserForm8.Show

End Sub

Private Sub ComboBox1_Change()

эта процедура очищает ранее заполненные поля формы, и после выбора из списка конкретную дату, заполняет соответствующими названиями товаров ListBox1

ListBox1.Clear

TextBox1.Text = ""

TextBox2.Text = ""

1 For sss = 2 To 5000

If ComboBox1.Text = Sheets("Учет реализации товаров").Cells(sss, 1).Text Then ListBox1.AddItem Sheets("Учет реализации товаров").Cells(sss, 3).Text

Next

End Sub

Private Sub CommandButton1_Click()

эта процедура для кнопки «Изменить». После выбора конкретного товара,заполняются его данные в текстовых полях в форме «Изменение данных»

If ListBox1.Text = "" Then MsgBox "Выберите дату реализации продукта": Exit Sub

UserForm9.TextBox1.Text = UserForm8.ListBox1.Text

UserForm9.TextBox2.Text = UserForm8.TextBox2.Text

Dim ddd

UserForm8.Hide

UserForm9.Show

End Sub

Private Sub CommandButton2_Click()

UserForm8.Hide

End Sub

Private Sub ListBox1_Click()

For i = 2 To 8000

If ListBox1.Text = Sheets("Учет реализации товаров").Cells(i, 3).Text Then

TextBox1.Text = Sheets("Учет реализации товаров").Cells(i, 3).Text

TextBox2.Text = Sheets("Учет реализации товаров").Cells(i, 4).Text

Label5.Caption = i

End If

Next

End Sub

Private Sub UserForm_Activate()

Sheets("Учет реализации товаров ").Select

Range("A1:C8000").Select

Selection.Sort Key1:=Range("A1"), Order1:=xlDescending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

1 For ads = 2 To 8000

If Sheets("Учет реализации товаров ").Cells(ads, 1).Text = "" Then Exit Sub

If Sheets("Учет реализации товаров ").Cells(ads, 1).Text = Sheets("Учет реализации товаров ").Cells(ads + 1, 1).Text Then GoTo 3

ComboBox1.AddItem Sheets("Учет реализации товаров ").Cells(ads, 1).Text

3 Next

End Sub

Private Sub CommandButton1_Click()

ddd = UserForm8.Label5.Caption

Worksheets("Учет реализации товаров ").Cells(ddd, 4) = TextBox2.Text

End Sub

Private Sub CommandButton2_Click()

Sheets("Учет реализации товаров ").Select

Range("A1:C800").Select

Selection.Sort Key1:=Range("A1"), Order1:=xlDescending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Unload UserForm9

Unload UserForm8

Load UserForm8

UserForm8.Show

End Sub

Private Sub CommandButton3_Click()

UserForm9.Hide

End SubПродавцы

На листе Продавцы расположена таблица, содержащая следующие данные:

Отдел

Ф.И.О. продавца

Кнопки, используемые на листе «Продавцы»

Кнопка «Титульный лист».

При нажатии на кнопку «Титульный лист» появляется главное меню управления программой.

Заключение

Данная курсовая работа представляет собой информационно-аналитическую систему товароведа. Пользователю предоставлены возможности для ввода информации, ее корректировки и обработки. Для вывода полученных данных предусмотрены формы, соответствующие требованиям запроса.

Обработка информации включает в себя возможность сортировки данных по различным полям, фильтрации. Для создания экранных форм использованы средства, предоставляемые Excel для удобной работы с формой (элементы управления на рабочем столе для заполнения формы, возможности быстрого перехода между полями и т.д.). Для автоматизации некоторых действий использованы макросы, пользовательские процедуры.

Список использованной литературы

Демидова Л.А., Пылькин А.Н. Программирование в среде Visual Basic for Application: Практикум. – М.: Горячая линия – Телеком, 2004.-175 с.

Гарнаев А. «Самое главное… о Excel»: «Питер», 2005, 136 с.

Соболь Б.В., Галин А.Б., Панов Ю.В., Рашидова Е.В., Садовой Н.Н. Информатика: Учебник – Ростов на Дону: Феникс, 2005, 448 с.

Интернет-ресурсы:

http://эссе.рф - сборник не проиндексированных рефератов. Поиск по рубрикам и теме. Большинство текстов бесплатные. Магазин готовых работ.