Размещено на http://www.allbest.ru/

КУРСОВАЯ РАБОТА

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

На тему: «Информационно-аналитическая система Зарплата»



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

При открытии рабочей книги появляется сообщение Microsoft Excel и автоматически скрывается панель инструментов.

Рисунок 1. Титульный лист

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

Private Sub Workbook_Open()

Sheets("Меню").Activate

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

End Sub

При нажатии кнопки «Меню» на титульном листе появляется сообщение о запросе пользователя:

Рисунок 2 Знакомство



При нажатии кнопки «ОК» на запросе о пользователи, переходим на лист «Главное меню», где расположены кнопки перехода на все листы приложения, а так же кнопки «Об авторе» и кнопка « Выход из Excel»:

Рисунок 3. Главное меню

Для кнопок перехода на все листы приложения созданы следующие программные коды:

Sub переход1()

'' переход1 Макрос

Sheets("Табель учёта рабочего времени ").Select

MsgBox (" Вы перешли на лист Табель учёта рабочего времени!")

End Sub

Кнопки Тарифы, Сводная таблица, Диаграмма, Ведомость, Итоги, Формы, Расширенный фильтр, Функции аналогичны одноименной кнопке, рассмотренной выше.

При нажатии на кнопки «Об авторе» появляется пользовательская форма, где расположена информация о разработчике данной информационно-аналитической системы «Зарплата».



Рисунок 4. Сведения об авторе

К кнопке Об авторе привязан следующий программный код:

Private Sub CommandButton1_Click()

UserForm3.Hide

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

2. Лист «Табель учёта рабочего времени»

Рисунок 5. Табель учёта рабочего времени.

зарплата информационный аналитический рабочий

На листе расположена информация о рабочих завода. Указаны их Ф.И.О., наименование цеха, специальность, количество отработанных дней, зарплата, удержания и сумма к выдаче.

На листе «Табель учета рабочего времени» расположены кнопки «Среднемесячный заработок» и « Отмена».

Макросы для кнопок:

Sub Среднемячный_заработок()

' Среднемячный_заработок Макрос

Range("I10").Select

ActiveCell.FormulaR1C1 = "=AVERAGE(RC[-3]:R[39]C[-3])"

ActiveWindow.ScrollRow = 9

ActiveWindow.ScrollRow = 6

ActiveWindow.ScrollRow = 5

ActiveWindow.ScrollRow = 4

ActiveWindow.ScrollRow = 3

ActiveWindow.ScrollRow = 2

ActiveWindow.ScrollRow = 1

End Sub

Sub Отмена_среднемесячного()

' Отмена_среднемесячного Макрос

Range("I10").Select

Selection.ClearContents

End Sub

Так же на листе «Табель учёта рабочего времени» расположена одна кнопка «Действия над данными», при нажатии которой выходит окно :

Рисунок 6. Действия над данными

При нажатии кнопки «Добавление данных»:



Рисунок 7. Добавление данных в табель учёта рабочего времени.

Программный код для кнопки «Добавить»:

Private Sub CommandButton1_Click()

Dim текущая As Object

Dim следующая As Object

If TextBox1 = "" Or Text2 = " " Or TextBox3 = "" Or TextBox4 = "" Then

MsgBox ("Введены не все данные")

Exit Sub

End If

ActiveWorkbook.Sheets("Табель учёта рабочего времени").Select

Set текущая = ActiveSheet.Range("A50")

Do While Not IsEmpty(текущая)

Set следующая = текущая.Offset(1, 0)

Set текущая = следующая

Loop

текущая.Value = TextBox5.Text

текущая.Offset(0, 1).Value = TextBox1.Text

текущая.Offset(0, 2).Value = TextBox2.Text

текущая.Offset(0, 3).Value = TextBox3.Text

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

TextBox4.Text = ""

End Sub

Для кнопки «Отмена»

Private Sub CommandButton2_Click()

UserForm7.Hide

End Sub

Кнопка «Удаление данных»:

Рисунок 8. Удаление данных.

К кнопке «Удалить» привязан следующий код :

Private Sub ComboBox1_Change()

