Автоматизация работы секретариата Федерации художественной гимнастики с помощью 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 Мб (Скачать файл)

End Sub

Sub ProverkaArhivaGimnastokIProtokolaUchastnic() 'Проверка архива гимнасток и протокола участниц

Dim k As Integer

Sheets("АрхивГимнасток ").Select

NomerStroki = Application.CountA(Sheets("АрхивГимнасток ").Range("a:a"))

k = 0

For i = 3 To NomerStroki

If АнкетаУчастниц.TextBox1.Text = Cells(i, 2).Value And АнкетаУчастниц.TextBox2.Text = Cells(i, 3).Value And АнкетаУчастниц.TextBox3.Text = Cells(i, 4).Value And АнкетаУчастниц.ComboBox1.Text = Cells(i, 5).Value And АнкетаУчастниц.TextBox5.Text = Cells(i, 6).Value Then

k = k + 1

End If

Next i

If k = 0 Then

SohranenieGimnastok

End If

Sheets("СписокУчастниц").Select

NomerStroki = Application.CountA(Sheets("СписокУчастниц").Range("d:d"))

k = 0

For i = 12 To NomerStroki + 12

If АнкетаУчастниц.TextBox1.Text = Cells(i, 5).Value And АнкетаУчастниц.TextBox2.Text = Cells(i, 6).Value And АнкетаУчастниц.TextBox3.Text = Cells(i, 7).Value And АнкетаУчастниц.ComboBox1.Text = Cells(i, 8).Value And АнкетаУчастниц.TextBox5.Text = Cells(i, 9).Value Then

k = k + 1

End If

Next i

If k = 0 Then

SohranenieGimnastkiVProtokol

End If

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

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

k = 0

For i = 3 To NomerStroki Step 4

If Соревнования.TextBox3.Text = Cells(i, 1).Value And АнкетаУчастниц.TextBox1.Text = Cells(i, 2).Value And АнкетаУчастниц.TextBox2.Text = Cells(i, 3).Value And АнкетаУчастниц.TextBox3.Text = Cells(i, 4).Value And АнкетаУчастниц.ComboBox1.Text = Cells(i, 5).Value And АнкетаУчастниц.TextBox5.Text = Cells(i, 6).Value Then

k = k + 1

End If

Next i

If k = 0 Then

SohranenieProtokola_Ind_Anketa

End If

End Sub

Sub SortirovkaIMesta() 'Сортировка и места

Sheets("ПротоколСоревнований(инд)").Select

NomerStroki = Application.CountA(Sheets("ПротоколСоревнований(инд)").Range("a:a"))

'сортировка

Range("B3:M" & NomerStroki).Select

ActiveWorkbook.Worksheets("ПротоколСоревнований(инд)").Sort.SortFields.Clear

ActiveWorkbook.Worksheets("ПротоколСоревнований(инд)").Sort.SortFields.Add Key _

:=Range("M4:M" & NomerStroki), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption _

:=xlSortTextAsNumbers

With ActiveWorkbook.Worksheets("ПротоколСоревнований(инд)").Sort

.SetRange Range("B3:M" & NomerStroki)

.Header = xlYes

.MatchCase = False

.Orientation = xlTopToBottom

.SortMethod = xlPinYin

.Apply

End With

Range("B4").Select

For i = 4 To NomerStroki

Cells(i, 1).Value = i - 3

Cells(i, 14).Value = i - 3

Next i

End Sub

Sub FormirovanieArhivaProtokolov_Ind() 'Формирование архива протоколов

Range("A2").Select

ActiveCell.FormulaR1C1 = "Соревнования"

Range("B2").Select

ActiveCell.FormulaR1C1 = "Фамилия Имя"

Range("C2").Select

ActiveCell.FormulaR1C1 = "Край, область"

Range("D2").Select

ActiveCell.FormulaR1C1 = "Город"

Range("E2").Select

ActiveCell.FormulaR1C1 = "Разряд"

Range("F2").Select

ActiveCell.FormulaR1C1 = "Год рождения"

Range("G2").Select

ActiveCell.FormulaR1C1 = "Без предмета"

Range("G3").Select

ActiveCell.FormulaR1C1 = "Бригада"

Range("G4").Select

ActiveCell.FormulaR1C1 = "E"

Range("G5").Select

ActiveCell.FormulaR1C1 = "A"

Range("G6").Select

ActiveCell.FormulaR1C1 = "D"

Range("H3").Select

ActiveCell.FormulaR1C1 = "1"

Range("I3").Select

ActiveCell.FormulaR1C1 = "2"

Range("J3").Select

ActiveCell.FormulaR1C1 = "3"

Range("K3").Select

ActiveCell.FormulaR1C1 = "4"

