Успеваемость студентов (стр. 2 из 4)

● Кнопка «Создать» (CommandButton1) – с событием Click связана процедура Private Sub Create_Click(), при выполнении которой создается отчет в соответствии с заданными параметрами.

● Кнопка «Закрыть» (CommandButton2) – с событием Click связана процедура PrivateSubCancel_Click() – выход из формы создания отчетов.

● Кнопка «Очистить» (CommandButton3) – с событием Click связана процедура Private Sub Clear_Click(), при выполнении которой происходит очищение элемента ListBox.

● Кнопка «Вверх» (CommandButton4) – с событием Click связана процедура Private Sub Up_Click(). С помощью этой кнопки можно менять местами студентов при создании отчетов.

● Кнопка «Вниз» (CommandButton5) – с событием Click связана процедура Private Sub Down_Click(). С помощью этой кнопки можно менять местами студентов при создании отчетов.

● Кнопка «>>» (CommandButton6) – с событием Click связана процедура Private Sub Add_Click(). С помощью этой кнопки можно добавлять выбранных студентов в ListBox для создания отчетов их успеваемости.

● Кнопка «<<» (CommandButton7) – с событием Click связана процедура Private Sub Remove_Click(). С помощью этой кнопки можно удалять выбранных студентов из ListBox.

Окно 3 «Редактирование базы данных»

С помощью этого окна можно изменять список студентов, их успеваемость по конкретному предмету, добавлять новые записи, удалять, а также просматривать уже имеющуюся информацию. Форма содержит следующие элементы управления: 8 элементов Label, 6 элементов TextBox, 1 элемент ListBox, 2 элемента SpinButton, 7 элементов CommandButton.

● Кнопка «Добавить» (CommandButton1) с событием Click связана процедура PrivateSubUpdate_Click(), при выполнении которой добавляется новая запись.

● Кнопка «Удалить» (CommandButton2) с событием Click связана процедура Private Sub Delete_Click(), при выполнении которой запись удаляется.

● Кнопка «Закрыть» (CommandButton3) с событием Click связана процедура Private Sub Cancel_Click(), при выполнении которой закрывается окно.

● Кнопка «<<» (CommandButton4) с событием Click связана процедура PrivateSubBegin_Click(), которая переходит к первому элементу списка.

● Кнопка «>>» (CommandButton5) с событием Click связана процедура Private Sub NewItem_Click(), которая очищает поля для создания новой записи.

● Кнопка «<» (CommandButton7) с событием Click связана процедура Private Sub Backward_Click(), при выполнении которой происходит переход к предыдущему элементу списка.

Окно 4 «Диаграмма успеваемости группы»

С помощью этого окна мы можем построить диаграммы успеваемости группы по любому конкретному предмету. Форма содержит следующие элементы управления: 4 элемента Label, 2 элемента ComboBox, 2 элемента CommandButton, 2 элемента OptionButton.

● Кнопка «Создать» (CommandButton1) с событием Click связана процедура PrivateSubCreate_Click(), которая создает диаграмму по заданным параметрам.

● Кнопка «Закрыть» (CommandButton2) с событием Click связана процедура Private Sub Cancel_Click(), при выполнении которой закрывается окно.

Окно 5 «Диаграмма успеваемости студента»

С помощью этого окна мы можем построить диаграммы успеваемости студента. Форма содержит следующие элементы управления: 4 элемента Label, 2 элемента ComboBox, 2 элемента CommandButton, 2 элемента OptionButton.

Модули:

● Sub QDialog1() – показывает форму «Курсовая работа».

● Sub Macro1() – устанавливает ширину трех столбцов A, B, C.

● Sub Macro2() - Оформление списка отчета (с помощью записи макроса).

Заключение

В данной курсовой работе была разработана программа анализ успеваемости студентов.

Программа была разработана с помощью языка программирования VisualBasicforApplication (VBA).

Язык программирования VisualBasicforApplication – быстрое, простое решение многих задач, связанных с программированием офисных приложений.

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

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

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

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

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

1. Лекционный материал по курсу «Проектирование ИС», Федоренко Г.А.

2. Потапкин А.В., Основы VISUALBASIC, «ЭКОМ», М., 1996.

3. Рахманина Г. Excel 2000. Руководство пользователя с примерами. М., 2001.

4. У. Орвис «Visual Basic for Application», БИНОМ, М., 1995.

5. Э. Бунин «ExcelVisualBasic для приложений», БИНОМ, М., 1996.

6. Visual Basic Help Reference File, Microsoft Corporation, 1996-97.

