Разработка приложений средствами VBA
Разработка приложения "Информационная система для компьютерной фирмы", которая занимается ремонтом и апгрейдом ПК, данные о клиентах и работников которой выводятся на лист Excel. Рассмотрение способов изменения информации, учета и анализа деятельности.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | автореферат |
| Язык | русский |
| Дата добавления | 23.03.2014 |
| Размер файла | 676,3 K |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
Размещено на http://www.allbest.ru/
Размещено на http://www.allbest.ru/
РОССИЙСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ИННОВАЦИОННЫХ ТЕХНОЛОГИЙ И ПРЕДПРИНИМАТЕЛЬСТВА
Пензенский филиал
Кафедра "Управление информационными ресурсами"
«Автореферат»
РГУИТП 080500.62 12БИ1
к курсовой работе
по дисциплине «Автоматизация офисных приложений»
Тема: «Разработка приложений средствами VBA»
Выполнила: ст.гр.12БИ1
Юсупов Р. И.
Проверил: преподаватель
Медведева М.С.
Пенза 2013
Реферат
Пояснительная записка содержит 24 листа, 10 рисунков, 5 использованных источников, 7 приложений.
Информационная система для компьютерной фирмы, база данных, статистика, пользовательское меню, компьютерные технологии Excel, VBA, макросы, программные модули, пользовательские формы.
Цель работы: разработать приложение "Информационная система для компьютерной фирмы", которая занимается ремонтом и апгрейдом ПК, данные о клиентах и работников выводятся на лист Excel, изменение информации, просмотр данных, ведется учет и анализ деятельности фирмы.
Основные результаты работы: разработано приложение на VBA, выполняющее полный спектр работы компьютерной фирмы.
Содержание
Введение
1 Разработка приложения на языке программирования VBA
1.1 Анализ задания на проектирование
1.2 Пользовательская форма "Добавление абитуриента"
1.3 Пользовательская форма "Изменение данных об абитуриенте"
1.4 Пользовательская форма "Об авторе"
1.5 Пользовательская форма "Информация об абитуриенте"
1.6 Пользовательская форма "Удаление абитуриента"
2 Данные на листах Excel
2.1 Лист Excel "База Данных"
2.2 Лист Excel "Кафедры"
2.3 Лист Excel "Специальности"
Заключение
Список используемой литературы
Приложения
Введение
Данная курсовая работа состоит из приложения, созданного на VВА с выводом результата в Ехсе1, а также из пользовательских меню и панели инструментов. VBA -- относительно легкий язык программирования. Он прост в освоении и позволяет быстро получать ощутимые результаты -- конструировать профессиональные приложения, решающие практически все задачи, встречающиеся в среде Windows. При этом создание многих приложений с использованием VВА проще и быстрее, чем при помощи других языков программирования. VВА применяет технологию визуального программирования, т. е. конструирование рабочей поверхности приложения и элементов его управления непосредственно на экране, а также запись всей программы или ее частей при помощи MacroRecorder. При беглом знакомстве с технологией визуального программирования может создаться впечатление, что она сводится к записи макросов, помещению в формы элементов управления и определении их связей с макросами. Довольно часто при решении простейших задач так и происходит. Но если требуется создать сколько-нибудь продвинутых приложений с содержательной обработкой данных, то на первый план выступает сам язык VВА. С помощью VВА можно легко и быстро создавать пользовательские приложения, используя единую для всех офисных программ среду и язык. Научившись разрабатывать приложения для одной офисной программы, например Excel, можно создавать приложения и для других офисных программ, например Access. Освоив программирование на VВА можно стать искусным разработчиком и научиться пользоваться мощными средствами разработки приложений Ехсе1 для того, чтобы конструировать эффективные и применимые к реальной жизни приложения. Кроме того, по своей структуре, интерфейсу и синтаксису VВА образует ядро Visual Basic. Поэтому тот, кто научится программировать на VВА очень быстро может освоить и Visual Basic.
1. Разработка приложения на языке программирования VBA
1.1 Анализ задания на проектирование
Программа предназначена для автоматизации приема абитуриентов в высших учебных заведениях. Программа обеспечивает хранение информации обо всех абитуриентах, о всех специальностях, а также обеспечивает выдачу документов и доступ к справочной информации.
1.2 Пользовательская форма "Добавление абитуриента"
Рисунок 1 - Пользовательская форма "Добавление абитуриента. Персональные данные"
Рисунок 2 - Пользовательская форма "Добавление абитуриента. Карточка абитуриента"
В данной форме осуществляется добавление абитуриента и его характеристики на лист Excel "База Данных". Форма состоит из 1 поля Textbox, и 1 поля ComboBox, которые и являются переносчиками информации на лист Excel. компьютерный апгрейд информационный
1.3 Пользовательская форма "Изменение данных об абитуриенте"
Рисунок 3 - Пользовательская форма "Изменение данных об абитуриенте"
Данная пользовательская форма осуществляет изменение информации о рабочем на лист Excel "Рабочие ". Форма состоит из 1 поля Textbox и из 2 полей ComboBox , которые и являются переносчиками информации на лист Excel.
1.4 Пользовательская форма "Об авторе"
В данной форме выводится пользователю информация об авторе, которая открывается при запуске проекта.
1.5 Пользовательская форма «Информация об абитуриенте»
Рисунок 4 - Пользовательская форма «Информация об абитуриенте»
1.6 Пользовательская форма "Удаление абитуриента"
Рисунок 5 - Пользовательская форма "Удаление абитуриента"
Данная пользовательская форма осуществляет удаление клиента с листов Excel "Клиенты" и "Описание. Форма состоит из 1 поля ComboBox.
2. Данные на листах Excel
2.1 Лист Excel "База Данных"
Рисунок 6- лист Excel "База Данных"
На данном листе Excel представлена таблица информация о рабочих. Эту таблицу можно редактировать из пункта меню "Добавление рабочего" или "Изменение данных о рабочем".
2.2 Лист Excel "Клиенты"
Рисунок 7 - лист Excel "Кафедры"
На данном листе Excel представлена таблица "Клиенты", в которой отображены основные данные. Эту таблицу можно редактировать с помощью раздела меню "Добавление клиента" и "Удаление клиента".
2.3 Лист Excel "Описание"
Рисунок 10 - лист Excel "Специальности"
На данном листе Excel представлена таблица "Описание", в которой отображены основные данные о заказе клиента. Эту таблицу можно редактировать с помощью раздела меню "Состояние", "Удаление клиента".
Заключение
С помощью Visual Basic можно создавать приложения практически для любой области современных компьютерных технологий, бизнес-приложения, игры, мультимедиа, базы данных. При этом приложения могут быть как простыми, так и очень сложными, в зависимости от поставленной задачи.
В результате выполнения курсовой работы были закреплены знания и умения по программированию на языке VBA, разработано приложение в котором решается полный спектр задач, связанный с обслуживанием поликлиники.
Анализ выполненных заданий позволяет судить о том, что использование программных средств эффективен и для решения задач по созданию информационных систем. Единожды написанная программа осуществляет полный цикл по обработке и выдаче информации.
Таким образом появляется возможность:
· Автоматизировать выполнение частых и трудоемких операций
· Повысить наглядность представляемых данных
· Понизить количество ошибочных материалов
· Экономить ресурсы учреждения и т.д.
Эти возможности являются весьма весомыми аргументами в пользу применения VBA для решения широкого круга задач.
Список использованной литературы
1. Справочная система Microsoft® Excel 2003
2. А. Ю. Гарнаев «Microsoft Excel 2003 в экономике, финансах и Internet»
3. С. Браун «Visual Basic 6.0»
4. Гурьянова Л. С. Курс лекций по VBA
5. Горнаев А. Г. Самоучитель по VBA.-П.:2002г.
Приложения
Приложение №1
Модуль формы "Dob"(Добавление абитуриента)
Private Sub CommandButton1_Click()
If FIO.Text = "" Or Adres.Text = "" Or Pas.Text = "" Or Pol.Text = "" Or Kaf.Text = "" Or Spec.Text = "" Or txtData.Text = "" Or Zav.Text = "" Then
MsgBox ("Неполные данные!")
Else
n = 4
Do While Not Worksheets(1).Cells(n, 2) = ""
n = n + 1
Loop
Worksheets(1).Cells(n, 2) = FIO.Text
Worksheets(1).Cells(n, 3) = Pol.Text
Worksheets(1).Cells(n, 4) = Data.Text
Worksheets(1).Cells(n, 5) = Adres.Text
Worksheets(1).Cells(n, 6) = Pas.Text
Worksheets(1).Cells(n, 7) = txtData.Text
Worksheets(1).Cells(n, 8) = Spec.Text
Worksheets(1).Cells(n, 9) = Kaf.Text
Worksheets(1).Cells(n, 10) = Zav.Text
End If
End Sub
Private Sub UserForm_Activate()
For n = 2 To 7
Spec.AddItem Worksheets(3).Cells(n, 1)
Next n
For n = 2 To 7
Kaf.AddItem Worksheets(2).Cells(n, 1)
Next n
End Sub
Приложение №2
Модуль формы "Izmen"( Изменение данных об абитуриенте)
Private Sub CommandButton1_Click()
If FIO.Text = "" Or Adres.Text = "" Or Pas.Text = "" Or Pol.Text = "" Or Data.Text = "" Or Kaf.Text = "" Or Spec.Text = "" Or txtData.Text = "" Or Zav.Text = "" Then
MsgBox ("Неполные данные!")
Else
n = 4
Do While Not Worksheets(1).Cells(n, 1) = Nom.Text
n = n + 1
Loop
Worksheets(1).Cells(n, 2) = FIO.Text
Worksheets(1).Cells(n, 3) = Pol.Text
Worksheets(1).Cells(n, 4) = Data.Text
Worksheets(1).Cells(n, 5) = Adres.Text
Worksheets(1).Cells(n, 6) = Pas.Text
Worksheets(1).Cells(n, 7) = txtData.Text
Worksheets(1).Cells(n, 8) = Spec.Text
Worksheets(1).Cells(n, 9) = Kaf.Text
Worksheets(1).Cells(n, 10) = Zav.Text
Worksheets(1).Cells(n, 1) = n - 3
End If
End Sub
Private Sub Nom_Change()
n = 4
Do While Not Worksheets(1).Cells(n, 1) = Nom.Text
n = n + 1
Loop
FIO.Text = Worksheets(1).Cells(n, 2)
Pol.Text = Worksheets(1).Cells(n, 3)
Data.Text = Worksheets(1).Cells(n, 4)
Adres.Text = Worksheets(1).Cells(n, 5)
Pas.Text = Worksheets(1).Cells(n, 6)
txtData.Text = Worksheets(1).Cells(n, 7)
Spec.Text = Worksheets(1).Cells(n, 8)
Kaf.Text = Worksheets(1).Cells(n, 9)
Zav.Text = Worksheets(1).Cells(n, 10)
End Sub
Private Sub UserForm_Activate()
For e = 2 To 7
Spec.AddItem Worksheets(3).Cells(e, 1)
Next e
For t = 2 To 7
Kaf.AddItem Worksheets(2).Cells(t, 1)
Next t
q = 4
Do While Not Worksheets(1).Cells(q, 1) = ""
q = q + 1
Loop
For n = 4 To q
Nom.AddItem Worksheets(1).Cells(n, 1)
Next n
End Sub
Приложение №3
Модуль формы "Info"( Информация об абитуриенте)
Private Sub Nom_Change()
n = 4
Do While Not Worksheets(1).Cells(n, 1) = Nom.Text
n = n + 1
Loop
FIO.Text = Worksheets(1).Cells(n, 2)
Pol.Text = Worksheets(1).Cells(n, 3)
Data.Text = Worksheets(1).Cells(n, 4)
Adres.Text = Worksheets(1).Cells(n, 5)
Pas.Text = Worksheets(1).Cells(n, 6)
txtData.Text = Worksheets(1).Cells(n, 7)
Spec.Text = Worksheets(1).Cells(n, 8)
Kaf.Text = Worksheets(1).Cells(n, 9)
Zav.Text = Worksheets(1).Cells(n, 10)
End Sub
Private Sub UserForm_Activate()
q = 4
Do While Not Worksheets(1).Cells(q, 1) = ""
q = q + 1
Loop
For n = 4 To q
Nom.AddItem Worksheets(1).Cells(n, 1)
Next n
End Sub
Приложение №4
Модуль формы "Del"( Удаление абитуриента)
Private Sub CommandButton1_Click()
n = 4
Do While Not Worksheets(1).Cells(n, 1) = Nom.Text
n = n + 1
Loop
Worksheets(1).Cells(n, 2) = ""
Worksheets(1).Cells(n, 3) = ""
Worksheets(1).Cells(n, 4) = ""
Worksheets(1).Cells(n, 5) = ""
Worksheets(1).Cells(n, 6) = ""
Worksheets(1).Cells(n, 7) = ""
Worksheets(1).Cells(n, 8) = ""
Worksheets(1).Cells(n, 9) = ""
Worksheets(1).Cells(n, 10) = ""
End
End Sub
Private Sub Nom_Change()
n = 4
Do While Not Worksheets(1).Cells(n, 1) = Nom.Text
n = n + 1
Loop
FIO.Text = Worksheets(1).Cells(n, 2)
Pol.Text = Worksheets(1).Cells(n, 3)
Data.Text = Worksheets(1).Cells(n, 4)
Adres.Text = Worksheets(1).Cells(n, 5)
Pas.Text = Worksheets(1).Cells(n, 6)
txtData.Text = Worksheets(1).Cells(n, 7)
Spec.Text = Worksheets(1).Cells(n, 8)
Kaf.Text = Worksheets(1).Cells(n, 9)
Zav.Text = Worksheets(1).Cells(n, 10)
End Sub
Private Sub UserForm_Activate()
q = 4
Do While Not Worksheets(1).Cells(q, 1) = ""
q = q + 1
Loop
For n = 4 To q
Nom.AddItem Worksheets(1).Cells(n, 1)
Next n
End Sub
Приложение №5
Модуль ЭтаКнига
Private Sub Workbook_Open()
CommandBarName = "myComBar"
With Application
.CommandBars("Formatting").Visible = False
.CommandBars("Standard").Visible = False
End With
Menu
Avtore.Show
End Sub
Приложение №6
Module 1
Sub Rap1()
Del.Show
End Sub
Sub Rap2()
Izmen.Show
End Sub
Sub Rap3()
Info.Show
End Sub
Sub Rap4()
Dob.Show
End Sub
Приложение №7
Module 2
Option Explicit
Public CommandBarName As String
Private cbcItem As CommandBarControl
Sub Menu()
Dim cb As CommandBar
Dim cbMenu As CommandBarControl
Dim cbSubMenu As CommandBarControl
Set cb = Application.CommandBars.Add( _
Name:=CommandBarName, _
Position:=msoBarTop, _
MenuBar:=True, _
Temporary:=True)
Set cbMenu = cb.Controls.Add( _
Type:=msoControlPopup, _
Temporary:=True)
With cbMenu
.Caption = "Меню университета"
.BeginGroup = False
End With
If cbMenu Is Nothing Then Exit Sub
With cbMenu.Controls.Add( _
Type:=msoControlButton, _
Temporary:=True)
.Caption = "Удаление абитуриента"
.OnAction = "Rap1"
End With
With cbMenu.Controls.Add( _
Type:=msoControlButton, _
Temporary:=True)
.Caption = "Изменение данных об абитуриенте"
.OnAction = "Rap2"
End With
With cbMenu.Controls.Add( _
Type:=msoControlButton, _
Temporary:=True)
.Caption = "Информация об абитуриенте"
.OnAction = "Rap3"
End With
With cbMenu.Controls.Add( _
Type:=msoControlButton, _
Temporary:=True)
.Caption = "Добавление абитуриента"
.OnAction = "Rap4"
End With
cb.Visible = True
Set cbSubMenu = Nothing
Set cbMenu = Nothing
Set cb = Nothing
End Sub
Размещено на Allbest.ru
...Подобные документы
Роль информационной базы о клиентах и услугах для работы туристической фирмы, ее проектирование. Упрощение хранения и поиска информации, сокращение расходов времени работников фирмы и вероятности возникновения ошибок, недопустимых в современном бизнесе.
курсовая работа [682,7 K], добавлен 24.03.2015Разработка базы данных организации, которая занимается ремонтом автомобилей и реализована в виде программного продукта. Моделирование структуры баз данных с использованием CASE-средств средствами языка SQL. Разработка логической и физической модели базы.
курсовая работа [2,3 M], добавлен 21.03.2010Структура обязательной информации, включаемой в базу данных компьютерной фирмы. Создание таблиц с помощью Microsoft Access, содержащих сведения о компьютерах, покупателях, оплате. Разработка форм для выполнения расчетов, просмотра и редактирования данных.
контрольная работа [2,3 M], добавлен 10.04.2012Разработка информационной системы по учету, хранению, анализу информации о персонале автосервиса, поставках автозапчастей, клиентах, заказах, информации об услугах автосервиса и сроках их выполнения. Руководство пользователя для работы с базой данных.
курсовая работа [2,1 M], добавлен 25.09.2010Проектирование информационной системы (базы данных и приложения) для решения операций по учету финансов предприятия. Разработка использующих их клиентских приложений с применением технологических платформ на языке PHP с применением технологии WEB.
дипломная работа [276,3 K], добавлен 24.03.2011Разработка требований к программному обеспечению отдела воинского учета, методология проектирования информационной системы. Реализация и аттестация информационной системы, взаимодействие приложения с источниками данных, его экономическая эффективность.
дипломная работа [1,3 M], добавлен 30.11.2010Разработка информационной системы туристского агентства, которая должна обеспечивать ведение учета продажи путевок. Данные о клиентах, предоставляемых маршрутах, системе скидок на услуги. Инфологическая схема базы данных, описание сценария диалога.
курсовая работа [875,7 K], добавлен 27.02.2015Разработка базы данных для просмотра информации о производимой предприятием продукции и сведений о клиентах. Концептуальный прототип и средства защиты справочной информации. Логическая и физическая организация функций и область применения приложения.
курсовая работа [3,3 M], добавлен 23.09.2010Разработка распространяемого приложения MS Access. Создание программы установки для законченных приложений. Разработка расчетной ведомости за выполненные работы и представление результатов в графическом виде с помощью MS Excel. Алгоритм решения задачи.
курсовая работа [268,4 K], добавлен 13.11.2011Разработка алгоритма, представление его в виде блок-схемы. Программа для табулирования функции. Ввод и вывод данных с рабочего листа MS Excel. Ввод данных через диалоговое окно, вывод результатов на рабочий лист MS Excel. Вычисление суммы членов ряда.
контрольная работа [329,7 K], добавлен 16.10.2013Разработка системы, поддерживающей формирование итоговых отчетов из данной базы и обеспечивает ввод, удаление, хранение и редактирование информации, которая содержится в таблицах данных. Обоснование выбора среды разработки Delphi 7 для WINDOWS–приложений.
дипломная работа [2,1 M], добавлен 20.05.2012Визуальная разработка приложений баз данных. Характеристика визуальных компонентов среды разработки Builder 6.0, используемых в данном приложении. Программная реализация приложения, разработка форм и вкладок. Тестирование приложения, листинг программы.
курсовая работа [3,1 M], добавлен 28.03.2011Проектирование и разработка информационных систем – баз данных. Запросы в MS Access и в MS Excel. Добавление, удаление и редактирование полей таблиц. Конструирование многотаблиц, форм, запросов, отчетов. Создание сводных таблиц и диаграмм в MS Excel.
курсовая работа [4,5 M], добавлен 25.03.2015Ввод информации на рабочий лист. Документы предметной области, содержащие информацию, необходимую для оформления товарно-транспортной накладной. Общее понятие о Microsoft Excel: автоматизация, создание формул. Технология создания шаблона документа.
контрольная работа [332,1 K], добавлен 18.11.2012Извлечение информации, организация и отбор данных с помощью приложения Microsoft Query. Обработка полученных данных средствами сводной таблицы в табличном процессоре Excel в соответствии с индивидуальным заданием. Возможности Мастера сводных таблиц.
курсовая работа [2,4 M], добавлен 20.11.2011Проектирование системы управления базами данных. Особенности реализации в MS SQL. Разработка пользовательского интерфейса. Тестирование и отладка приложения. Руководство пользователя и системного администратора. Анализ и методы разработки приложений.
курсовая работа [867,9 K], добавлен 16.07.2013Обзор и сравнительная характеристика программного обеспечения для создания СУБД. Принципы организации данных. Основные возможности MS Access. Разработка структуры и реализация средствами SQL базы данных для учета заказов, наличия и продажи автозапчастей.
курсовая работа [2,5 M], добавлен 27.05.2013Разработка программного продукта для сбора, хранения и предоставления информации о туристических маршрутах, контроля продаж туристических путевок, учета клиентов, формирования и печати форм выходной информации. Выбор технологии доступа к данным.
курсовая работа [2,3 M], добавлен 28.08.2023Разработка информационной системы для анализа, хранения и обработки информации необходимой для автоматизации учета в автомобильном салоне "Aurore Auto" с помощью технологий Rational Rose, PHP и MySQL. Реализация и экономическая эффективность проекта.
дипломная работа [2,2 M], добавлен 20.05.2011Проблемы автоматизации торгово-закупочной деятельности аптеки, обработки данных об ассортименте лекарств, приходе и расходе товара, клиентах и поставщиках. Разработка приложения для администрирования информации, хранящейся в базе данных сети аптек.
курсовая работа [1,1 M], добавлен 18.12.2014
