">
Информатика ![]() | |||||||||||||||||||||||||||||||||||||||||
Похожие работы:
| |||||||||||||||||||||||||||||||||||||||||
МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РОССИЙСКОЙ ФЕДЕРАЦИИ ФЕДЕРАЛЬНОЕ ГОСУДАРСТВЕННОЕ БЮДЖЕТНОЕ ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ ВЫСШЕГО ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ КАМСКАЯ ГОСУДАРСТВЕННАЯ ИНЖЕНЕРНО-ЭКОНОМИЧЕСКАЯ АКАДЕМИЯ ОТЧЕТ по курсовой работе по дисциплине «Информатика» на тему «Информационно-аналитическая система товароведа» Набережные Челны 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://эссе.рф - сборник не проиндексированных рефератов. Поиск по рубрикам и теме. Большинство текстов бесплатные. Магазин готовых работ. |
© 2010–2021 Эссе.рф: Библиотека учебных материалов |