ФЕДЕРАЛЬНОЕ ГОСУДАРСТВЕННОЕ АВТОНОМНОЕ ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ ВЫСШЕГО

УНИВЕРСИТЕТ ИМ. Н.И. ЛОБАЧЕВСКОГО» АРЗАМАССКИЙ ФИЛИАЛ отделение среднего профессионального образования (Арзамасский

политехнический колледж имени В.А.Новикова)

КУРСОВАЯ РАБОТА
по дисциплине МДК 01.02. Прикладное программирование (офис) специальности 09.02.03 Программирование в компьютерных системах
на тему: Разработка программного продукта «База данных студентов учебного учреждения» разработал студент группы 8713ОП-4ПР Сытин Александр.

Руководитель: Тюлина Л.А.

во все сферы человеческой деятельности: образование, производство, наука, торговля, и

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

работы с данными студентов учебного учреждения.

В задачи курсовой работы входит:

Исследование предметной области;
Разработка технического задания;
Разработка программного продукта.

выбора действия или главное меню. Пользователь выбирает одно из трех

действий работы программы: поиск студентов, регистрация нового учащегося или выход.
При выборе пункта меню “Поиск студентов” открывается форма поиска .
Чтобы посмотреть все записи хранящиеся в таблице пользователю необходимо нажать кнопку “Все студенты”, после чего откроется форма где будут выведены все записи таблицы. Пользователь вводит поисковые данные в текстовое поле. После вывода результата при помощи двойного нажатия на нужный пользователю результат открывается форма со всеми данными выбранного студента. В открывшийся форме пользователь может изменить данные в тестовых полях (данные изменятся в таблице при нажатии кнопки “Изменить запись”). После внесения изменений с помощью кнопок управления пользователь может удалить запись, изменить запись, просмотреть либо добавить (обновить) цифровые копии паспорта и аттестата. При нажатии кнопки “Изменить фото” Добавляется или изменяется фото студента. Для перехода в главное меню нажать кнопку “назад”.
Если пользователь выбрал пункт “регистрация нового учащегося” появляется окно регистрации студентов. Пользователь вводит все необходимые данные и нажимает кнопку “ Добавить”, после чего появляется диалоговое окно с подтверждением действия . Программа записывает данные в таблицу. При нажатии кнопки “Очистить” очищаются текстовые поля формы. При нажатии на кнопку «О разработчике» открывается новое диалоговое окно с данными о разработчике, месте и времени разработки. Для перехода в главное меню нажать кнопку “назад”.

0 Then Exit Sub
j = 0
For i

= 2 To Sheets("Лист1").Cells(Rows.Count, 1).End(xlUp).Row
If InStr(1, Sheets("Лист1").Cells(i, 1), TextBox1.Value) > 0 Then
ListBox1.AddItem i
ListBox1.List(j, 1) = Sheets("Лист1").Cells(i, 1)
j = j + 1
End If
Next i
End Sub

Rows.Count - Определяет последнюю строку в столбце;
Len - Функция Len вычисляет число символов в строке или размер заданной переменной;
Sheets("Лист1").Cells(Rows.Count, 1).End(xlUp).Row – вычисление последней заполненой строки таблицы;
InStr - Функция InStr(In String) служит для поиска номера символа, с которого начинается в
заданной строке образец поиска. Поиск идет от указанной позиции слева направо, функция имеет следующий синтаксис: InStr(Start,String1,String2,Compare) где:

поиска. Если параметр опущен, поиск начинается с позиции первого символа.

Параметр Start является обязательным, если задан параметр Compare.
String1 Обязательный. Строковое выражение,в котором ведется поиск.
String2 Обязательный. Отыскиваемое строковое выражение.
Compare Необязательный. Задает тип сравнения для строк. Если значение параметра Compare равно Null, возникает ошибка. В том случае, когда параметр Compare опущен,тип сравнения определяется установками оператора Option Compare.

Метод Additem
Чтобы добавлять пункты в список, используется метод Additem. Он имеет следующий синтаксис:
List1.Additem item, index
Свойство List()
Это массив пунктов списка. Элемент массива List(0) содержит первый пункт списка, элемент List(1) - второй и т.д., вплоть до последнего элемента - List(ListCount-1), содержащего последний пункт списка.

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

= ThisWorkbook.Sheets("Лист1")
If MsgBox("Добавить запись?", vbYesNo, "Добавить?") = vbYes

Then
MsgBox "Запись добавлена!"
TextBox1 = ""
With Sheets(baza.Name)
LastRow = Sheets("Лист1").Cells(Rows.Count, 2).End(xlUp).Row + 1
Sheets("Лист1").Cells(LastRow, 1) = b

Оператор With используется для указания объекта, с которым мы будем работать. Это выглядит так: 
With объект   операции с объектом
End With

Изменить \ удалить:

Sheets("Лист1").Cells(UserForm6.ListBox1.Value, 1) = b или “ ” для очищения ячейки.

TextBox1.Value) > 0 Then
ListBox1.AddItem i

ListBox1.List(j, 1) = Sheets("Лист1").Cells(i, 1)
j = j + 1
End If

Запуск

Ввод данных

конец

Вывод данных