Файл: Разработка объектной программы для обработки данных о авторах издательства.docx

author := AuthorList[i];

Записываем все поля в файл

writeln(f, author.GetAuthorName); // запись фамилии автора

writeln(f, author.GetBooksCount); // запись количества книг

Адресуем указатель book на первого автора:

book := author.GetHead.GetNext;

Проходим по всем книгам

while (book <> nil) do// проходим по всем книгам

В теле цикла записываем все поля в файл

writeln(f, book.GetBookName); // запись названия книги

writeln(f, book.GetCirculation); // запись тиража

Переходим к след книге

book := book.GetNext; // переходим к след элементу

Закрываем файл:

CloseFile(f);

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

Рис.9 Результат сохранения

Алгоритм загрузки файла:

Соединяем файл с переменной: Assign(aFile, Filename);
Открываем файл на чтение: reset(aFile);
Организуем цикл до конца файла: while not EOF(aFile) do
В теле цикла

Считываем все поля и создаем автора

author := TAuthor.Create(aAuthorName); // создаём автора

Считываем количество авторов: Readln(aFile, tauthorCount); // считываем количество авторов
В дополнительном цикле считываем книги

for i := 1 to tauthorCount do

begin

Readln(aFile, aBookName); // считываем название книги

Readln(aFile, aCirculation); // считываем тираж

book := TBook.Create(aBookName, aCirculation);// создаём книгу

Добавляем книгу

author.AddFirst(book) // добавляем первую книгу

Добавляем автора в очередь:

AddAuthor(author);

Закрываем файл: CloseFile(aFile);

В демонстрационном модуле реализованы следующие обработчики:

procedure ButtonAddAuthorClick(Sender: TObject); // Обработчик добавления автора
procedure ButtonAddBookAfterClick(Sender: TObject); // обработчик добавления книги после
procedure ButtonAddBookBeforeClick(Sender: TObject);// Обработчик добавление книги до
procedure TForm1.ButtonAddFirstBookClick(Sender: TObject); //добавление книги
procedure EditAuthorNameUTF8KeyPress(Sender: TObject; var UTF8Key: TUTF8Char); // Обработчик фильтра вводимых символов в поле имя автора
procedure EditCirculationKeyPress(Sender: TObject; var Key: char); // Обработчик фильтра вводимых символов в поле тираж
procedure EditBookNameUTF8KeyPress(Sender: TObject; var UTF8Key: TUTF8Char); // Обработчик фильтра вводимых символов в поле название книги
procedure FormCreate(Sender: TObject); // Обработчик создания формы
procedure MenuItemLoadClick(Sender: TObject); // Обработчик загрузки из фалйла
procedure MenuItemSaveClick(Sender: TObject); обработчик сохранения в файл
procedure GridAuthorsClick(Sender: TObject); // Обработчик клика по гриду с авторами
procedure LoadAuthors();//загружает данные об авторах
procedure LoadBooks(aAuthor: TAuthor);Grid(aOffice: TOffice); // загружает данные о книгах
procedure ClearGrid(aStringGrid: TStringGrid); // очищает указанный грид
function SelectedAuthor: TAuthor;// возвращает выбранного в таблице автора
procedure UpdateSumLabel(); // обновляет label с суммой всех окладов

1 2 3 4 5

Описание структуры проекта

Проект Lazarus-это несколько связанных между собой файлов.

Главный файл проекта, называется PROJECT1.LPR

В файлах расширением *.pas хранятся программные модули проекта.

Файлы форм с расширением *LFM используются для сохранения информации о внешнем виде формы (окна разрабатываемого приложения). При переименовании названия модуля автоматически меняет свое название.

Файл PROJECT1.RES изначально содержит иконку для проекта. Создается автоматически. Имеет одноименное название с названием проекта.

Исполняемый EXE файл, который создается в процессе компиляции проекта. Если сохранить проект под другим именем, то изменят название и файлы с расширением RES (.pas), который компонуется в окончательный исполняемый файл.

Рис.10 Файлы проекта

Список литературы

1. Гаско Р. Объектно Ориентированное Программирование. Настольная книга программиста, — СПб.: Питер 2018 г.;

2. Гаст Х. Объектно-ориентированное проектирование: концепции и программный код, — СПб.: Питер 2019 г.

3. Кнут, Д.Э. Искусство программирования. Том 1. Основные алгоритмы — Вильямс, 2017

4. Козин А.Н., Якунина Е.А. – Учебно методическое пособие/- Казань: УВО «Университет управления «ТИСБИ», 2020.