ActiveWorkbook.Sheets("Табель учёта рабочего времени").Select

Dim i As Integer

Dim j As Integer

Dim a As Integer

Dim строка As Integer

строка = Application.CountA(Sheets("Табель учёта рабочего времени").Columns(1))

i = 9

Do While i <= строка

i = i + 1

If Cells(i, 1) = " " Then

j = i

Exit Do

End If

Loop

For b = 10 To i

If ComboBox1.Text = Cells(b, 2).Value Then

TextBox1.Value = Cells(b, 3)

TextBox2.Value = Cells(b, 4)

TextBox3.Value = Cells(b, 5)

End If

Next b

End Sub

Private Sub CommandButton1_Click()

Me.Hide

If ComboBox1.Text = Empty Then

MsgBox "Вы должны выбрать фамилию рабочего"

Me.Show

Else

f = MsgBox("Сейчас произойдет удаление", vbOKCancel)

End If

If f = vbOK Then

Sheets("Табель учёта рабочего времени").Select

Dim i As Integer

Dim j As Integer

Dim строка As Integer

строка = Application.CountA(Sheets("Табель учёта рабочего времени").Columns(1))

i = 11

Do While i <= строка

i = i + 1

If Cells(i, 1) = " " Then

j = i

Exit Do

End If

Loop

For b = 11 To i

If ComboBox1.Text = Cells(b, 9) Then

Cells(b, 9).Select

Selection.EntireRow.Delete

End If

Next b

End If

End Sub

Private Sub CommandButton2_Click()

UserForm4.Hide

End Sub

Private Sub TextBox1_Change()

If IsNumeric(TextBox1.Text) And Len(TextBox1) <> 0 Then

MsgBox " Надо вводить только текстовые данные!", vbOKOnly + vbInformation

TextBox1.Value = ""

TextBox1.SetFocus

End If

End Sub

Private Sub TextBox2_Change()

If IsNumeric(TextBox2.Text) And Len(TextBox2) <> 0 Then

MsgBox " Надо вводить только текстовые данные!", vbOKOnly + vbInformation

TextBox2.Value = ""

TextBox2.SetFocus

End If

End Sub

Private Sub TextBox3_Change()

If TextBox3.Value < 0 Then

MsgBox "Числа не должны быть отрицательные!", vbOKOnly + vbInformation

TextBox3.SetFocus

End If

If Not IsNumeric(TextBox3.Text) And Len(TextBox3) <> 0 Then

MsgBox "Вводить надо числовые данные!", vbOKOnly + vbInformation

TextBox3.Value = ""

TextBox3.SetFocus

End If

End Sub

Private Sub UserForm_Activate()

TextBox1.Text = " "

TextBox2.Text = " "

TextBox3.Text = ""

ComboBox1.Text = " "

End Sub

Private Sub ComboBox1_Enter()

ComboBox1.Clear

Sheets("Табель учёта рабочего времени").Select

Dim i As Integer, j As Integer, строка As Integer

строка = Application.CountA(Sheets("Табель учёта рабочего времени").Columns(2))

i = 11

Do While i <= строка

i = i + 1

If Cells(i, 2) = " " Then

j = i

Exit Do

End If

Loop

For a = 11 To i

ComboBox1.AddItem Cells(a, 2)

Next a

End Sub

Код для кнопки «Отменить»

Private Sub CommandButton2_Click()

UserForm4.Hide

End Sub

Кнопка «Поиск и изменение данных»:



Рисунок 9. Поиск и изменение данных

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

Private Sub ComboBox1_Change()

ListBox1.Clear

TextBox1.Text = ""

TextBox2.Text = ""

1 For sss = 10 To 5000

If ComboBox1.Text = Sheets("Табель учёта рабочего времени").Cells(sss, 3).Text Then

ListBox1.AddItem Sheets("Табель учёта рабочего времени").Cells(sss, 2).Text

End If

Next

End Sub

Private Sub CommandButton1_Click()

For sss = 10 To 8000

If ComboBox1.Text = Sheets("Табель учёта рабочего времени").Cells(sss, 3).Text And ListBox1.Text = Sheets("Табель учёта рабочего времени").Cells(sss, 2).Text Then

