Автоматизация работы секретариата Федерации художественной гимнастики с помощью MS Excel

Автор работы: Пользователь скрыл имя, 12 Декабря 2011 в 15:19, курсовая работа

Краткое описание

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

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

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

Содержание работы

Введение 4
1 Проектная часть 6
1.1 Словесно-логическое описание предметной области 6
1.2 Концептуальная модель 8
1.3 Логическая модель 10
1.4 Математическая модель 14
1.5 Физическая модель 15
2 Практическая реализация 17
2.1 Разработка входного интерфейса 17
2.2 Реализация проекта 18
2.3 Инструкция пользователя 21
Заключение 23
Список использованной литературы 24
Приложение 25

Скачать целиком (1.11 Мб) Сколько стоит заказать работу?

Содержимое работы - 1 файл

Автоматизация работы секретариата Федерации художественной гимнастики с помощью MS Excel.docx

— 1.20 Мб (Скачать файл)

'сбавки

Cells(i + 1, 12).Value = ЛичнаяКарточка.TextBox22.Text

'итоговая

Cells(i + 3, 12).Value = ЛичнаяКарточка.TextBox23.Text

End If

Next i

End Sub

Sub SohranenieProtokola_Ind_Ocenki_SK() 'Сохранение протокола оценки за скакалку

Sheets("АрхивПротоколов(инд)").Select

NomerStroki = Application.CountA(Sheets("АрхивПротоколов(инд)").Range("a:a"))

For i = 3 To NomerStroki Step 4

If Cells(i, 1).Value = ЛичнаяКарточка.TextBox1.Text Then

If Cells(i, 2).Value = ЛичнаяКарточка.ListBox1.Text Then

Cells(i + 1, 14).Value = ЛичнаяКарточка.TextBox24.Text

Cells(i + 1, 15).Value = ЛичнаяКарточка.TextBox25.Text

Cells(i + 1, 16).Value = ЛичнаяКарточка.TextBox26.Text

Cells(i + 1, 17).Value = ЛичнаяКарточка.TextBox27.Text

Cells(i + 2, 14).Value = ЛичнаяКарточка.TextBox28.Text

Cells(i + 2, 15).Value = ЛичнаяКарточка.TextBox6123.Text

Cells(i + 2, 16).Value = ЛичнаяКарточка.TextBox6127.Text

Cells(i + 2, 17).Value = ЛичнаяКарточка.TextBox6125.Text

'D1

Cells(i + 3, 14).Value = ЛичнаяКарточка.TextBox158.Text

Cells(i + 3, 15).Value = ЛичнаяКарточка.TextBox6124.Text

'D2

Cells(i + 3, 16).Value = ЛичнаяКарточка.TextBox178.Text

Cells(i + 3, 17).Value = ЛичнаяКарточка.TextBox6121.Text

'сбавки

Cells(i + 1, 18).Value = ЛичнаяКарточка.TextBox175.Text

'итоговая

Cells(i + 3, 18).Value = ЛичнаяКарточка.TextBox176.Text

End If

Next i

End Sub

Sub SohranenieProtokola_Ind_Ocenki_OBR() 'Сохранение протокола оценки за обруч

Sheets("АрхивПротоколов(инд)").Select

NomerStroki = Application.CountA(Sheets("АрхивПротоколов(инд)").Range("a:a"))

For i = 3 To NomerStroki Step 4

If Cells(i, 1).Value = ЛичнаяКарточка.TextBox1.Text Then

If Cells(i, 2).Value = ЛичнаяКарточка.ListBox1.Text Then

Cells(i + 1, 20).Value = ЛичнаяКарточка.TextBox6130.Text

Cells(i + 1, 21).Value = ЛичнаяКарточка.TextBox6135.Text

Cells(i + 1, 22).Value = ЛичнаяКарточка.TextBox6138.Text

Cells(i + 1, 23).Value = ЛичнаяКарточка.TextBox6140.Text

Cells(i + 2, 20).Value = ЛичнаяКарточка.TextBox6131.Text

Cells(i + 2, 21).Value = ЛичнаяКарточка.TextBox6136.Text

Cells(i + 2, 22).Value = ЛичнаяКарточка.TextBox6139.Text

