Добавлен: 20.10.2018
Просмотров: 775
Скачиваний: 6
Button1.
Procedure TForm2.Button1Click (…);
Begin
Проверить наличие книги в т. Books
(Form1.Table1.Locate(‘Name’,Edit1.Text,[]))
Если книга есть, то выход (Exit);
Form1.Table1.Append;
Form1.Table1.FieldByName(‘Name’).AsString:=Edit1.Text;
…….. сформировать все поля записи, кроме BkId ………
Form1.Table1.Post;
For I:=0 to Memo2.Lines.Count-1 do
begin
проверить наличие очередного автора в т. Writers
если автора нет, то добавить новую запись в т.Writers
добавить новую запись в т. Authors
подтвердить добавления
end;
Информация для полей новых записей берется из элементов форм и из
текущих уже сформированных записей.
Сохраните проект. Проверьте его работу и устраните ошибки.
Задание 4. Удаление книги
Добавьте в проект обработчик для кнопки «Удалить книгу».
Procedure TForm1.Button2Click(…);
Begin
Сформировать строковую переменную str (имена всех авторов
книги)
If MessageDlg(‘Вы действительно хотите удалить книгу’ + Table1.
FieldByName (‘Name’). AsString + ‘авторов’ + str, mtConfirmation’
[mbYes, mbNo] , 0) = mrYes then
Begin
For I:= 0 to Table3.RecordCount-1 do Table3.Delete;
Table1.Delete;
End;
Сохраните проект, проверьте его работу.
Задание 5. Редактирование книги
Добавьте в проект новую форму Form3, аналогичную форме Form2, и
настройте еѐ как Form2. Напишите обработчики CreateForm и Button1Click
для Form3.
Procedure TForm3.CreateForm (…);
Begin
Edit1.Text:=Table1.FieldByName(‘Name’).AsString;
Memo1.Lines:=Form1.ListBox1.Items.Text;
Memo2.Lines:= Form1.Table1.FieldByName(‘Note’).AsString;
End;
Procedure TForm3.Button1Click (…);
Begin
Изменить название, аннотацию
Удалить связи книги с авторами
Для каждого автора
Если автора нет в т. Writers, добавить автора в т. Writers
Добавить связь автора с книгой
End;
Сохраните и выполните проект.