Worksheets("Табель учёта рабочего времени").Cells(sss, 5) = TextBox2.Text

End If

Next

ListBox1.Clear

TextBox1.Text = ""

TextBox2.Text = ""

End Sub

Private Sub CommandButton2_Click()

poisk.Hide

End Sub

Private Sub ListBox1_Click()

For sss = 10 To 8000

If ComboBox1.Text = Sheets("Табель учёта рабочего времени").Cells(sss, 3).Text And ListBox1.Text = Sheets("Табель учёта рабочего времени").Cells(sss, 2).Text Then

TextBox1.Text = Sheets("Табель учёта рабочего времени").Cells(sss, 3).Text

TextBox2.Text = Sheets("Табель учёта рабочего времени").Cells(sss, 4).Text

End If

Next

End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub TextBox2_Change()

End Sub

Private Sub UserForm_Activate()

Sheets("Табель учёта рабочего времени").Select

Range("A10:H8000").Select

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

1 For ads = 11 To 8000

If Sheets("Табель учёта рабочего времени").Cells(ads, 3).Text = "" Then Exit Sub

If Sheets("Табель учёта рабочего времени").Cells(ads, 4).Text = Sheets("Табель учёта рабочего времени").Cells(ads + 1, 2).Text Then GoTo 3

ComboBox1.AddItem Sheets("Табель учёта рабочего времени").Cells(ads, 3).Text

3 Next

End Sub

При нажатии кнопки «Меню главное» происходит переход на лист, где содержится главное меню.

К кнопке « Закрыть» привязан следующий код:

Private Sub CommandButton4_Click()

UserForm5.Hide

End Sub



3. Лист «Сортировка»

Рисунок 10. Сортировка данных.

На этом листе осуществляется сортировка по возрастанию: по № п/п, по ФИО, по цеху, и по специальности, аналогично и по убыванию.

На листе расположены две кнопки: Меню и Сортировка. При нажатии кнопки Сортировка выходит окно:

Рисунок 11. Сортировка данных

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

Private Sub CommandButton1_Click()

If OptionButton1 = True Then

Range("A8:G1000").Select

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

ElseIf OptionButton2 = True Then

Range("A8:G1000").Select

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

End If

End Sub

Private Sub CommandButton2_Click()

If OptionButton1 = True Then

Range("A8:G1000").Select

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

ElseIf OptionButton2 = True Then

Range("A8:G1000").Select

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

End If

End Sub

Private Sub CommandButton3_Click()

If OptionButton1 = True Then

Range("A8:G1000").Select

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

ElseIf OptionButton2 = True Then

Range("A8:G1000").Select

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

End If

End Sub

Private Sub CommandButton4_Click()

If OptionButton1 = True Then

Range("A8:G1000").Select

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

ElseIf OptionButton2 = True Then

Range("A8:G1000").Select

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

End If

End Sub

Private Sub CommandButton5_Click()

UserForm2.Hide

End Sub

Также на листе «Сортировка» расположена кнопка «Меню» - это переход на главное меню, к которой привязан следующий программный код:

Sub Переходнатитульныйссортировки()

' Переходнатитульныйссортировки Макрос

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

End Sub



4. Лист «Тарифы»

Рисунок 12. Сводная таблица

На листе расположена таблица, состоящая из двух столбцов: «специальность» и «цена рабочего времени», а также на листе есть кнопки «добавление», «удаление», «табель учёта» и «кнопка меню», для перехода на лист «Главное меню »

При нажатии на кнопку Добавить открывается форма «Добавление».

Рисунок 13. Добавление специальности



Форма состоит из двух элементов Label1 и Label2,из двух текстовых полей TextBox1, TextBox2 и двух кнопок CommandButton1 со свойством Caption, которому присвоено значение «Добавить», и CommandButton2 со свойством Caption, которому присвоено значение «Закрыть».

Программный код для кнопки «Добавить»:

Private Sub CommandButton1_Click()

Dim текущая As Object

Dim следующая As Object

If TextBox1 = "" Or Text2 = " " Then