Приложения

ПРИЛОЖЕНИЕ 1

РУКОВОДСТВО ПОЛЬЗОВАТЕЛЯ

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

Окно 1 «Курсовая работа»

Рис.1

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

При нажатии кнопки «Редактирование базы данных» появляется диалоговое окно:

Окно 2 «Редактирование базы данных»

Рис.2

При нажатии на кнопку «<<», мы переходим в начало списка.

При нажатии на кнопку «<», мы переходим к предыдущему элементу списка.

При нажатии на кнопку «>», мы переходим к следующему элементу списка.

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

При нажатии на кнопку «Добавить», происходит добавление новой записи.

При нажатии на кнопку «Удалить», происходит удаление выделенной записи.

При нажатии на кнопку «Закрыть», происходит закрытие данного окна.

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

При нажатии кнопки «Создание отчета», появляется следующее диалоговое окно:

Окно 3 «Отчет»

Рис.3

Данное окно используется для создания отчета по успеваемости студента или группы студентов.

Кнопки «>>» и «<<» добавляют и удаляют студентов из списка для создания отчёта:

Рис.4

Кнопка «Очистить» - очищает поле списка студентов.

Кнопки «Вверх» и «Вниз» - позволяют перемещать студентов по списку.

При нажатии на кнопку «Создать» - появляется отчет по введенным параметрам:

Рис.5

При нажатии кнопки «Закрыть» - данное окно закрывается.

При нажатии на кнопку «Диаграмма успеваемости группы» появляется диалоговое окно:

Окно 4 «Диаграмма успеваемости группы»:

Рис.6

В поле «Группа» выбираем нужную из списка, в поле «Предмет» выбираем предмет и выбираем курсором 1-ый или 2-ой семестр. Нажимаем на кнопку «Создать». Появляется окно:

Рис.7

Кнопка «Закрыть» - для выхода.

При нажатии на кнопку «Диаграмма успеваемости студента» появляется окно:

Окно 5 «Диаграмма успеваемости студента»:

Рис.8

Выбираем группу, студента и семестр и создаем диаграмму по заданным параметрам:

Рис.9

Кнопка «Закрыть» - для выхода из окна.

При нажатии кнопки «Выход» в окне «Курсовая работа» осуществляется выход из программы.

ПРИЛОЖЕНИЕ 2

ИСХОДНЫЙ КОД ПРОГРАММЫ

Форма «MainForm»:

Private Sub DiaGroup_Click()

DiaGroupForm.Show

End Sub

Private Sub DiaStudent_Click()

DiaStudentForm.Show

End Sub

Private Sub Edit_Click()

DataForm.Show

End Sub

Private Sub Label2_Click()

End Sub

Private Sub Quit_Click()

Unload Me

End Sub

Private Sub Report_Click()

ReportForm.Show

End Sub

Форма «ReportForm»:

Dim Cursor As Integer

Private Sub Add_Click()

For i = 0 To Queue.ListCount - 1

If Queue.List(i) = Group.Value + " - " + Student.Value Then

MsgBox "Такой элемент уже есть в очереди!"

Exit Sub

End If

Next i

Queue.AddItem Group.Value + " - " + Student.Value

End Sub

Private Sub Cancel_Click()

Me.Hide

End Sub

Private Sub Clear_Click()

Queue.Clear

End Sub

Private Sub Create_Click()

Dim StudentVal As String

Dim GroupVal As String

Dim i As Integer

Dim j As Integer

Dim Value As String

Dim Row As Integer

Row = 2

ActiveWorkbook.Worksheets.Add After:=Worksheets(Worksheets.Count)

With ActiveSheet

.Cells.Clear

.Columns(1).ColumnWidth = 26

.Columns(2).ColumnWidth = 20

.Columns(3).ColumnWidth = 20

For i = 0 To Queue.ListCount - 1

GroupVal = Split(Queue.List(i), " - ")(0)

StudentVal = Split(Queue.List(i), " - ")(1)

j = 2

Value = Worksheets("Storage").Cells(j, 1).Value

If Len(Value) > 0 Then

If Worksheets("Storage").Cells(j, 1) = GroupVal And Worksheets("Storage").Cells(j, 2) + " " + Worksheets("Storage").Cells(j, 3) + " " + Worksheets("Storage").Cells(j, 4) = StudentVal Then

.Cells(Row, 1).Value = "Группа"

.Cells(Row, 2).Value = GroupVal

Range(.Cells(Row, 2), .Cells(Row, 3)).MergeCells = True