| Версия шаблона | 2.1 |
| Филиал | Современная Гуманитарная Академия филиал в г. Сызрань |
| Вид работы | Курсовая работа |
| Название дисциплины | Программирование на языке высокого уровня |
| Тема | создайте программу ведения базы данных личной видеотеки |
| Фамилия студента | Вайс |
| Имя студента | Алексей |
| Отчество студента | Валентинович |
| № контракта | 03905100601001 |
Введение.... …………………………………………………………………………..3
Основная часть..…. .……………………….…………………………………....…4
Описание процедур.…………………………………………………………..8
Граф переходов между элементами интерфейса………..…………….…...18
Заключение….………………………………………………………………….……19
Глоссарий…………………………………………………………………………….20
Список используемых источников…………………………………………………22
Приложения ..….………………………………………………………….…………23
Курсовой проект по теме: «Создать программу ведения базы данных личной видеотеки».
База данных личной видеотеки очень проста в использовании она использует мало ресурсов, работает практически на любой операционной системе и также на любом компьютере. Программа многофункциональна, внесенную информацию о видео фильмах можно как изменять, так удалять и редактировать. Все данные о дисках записывается в базу данных по пяти полям: название диска, год выпуска, кинокомпания, фамилия режиссера и цена. В этой программе диски можно сортировать по этим же полям, она написана на русском языке, что очень удобно в обращение .
Программа разрабатывалась в среде программирования Delphi.Среда Delphi представляет собой интегрированную оболочку разработчика, в которую входит набор специализированных программ, ответственных за разные этапы создания готового приложения. Она содержит большой набор различных типов данных и компонентов, облегчающих создание программного продукта под Windows. Краткость языка, легкость программирования на нем, мобильность написанных программ, возможность эффективной реализации и пригодность с точки зрения формальных методов отладки программ обеспечили языку ObjectPascal и конкретно среде Delphi успех в тех делах, для которых он предназначался. Сегодня программирование превратилось из искусства в ремесло, вряд ли можно стать профессиональным разработчиком, не изучив внутреннее устройство Windows или структуру компонентов VCL и принципы оптимизации программ, однако такие знания сегодня отходят на второй или третий план. Работодателей интересует прежде всего скорость и качество создания программ в коллективе, а эти характеристики может обеспечить только среда визуального проектирования, способная взять на себя значительные объемы рутинной работы по подготовке приложений, а также согласовывать деятельность группы постановщиков, кодировщиков, тестеров и технических писателей. Возможности Delphi полностью отвечают подобным требованиям и подходят для создания систем любой сложности. Система Delphi позволяет писать как крохотные программы и утилиты для персонального использования, так и корпоративные системы, работающие с базами данных на разных платформах, интернет - решения и коммерческие игры, распределенные ССЖ/СОЙВД/ЗОЛР - приложения и всевозможные Web-службы. При этом обеспечивается совместимость приложений при выходе новых версий Delphi — как друг с другом на уровне исходных текстов, так и с модифицированными версиями стандартных протоколов и технологий благодаря библиотеке независимых и легко настраиваемых компонентов.
При запуске программы отображается главное окно, в котором имеются четыре кнопки и область обработки информации, управляемые кнопками.
Кнопка вывода информации.
Вся информация, находящаяся в файле и выводится в данную таблицу.
Кнопка поиска информации.
При нажатии кнопки поиск отображается окно поиска. Поиск происходит по пяти параметрам. Выбираем один из параметров, вводим данные и начинается поиск, найденные данные выводятся в этом же окне в таблице.
Кнопка удаления.
Удаление происходит следующим образам: выбираем курсором, какой DVD – фильм вы хотите удалить и следовательно нажимаем кнопку удаление.
Область редактирования.
Для редактирования одного из полей, необходимо ввести в первое поле его название из списка, выбрать из выпадающего списка параметр для изменения и во второе поле ввести новую информацию. Обновленная информация появляется мгновенно в таблице.
Кнопка добавления информации.
Отображается окно добавления информации. Информация также добавляется по пяти полям. Добавленная информация мгновенно выводится в главном окне.
typedisk=record
name:string[50];
reg: string[30];
cincom: string[30];
stoim:integer;
year:integer;
end;
Тип записи diskявляется представлением информации: stoim- стоимость DVD - фильма, name название DVD – фильма, reg – фамилия режиссера, cincom – название кинокомпании, year – год выхода фильма на DVD.
tdvd=array[1..300] ofdisk
Тип tdvd является одномерным массивом, содержащим 300 элементов типа disk, т.е. этот массив содержит информацию о 300ахDVD - фильмах, полученную в результате заполнения файла с информацией.
recordfile=fileofdisk
Типизированный файл «recordfile» содержит записи типа disk , т.е. содержит исходную информацию о каждом DVD - фильме .
Описание файлов
При работе программа использует постоянный файл с информацией
‘db_ disk.db’ – файл с исходной информацией.
Структурные элементы программы
Таблица 1. Глобальные переменные.
| Идентификатор | Тип | Назначение |
| n | integer | Переменная – счётчик |
| m | integer | Переменная – счётчик |
| dvdfile | string | Название файла |
| f | recordfile | Файл с записями |
| g | recordfile | Файл с записями |
| Form1 | Tform1 | Идентификатор формы |
| but | integer | Определяет нажатую кнопку при появлении сообщения |
| h | HWND | Дескриптор окна |
| horizon | integer | Номер строки в таблице |
| k | integer | Проверка существования телефона |
Таблица 2. Константа.
| Идентификатор | Значение | Назначение |
| detect | ‘savedvd\’ | Путь к файлам необходимым для работы программы |
Таблица 3. Глобальные переменные модуля Unit2.рas.
| Идентификатор | Тип | Назначение |
| Form2 | Tform2 | Идентификатор формы |
Таблица 4. Глобальные переменные модуля unit search.pas
| Идентификатор | Тип | Назначение |
| Form4 | Tform4 | Идентификатор формы |
| dvdfile | string | Название файла |
| n | integer | Переменная – счётчик |
| f | recordfile | Файл с записями |
| g | recordfile | Файл с записями |
Таблица 5. Глобальные переменные модуляunit Input.pas
| Идентификатор | Тип | Назначение |
| Form3 | Tform3 | Идентификатор формы |
| dvdfile | string | Название файла |
| n | integer | Переменная – счётчик |
| k | integer | Переменная – счётчик |
| f | recordfile | Файл с записями |
| g | recordfile | Файл с записями |
Описание процедур
Модульkursovik.pas
procedure tform1.clearlist;
Данная процедура очищает таблицу вывода информации.
procedure tform1.vivod (dvdfile:string);
Данная процедура осуществляет вывод данных записанных в файл.
Параметр dvdfile – директория файла.
Алгоритм:
Привязываем к файловой переменной “f” переменную dvdfileи открываем на чтение. Если файл обнаружен, то в цикле, до тех пор, пока не достигнут конец файла, запускаем счётчик и выводим в ячейки таблицы данные из файла. Если счётчик равен нулю, следовательно, файл пустой, запускается процедура clearlist.
В случае не обнаружения файла, он создаётся в необходимой директории.
Таблица 6. Локальные переменные.
| Идентификатор | Тип | Назначение |
| s | disk | Запись |
| f1 | recordfile | Файл с записями |
| count | integer | Номер по списку |
procedure tform1.deletef (horizon:integer);
Данная процедура осуществляет удаление записи из фала.
Алгоритм:
В параметр dпередаётся введённая модель телефона.
Открываем на чтение основной файл “db_disk.db” на чтение и создаём временный “new.db”. Перезаписываем его.
До тех пор, пока не достигнут конец файла, читаем записи и если поле записи обозначающей имя не равно переменной “d”, пишем во временный файл все наши записи. Удаляем основной файл и переприсваиваем его директорию временному файлу.
Таблица 7. Локальные переменные.
| Идентификатор | Тип | Назначение |
| el | tdvd | Запись |
| f1 | recordfile | Файл с записями |
procedure tform1.sort_1(dvdfile: string);
procedure tform1.sort_2(dvdfile: string);
procedure tform1.sort_3(dvdfile: string);