Министерство культуры Российской Федерации
Восточно-Сибирская государственная академия культуры и искусств
Институт информационных технологий, экономики и управления
Кафедра информационно-коммуникационных технологий
Курсовая работа
Тема: База данных «Личная библиотека»
на языке программирования Turbo Pascal
Научный руководитель: А.В. Урбаханов
Выполнила: студентка 1 курса гр. 413
Н.А. Федорова
Улан-Удэ
2008
Заданиенавыполнениекурсовойработы
Введение
Теоретические основы. Записи. Файлы
Основное меню программы
Описание процедур
Листинг программы
Заключение
Список использованной литературы
задание на выполнение курсовой работы
Необходимо составить базу данных «Личная библиотека» на языке программирования TURBOPASCAL.
Картотека домашней библиотеки: выходные данные книги (инвентарный номер, автор, издательство, год издания), разделы библиотеки: учебная и справочная литература, художественная литература, домашнее хозяйство, непознанное.
В базе должно быть создано меню. Должен производиться поиск информации: по инвентарному номеру книги, по имени автора. Удаление должно производиться по инвентарному номеру.
При создании этой программы стояли следующие цели:
Написать программу, которая позволила бы обрабатывать, сортировать и изменять информацию о книгах. Так же при создании этой программы стояли следующие задачи:
- Данная программа должна иметь простой и удобный пользовательский интерфейс.
- Программа должна иметь малую ресурсоёмкость.
- Приобретение и закрепление навыков в организации вычислительных процессов и программирования на алгоритмическом языке ПАСКАЛЬ.
Основной акцент в работе уделяется работе с файлами, подробно рассматриваются функции открытия и закрытия файла. Полученные знания помогут в будущем более эффективно подходить к процессу разработки программного обеспечения.
Введение
Современная вычислительная техника позволяет решать большое количество различных задач. Пожалуй, наиболее важным применением ЭВМ стало хранение информации. Удобные и разнообразные средства для этой цели предоставляют технологии баз данных. Целью данной курсовой работы является приобретение опыта алгоритмизации, конструирования, практической реализации программ и широкого применения ЭВМ, на примере программирования базы данных «Личная библиотека». В качестве языка программирования выбран язык TURBOPASCAL, изучаемый на занятиях по дисциплине “Информатика и программирование”. Этот язык позволяет наилучшим образом реализовать алгоритм работы программы, а также поможет создать удобный интерфейс программы, что играет важную роль в данной курсовой работе.
Теоретические основы
Записи
Запись – это структура данных, состоящая из фиксированного числа элементов одного или нескольких типов. Как правило, запись состоит из нескольких полей. В одном поле данные имеют один и тот же тип, а в разных полях могут иметь разные типы.
Type Bibl=record {описаниетипа }
Inv_nomer:integer;
Name_author:string[50];
Naim_knigi:string[20];
God_izd:string[20];
Mesto_izd:string[20];
Naim_izd:string[20];
end;
Var f:file of Bibl;
zn, filename:string;
t,k:integer;
s:string;
Файлы
Слово "файл" в языке Pascal употребляется для объектов, состоящих из компонент одного и того же типа. В любой момент времени непосредственно доступна (для чтения и записи) только одна компонента, другие становятся доступными по мере продвижения по файлу. Таким образом, чтобы прочитать элемент файла, необходимо просмотреть все элементы, стоящие до него. Такие файлы называются файлами последовательного доступа или последовательными файлами. Длина файла не фиксируется и может меняться в процессе выполнения программы.
Файловый тип в Pascal - это единственный тип значений, посредством которого данные, обрабатываемые программой, могут быть получены извне, а результаты переданы во внешний мир. В Pascal файловый тип задается следующим образом:
type T = TValue;{тип компоненты файла}
< имяфайловоготипа> = file of T; илиpacked file of T;
Для доступа к отдельным элементам файла в Pascal введены специальные процедуры.
Для работы с файлами мною были использованы следующие функции:
-Assign – функция, ассоциирующая имя файла с некоторой переменной, с которой идет последующая работа.
-Reset – функция, открывающая уже существующий файл для чтения из него.
-Rewrite – функция, создающая новый файл или перезаписывающая старый.
-Read – чтение из указанного файла строки с переходом на следующую строку.
-Write – запись в указанный файл строки с переходом на следующую строку.
Основное меню программы
Для упрощения работы с меню базы данных была создана процедура меню, которая упрощает выбор пунктов с помощью клавиш перемещения курсора.
Системное меню или основное меню должно обеспечивать удобное
взаимодействие пользователя с программой. В меню должны войти пункты
сохранения, просмотра, редактирования, ввода новых данных и.т.д. Пользователю нужно всего лишь выбрать соответствующий пункт меню и нажать кнопку «Enter».
После ввода данных в любой из команд нажать <Enter>.
В меню данной программы присутствует восемь пунктов:
1 - Создание нового файла – создается новый файл с именем задаваемым пользователем программы.
2 - Добавление записи – создание новой записи в файле, добавляя его в конец файла.
3 - Редактирование записи в файле – производится корректировка ранее введенной записи.
4 - Просмотр содержимого файла – на экран поочередно выдаются ранее созданные записи в виде:
инвентарный номер;
автор книги;
наименование книги;
год издания;
наименование издательства;
место издания;
5 - Удаление записи из файла – Производится удаление записи из файла по инвентарному номеру книги.
6 – Поиск по инвентарному номеру книги – Позволяет находить данные о книге по инвентарному номеру.
7 - Поиск по имени автора - Позволяет находить данные о книге по имени автора.
8 - Выход из программы.
Рис. 1 Основное окно меню
Для того чтобы создать базу данных, пользователю необходимо нажать пункт «Создание файла» в главном меню с помощью «Еnter», после этого появится следующая строка: «Задайте имя файла, который будет создаваться».
Далее через «Еnter» вводятся данные.
Описание процедур.
В данной программе для создания меню были использованы следующие процедуры:
Creatfile– создание нового файла в библиотеке. Вводится количество книг и их данные.
Addrecord– добавление записи в файл. Создание новой записи в файле, добавляя ее в конецфайла.
Inputfile– ввод данных в файл.
Redzap– редактирование записи в файле. Корректировка введенных данных.
Openfile, Outputfile- Просмотр содержимого файла.
Clearfile– удаление записи из файла.
P_Nom– поиск по инвентарному номеру.
P_Name– поиск по имени автора.
Exit– выход из программы.
Листинг программы
Program Biblioteka;
UsesCrt, Dos; {подключение модулей}
Type Bibl=record {описаниетипа }
Inv_nomer:integer;
Name_author:string[50];
Naim_knigi:string[20];
God_izd:string[20];
Mesto_izd:string[20];
Naim_izd:string[20];
end;
Var f:file of Bibl;
zn, filename:string;
t,k:integer;
s:string;
{--------------------------------------}
Procedure Creatfile; {создание файла}
begin
ClrScr;
window(6,3,80,50);
textbackground(9);
clrscr;
window(22,10,57,17);
textbackground(5);
clrscr;
textcolor(yellow);
Writeln('Задайте имя файла');
Readln(filename);
Assign(f,filename); {связьсвнешнимфайлом}
Rewrite(f);{открытие нового файла для записи}
end;
{--------------------------------------}
ProcedureAddrecord; {добавление записи в файл}
Var
rez:integer; kn:char;
begin
while rez <> 0 do
begin
window(6,3,80,50);
textbackground(9);
clrscr;
window(16,10,60,12);
textbackground(5);
clrscr;
textcolor(yellow);
Writeln(' Задайте имя файла, куда добавить запись');
Readln(filename);
Assign(f,filename); {установка связи}
Reset(f);
rez:=IOResult;
If rez <> 1 then
begin
Writeln ('Проверьте правильность имени файла! (Y/N)');
Readln(kn);
If (kn='n') or (kn='N') then halt(0);
end;
end;
seek(f,filesize(f));
end;
{----------------------------------------}
Procedure Inputfile; {ввод данных в файл}
Var
st:Bibl;
k:char;
begin
ClrScr;
window(6,3,80,50);
textbackground(9);
clrscr;
window(22,10,57,17);
textbackground(5);
clrscr;
textcolor(yellow);
Repeat
Writeln('Введите данные о новой книге:');
ClrScr;
Write('Инвентарный номер книги:');
Readln(st.Inv_nomer);
Write('Имя автора:');
Readln(st.Name_author);
Write('Наименование книги:');
Readln(st.naim_knigi);
Write('Год издания:');
Readln(st.god_izd);
Write('Наименование издательства:');
Readln(st.Naim_izd);
Write('Место издания:');
Readln(st.Mesto_izd);
Write(f,st);
Write('Ввести данные о новой книге? (Y/N)');
Readln(k);
Writeln;
Until (k='n') or (k='N');
Close(f);
end;
{-----------------------------------------}
Procedure Redzap; {редактирование записи}
Var
st:Bibl;
filename:string[20];
st2:integer;
Inv_nomer2:integer;
Name_author2:string[20];
Naim_knigi2:string[20];
God_izd2:string[20];
Naim_izd2:string[20];
Mesto_izd2:string[30];
x:integer;
begin
ClrScr;
window(6,3,80,50);
textbackground(9);
clrscr;
window(22,10,57,17);
textbackground(5);
clrscr;
textcolor(yellow);
Writeln('Задайте имя файла');
Readln(filename);
Assign(f,filename);
Reset(f);
With st do
begin
ClrScr;
Write('Введите инвентарный номер книги:');
Readln(st2);
x:=0;
While not eof(f) do
begin
Read(f,st);
if st.Inv_nomer=st2 then
begin
ClrScr;
textcolor(yellow);
Writeln('Введите новые данные о книге:');
Write('Инвентарный номер книги:');
Readln(st.Inv_nomer);
Write('Имя автора:');
Readln(st.Name_author);
Write('Наименование книги:');
Readln(st.Naim_knigi);
Write('Год издания:');
Readln(st.God_izd);