5. Козин А.Н., Таренко Л.Б. Структуры и алгоритмы обработки данных. Часть 1. Базовые структуры: стеки, очереди, списки. Учебно-методическое пособие/-Казань: УВО «Университет управления "ТИСБИ", 2017.

6. Козин А.Н., Якунина Е.А. – Учебно методическое пособие/- Казань: УВО «Университет управления «ТИСБИ», 2020.

7. Структуры и алгоритмы обработки данных. Часть 3. Поиск и сортировка данных. Теория и методика обучения. Учебно-методическое пособие / А.Н. Козин. Л.Б. Таренко. – Казань: «Университет управления «ТИСБИ». 2020.

8. Структуры и алгоритмы обработки данных. Часть 2. Поиск и сортировка данных. Теория и методика обучения. Учебно-методическое пособие / А.Н. Козин. Л.Б. Таренко. – Казань: «Университет управления «ТИСБИ». 2018

9. Мясникова Н.А. Алгоритмы и структуры данных. Учебное пособие. – КноРус, 2018

10. Тюльпинова Н.В. Алгоритмизация и программирование: Вузовское образование, 2019. – 200 с

11. Хорев П.Б. Объектно-ориентированное программирование / П.Б. Хорев. - М.: Academia, 2017. - 448 c

Приложение

unit Unit1;
{$mode objfpc}{$H+}
interface
uses

Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,

StdCtrls, Grids, Menus, LCLProc, lazutf8, unitPublishing, unitAuthor,

unitBook, LCLType, Spin;
type
{ TForm1 }
TForm1 = class(TForm)

ButtonAddAuthor: TButton;

ButtonAddBookAfter: TButton;

ButtonAddBookBefore: TButton;

ButtonAddFirstBook: TButton;

ButtonDeleteAuthor: TButton;

ButtonDeleteBook: TButton;

ObTirag: TEdit;

EditAuthorName: TEdit;

EditBookName: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

MainMenu1: TMainMenu;

MenuItem1: TMenuItem;

MenuItemSave: TMenuItem;

MenuItemLoad: TMenuItem;

OpenDialog1: TOpenDialog;

SaveDialog1: TSaveDialog;

SpinEditCirculation: TSpinEdit;

StringGridAuthors: TStringGrid;

StringGridBooks: TStringGrid;

procedure ButtonAddAuthorClick(Sender: TObject);// добавление автора

procedure ButtonAddBookAfterClick(Sender: TObject);

procedure ButtonAddBookBeforeClick(Sender: TObject);

procedure ButtonAddFirstBookClick(Sender: TObject);

// добавление первой книги

procedure ButtonDeleteAuthorClick(Sender: TObject);// удаление автора

procedure ButtonDeleteBookClick(Sender: TObject); // удаление книги

procedure EditAuthorNameUTF8KeyPress(Sender: TObject; var UTF8Key: TUTF8Char);

procedure EditCirculationKeyPress(Sender: TObject; var Key: char);

procedure EditBookNameUTF8KeyPress(Sender: TObject; var UTF8Key: TUTF8Char);

procedure FormCreate(Sender: TObject);// создание формы

procedure Label1Click(Sender: TObject);

procedure MenuItemLoadClick(Sender: TObject);// загрузка из фалйла

procedure MenuItemSaveClick(Sender: TObject);// сохранение в файл

procedure StringGridAuthorsClick(Sender: TObject);

procedure StringGridBooksClick(Sender: TObject);

// смена выбранной строки в авторах

private

procedure LoadAuthors(); //загружает данные об авторах

procedure LoadBooks(aAuthor: TAuthor);

// загружает данные о книгах

procedure ClearGrid(aStringGrid: TStringGrid);

// очищает указанный грид

function SelectedAuthor: TAuthor; // текущий автор в таблице

procedure UpdateBtnState();

public
end;
var

Form1: TForm1;

aPublishing: TPublishing;
implementation
{$R *.lfm}
procedure TForm1.FormCreate(Sender: TObject);

begin

aPublishing := TPublishing.Create(5);

UpdateBtnState();

end;
procedure TForm1.Label1Click(Sender: TObject);

begin
end;
procedure TForm1.MenuItemLoadClick(Sender: TObject);

begin

if OpenDialog1.Execute then

begin

aPublishing := TPublishing.Create(5);

aPublishing.Load(OpenDialog1.FileName);

LoadAuthors(); // загружает таблицы