MsgBox ("Введены не все данные")

Exit Sub

End If

ActiveWorkbook.Sheets("Тарифы").Select

Set текущая = ActiveSheet.Range("A12")

Do While Not IsEmpty(текущая)

Set следующая = текущая.Offset(0, 1)

Set текущая = следующая

Loop

текущая.Value = TextBox1.Text

текущая.Offset(0, 1).Value = TextBox2.Text

TextBox1.Text = ""

TextBox2.Text = ""

End Sub

Для кнопки Закрыть

Private Sub CommandButton2_Click()

UserForm9.Hide

End Sub

Форма «Удаление»



Рисунок 14. Удаление специальности

Форма состоит из одного элемента ComboBox и двух кнопок CommandButton

Программный код для кнопки CommandButton1 (Удаление):

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("Удаление невозможно, так как не выделен объект", vbYes + vbQuestion, "Удаление")

If Y = vbYes Then GoTo 12 Else GoTo e

End If

ActiveWorkbook.Sheets("Тарифы").Activate

Set pr = ActiveSheet.Range("C11")

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("A6")

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 = ""

TextBox1 = ""

UserForm8.Hide

e: End Sub

Программный код для кнопки CommandButton2 ( Отмена):

Private Sub CommandButton2_Click()

UserForm8.Hide

End Sub

При нажатии кнопки « Табель учёта» и «Меню» происходит переход на эти листы.



5. Лист «Сводная таблица и Диаграмма»

Рисунок 15. Сводная таблица

На листе «Сводная таблица» расположена сводная таблица, которая построена на основе главной таблицы листа «Табель учета рабочего времени».

Сводная таблица - это вспомогательная таблица с помощью которой можно анализировать и объединять большие объёмы данных, быстро проводить общие и промежуточные итоги, обобщать только необходимы е данные и изменять их форму представления.

На листе также присутствуют кнопки Диаграмма и Меню для перехода на лист «Меню» и «Диаграмма» для перехода на лист «Диаграмма1».

Рисунок 16. Диаграмма.



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

6. Расширенный фильтр

Рисунок 17. Расширенный фильтр

Программный код для кнопки Фильтрация:

Sub Расширенный()

' Расширенный Макрос

' Макрос записан 20.04.2013

Range("B2").Select

ActiveCell.FormulaR1C1 = InputBox("Введите название специальности")

Range("D11").Select

Range("D11").Select

Range("A11:H51").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _

Range("B1:B2"), Unique:=False

End Sub

Программный код для кнопки Отмена фильтрации:

Sub ОменаФильтрации()

' ОменаФильтрации Макрос

ActiveSheet.ShowAllData

End Sub

7. Лист Итоги

Рисунок 18. Итоги по цеху

Программный код для кнопок Итоги и Отмена Итогов :

Sub Итоги()

' Итоги Макрос

Range("C1").Select

Selection.Subtotal GroupBy:=3, Function:=xlSum, TotalList:=Array(8), _

Replace:=True, PageBreaks:=False, SummaryBelowData:=True

End Sub

Sub ОтменаИтоговв()

' ОтменаИтоговв Макрос

Range("C1").Select

Selection.RemoveSubtotal

End Sub

8. Лист Ведомость

При нажатии на кнопку ведомость, расположенную на пользовательской форме на листе «МЕНЮ», появляется форма ведомость



Рисунок 19. Выбор специальности для создания ведомости.

На форме расположены два элемента: ComboBox1 и CommandButton1. Элемент ComboBox1 позволяет выбрать из списка название специальности рабочего, а при нажатии на кнопку CommandButton1 создается ведомость на отдельном листе.

Рисунок 20. Ведомость.

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

Private Sub CommandButton1_Click()

Application.ScreenUpdating = False

Dim h As Byte

If ComboBox1 = "" Then

h = MsgBox("Для вывода ведомости необходимо выделить из списка специальность", vbYes + vbQuestion, "Ведомость")

End If

Dim igr(2000, 7) As String

cur_sel = Trim(ComboBox1.Text)

i = 1

j = 10

Sheets("Просто").Activate