Cells(i + 2, 23).Value = ЛичнаяКарточка.TextBox6129.Text

'D1

Cells(i + 3, 20).Value = ЛичнаяКарточка.TextBox6132.Text

Cells(i + 3, 21).Value = ЛичнаяКарточка.TextBox6137.Text

'D2

Cells(i + 3, 22).Value = ЛичнаяКарточка.TextBox6133.Text

Cells(i + 3, 23).Value = ЛичнаяКарточка.TextBox6134.Text

'сбавки

Cells(i + 1, 24).Value = ЛичнаяКарточка.TextBox350.Text

'итоговая

Cells(i + 3, 24).Value = ЛичнаяКарточка.TextBox351.Text

End If

Next i

End Sub

Sub SohranenieProtokola_Ind_Ocenki_MCH() 'Сохранение протокола оценки за мяч

Sheets("АрхивПротоколов(инд)").Select

NomerStroki = Application.CountA(Sheets("АрхивПротоколов(инд)").Range("a:a"))

For i = 3 To NomerStroki Step 4

If Cells(i, 1).Value = ЛичнаяКарточка.TextBox1.Text Then

If Cells(i, 2).Value = ЛичнаяКарточка.ListBox1.Text Then

Cells(i + 1, 26).Value = ЛичнаяКарточка.TextBox6142.Text

Cells(i + 1, 27).Value = ЛичнаяКарточка.TextBox6147.Text

Cells(i + 1, 28).Value = ЛичнаяКарточка.TextBox6150.Text

Cells(i + 1, 29).Value = ЛичнаяКарточка.TextBox6152.Text

Cells(i + 2, 26).Value = ЛичнаяКарточка.TextBox6143.Text

Cells(i + 2, 27).Value = ЛичнаяКарточка.TextBox6148.Text

Cells(i + 2, 28).Value = ЛичнаяКарточка.TextBox6151.Text

Cells(i + 2, 29).Value = ЛичнаяКарточка.TextBox6141.Text

'D1

Cells(i + 3, 26).Value = ЛичнаяКарточка.TextBox6144.Text

Cells(i + 3, 27).Value = ЛичнаяКарточка.TextBox6149.Text

'D2

Cells(i + 3, 28).Value = ЛичнаяКарточка.TextBox6145.Text

Cells(i + 3, 29).Value = ЛичнаяКарточка.TextBox6146.Text

'сбавки

Cells(i + 1, 30).Value = ЛичнаяКарточка.TextBox375.Text

'итоговая

Cells(i + 3, 30).Value = ЛичнаяКарточка.TextBox376.Text

End If

Next i

End Sub

Sub SohranenieProtokola_Ind_Ocenki_BL() 'Сохранение протокола оценки за булавы

Sheets("АрхивПротоколов(инд)").Select

NomerStroki = Application.CountA(Sheets("АрхивПротоколов(инд)").Range("a:a"))

For i = 3 To NomerStroki Step 4

If Cells(i, 1).Value = ЛичнаяКарточка.TextBox1.Text Then

If Cells(i, 2).Value = ЛичнаяКарточка.ListBox1.Text Then

Cells(i + 1, 32).Value = ЛичнаяКарточка.TextBox6154.Text

Cells(i + 1, 33).Value = ЛичнаяКарточка.TextBox6159.Text

Cells(i + 1, 34).Value = ЛичнаяКарточка.TextBox6162.Text

Cells(i + 1, 35).Value = ЛичнаяКарточка.TextBox6164.Text

Cells(i + 2, 32).Value = ЛичнаяКарточка.TextBox6155.Text

Cells(i + 2, 33).Value = ЛичнаяКарточка.TextBox6160.Text

Cells(i + 2, 34).Value = ЛичнаяКарточка.TextBox6163.Text

Cells(i + 2, 35).Value = ЛичнаяКарточка.TextBox6153.Text

'D1

Cells(i + 3, 32).Value = ЛичнаяКарточка.TextBox6156.Text

Cells(i + 3, 33).Value = ЛичнаяКарточка.TextBox6161.Text

'D2

Cells(i + 3, 34).Value = ЛичнаяКарточка.TextBox6157.Text

