Программа управления базой данных, содержащей информацию о читателях, книгах и работниках библиотеки
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
); readln; end
else(Фамилия читателя берущего\возвращающего книгу: ); readln(famchh);
200)do(spreader,sk);famchh=sk.lnamethenx=1thenbeginnomchh:=sk.nomch;x:=200;endelse(:,sk.name);(:,sk.lname);(:,sk.fname);">assign(spreader,read.txt);(spreader);:=0;not eof(spreader) do(spreader,sk);famchh=sk.lname then x:=x+1;;x=0 then begin writeln(Читателя с такой фамилией нет!); readln; end(spreader);reset(spreader);(spknig);reset(spknig);:=0;:=q;(x<>200) do(spreader,sk);famchh=sk.lname thenx=1 then begin nomchh:=sk.nomch; x:=200;end else(Имя: ,sk.name);(Фамилия: ,sk.lname);(Отчество: ,sk.fname);
Writeln(Это данный читатель?(Д\Н)?);
readln(qwe);;; (qwe=Д)or(qwe=д) then begin nomchh:=sk.nomch; x:=200;end;;(spreader);reset(spreader);not eof(spknig) do(spknig,st);st.nomk=str then
begin(Введите 1, если хотите выдать книгу, или 2, если читатель вернул книгу: );readln(qw);
If (qw2)
Repeat(Вы ввели неверное значение );(Введите 1, если хотите выдать книгу, или 2, если читатель вернул книгу:: );readln(qw);
Until (qw=1) or (qw=2);qw=1 then st.nal:=Нет else st.nal:=Да;(st.nal=Нет).nomch:=nomchh;(Срок возврата (Пример: 01 04 2008): ); readln(st.densv,st.messv,st.godsv);st do:=0;not eof(spreader) do(spreader,sk);sk.nomch=st.nomch then.naruk:=Да;.densv:=st.densv;.messv:=st.messv;.godsv:=st.godsv;.nomk:=st.nomk;:=sk.name;:=sk.lname;:=sk.fname;:=sk.tel;:=sk.adress;(spreader,filepos(spreader)-1);(spreader,sk);;;(spreader,read.txt);(spreader);st donot eof(spreader) do(spreader,sk);sk.nomch=st.nomch then.naruk:=Нет;:=sk.name;:=sk.lname;:=sk.fname;:=sk.tel;:=sk.adress;(spreader,filepos(spreader)-1);(spreader,sk);;;(spreader);;;:=nomk; god2:=god; kol2:=kol; nomch2:=nomch;:=godsv; naz2:=naz; auth2:=auth; izd2:=izd;:=zhanr; nal2:=nal; densv2:=densv; messv2:=messv;(spknig,filepos(spknig)-1);(spknig,st); x:=1;; end; end; end;(spknig);
end;
{------------------------------Поиск книги по жанру -------------------------}
procedure poiskknigizh;st:knigi;:string;:char;:integer;(spknig,knigi.txt);(spknig);;(30);write(Поиск книги по жанру); ris(30);writeln();
Write(Введите критерий поиска : );
readln(pp);:=0;:=0;(spknig,st);st.zhanr=pp then;:=1;(33);write(Поиск по жанру); ris(33);writeln();
writeln(Уникальный номер: ,st.nomk);(Название: ,st.naz);
writeln(Автор: ,st.auth);
writeln(Издательство: ,st.izd);(Год издания: ,st.god);
writeln(Жанр: ,st.zhanr);
writeln(Количество страниц: ,st.kol);(Есть в наличии: ,st.nal);
If (st.nal=Нет)
writeln(Уникальный номер читателя: ,st.nomch);(Срок возврата: ,st.densv, ,st.messv, ,st.godsv);;(80);( Введите "Esc" для окончания );
k:=readkey;;(EoF(spknig)) or (k=#27);r=0 then begin writeln(Книги такого жанра нет в библиотеке);readln;end;
close(spknig);;
{------------------------------Поиск книги по автору-------------------------}
procedure poiskknigiau;st:knigi;:string;:char;:integer;(spknig,knigi.txt);(spknig);;(30);write(Поиск книги по автору);ris(30);writeln();
Write(Введите критерий поиска : );
readln(pp);:=0;(spknig,st);st.auth=pp then;:=1;(33);write(Поиск по автору); ris(33);writeln();
writeln(Уникальный номер: ,st.nomk);(Название: ,st.naz);
writeln(Автор: ,st.auth);
writeln(Издательство: ,st.izd);(Год издания: ,st.god);
writeln(Жанр: ,st.zhanr);
writeln(Количество страниц: ,st.kol);(Есть в наличии: ,st.nal);
If (st.nal=Нет)
writeln(Уникальный номер читателя: ,st.nomch);(Срок возврата: ,st.densv, ,st.messv, ,st.godsv);;(80);( Введите "Esc" для окончания );
k:=readkey;;(EoF(spknig)) or (k=#27);r=0 then begin writeln(Книги такого автора нет в библиотеке);readln;end;
close(spknig);;
{------------------------------Поиск книги по названию---------------------}
procedure poiskkniginaz;st:knigi;:string;:char;:integer;(spknig,knigi.txt);(spknig);;(29); write(Поиск книги по названию); ris(29);writeln();
Write(Введите критерий поиска : );
readln(pp);:=0;(spknig,st);st.naz=pp then;:=1;(33);write(Поиск по названию); ris(33);writeln();
writeln(Уникальный номер: ,st.nomk);(Название: ,st.naz);
writeln(Автор: ,st.auth);
writeln(Издательство: ,st.izd);(Год издания: ,st.god);
writeln(Жанр: ,st.zhanr);
writeln(Количество страниц: ,st.kol);(Есть в наличии: ,st.nal);
If (st.nal=Нет)
writeln(Уникальный номер читателя: ,st.nomch);(Срок возврата: ,st.densv, ,st.messv, ,st.godsv);;(80);( Введите "Esc" для окончания );
k:=readkey;;(EoF(spknig)) or (k=#27);
If r=0 then begin writeln(Книги с таким названием нет в библиотеке);readln;end;(spknig);;
{--------------------Поиск книги по году издания--------------------------}
procedure novknigi;st:knigi;:char;:integer;:integer;(spknig,knigi.txt);(spknig);;(27);write(Вывод списка книг за год); ris(29);Writeln();
Write(Введите год издания: );Readln(pp);
r:=0;(spknig,st);st.god=pp;:=1;(33);write(Вывод списка книг за,k, год); ris(33);writeln();
writeln(Уникальный номер: ,st.nomk);(Название: ,st.naz);
writeln(Автор: ,st.auth);
writeln(Издательство: ,st.izd);(Год издания: ,st.god);
writeln(Жанр: ,st.zhanr);
writeln(Количество страниц: ,st.kol);(Есть в наличии: ,st.nal);
If (st.nal=Нет)
writeln(Уникальный номер читателя: ,st.nomch);(Срок возврата: ,st.densv, ,st.messv, ,st.godsv);;(80);( Введите "Esc" для окончания );
k:=readkey;;(EoF(spknig)) or (k=#27);
If r=0 then begin writeln(В библиотеке нет книг с данным годом издания);readln;end;(spknig);;
{--------------------Вывод читателей задерживающих книгу--------------------}
procedure zadreader;sk:reader;:1..31;:1..12;:integer;:char;(spreader,read.txt);(spreader);;(19);write(Вывод списка читателей задерживающих книгу);ris(19);writeln();;
Write(Введите сегодняшнюю дату (Пример: 01 01 2008): );
readln(datas,mess,gods);;not eof(spreader) do(spreader,sk);(sk.naruk=Да) or (sk.naruk=дА) or (sk.naruk=ДА) or (sk.naruk=да)(gods<sk.godsv) then
{этот день ещё не прошёл}
elsegods=sk.godsv thenmess<sk.messv then
{этот день ещё не прошёл}
elsemess=sk.messv thendatas<sk.densv then
{этот день ещё не прошёл}
elsedatas=sk.densv then
{этот день сегодня}
{Этот день прошёл, год, месяц одинаковые, но день больше};(26);write(Вывод читателей задерживающих книгу);ris(26);writeln();(Уникальный номер: ,sk.nomch);
writeln(Имя: ,sk.name);(Фамилия: ,sk.lname);(Отчество: ,sk.fname);
);;;">writeln(Домашний телефон: ,sk.tel);(Домашний адрес: