Программа управления базой данных, содержащей информацию о читателях, книгах и работниках библиотеки
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
,sk.adress);(Возраст: ,sk.voz);(Уникальный номер книги на руках: ,sk.nomk);(Когда должен был вернуть книгу: ,sk.densv, ,sk.messv, ,sk.godsv);(Для продолжения нажмите );;;
{этот день прошёл, текущий год равен, но месяц больше};(26);write(Вывод читателей задерживающих книгу);ris(26);writeln();(Уникальный номер: ,sk.nomch);
writeln(Имя: ,sk.name);(Фамилия: ,sk.lname);(Отчество: ,sk.fname);
);;;;">writeln(Домашний телефон: ,sk.tel);(Домашний адрес: ,sk.adress);(Возраст: ,sk.voz);(Уникальный номер книги на руках: ,sk.nomk);(Когда должен был вернуть книгу: ,sk.densv, ,sk.messv, ,sk.godsv);(Для продолжения нажмите );;;;
{Этот день прошёл, текущий год больше};(26);write(Вывод читателей задерживающих книгу);ris(26);writeln();(Уникальный номер: ,sk.nomch);
writeln(Имя: ,sk.name);(Фамилия: ,sk.lname);(Отчество: ,sk.fname);
);">writeln(Домашний телефон: ,sk.tel);(Домашний адрес: ,sk.adress);(Возраст: ,sk.voz);(Уникальный номер книги на руках: ,sk.nomk);(Когда должен был вернуть книгу: ,sk.densv, ,sk.messv, ,sk.godsv);(Для продолжения нажмите );
readln;;;;(spreader);
end;
{---------------------------------Добавить нового читателя-----------------}newreader;
var sk:reader;:char;(spreader,read.txt);(spreader);(spreader,filesize(spreader));;(31);write(Добавление читателя); ris(30);writeln();
writeln(Заполните данные о новом читателе: );(Уникальный номер: ); readln(sk.nomch);
write(Имя: ); readln(sk.name);(Фамилия: ); readln(sk.lname);(Отчество: ); readln(sk.fname);
write(Домашний телефон: ); readln(sk.tel);(Домашний адрес: ); readln(sk.adress);(Возраст: ); readln(sk.voz);
sk.naruk:=Нет;(spreader,sk);
write(Хотите добавить ещё одного читателя? (Д\Н));readln(k);;(k=н) or(k=Н);(spreader);;
{--------------------------------Удаление читателя-------------------------}Clearreader;sk:reader;: string;: file of reader;,n,nomchh:integer;:char;:char;(spreader,read.txt);(spreader);(fo,newfile.txt);(fo);;(31);write(Удаление читателя); ris(31);writeln();
writeln(Введите фамилию читателя, которого вы хотите удалить из базы:);
2)do(spreader,sk);udal=sk.lnamethen(:,sk.name);(:,sk.lname);(:,sk.fname);">readln(udal);:=0;not eof(spreader) do(spreader,sk);udal=sk.lname then x:=1;;x=0 then begin writeln(Читателя с такой фамилией нет!); readln; end(spreader);reset(spreader);:=0;:=q;(x<>2) do(spreader,sk);udal=sk.lname then(Имя: ,sk.name);(Фамилия: ,sk.lname);(Отчество: ,sk.fname);
Writeln(Это данный читатель (Д\Н)?);
readln(qwe);;(qwe=д)or(qwe=Д) then begin nomchh:=sk.nomch; x:=2;end;;(spreader);reset(spreader);
x:=0;:=q;(Вы точно хотите удалить читателя с фамилией ,udal, (Д\Н));
nomchhthenwrite(fo,sk);;(spreader);(fo);(spreader);(fo,read.txt);">readln(otv);(otv=Д) or (otv=д) thennot eof(spreader) do(spreader,sk);sk.nomch<>nomchh then write(fo,sk);;(spreader);(fo);(spreader);(fo,read.txt);
end;end;;
{---------------------------------Просмотр списка читателей----------------}
procedure seekreader;sk:reader;:char;(spreader,read.txt);(spreader);(spreader,sk);;(28);write(Просмотр списка читателей); ris(27);writeln();
writeln(Уникальный номер читателя: ,sk.nomch);
writeln(Имя: ,sk.name);(Фамилия: ,sk.lname);(Отчество: ,sk.fname);
writeln(Домашний телефон: ,sk.tel);(Домашний адрес: ,sk.adress);(Возраст: ,sk.voz);
If (sk.naruk=Да) or (sk.naruk=ДА) or (sk.naruk=дА) or (sk.naruk=да)
then(Уникальный номер книги на руках ,sk.nomk);(Срок возврата: ,sk.densv, ,sk.messv, ,sk.godsv);;(80);( Нажмите "Esc" для окончания );:=readkey;
Until (EoF(spreader)) or (k=#27);
close(spreader);;
{--------------------------Редактирование данных о читателе----------------}
procedure redreader;:reader;:integer;,lname2,fname2,tel2,adress2,naruk2:string;,nomk2,voz2,godsv2:integer;:1..31;:1..12;:integer;:string;:char;:integer;(spreader,read.txt);(spreader);;(24);write(Редактирование данных о читателе);ris(24);writeln();
with sk do(Введите фамилию читателя данные о котором вы хотите изменить:);
2)do(spreader,sk);famchh=sk.lnamethen(:,sk.name);(:,sk.lname);(:,sk.fname);">readln(famchh);:=0;not eof(spreader) do(spreader,sk);famchh=sk.lname then x:=1;;x=0 then begin writeln(Читателя с такой фамилией нет!); readln; end(spreader);reset(spreader);:=0;:=q;(x<>2) do(spreader,sk);famchh=sk.lname then(Имя: ,sk.name);(Фамилия: ,sk.lname);(Отчество: ,sk.fname);
Writeln(Это данный читатель (Д\Н)?);
readln(qwe);;(qwe=д)or(qwe=Д) then begin nomchh:=sk.nomch; x:=2;end;;(spreader);reset(spreader);not eof(spreader) do(spreader,sk);sk.nomch=nomchh then
begin(Заполните данные для изменения: );
write(Имя: ); readln(sk.name);(Фамилия: ); readln(sk.lname);(Отчество: ); readln(sk.fname);
write(Домашний телефон: ); readln(sk.tel);
write(Домашний адрес: ); readln(sk.adress);(Возраст: ); readln(sk.voz);
name2:=name;:=lname;:=fname;:=tel;:=adress;:=naruk;:=nomch;:=nomk;:=voz;:=godsv;:=densv;:=messv;(spreader,filepos(spreader)-1);(spreader,sk);; end; end;(spreader);
end;;
{---------------------------------Добавление нового библиотекаря-----------------}
procedure newbibl;sb:biblio;:char;(spbiblio,bibl.txt);(spbiblio);(spbiblio,filesize(spbiblio));;(24);write(Добавление нового библиотекаря);ris(24);writeln();
writeln(Заполните данные о новом библиотекаре: );
write(Имя: ); readln(sb.name);(Фамилия: ); readln(sb.lname);(Отчество: ); readln(sb.fname);(Должность: ); readln(sb.dolzh);
write(spbiblio,sb);(Хотите добавить ещё одного библиотекаря? (Д\Н)>);readln(k);;(k=н) or (k=Н);(spbiblio);;
{--------------------------------Удаление библиотекаря----------------------}Clearbibl;sb:biblio;: string;: file of biblio;,n,nomchh:integer;:char;:char;(spbiblio,bibl.txt);(spbiblio);(fo,newfile.txt);(fo);;(24);write(Удаление данных о библиотекаре);ris(24);writeln();
writeln(Введите фамилию библиотекаря данные о котором вы хотите удалить:);
readln(udal);:=0;not eof(spbiblio) do(spbiblio,sb);udal=sb.lname then x:=1;;x=0 then begin writeln(Библиотекаря с такой фамилией нет!); readln; end(spbiblio);reset(spbiblio);
writeln(Вы точно хотите удалить библиотекаря по фамилии ,udal,(Д\Н));
udalthenwrite(fo,sb);;(spbiblio);(fo);(spbiblio);(fo,bibl.txt);">readln(otv);(otv=Д) or (otv=д) thennot eof(spbiblio) do(spbiblio,sb);sb.lname&l