Range("L3").Select

ActiveCell.FormulaR1C1 = "Сбавки"

Range("L5").Select

ActiveCell.FormulaR1C1 = "Итоговая"

Range("H4").Select

ActiveCell.FormulaR1C1 = "0"

Range("I4").Select

ActiveCell.FormulaR1C1 = "0"

Range("J4").Select

ActiveCell.FormulaR1C1 = "0"

Range("K4").Select

ActiveCell.FormulaR1C1 = "0"

Range("K5").Select

ActiveCell.FormulaR1C1 = "0"

Range("J5").Select

ActiveCell.FormulaR1C1 = "0"

Range("I5").Select

ActiveCell.FormulaR1C1 = "0"

Range("H5").Select

ActiveCell.FormulaR1C1 = "0"

Range("H6").Select

ActiveCell.FormulaR1C1 = "0"

Range("I6").Select

ActiveCell.FormulaR1C1 = "0"

Range("J6").Select

ActiveCell.FormulaR1C1 = "0"

Range("K6").Select

ActiveCell.FormulaR1C1 = "0"

Range("L6").Select

ActiveCell.FormulaR1C1 = "0"

Range("L4").Select

ActiveCell.FormulaR1C1 = "0"

Range("M2").Select

ActiveCell.FormulaR1C1 = "Скакалка"

Range("G3:L6").Select

Selection.Copy

Range("M3").Select

ActiveSheet.Paste

Range("S2").Select

ActiveCell.FormulaR1C1 = "Обруч"

Range("M3:R6").Select

Selection.Copy

Range("S3").Select

ActiveSheet.Paste

Range("Y3").Select

ActiveSheet.Paste

Range("AE3").Select

ActiveSheet.Paste

Range("AK3").Select

ActiveSheet.Paste

Range("X2").Select

ActiveCell.FormulaR1C1 = "Мяч"

Range("AD2").Select

ActiveCell.FormulaR1C1 = "Булавы"

Range("AJ2").Select

ActiveCell.FormulaR1C1 = "Лента"

Range("A1:AP1").Select

With Selection

.HorizontalAlignment = xlCenter

.VerticalAlignment = xlBottom

.WrapText = False

.Orientation = 0

.AddIndent = False

.IndentLevel = 0

.ShrinkToFit = False

.ReadingOrder = xlContext

.MergeCells = False

End With

Selection.Merge

ActiveCell.FormulaR1C1 = "Архив протоколов (инд)"

Range("A1:AP1").Select

Selection.Font.Size = 14

Selection.Font.Bold = True

End Sub

Sub SohranenieProtokola_Ind_Anketa() 'Сохранение протокола

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

If Cells(1, 1) = "" Then

FormirovanieArhivaProtokolov_Ind

End If

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

'сохранение анкеты гимнастки

If NomerStroki = 2 Then

Cells(3, 1).Value = Соревнования.TextBox3.Text

Cells(4, 1).Value = Соревнования.TextBox1.Text

Cells(5, 1).Value = Соревнования.TextBox2.Text

Cells(3, 2).Value = АнкетаУчастниц.TextBox1.Text

Cells(3, 3).Value = АнкетаУчастниц.TextBox2.Text

Cells(3, 4).Value = АнкетаУчастниц.TextBox3.Text

Cells(3, 5).Value = АнкетаУчастниц.ComboBox1.Text

Cells(3, 6).Value = АнкетаУчастниц.TextBox5.Text

Cells(6, 1).Value = " "

Else

Cells(NomerStroki + 1, 1).Value = Соревнования.TextBox3.Text

Cells(NomerStroki + 2, 1).Value = Соревнования.TextBox1.Text

Cells(NomerStroki + 3, 1).Value = Соревнования.TextBox2.Text

Cells(NomerStroki + 1, 2).Value = АнкетаУчастниц.TextBox1.Text

Cells(NomerStroki + 1, 3).Value = АнкетаУчастниц.TextBox2.Text

Cells(NomerStroki + 1, 4).Value = АнкетаУчастниц.TextBox3.Text

Cells(NomerStroki + 1, 5).Value = АнкетаУчастниц.ComboBox1.Text

Cells(NomerStroki + 1, 6).Value = АнкетаУчастниц.TextBox5.Text

Cells(NomerStroki + 4, 1).Value = " "

Range("G3:AP6").Select

Selection.Copy

Range("G" & NomerStroki + 1).Select

ActiveSheet.Paste

End If

Range("A1:AP1").Select

End Sub

Sub SohranenieProtokola_Ind_Ocenki_BP() 'Сохранение протокола оценки без предмета

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, 8).Value = ЛичнаяКарточка.TextBox7.Text

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

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

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

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

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

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

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

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

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

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

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

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