Программирование на языке высокого уровня 3
Основные данные о работе| Версия шаблона | 2.1 |
| Филиал | Современная Гуманитарная Академия филиал в г. Сызрань |
| Вид работы | Курсовая работа |
| Название дисциплины | Программирование на языке высокого уровня |
| Тема | создайте программу ведения базы данных личной видеотеки |
| Фамилия студента | Вайс |
| Имя студента | Алексей |
| Отчество студента | Валентинович |
| № контракта | 03905100601001 |
Описание типов
type disk = 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] of disk
Тип tdvd является одномерным массивом, содержащим 300 элементов типа disk, т.е. этот массив содержит информацию о 300ах DVD - фильмах, полученную в результате заполнения файла с информацией.
recordfile = file of disk
Типизированный файл «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<
Оценок: 1001 (Средняя 5 из 5)
Одними из наиболее популярных услуг на рынке IT-технологий являются создание и продвижение лендингов. Они способны положительно влиять на деятельность любого бизнес-проекта в интернете. Судя по многочисленным отзывам, заказавшие создание лендингов люди ни разу не пожалели о потраченных деньгах. Они вложили в будущее, которое неразрывно связано с интернетом. Всё больше и больше предпринимателей обращаются к услугам разных агентств, веб-студий, чтобы заказать создание лендинга у профессионалов. © 2017 - 2022 ReferatWorld.ru
|