Загрузка...
Учебная работа. Курсовая работа: Программирование на языке высокого уровня 3
2.1
Филиал
Современная Гуманитарная Академия филиал в г. Сызрань
Вид работы
Курсовая работа
Заглавие дисциплины
Программирование на языке высочайшего уровня
Тема
сделайте программку ведения базы данных личной видеотеки
Фамилия студента
Вайс
имя студента
Алексей
Отчество студента
Валентинович
№ договора
03905100601001
Содержание
Введение…. …………………………………………………………………………..3
Основная часть..…. .……………………….…………………………………….…4
Описание процедур.…………………………………………………………..8
Граф переходов меж элементами интерфейса………..…………….……18
Заключение….………………………………………………………………….……19
Глоссарий…………………………………………………………………………….20
Перечень применяемых источников…………………………………………………22
Приложения ..….………………………………………………………….…………23
Введение
Курсовой проект по теме: «Сделать программку ведения базы данных личной видеотеки».
база данных личной видеотеки весьма ординарна в использовании она употребляет не достаточно ресурсов, работает фактически на хоть какой операционной системе и также на любом компе. программка многофункциональна, внесенную информацию о видео фильмах можно как изменять, так удалять и редактировать. Все данные о дисках записывается в базу данных по 5 полям: заглавие диска, год выпуска, кинокомпания, фамилия режиссера и стоимость. В данной для нас программке диски можно сортировать по сиим же полям, она написана на российском языке, что весьма комфортно в воззвание .
программка разрабатывалась в среде программирования Delphi.Среда Delphi представляет собой интегрированную оболочку разраба, в которую заходит набор специализированных программ, ответственных за различные этапы сотворения готового приложения. Она содержит большенный набор разных типов данных и компонент, облегчающих создание программного продукта под Windows. Краткость языка, легкость программирования на нем, мобильность написанных программ, возможность действенной реализации и пригодность исходя из убеждений формальных способов отладки программ обеспечили языку ObjectPascal и непосредственно среде Delphi фуррор в тех делах, для которых он предназначался. сейчас программирование перевоплотился из искусства в ремесло, навряд ли можно стать проф разрабом, не исследовав внутреннее устройство Windows либо структуру компонент VCL и принципы оптимизации программ, но такие познания сейчас отходят на 2-ой либо 3-ий план. Работодателей интересует до этого всего скорость и свойство сотворения программ в коллективе, а эти свойства может обеспечить лишь среда зрительного проектирования, способная взять на себя значимые объемы рутинной работы по подготовке приложений, также согласовывать деятельность группы постановщиков, кодировщиков, тестеров и технических писателей. способности Delphi на сто процентов отвечают схожим требованиям и подступают для сотворения систем хоть какой трудности. Система Delphi дозволяет писать как крошечные программки и утилиты для индивидуального использования, так и корпоративные системы, работающие с базами данных на различных платформах, веб — решения и коммерческие игры, распределенные ССЖ/СОЙВД/ЗОЛР — приложения и различные Web-службы. При всем этом обеспечивается сопоставимость приложений при выходе новейших версий Delphi — как друг с другом на уровне начальных текстов, так и с измененными версиями обычных протоколов и технологий благодаря библиотеке независящих и просто настраиваемых компонент.
Основная часть
1 Описание работы программки
При запуске программки отображается основное окно, в каком имеются четыре клавиши и область обработки инфы, управляемые клавишами.
Клавиша вывода инфы.
Вся информация, находящаяся в файле и выводится в данную таблицу.
Клавиша поиска инфы.
При нажатии клавиши поиск отображается окно поиска. Поиск происходит по 5 характеристикам. Избираем один из характеристик, вводим данные и начинается поиск, отысканные данные выводятся в этом же окне в таблице.
Клавиша удаления.
Удаление происходит последующим образам: избираем курсором, какой DVD – кинофильм вы желаете удалить и как следует жмем клавишу удаление.
Область редактирования.
Для редактирования 1-го из полей, нужно ввести в 1-ое поле его заглавие из перечня, избрать из выпадающего перечня параметр для конфигурации и во 2-ое поле ввести новейшую информацию. Освеженная информация возникает одномоментно в таблице.
Клавиша прибавления инфы.
Отображается окно прибавления инфы. информация также добавляется по 5 полям. Добавленная информация одномоментно выводится в основном окне.
2 Структура данных
Описание типов
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. Константа.
Идентификатор
работы программки
Таблица 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);
procedure tform1.sort_4(dvdfile: string);
procedure tform1.sort_5(dvdfile: string);
Процедуры, вышеперечисленные практически схожи различны лишь по полям сортировки Во всех процедурах употребляется метод сортировки способом вставки. Параметр dvdfile
– директория файла.
Таблица 8. Локальные переменные.
Идентификатор
Тип
Предназначение
f
file of disk
Типизированный файл с записями
q
file of disk
Типизированный файл с записями
c
integer
Счётчик записей
i
integer
Элемент массива
n
integer
Элемент массива
buf
disk
Запись
el
tdvd
Массив с записями
procedure
Tform
1.
editzap
;
Данная процедура производит редактирование данных записанных в файл.
Метод
.
Открываем на чтение главный файл с информацией и в переменную nameзаносим заглавие dvd, один из характеристик которого нам нужно поменять.
Пока нет конца файла, запускаем счётчик n
. Сравниваем введённое заглавие, с имеющимися в dvd. При совпадении присваиваем переменной mзначение счётчика. Переменная m
будет отвечать за позицию записи в фале. Дальше переменной newприсваиваем данные, которые нужно записать в заместо начальных.
Перебегаем при помощи функции seek
на позицию m
-1
, другими словами над нужной записью. Читаем из файла запись.
Потом в case comboBox3.ItemIndex
избираем поле которое нужно поменять и присваиваем ему new
. Если параметр не символьный переводим переменную newв цифровой формат с помощью функции.
Перезаписываем запись в файле. Закрываем его и выводим на экран с помощью процедуры vivod
.
Таблица 9. Локальные переменные.
Идентификатор
Тип
Предназначение
f1
recordfile
Временный файл с записями
q
disk
Запись
s
disk
Запись
new
string
Новейшие введённые данные
name
string
Введённое заглавие dvd
procedure TForm1.FormCreate(Sender: TObject);
Данная процедура вызывается при разработке окна и запускает функцию nanol
. Процедура содержит входную переменную Sender
— тип tobject
, этот параметр описывает, какой объект программки вызывает данную функцию.
procedure TForm1.ComboBox2Change(Sender: TObject);
В данной процедуре осуществляется выбор и пуск нужной процедуры сортировки, путём нажатия 1-го из пт выпадающего перечня ComboBox
. Процедура содержит входную переменную Sender
— тип tobject
, этот параметр описывает, какой объект программки вызывает данную функцию.
procedure TForm1.N8Click(Sender: TObject);
Данная процедура завершает работу программки из меню в случае положительного ответа на появляющееся сообщение. Процедура содержит входную переменную Sender
— тип tobject
, этот параметр описывает, какой объект программки вызывает данную функцию.
procedure TForm1.N7Click(Sender: TObject)
;
Данная процедура выводит информацию из файла с помощью с помощью процедуры vivod
из меню. Процедура содержит входную переменную Sender
— тип tobject
, этот параметр описывает, какой объект программки вызывает данную функцию.
procedure TForm1.N14Click(Sender: TObject);
procedure TForm1.N15Click(Sender: TObject);
procedure TForm1.N16Click(Sender: TObject);
procedure TForm1.N17Click(Sender: TObject);
procedure TForm1.N18Click(Sender: TObject);
Процедурыприведённыевышеотвечаютзазапускпроцедурсортировкиsort_1(derect+’db_disk.db’),sort_2(derect+’db_disk.db’), sort_3(derect+’db_disk.db’)sort_4(derect+’db_disk.db’), sort_5(derect+’db_disk.db’)
, изменю, соответственно. Процедуры содержат входную переменную Sender
— тип tobject
, этот параметр описывает, какой объект программки вызывает данную функцию.
procedure TForm1.N5Click(Sender: TObject)
;
Данная процедура отвечает за пуск процедуры удаления deletef
и вывод обновлённой инфы при помощи процедуры vivod
из меню. Процедура содержит входную переменную Sender
— тип tobject
, этот параметр описывает, какой объект программки вызывает данную функцию.
procedure TForm1.N4Click(Sender: TObject)
;
Данная процедура отвечает за добавление инфы в файл при помощи процедуры input
из меню. Процедура содержит входную переменную Sender
— тип tobject
, этот параметр описывает, какой объект программки вызывает данную функцию.
procedure TForm1.N2Click(Sender: TObject)
;
Данная процедура запускает функцию вывода vivod
, путём нажатия на нужный пункт во всплывающем меню над областью таблицы. Процедура содержит входную переменную Sender
— тип tobject
, этот параметр описывает, какой объект программки вызывает данную функцию.
procedure TForm1.N10Click(Sender: TObject);
procedure TForm1.N11Click(Sender: TObject);
procedure TForm1.N12Click(Sender: TObject);
procedure TForm1.freg1Click(Sender: TObject);
procedure TForm1.fcincom1Click(Sender: TObject);
Процедуры, приведенные выше, сходны по собственному принципу. Любая из их вызывает определенную функцию сортировки (sort_1,
sort_2,
sort_3,
sort_4,
sort_5
), путём нажатия на пункт, всплывающего меню над областью таблицы. Процедура содержит входную переменную Sender
— тип tobject
, этот параметр описывает, какой объект программки вызывает данную функцию.
procedure TForm1.N9Click(Sender: TObject);
Данная процедура запускает функцию чистки перечня clearlist
, путём нажатия на нужный пункт во всплывающем меню. Процедура содержит входную переменную Sender
— тип tobject
, этот параметр описывает, какой объект программки вызывает данную функцию.
procedure TForm1.N23Click(Sender: TObject)
;
Данная процедура запускает функцию чистки перечня clearlist
, путём нажатия на нужный пункт в меню. Процедура содержит входную переменную Sender
— тип tobject
, этот параметр описывает, какой объект программки вызывает данную функцию.
procedure TForm1.N6Click(Sender: TObject);
Данная процедура запускает функцию редактирования redactor
из меню. Процедура содержит входную переменную Sender
— тип tobject
, этот параметр описывает, какой объект программки вызывает данную функцию.
procedure TForm1.N21Click(Sender: TObject);
Данная процедура показывает окно с информацией о программке.
procedure tform3.input(var f:recordfile; var dvdfile:string)
;
Данная процедура производит запись данных в файл.
Параметр “
f
”
– типизированный файл типа recordfile
. Dvdfile
– деректория файла.
метод:
Привязываем к файловой переменной “
g
”
временный файл derect
+’
buffer
.
db
‘
и перезаписываем его. Привязываем к файловой переменной “
f
”
переменную dvdfile
и открываем на чтение.
Если в файле находится что-либо, копируем содержимое “
f
”
в “
g
”
и закрываем “
f
”
, если нет, перезаписываем и закрываем “
f
”
.
Присваиваем переменным записей введенные поля.
Проверяем наличие введённого dvd в файле, методом сопоставления наименования введённой диска с уже находящимися в файле в цикле заслуги конца файла. Если поля равны, присваиваем переменной k
1
, если нет, то оставляем по дефлоту равной нулю.
Дальше проверяем k
. Если k
=1
, то выводится сообщение о том что данный диск существует и запись не осуществляется, если по другому, то происходит запись в файл.
В конце закрываем “
g
”
и удаляем “
f
”
. Переприсваиваем директорию dvdfile
переменной “
g
”
. И выводим обновлённый перечень при помощи процедуры vivod
.
Таблица 10. Локальные переменные.
Идентификатор
Тип
Предназначение
s
disk
Запись
q
disk
Запись
procedure tform1.search_1(dvdfile:string; var g:recordfile);
procedure tform1.search_2(dvdfile :string; var g:recordfile);
procedure tform1.search_3(dvdfile:string; var g:recordfile);
procedure tform1.search_4(dvdfile:string; var g:recordfile);
procedure tform1.search_5(dvdfile:string; var g:recordfile);
Процедуры, приведены выше, практически схожи и различается только поле, по которому происходит поиск. Во всех процедурах, не считая 2-ой, на экран выводится лишь те записи, поля которых на сто процентов совпадают, с введёнными нами данными. В третьей, четвёртой и пятой процедурах перечень выводится отсортированным по наименованию модели. Параметр “
g
”
– типизированный файл типа recordfile
. Параметр dvdfile
– директория файла.
procedure TForm1.Button4Click(Sender: TObject)
;
Данная процедура отвечает за функцию конфигурации инфы. При нажатии на клавишу курсором вызывается процедура editzap
.
procedure
TForm
1.
Button
7
Click
(
Sender
:
TObject
);
Данная процедура закрывает на сто процентов программку. При нажатии на клавишу отображается окно доказательства.
Расчёт объёма оперативки
Для определения потребляемой памяти, я употреблял обычный диспетчер задач Windows. Исходя из данных показанных в нём, в процессе работы программка очень потребляет 5000 кб.
интерфейс программки
При запуске программки возникает окно, с дружеским интерфейсом рис. 1. Все операции производятся в данном окне. При вызове инфы о программке в пт меню возникает окно, содержащее нужную информацию рис. 2. Функция прибавления изображена на рис. 3. Функция поиска изображена на рис. 4.
Набросок 1. основное окно
Набросок 2.. информация о программке.
Набросок 3. Окно прибавления новейшей инфы.
Набросок 4. Окно поиска инфы
Граф перехода меж элементами интерфейса.
Вход
основное окно
Редактирование
Вывод Удаление
перечня
О программке Добавление Поиск
Набросок 5. Граф перехода меж элементами интерфейса.
Малые системные требования
1.машина — комплекс технических средств, предназначенных для автоматической обработки информации в процессе решения вычислительных и информационных задач) (либо вычислительной системы) которое делает арифметические и логические операции данные программкой преобразования инфы управляет вычислительным действием и коор: 170 MHz;
2. Оперативка: 5000kb;
3. Физическая память на твердом диске: 1400MB вольного места;
4. видеоплата с поддержкой VGA;
5. Устройства ввода/вывода данных: клавиатура, монитор, мышь.
Заключение
Программка «личная видеотека» весьма ординарна в использовании и употребляет весьма не достаточно ресурсов. Работает практически на хоть какой операционной системе и на любом компе. программка многофункциональна. Занесенную информацию о DVD– фильмах можно изменять, удалять и редактировать. информация о дисках записывается в базу данных по 5 полям: заглавие диска, стоимость, год выпуска, фамилия режиссера, кинокомпания, которая создавала кинофильм. Также можно сортировать диски по сиим же полям, она написана на российском языке. процесс сотворения этого приложения в Delphiучит работать с процедурами, с записями и с циклами.
Весьма обычной интерфейс дозволяет работать в программке даже ребенку, и старшему поколению, которому весьма тяжело обращаться с новенькими технологиями, в том числе и компами.
Глоссарий
№ п/п
понятие
Определение
1
База данных
поименованная, целостная, единая система данных, организованная по определенным правилам, которые предугадывают общие принципы описания, хранения и обработки данных
2
процесс конструирования общей информационной модели компании на базе отдельных моделей данных юзеров, которая является независящей от особенностей реально применяемой СУБД и остальных физических критерий
5
Сетевая схема
логическая организация всей базы данных в целом (исходя из убеждений админа базы данных), которая включает определение имени базы данных, типа каждой записи и компонент записей всякого типа
6
Система управления базами данных
особый комплекс программ, осуществляющий централизованное управление базой данных
7
Подсхема
часть базы данных, как она видится юзерам либо приложениям
8
информация
любые сведения о каком-либо событии, процессе и т.п., являющиеся объектом неких операций: восприятия, передачи, преобразования, хранения и использования
9
Централизованная база данных
база данных, хранящаяся в памяти одной вычислительной системы
10
Распределенная база данных
состоит из нескольких, может быть, пересекающихся либо даже дублирующих друг друга частей, хранимых в разных ЭВМ вычислительной сети
11
Хранимая процедура
это программка, которая обрабатывает участок базы данных и хранится в базе данных.
Перечень использованных источников
1.
Миша Фленов, «Библия Delphi», Санкт Петербург «БХВ- Петербург» 2004 год, 882 стр.
2.
Владимир Гофман, Анатолий Хамоненко, «Delphi резвый старт», Санкт Петербург «БХВ-Петербург» 2003 год, 280 стр.
3.
Евгений Марков, Петр Дарахвелидзе, «Программирование в Delphi 7», Санкт Петербург «БХВ-Петербург» 2003 год, 780 стр.
4.
Поган А.М., Царенко Ю.А., “Программирование в Delphi”, Москва «ЭКСМО» 2006 год, 309 стр.
5.
Бобровский А. , “Delphi 5. Учебный курс.” , Санкт – Петербург, Москва, Харьков, Минск, «ЗАО Питербук» , 2004 год, 639 стр.
6.
TurboPascal в задачках и программках. – СПб.: БХВ – Петербург,, 2002. – 560 с.: ил
7.
TurboPascal / С.А. Немнюгин. – СПб: Издательство «Питер», 2000. – 496 с.: ил.
8.
HTTP://www.wikipedia.com/ru
9.
Власов А.Я. Справочник по программированию на ObjectPascal. Киев, 2001г.
10.
Культин Н. Программирование на ObjectPascal. Киев, 1998
Приложени
я
приложение А
Приложение Е
]]>