end;

end;
procedure TForm1.MenuItemSaveClick(Sender: TObject);

begin

if SaveDialog1.Execute then

aPublishing.Save(SaveDialog1.FileName);

end;
procedure TForm1.ButtonAddAuthorClick(Sender: TObject);

var

author: TAuthor;

authorName: string;

begin

authorName := EditAuthorName.Text; // считываем фамилию автора

if (not authorName.IsEmpty) then // если edit заполнен

begin

author := TAuthor.Create(authorName); // создаём автора

aPublishing.AddAuthor(author); // добалвяем автора

LoadAuthors();// перезагружаем таблицу

end

else

ShowMessage('Заполните адрес');

UpdateBtnState();

end;

procedure TForm1.ButtonAddBookAfterClick(Sender: TObject);

var

author: TAuthor;

book: TBook;

aBookName, aCirculationString: string;

begin

author := SelectedAuthor;

if (author <> nil) then

begin

aBookName := EditBookName.Text; // считываем название книги

aCirculationString := SpinEditCirculation.Text; // считываем тираж

if ((not aBookName.IsEmpty) and (not aCirculationString.IsEmpty)) then // если edit заполнен

begin

book := TBook.Create(aBookName, StrToInt(aCirculationString));// создаём книгу

aBookName := StringGridBooks.Cells[0, StringGridBooks.Row]; // сохраняем название предшествующей

if (not aBookName.IsEmpty) then // проверка на заполненность полей

author.AddAfter(book, aBookName) // добалвяем книгу

else

ShowMessage('Ошибка добавления');

LoadAuthors(); // перезагружаем таблицу авторы

LoadBooks(author); // перезагружаем таблицу книги

end

else

ShowMessage('Заполните адрес');

end;

UpdateBtnState();

end;
procedure TForm1.ButtonAddBookBeforeClick(Sender: TObject);

var

author: TAuthor;

book: TBook;

aBookName, aCirculationString: string;

begin

author := SelectedAuthor;

if (author <> nil) then

begin

aBookName := EditBookName.Text; // считываем название книги

aCirculationString := SpinEditCirculation.Text; // считываем тираж

if ((not aBookName.IsEmpty) and (not aCirculationString.IsEmpty)) then // если edit заполнен

begin

book := TBook.Create(aBookName, StrToInt(aCirculationString)); // создаём книгу

aBookName := StringGridBooks.Cells[0, StringGridBooks.Row]; // сохраняем название предшествующей

if (not aBookName.IsEmpty) then // проверка на заполненность полей

author.AddBefore(book, aBookName) // добалвяем книгу

else

ShowMessage('Ошибка добавления');

LoadAuthors(); // перезагружаем таблицу авторы

LoadBooks(author); // перезагружаем таблицу книги

end

else

ShowMessage('Заполните всё поля');

end;

UpdateBtnState();

end;
procedure TForm1.ButtonAddFirstBookClick(Sender: TObject);

var

author: TAuthor;

book: TBook;

aBookName, aCirculationString: string;

begin

author := SelectedAuthor;

if (author <> nil) then

begin

aBookName := EditBookName.Text; // считываем название книги

aCirculationString := SpinEditCirculation.Text; // считываем тираж

if ((not aBookName.IsEmpty) and (not aCirculationString.IsEmpty)) then // если edit заполнен

begin

book := TBook.Create(aBookName, StrToInt(aCirculationString)); // создаём книгу

author.AddFirst(book); // добавляем книгу

LoadAuthors(); // перезагружаем таблицу авторы

LoadBooks(author); // перезагружаем таблицу книги

end

else

ShowMessage('Заполните адрес');

end;

UpdateBtnState();

end;
procedure TForm1.ButtonDeleteAuthorClick(Sender: TObject);

begin

if (aPublishing.GetAuthorCount > 0) then // если что удалять

begin

aPublishing.DeleteAuthor(); // удаляем

LoadAuthors(); // перезагружаем таблицу авторы

Смотрите также файлы

Протокол от сентября 2020 г. Л. Ф. Бельская.docx

Способы вычисления интегралов.rtf

Медицинская помощь.docx

Методы убеждения в деловых переговорах.pptx

A. Д. Д. Семенов, М. И. Демков b. П. Ф. Лесгафт, П. Ф.pdf

Файл: Разработка объектной программы для обработки данных о авторах издательства.docx

Описание структуры проекта

Список литературы

Приложение

Смотрите также файлы

Информация

Списки файлов

Дополнительно