Разработка клиент-серверных приложений в Microsoft SQL Server 2005 и Borland Delphi 7. Семенова И.И. - 53 стр.

UptoLike

ВУЗ: 

СибАДИ | Омск

Составители: 

Рубрика: 

52
23. На форму FormBooks с вкладки Standart добавить 5 компонентов
типа Button.
У 1-го компонента Button изменить свойства и метод:
Name на B_Publish;
Caption на Фильтр по текущему издательству;
В методе Click кнопки написать код:
dm.ADOBooks.Filter:= 'Code_Publish = '+ form-
books.DBGrid1.Columns.Items[4].Field.Text;
dm.ADOBooks.Filtered:= true.
У 2-го компонента Button изменить свойства и метод:
Name на B_Title_Book;
Caption на Фильтр по текущему названию книги.
В методе Click кнопки
написать код:
dm.ADOBooks.Filter:= 'Title_book = '+ QuotedStr( form-
books.DBGrid1.Columns.Items[1].Field.Text);
dm.ADOBooks.Filtered:= true.
У 3-го компонента Button изменить свойства и метод:
Name на B_Author;
Caption на Фильтр по текущему автору.
В методе Click кнопки написать код:
dm.ADOBooks.Filter:= 'Code_Author = '+ form-
books.DBGrid1.Columns.Items[0].Field.Text;
dm.ADOBooks.Filtered:= true.
У 4-го компонента Button изменить свойства и метод:
Name на B_Pages;
Caption на Фильтр по количеству книг.
В методе Click кнопки написать код:
dm.ADOBooks.Filter:= 'Pages = '+ form-
books.DBGrid1.Columns.Items[3].Field.Text;
dm.ADOBooks.Filtered:= true.
У 5-го компонента Button изменить
свойства и метод:
Name на B_Cancel;
Caption на Снять фильтр.
В методе Click кнопки написать код:
dm.ADOBooks.Filter:= '';
dm.ADOBooks.Filtered:= false.
24. Аналогично для остальных форм добавить элементы типа Button,
которые будут запускать фильтры по соответствующим значениям полей
текущей записи в объекте Grid.
25. Проверить работу приложения.
26. Создать форму, назвать (изменить свойство Name) FormProcedure.
В главной форме в коде
добавить описание этой формы, для этого после

Страницы