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

UptoLike

ВУЗ: 

СибАДИ | Омск

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

Рубрика: 

51
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.
В главной форме в коде добавить описание этой формы, для этого после
ключевого слова USES в конце списка через запятую дописать название
программного модуля, которое соответствует созданной форме. В создан-
ной форме в коде добавить описание модуля DM, для этого после ключе-
PDF created with pdfFactory Pro trial version www.pdffactory.com

Страницы