Оглавление
1. Введение 2
2. Лист «Титульный лист» 3
3. Лист «Табель учета рабочего времени» 7
4. Лист «Тарифы» 19
5. Лист «Сводная таблица» 24
6. Лист «Диаграмма» 25
7. Лист ведомость 26
8. Реализация информационно-аналитической системы «Зарплата» с помощью MS ACCESS 29
9. Заключение 32
10. Список использованных источников 33
Введение
Целью курсовой работы по информатике является разработка информационно-аналитической системы «Зарплата» средствами Ехсеl с использованием возможностей макропрограммирования и визуального программирования средствами VВА.
Исходная информация для обработки представляет собой базу данных, размещенную на рабочих листах Ехcel Таблицы связаны между собой с помощью функций рабочего листа.
Исходная информация содержится в двух таблицах:
«Табель учета рабочего времени» (ФИО рабочего, наименование цеха, специальность, количество отработанных дней, зарплата (функция ВПР), удержания (13% от оклада), сумма к выдаче.
«Тарифы» (специальность, цена рабочего дня).
В курсовой работе создана сводная таблица и размещена на отдельном рабочем листе. Обновление данных в сводной таблице проводиться автоматически. По результатам работы создана диаграмма, которая также находится на отдельном листе. Переход между листами осуществляется с помощью кнопок. Каждый лист имеет свое название.
При выполнении курсовой работы операции проводились автоматически: либо с помощью макросов, или с помощью несложных программ на VBA.
Visual Basic - это расширение традиционного языка Basic элементами объектно-ориентированного программирования, которые использовались при создании программ для Microsoft Office.
VBA использует технологию визуального программирования, т. е. конструирование рабочей поверхности приложения и элементов его управления непосредственно на экране, а также запись всей программы или ее частей при помощи макрорекордера.
Лист «Титульный лист»
При открытии рабочей книги появляется сообщение Microsoft Excel и автоматически скрывается панель инструментов.
Программный код для этого процесса следующий:
Private Sub Workbook_Open()
Sheets("Титульный лист").Activate
MsgBox "Добро пожаловать! Вас приветствует информационно-аналитическая система Зарплата!"
'Worksheets("Титульный лист").Select
Application.CommandBars("Control Toolbox").Visible = False
Application.CommandBars("Picture").Visible = False
Application.CommandBars("PivotTable").Visible = False
Application.CommandBars("External Data").Visible = False
Application.CommandBars("Forms").Visible = False
Application.CommandBars("Chart").Visible = False
Application.CommandBars("Reviewing").Visible = False
Application.CommandBars("WordArt").Visible = False
Application.CommandBars("Web").Visible = False
Application.CommandBars("Visual Basic").Visible = False
Application.CommandBars("Standard").Visible = False
Application.CommandBars("Formatting").Visible = False
Application.CommandBars("Drawing").Visible = False
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = False
На листе «Титульный лист» расположена одна кнопка Главное меню.
При нажатии на кнопку Главное меню появляется пользовательская форма gmenu.
На данной форме расположены кнопки перехода на все листы приложения, а также кнопки Об авторе, Приветствие и Выход из Excel.
Для кнопок перехода на все листы приложения созданы следующие программные коды:
Private Sub CommandButton2_Click()
Sheets("Табель учета рабочего времени").Select
MsgBox ("Добро пожаловать на лист Табель учета рабочего времени")
gmenu.Hide
End Sub
Кнопки Тарифы, Сводная таблица, Диаграмма и Ведомость аналогичны одноименной кнопке, рассмотренной выше.
При нажатии на кнопку. Об авторе появляется пользовательская форма, где расположена информация о разработчике данной информационно-аналитической системы «Зарплата»
К кнопке Об авторе привязан следующий программный код:
Private Sub CommandButton8_Click()
avtor.Show
End Sub
Пользовательская форма состоит из восемь элементов Label и одного элемента CommandButton со свойством Caption, которому присвоено значение «Закрыть».
К кнопке Закрыть привязан следующий код:
Private Sub CommandButton1_Click()
avtor.Hide
End Sub
При нажатии на кнопку Приветствие появляется окно сообщения
К кнопке Приветствие привязан следующий код:
Private Sub CommandButton1_Click()
MsgBox "Добрый день!", vbOKOnly + vbInformation
End Sub
К кнопке Выход из Excel привязан следующий код:
Private Sub CommandButton7_Click()
Dim txtСообщение As String, txtЗаголовок As String
Dim Кнопки As Integer, Результат As Integer
txtСообщение = "Вы действительно хотите выйти из Excel?"
txtЗаголовок = "До свидания!"
Кнопки = vbYesNo + vbQuestion + vbfautButton2
Результат = MsgBox(txtСообщение, Кнопки, txtЗаголовок)
If Результат = vbYes Then
Application.Quit
Else
MsgBox "Спасибо, что Вы остались в моей курсовой работе!", vbOKOnly, "Снова привет!"
End If
End Sub