Создание базы данных "Библиотека" с возможностью проверки года издания книги, страница 3

2. Удаление книги

Библиотека

Нажмите:

“1” Чтобы внести в библиотеку новую книгу

“2” Чтобы выкинуть книгу

“3” Чтобы изменить сведения о книге

“4” Чтобы просмотреть библиотеку

“5” Чтобы выйти…

Выберите книги, которую вы хотите выкинуть:

автор: Лермонтов название: Герой нашего времени

Выкинуть книгу Лермонтов – «Герой нашего времени» из библиотеки?

Нажмите:

Д" Чтобы выкинуть книгу'

или другую клавишу для отмены...

Книга Лермонтов – «Герой нашего времени» Выкинута! Нажмите любую клавишу...

Библиотека

Нажмите:

“1” Чтобы внести в библиотеку новую книгу

“2” Чтобы выкинуть книгу

“3” Чтобы изменить сведения о книге

“4” Чтобы просмотреть библиотеку

“5” Чтобы выйти…

автор: Акунин название: Турецкий гамбит

Такой книги нет! Нажмите любую клавишу...

Изменение сведений о хранении книги

Библиотека

Нажмите:

“1” Чтобы внести в библиотеку новую книгу

“2” Чтобы выкинуть книгу

“3” Чтобы изменить сведения о книге

“4” Чтобы просмотреть библиотеку

“5” Чтобы выйти…

Изменение сведений о книги

Выберите книгу:

автор: Лукьяненко название: Ночной дозор

Что вы хотите изменить?

Нажмите:

«6» чтобы изменить сведения хранении книги

«7» чтобы изменить мнение о книге или другую клавишу для отмены

Книга Лукьяненко – «Ночной дозор» отдана – Брюсову

Кому отдаёте книги: Иванову

Изменения внесены. Нажмите любую клавишу...

Просмотр библиотеки

Библиотека

Нажмите:

“1” Чтобы внести в библиотеку новую книгу

“2” Чтобы выкинуть книгу

“3” Чтобы изменить сведения о книге

“4” Чтобы просмотреть библиотеку

“5” Чтобы выйти…

Нажмите:

«6» чтобы просмотреть по автору

«7» чтобы просмотреть по названию или другую клавишу для отмены автор: Пушкин

Пушкин – «Капитанская дочка»; Роман; 1990; Лениздат; отдана: Иванову; книга хорошая

Для завершения просмотра нажмите любую клавишу...

Для завершения просмотра нажмите любую клавишу...

Библиотека

Нажмите:

“1” Чтобы внести в библиотеку новую книгу

“2” Чтобы выкинуть книгу

“3” Чтобы изменить сведения о книге

“4” Чтобы просмотреть библиотеку

“5” Чтобы выйти…

В библиотеку были внесены изменения, сохранить?

Нажмите:

"Д" чтобы сохранить изменения и выйти

"Н" чтобы выйти без сохранения или любую клавишу для отмены...

Модульная структура

-Function cut_token  :  выдирает  данные о книгах до «;» из файла с базой данных;

-While not seekeof(f) do…:  модуль использования функции cut_token;

-While true do… : модуль выведения на экран интерфейса программы;

-'1':Begin : модуль добавления новой книги в базу данных;

…

End;

-'2':Begin : модуль удаления книги из базы данных;

…

End;

-'3':Begin : модуль изменения сведений о сроке хранения книги;

…

End;

-'4':Begin : модуль просмотра базы данных;

…

End;

-'5':Begin : модуль выхода из программы и сохранения изменений;

…

End;

-Rename… : модуль, изменяющий название файла, где содержится база данных;

-Assign… : модуль, создающий резервную копию базы данных;

book = record

avtor : string;

nazv : string;

shanr : string;

izdanie : string;

komu : string;

mnenie : string;

god : integer;