Do While Not IsEmpty(Cells(j, 3).Value)

If cur_sel = Trim(Cells(j, 3).Value) Then

igr(i, 1) = Cells(j, 1).Value

igr(i, 2) = Cells(j, 2).Value

igr(i, 3) = Cells(j, 4).Value

igr(i, 4) = Cells(j, 5).Value

igr(i, 5) = Cells(j, 6).Value

igr(i, 6) = Cells(j, 7).Value

i = i + 1

End If

j = j + 1

Loop

Sheets("Выручка").Activate

Cells(1, 4).Value = cur_sel

Range("A3:I2000").Value = " "

For j = 1 To i

Cells(j + 2, 1).Value = igr(j, 1)

Cells(j + 2, 2).Value = igr(j, 2)

Cells(j + 2, 3).Value = igr(j, 3)

Cells(j + 2, 4).Value = igr(j, 4)

Cells(j + 2, 5).Value = igr(j, 5)

Cells(j + 2, 6).Value = igr(j, 6)

Next j

Sheets("Выручка").Range("g3").Activate

ActiveCell.FormulaR1C1 = "=SUM(RC[-1],R[1]C[-1]:R[196]C[-1])"

12 ComboBox1 = ""

Sheets("Выручка").Range("h3").Activate

Range("H3").Select

ActiveCell.FormulaR1C1 = "=AVERAGE(RC[-4]:R[196]C[-4])"

Sheets("Выручка").Range("i3").Activate

Range("I3").Select

ActiveCell.FormulaR1C1 = "=AVERAGE(RC[-3]:R[1967]C[-3])"

UserForm10.Hide

End Sub

Private Sub UserForm_Activate()

Dim pr As Object, X As Object

UserForm10.ComboBox1.Clear

ActiveWorkbook.Sheets("Просто").Select

Set pr = ActiveSheet.Range("c10")

Do While Not IsEmpty(pr)

Set X = pr.Offset(1, 0)

ComboBox1.AddItem pr

Set pr = X

Loop

End Sub



10. Лист Функции

Рисунок 21. Функции.

На этом листе расположены кнопки с функциями:

· БДСУММ - вычисляет сумму числовых ячеек

· ДСРЗНАЧ - считает среднее значение

· ДМИН - ищет минимальное значение

· ДМАКС - ищет максимальное значение

· БЧЁТ - подсчитывает количество ячеек содержащих числа

При нажатии кнопки БДСУММ появляется окно:

После ввода специальности и нажатия кнопки «ОК» функция посчитает какое количество дней отработали люди с той или иной специальностью.

Программный код для кнопки:

Sub Бдсумм()

' Бдсумм Макрос

Range("A2").Select

ActiveCell.FormulaR1C1 = InputBox("Введите наименование специальности")

Range("A7").Select

ActiveCell.FormulaR1C1 = "=DSUM(R[4]C:R[44]C[7],R[4]C[4],R[-6]C:R[-5]C)"

End Sub

При нажатии кнопки ДСРЗНАЧ появится окно:

Эта функция посчитает среднее значение *суммы к выдачи* определённого работника.

Программный код для кнопки :

Sub ДСРЗНАЧ()

' ДСРЗНАЧ Макрос

Range("C2").Select

ActiveCell.FormulaR1C1 = InputBox("Введите ФИО сотрудника")

Range("C7").Select

ActiveCell.FormulaR1C1 = _

"=DAVERAGE(R[4]C[-2]:R[44]C[5],R[4]C[5],R[-6]C:R[-5]C)"

End Sub

При нажатии кнопки ДМАКС:



Эта функция посчитает максимальную зарплату по указанному количеству дней.

Программный код для кнопки :

Sub ДМАСК()

' ДМАСК Макрос

Range("E2").Select

ActiveCell.FormulaR1C1 = InputBox("Введите количество отработанных дней")

Range("E7").Select

ActiveCell.FormulaR1C1 = "=DMAX(R[4]C[-4]:R[44]C[3],R[4]C[1],R[-6]C:R[-5]C)"

End Sub

При нажатии кнопки ДМИН:

