Программа управления базой данных, содержащей информацию о читателях, книгах и работниках библиотеки
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
t;>udal then write(fo,sb);;(spbiblio);(fo);(spbiblio);(fo,bibl.txt);
end;end;;
{---------------------------------Просмотр списка библиотекарей----------------}
procedure seekbibl;sb:biblio;:char;(spbiblio,bibl.txt);(spbiblio);(spbiblio,sb);;(25);write(Просмотр списка библиотекарей);ris(25);writeln();(Имя: ,sb.name);(Фамилия: ,sb.lname);(Отчество: ,sb.fname);(Должность: ,sb.dolzh);
ris(80);( Для выхода нажмите );
k:=readkey;(EoF(spbiblio)) or(k=#27);(spbiblio);;
{---------------------------------Меню-------------------------------------}MenuToScr;i:integer;;i:=1 to k do(x,y+i-1);i=1 then begin gotoXY(2,y-1);writeln( МЕНЮ); gotoXY(x,y+i-1);end;(menu[i]);;:=sel;(x,y+punkt-1);(menu[punkt]);
TextAttr:=norm;;
{---------------------------------Основная программа-----------------------}
Begin(spknig,knigi.txt);(spreader,read.txt);(spbiblio,bibl.txt); {Проверка файлов на существование}
{$I-}(spknig);
{$I+}IOResult<>0 then begin rewrite(spknig);reset(spknig);end;(spknig);
{$I-}(spreader);
{$I+}IOResult<>0 then begin rewrite(spreader);reset(spreader);end;(spreader);
{$I-}(spbiblio);
{$I+}IOResult<>0 then begin rewrite(spbiblio);reset(spbiblio);end;
close(spbiblio); [1]:=Работа со списком книг:;[2]:= - Просмотр списка ;[3]:= - Добавление новой;[4]:= - Учёт выдачи\приёма ;[5]:= - Удаление;[6]:= - Поиск по писателю;[7]:= - Поиск по названию;[8]:= - Поиск по жанру;[9]:= - Поиск по году издания;[10]:=Работа со списком читателей:;[11]:= - Просмотр списка ;[12]:= - Добавление нового;[13]:= - Удаление;[14]:= - Просмотр списка должников;[15]:= - Редактирование данных;[16]:=Работа со списком библиотекарей:;[17]:= - Просмотр списка ;[18]:= - Добавление нового;[19]:= - Удаление;[20]:= - Выход (Esc);
punkt:=2;:=3;y:=3;:=norm;;:=readkey;ch=char(0):=readkey;ch of(80):punkt1 then(x,y+punkt-1);(menu[punkt]);:=punkt-1;(punkt=10) or (punkt=16) then punkt:=punkt-1;punkt=1 then punkt:=2;:=sel;(x,y+punkt-1);(menu[punkt]);:=norm;;;ch=chr(13)punkt of
: seekknigi;
: newkniga;
: vvkniga;
: Clearkn;
: poiskknigiau;
: poiskkniginaz;
: poiskknigizh;
: novknigi;
: seekreader;
: newreader;
: Clearreader;
: zadreader;
: redreader;
: seekbibl;
: newbibl;
: Clearbibl;
: ch:=chr(27);;;;ch=chr(27);.
8. Описание работы программы
Основная программа реализована в виде условных операторов, которые позволяют выполнить один из предложенных пунктов. Для многократного выполнения тело программы заключено в оператор цикла REPEAT.
Заполнение файлов с данными: - книги; - читатели;- работники.
Просмотр содержимого файлов с данными: - книги; - читатели;- работники.
Выполнение запросов, указанных в задании, выполняется с помощью процедур:- выдача/возврат книг; - удаление книги; - поиск книги по автору; - поиск книги по названию; - поиск книги по жанру; - поиск книги по году издания; - удаление книги; - редактирование записи о читателе; - удаление записи о библиотекаре.
Все процедуры работают по однотипным алгоритмам, содержат стандартные операции обработки файлов. Переход на процедуры выполняется с помощью перемещения курсора клавишами вниз и вверх и нажатием клавиши Enter.
Имена файлов на диске: knigi.txt, read.txt и bibl.txt.
Заключение
Была поставлена задача: Разработать программу для работы со списками читателей, книг и работников библиотеки. Я смог практически в полном объеме решить эту задачу, используя язык высокого уровня Turbo Pascal 7.0. Программа обладает удобным интерфейсом, и во всём соответствует начальным требованиям. В программе задействована функция чтения и записи в файл, а так же добавление новых записей.
Входные данные получены из исходных файлов.
Работа выполнена в соответствии с основными правилами составления и реализации алгоритмов.
1.