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

 

     

       Заключение

 

     При создании системы была проделана  работа, результатом которой является приложение «GymRytm». Оно запускается при помощи кнопки на панели инструментов.

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

     Для создания приложения были решены следующие  задачи:

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

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

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

     Введение  компьютерной модели в работу Секретариата позволит:

    • повысить качество и оперативность подсчета оценок;
    • повысить оперативность формирования «Итогового протокола»;
    • снизить уровень ошибок связанных с человеческим фактором.

 

       Список  использованной литературы

  1. Самоучитель VBA, 2е издание. А. Ю. Гарнаев; изд. «БХВ- С-П.» 2004
  2. Пол Мак – Федрис Моя первая книга о VBA: М: Эксмо, 2005
  3. Cтив Каммингс - VBA для чайников — М. Издательский дом «Вильямс», 2001. — 448 с.
  4. Пауэре, Л. Microsoft Visual Studio 2008 / Л. Пауэре, М. Снелл: Пер. с англ. — СПб.: БХВ-Петербург, 2009. — 1200 с:
 

 

 

       

       Приложение

  Модуль  формы «ГлавнаяФорма»

  Private Sub CommandButton1_Click()

   ГлавнаяФорма.Hide

   Sorevnovaniya.OchistitListProtokolaSorevnovaniy

   

   Соревнования.TextBox1.Text = ""

   Соревнования.TextBox2.Text = ""

   Соревнования.TextBox3.Text = ""

   Соревнования.TextBox4.Text = ""

   Соревнования.TextBox5.Text = ""

   Соревнования.TextBox6.Text = ""

   Соревнования.Show

  End Sub 

  Private Sub CommandButton2_Click()

   ГлавнаяФорма.Hide

   ПоискСоревнования.TextBox1.Text = ""

   ПоискСоревнования.ListBox1.Clear

   ПоискСоревнования.Show

  End Sub 

  Private Sub CommandButton3_Click()

   ГлавнаяФорма.Hide

  End Sub 

  Модуль  формы «ПоискСоревнования»

  Private Sub CommandButton1_Click()

   ПоискСоревнования.Hide

   Sorevnovaniya.NaydennoeSorevnovanie

   Соревнования.Show

   End Sub 

  Private Sub CommandButton2_Click()

   Sorevnovaniya.SpisokSorevnovaniy

  End Sub 

  Модуль  формы «Соревнования»

  Private Sub CommandButton3_Click()

   Соревнования.Hide

   ГлавнаяФорма.Show

  End Sub

  Private Sub CommandButton4_Click()

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

   АнкетаУчастниц.TextBox1.Text = ""

   АнкетаУчастниц.TextBox2.Text = ""

   АнкетаУчастниц.TextBox3.Text = ""

   АнкетаУчастниц.TextBox5.Text = ""

   АнкетаУчастниц.ComboBox1.RowSource = "b3:b10"

   Sorevnovaniya.FormirovanieArhivaGimnastok

   Sorevnovaniya.SpisokGimnastok

   АнкетаУчастниц.Show

  End Sub 

  Private Sub CommandButton5_Click()

   ЛичнаяКарточка.TextBox1.Text = Соревнования.TextBox3.Text

   ЛичнаяКарточка.TextBox2.Text = Соревнования.TextBox1.Text

   ЛичнаяКарточка.TextBox3.Text = ""

   ЛичнаяКарточка.TextBox4.Text = ""

   ЛичнаяКарточка.TextBox5.Text = ""

   ЛичнаяКарточка.TextBox6.Text = ""

   

   'без предмета

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

   ЛичнаяКарточка.TextBox8.Text = 0

   ЛичнаяКарточка.TextBox9.Text = 0

   ЛичнаяКарточка.TextBox10.Text = 0

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

   ЛичнаяКарточка.TextBox13.Text = 0

   ЛичнаяКарточка.TextBox14.Text = 0

   ЛичнаяКарточка.TextBox15.Text = 0

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

   ЛичнаяКарточка.TextBox18.Text = 0

   ЛичнаяКарточка.TextBox19.Text = 0

   ЛичнаяКарточка.TextBox20.Text = 0

   ЛичнаяКарточка.TextBox22.Text = 0

   ЛичнаяКарточка.TextBox23.Text = 0

   ЛичнаяКарточка.TextBox11.Text = ""

   ЛичнаяКарточка.TextBox16.Text = ""

   ЛичнаяКарточка.TextBox21.Text = ""

   

   'скакалка

   ЛичнаяКарточка.TextBox24.Text = 0

   ЛичнаяКарточка.TextBox25.Text = 0

   ЛичнаяКарточка.TextBox26.Text = 0

   ЛичнаяКарточка.TextBox27.Text = 0

   ЛичнаяКарточка.TextBox28.Text = 0

   ЛичнаяКарточка.TextBox6123.Text = 0

   ЛичнаяКарточка.TextBox6127.Text = 0

   ЛичнаяКарточка.TextBox6125.Text = 0

   ЛичнаяКарточка.TextBox158.Text = 0

   ЛичнаяКарточка.TextBox6124.Text = 0

   ЛичнаяКарточка.TextBox178.Text = 0

   ЛичнаяКарточка.TextBox6121.Text = 0

   ЛичнаяКарточка.TextBox175.Text = 0

   ЛичнаяКарточка.TextBox176.Text = 0

   ЛичнаяКарточка.TextBox171.Text = ""

   ЛичнаяКарточка.TextBox169.Text = ""

   ЛичнаяКарточка.TextBox170.Text = ""

   ЛичнаяКарточка.TextBox180.Text = ""

   ЛичнаяКарточка.TextBox174.Text = ""

   

   'обруч

   ЛичнаяКарточка.TextBox6130.Text = 0

   ЛичнаяКарточка.TextBox6135.Text = 0

   ЛичнаяКарточка.TextBox6138.Text = 0

   ЛичнаяКарточка.TextBox6140.Text = 0

   ЛичнаяКарточка.TextBox6131.Text = 0

   ЛичнаяКарточка.TextBox6136.Text = 0

   ЛичнаяКарточка.TextBox6139.Text = 0

   ЛичнаяКарточка.TextBox6129.Text = 0

   ЛичнаяКарточка.TextBox6132.Text = 0

   ЛичнаяКарточка.TextBox6137.Text = 0

   ЛичнаяКарточка.TextBox6133.Text = 0

   ЛичнаяКарточка.TextBox6134.Text = 0

   ЛичнаяКарточка.TextBox350.Text = 0

   ЛичнаяКарточка.TextBox351.Text = 0

   ЛичнаяКарточка.TextBox346.Text = ""

   ЛичнаяКарточка.TextBox344.Text = ""

   ЛичнаяКарточка.TextBox345.Text = ""

   ЛичнаяКарточка.TextBox355.Text = ""

   ЛичнаяКарточка.TextBox349.Text = ""

   

   'мяч

   ЛичнаяКарточка.TextBox6142.Text = 0

   ЛичнаяКарточка.TextBox6147.Text = 0

   ЛичнаяКарточка.TextBox6150.Text = 0

   ЛичнаяКарточка.TextBox6152.Text = 0

   ЛичнаяКарточка.TextBox6143.Text = 0

   ЛичнаяКарточка.TextBox6148.Text = 0

   ЛичнаяКарточка.TextBox6151.Text = 0

   ЛичнаяКарточка.TextBox6141.Text = 0

   ЛичнаяКарточка.TextBox6144.Text = 0

   ЛичнаяКарточка.TextBox6149.Text = 0

   ЛичнаяКарточка.TextBox6145.Text = 0

   ЛичнаяКарточка.TextBox6146.Text = 0

   ЛичнаяКарточка.TextBox375.Text = 0

   ЛичнаяКарточка.TextBox376.Text = 0

   ЛичнаяКарточка.TextBox371.Text = ""

   ЛичнаяКарточка.TextBox369.Text = ""

   ЛичнаяКарточка.TextBox370.Text = ""

   ЛичнаяКарточка.TextBox380.Text = ""

   ЛичнаяКарточка.TextBox374.Text = ""

   

   'булавы

   ЛичнаяКарточка.TextBox6154.Text = 0

   ЛичнаяКарточка.TextBox6159.Text = 0

   ЛичнаяКарточка.TextBox6162.Text = 0

   ЛичнаяКарточка.TextBox6164.Text = 0

   ЛичнаяКарточка.TextBox6155.Text = 0

   ЛичнаяКарточка.TextBox6160.Text = 0

   ЛичнаяКарточка.TextBox6163.Text = 0

   ЛичнаяКарточка.TextBox6153.Text = 0

   ЛичнаяКарточка.TextBox6156.Text = 0

   ЛичнаяКарточка.TextBox6161.Text = 0

   ЛичнаяКарточка.TextBox6157.Text = 0

   ЛичнаяКарточка.TextBox6158.Text = 0

   ЛичнаяКарточка.TextBox400.Text = 0

   ЛичнаяКарточка.TextBox401.Text = 0

   ЛичнаяКарточка.TextBox396.Text = ""

   ЛичнаяКарточка.TextBox394.Text = ""

   ЛичнаяКарточка.TextBox395.Text = ""

   ЛичнаяКарточка.TextBox405.Text = ""

   ЛичнаяКарточка.TextBox399.Text = ""

   

   'лента

   ЛичнаяКарточка.TextBox6166.Text = 0

   ЛичнаяКарточка.TextBox6171.Text = 0

   ЛичнаяКарточка.TextBox6174.Text = 0

   ЛичнаяКарточка.TextBox6176.Text = 0

   ЛичнаяКарточка.TextBox6167.Text = 0

   ЛичнаяКарточка.TextBox6172.Text = 0

   ЛичнаяКарточка.TextBox6175.Text = 0

   ЛичнаяКарточка.TextBox6165.Text = 0

   ЛичнаяКарточка.TextBox6168.Text = 0

   ЛичнаяКарточка.TextBox6173.Text = 0

   ЛичнаяКарточка.TextBox6170.Text = 0

   ЛичнаяКарточка.TextBox6169.Text = 0

   ЛичнаяКарточка.TextBox425.Text = 0

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