Эта функция посчитает минимальную зарплату по указанному цеху.

Программный код для кнопки:

Sub ДМИН()

' ДМИН Макрос

Range("G2").Select

ActiveCell.FormulaR1C1 = InputBox("Введите наименование цеха")

Range("G7").Select

ActiveCell.FormulaR1C1 = "=DMIN(R[4]C[-6]:R[44]C[1],R[4]C[-1],R[-6]C:R[-5]C)"

End Sub

При нажатии кнопки БСЧЁТ:

Функция подсчитывает сколько людей отработало за указанное количество дней

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

Sub БСЧЁТ()

'' БСЧЁТ Макрос

Range("I2").Select

ActiveCell.FormulaR1C1 = InputBox("Введите количество отработанных дней")

Range("I7").Select

ActiveCell.FormulaR1C1 = _

"=DCOUNT(R[4]C[-8]:R[44]C[-1],R[4]C[-4],R[-6]C:R[-5]C)"

End Sub



11. Реализация информационно-аналитической системы «Зарплата» с помощью MS ACCESS

MS ACCESS - СУБД реляционными базами данных. То есть информация в таких базах данных храниться в таблицах, связанных между собой.

Основными объектами Базы Данных являются: таблицы, формы, запросы, отчеты, макросы и модули.

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

Сначала будем создавать структуру таблицы «Тарифы».

Рисунок 22 Тарифы в режиме "конструктор"

Специальность делаем ключевым полем. Имя таблицы называется «Тарифы».

Создаем таблицу «Табель учета».

Рисунок 23. Табель учёта



Спец - искусственно созданное поле, которое будет ключевым.

Заполняем таблицу «Тарифы» данными.

Создадим схему данных. Схема данных выглядит следующим образом:

· Создание для таблицы «Тарифы» форму для ввода данных.

· Создание форму для ввода данных в таблицу «Табель учета».

· Создадим запрос на обновление данных.

Рисунок 24. Запрос на обновление.

Двойным щелчком из таблицы «Табель Учета» выбираем поля и после чего нажимаем кнопку «Обновление».

«Обновление»- Создание запроса, который обновляет данные в существующей таблице.

Заполняем строки обновления, через кнопку «Построитель».

Нарисуем в области данных элемент управления «Кнопка». Перейдем в режим формы и внесем несколько записей в таблицу «Табель учета», каждый раз нажимая кнопку «Регистрация» и при этом мы должны убедиться, что введенные данные попадают в таблицу.

Создадим запрос на выборку данных из таблицы «Табель учета».

Например, «Отбор данных по ФИО».Для этого через Конструктор запросов выбираем две таблицы и из таблицы «Табель учета» выберем все столбцы, кроме столбца «Спец».

Рисунок 25. Создание связи.

На основе запроса на выборку создадим отчет ФИО.

Рисунок 26. Отчёт ФИО



Аналогично можно создать отчет на основе таблицы, и выбрать уровни группировки.



Заключение

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

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

При создании экранных форм использованы средства, предоставляемые Ехсеl для удобной работы с формой (элементы управления на рабочем листе для заполнения формы, возможности быстрого перехода между полями и т.п.).

Для автоматизации некоторых действий использованы макросы или пользовательские процедуры и функции.



Список использованных источников

1. Агальцов В. П., Титов В. М. Информатика для экономистов:Учебник. - М.: ИД «ФОРУМ»: ИНФРА-М,2010. - 448С.:ил. - (Высшее образование)

2. Информатика: «Microsoft Excel и Visual Basic for Application». Учебное пособие к выполнению курсовой работы для студентов специальности 080801,080116. /Составители : Каляшина А. В., Бусова А. М. - Набережные Челны : Издательство ИНЭКА, 2008. 73с.

3. Microsoft Visual Basic 6.0 для профессионалов. Шаг за шагом: Практ. Пособ./ Пер. с англ.-М.: Издательство ЭКОМ, 2011.-720 с.: илл.

4. Ананьев А.И., Федоров А.Ф Самоучитель Visual Basic 6.0-СПб.БХВ-Петербург 2008г,624с.

Размещено на Allbest.ru