Разработка клиент-серверных приложений с использованием технологий Oracle. Семенова И.И. - 90 стр.

UptoLike

ВУЗ: 

СибАДИ | Омск

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

Рубрика: 

89
Рядом с каждым настроенным компонентом поставить Label (надпись),
у которой в свойстве Caption написать, например, "Введите название кни-
ги" и т.д.
У компонента DBGrid настроить свойство ReadOnly в режим True.
Так как на форме будут использоваться компоненты DBLookupCom-
boBox, которые ссылаются на таблицы Authors и Publishing_house, нужно
на основной форме в подпункте меню "Книги" в методе Click добавить
в
начало две команды:
DM.ADOPublish.Open;
DM.ADOAuthors.Open;
В противном случае при открытии формы может произойти ошибка,
если по какой-то причине источники данных для компонент
DBLookupComboBox будут неактивны.
21.
Аналогично для остальных форм добавить элементы типа DBEdit
(для полей данные которых будут просто набираться или редактироваться
пользователем) и DBLookupComboBox (для полей связи, к которым под-
ходит связь типа «много», они позволят выбирать данные из соответст-
вующего справочника и пользователю не придется помнить значения ко-
дов).
22.
Проверить работу приложения.
23.
Теперь необходимо создать фильтры по текущим значениям полей
таблицы. Значения для фильтра будут браться из колонок DBGrid. Напри-
мер, строка formbooks.DBGrid1.Columns.
Items[0].Field.Text; будет брать
текущее значение из
первой колонки DBGrid. Поэтому при выполнении
этого задания обращайте внимание на соответствие индексов колонки по-
рядку полей и исправьте при необходимости индексы в соответствии с ва-
шим порядком полей в таблице.
На форму 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;

Страницы