Cells(i + 3, 35).Value = ЛичнаяКарточка.TextBox6158.Text

'сбавки

Cells(i + 1, 36).Value = ЛичнаяКарточка.TextBox400.Text

'итоговая

Cells(i + 3, 36).Value = ЛичнаяКарточка.TextBox401.Text

End If

Next i

End Sub

Sub SohranenieProtokola_Ind_Ocenki_LT() 'Сохранение протокола оценки за ленту

Sheets("АрхивПротоколов(инд)").Select

NomerStroki = Application.CountA(Sheets("АрхивПротоколов(инд)").Range("a:a"))

For i = 3 To NomerStroki Step 4

If Cells(i, 1).Value = ЛичнаяКарточка.TextBox1.Text Then

If Cells(i, 2).Value = ЛичнаяКарточка.ListBox1.Text Then

Cells(i + 1, 38).Value = ЛичнаяКарточка.TextBox6166.Text

Cells(i + 1, 39).Value = ЛичнаяКарточка.TextBox6171.Text

Cells(i + 1, 40).Value = ЛичнаяКарточка.TextBox6174.Text

Cells(i + 1, 41).Value = ЛичнаяКарточка.TextBox6176.Text

Cells(i + 2, 38).Value = ЛичнаяКарточка.TextBox6167.Text

Cells(i + 2, 39).Value = ЛичнаяКарточка.TextBox6172.Text

Cells(i + 2, 40).Value = ЛичнаяКарточка.TextBox6175.Text

Cells(i + 2, 41).Value = ЛичнаяКарточка.TextBox6165.Text

'D1

Cells(i + 3, 38).Value = ЛичнаяКарточка.TextBox6168.Text

Cells(i + 3, 39).Value = ЛичнаяКарточка.TextBox6173.Text

'D2

Cells(i + 3, 40).Value = ЛичнаяКарточка.TextBox6169.Text

Cells(i + 3, 41).Value = ЛичнаяКарточка.TextBox6170.Text

'сбавки

Cells(i + 1, 42).Value = ЛичнаяКарточка.TextBox425.Text

'итоговая

Cells(i + 3, 42).Value = ЛичнаяКарточка.TextBox426.Text

End If

Next i

End Sub

Sub BP_Ind() 'Расчет оценок за б/п

E(0) = CSng(ЛичнаяКарточка.TextBox7.Text)

E(1) = CSng(ЛичнаяКарточка.TextBox8.Text)

E(2) = CSng(ЛичнаяКарточка.TextBox9.Text)

E(3) = CSng(ЛичнаяКарточка.TextBox10.Text)

a(0) = CSng(ЛичнаяКарточка.TextBox12.Text)

a(1) = CSng(ЛичнаяКарточка.TextBox13.Text)

a(2) = CSng(ЛичнаяКарточка.TextBox14.Text)

a(3) = CSng(ЛичнаяКарточка.TextBox15.Text)

d(0) = CSng(ЛичнаяКарточка.TextBox17.Text)

d(1) = CSng(ЛичнаяКарточка.TextBox18.Text)

d(2) = CSng(ЛичнаяКарточка.TextBox19.Text)

d(3) = CSng(ЛичнаяКарточка.TextBox20.Text)

sbavki = CSng(ЛичнаяКарточка.TextBox22.Text)

If E(2) = 0 Then

E(4) = (E(0) + E(1)) / 2

Else

minE = E(0)

For i = 1 To 3

If E(i) < minE Then

minE = E(i)

End If

Next i

maxE = E(0)

For i = 1 To 3

If E(i) > maxE Then

maxE = E(i)

End If

Next i

E(4) = (E(0) + E(1) + E(2) + E(3) - minE - maxE) / 2

End If

If a(2) = 0 Then

a(4) = (a(0) + a(1)) / 2

Else

minA = a(0)

For i = 1 To 3

If a(i) < minA Then

minA = a(i)

End If

Next i

maxA = a(0)

For i = 1 To 3

If a(i) > maxA Then

maxA = a(i)

End If

Информация о работе Автоматизация работы секретариата Федерации художественной гимнастики с помощью MS Excel