курсовая.ppt
- Количество слайдов: 10
ФЕДЕРАЛЬНОЕ ГОСУДАРСТВЕННОЕ АВТОНОМНОЕ ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ ВЫСШЕГО ОБРАЗОВАНИЯ «НАЦИОНАЛЬНЫЙ ИССЛЕДОВАТЕЛЬСКИЙ НИЖЕГОРОДСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ИМ. Н. И. ЛОБАЧЕВСКОГО» АРЗАМАССКИЙ ФИЛИАЛ отделение среднего профессионального образования (Арзамасский политехнический колледж имени В. А. Новикова) КУРСОВАЯ РАБОТА по дисциплине МДК 01. 02. Прикладное программирование (офис) специальности 09. 02. 03 Программирование в компьютерных системах на тему: Разработка программного продукта «База данных студентов учебного учреждения» разработал студент группы 8713 ОП-4 ПР Сытин Александр. Руководитель: Тюлина Л. А.
Содержание: • • • Введение; Цели и задачи; Описание предметной области; Описание программного продукта; Заключение.
Введение: В современном мире информационные технологии активно внедряются во все сферы человеческой деятельности: образование, производство, наука, торговля, и пр. , в каждой сфере необходима автоматизация работы с данными, так и для работы с данными студентов учебного учреждения существует необходимость в автоматизации.
Цели и задачи: Цели курсовой работы: • Получения практического опыта; • Разработка системы для автоматизации работы с данными студентов учебного учреждения. В задачи курсовой работы входит: • Исследование предметной области; • Разработка технического задания; • Разработка программного продукта.
Предметная область:
Программный продукт: При запуске программы появляется окно выбора действия или главное меню. Пользователь выбирает одно из трех действий работы программы: поиск студентов, регистрация нового учащегося или выход. При выборе пункта меню “Поиск студентов” открывается форма поиска. Чтобы посмотреть все записи хранящиеся в таблице пользователю необходимо нажать кнопку “Все студенты”, после чего откроется форма где будут выведены все записи таблицы. Пользователь вводит поисковые данные в текстовое поле. После вывода результата при помощи двойного нажатия на нужный пользователю результат открывается форма со всеми данными выбранного студента. В открывшийся форме пользователь может изменить данные в тестовых полях (данные изменятся в таблице при нажатии кнопки “Изменить запись”). После внесения изменений с помощью кнопок управления пользователь может удалить запись, изменить запись, просмотреть либо добавить (обновить) цифровые копии паспорта и аттестата. При нажатии кнопки “Изменить фото” Добавляется или изменяется фото студента. Для перехода в главное меню нажать кнопку “назад”. Если пользователь выбрал пункт “регистрация нового учащегося” появляется окно регистрации студентов. Пользователь вводит все необходимые данные и нажимает кнопку “ Добавить”, после чего появляется диалоговое окно с подтверждением действия. Программа записывает данные в таблицу. При нажатии кнопки “Очистить” очищаются текстовые поля формы. При нажатии на кнопку «О разработчике» открывается новое диалоговое окно с данными о разработчике, месте и времени разработки. Для перехода в главное меню нажать кнопку “назад”.
Программный продукт: Реализация поиска студентов: Private Sub Text. Box_Change() List. Box 1. Clear If Len(Text. Box 1. Value) = 0 Then Exit Sub j=0 For i = 2 To Sheets("Лист1"). Cells(Rows. Count, 1). End(xl. Up). Row If In. Str(1, Sheets("Лист1"). Cells(i, 1), Text. Box 1. Value) > 0 Then List. Box 1. Add. Item i List. Box 1. 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(xl. Up). Row – вычисление последней заполненой строки таблицы; In. Str - Функция In. Str(In String) служит для поиска номера символа, с которого начинается в заданной строке образец поиска. Поиск идет от указанной позиции слева направо, функция имеет следующий синтаксис: In. Str(Start, String 1, String 2, Compare) где:
Программный продукт: Start Необязательный. Числовое выражение, которое задает первую позицию для каждого поиска. Если параметр опущен, поиск начинается с позиции первого символа. Параметр Start является обязательным, если задан параметр Compare. String 1 Обязательный. Строковое выражение, в котором ведется поиск. String 2 Обязательный. Отыскиваемое строковое выражение. Compare Необязательный. Задает тип сравнения для строк. Если значение параметра Compare равно Null, возникает ошибка. В том случае, когда параметр Compare опущен, тип сравнения определяется установками оператора Option Compare. Метод Additem Чтобы добавлять пункты в список, используется метод Additem. Он имеет следующий синтаксис: List 1. Additem, index Свойство List() Это массив пунктов списка. Элемент массива List(0) содержит первый пункт списка, элемент List(1) - второй и т. д. , вплоть до последнего элемента - List(List. Count-1), содержащего последний пункт списка.
Программный продукт: Реализация действий добавить изменить удалить: Добавить: Set baza = This. Workbook. Sheets("Лист1") If Msg. Box("Добавить запись? ", vb. Yes. No, "Добавить? ") = vb. Yes Then Msg. Box "Запись добавлена!" Text. Box 1 = "" With Sheets(baza. Name) Last. Row = Sheets("Лист1"). Cells(Rows. Count, 2). End(xl. Up). Row + 1 Sheets("Лист1"). Cells(Last. Row, 1) = b Оператор With используется для указания объекта, с которым мы будем работать. Это выглядит так: With объект операции с объектом End With Изменить удалить: Sheets("Лист1"). Cells(User. Form 6. List. Box 1. Value, 1) = b или “ ” для очищения ячейки.
Поиск студентов: Запуск Ввод данных If In. Str(Sheets("Лист1"). Cells(i, 1), Text. Box 1. Value) > 0 Then List. Box 1. Add. Item i List. Box 1. List(j, 1) = Sheets("Лист1"). Cells(i, 1) j=j+1 End If If Len(Text. Box 1. V alue) = 0 Then Exit Sub Вывод данных конец
курсовая.ppt