Проектирование баз данных в среде Delphi: Компьтерный методический материал к лабораторным работам. Блюдина Л.С. - 42 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

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

Рубрика: 

4) Открывается запрос.
Пример № 1. Создание запроса для вывода записей, имеющих фамилию,
начинающуюся с одной и той же буквы, из БД «Телефонная книжка»
Для работы с электронной телефонной книжкой как с обычной
желательно иметь возможность просматривать абонентов только с
фамилиями, начинающимися на одну букву. Для этого воспользуемся
запросом с параметром.
1.
Загрузим заготовку проекта, созданную в лабораторной работе № 2.
Зададим свойству Caption формы значение «Информация о людях (запрос)».
Сразу же сохраним все составные части проекта в файлах с теми же именами,
что и прежние, но с добавлением цифры «5» в конце имени:
MyExUnitDB5.pas, MyExampleDB5.dpr.
2.
Со страницы DataAccess поместим на форму Form1 компоненту Query
(Запрос).
Выберем компоненту Query1, активизируем свойство SQL и в появившемся
текстовом редакторе введем следующие строки, которые задают запрос на
языке
SQL
:
SELECT D.*, D1.*
FROM “<путь к файлу>\People.db” D, “<путь к файлу>\Tel.db” D1
WHERE
(D.IDPeople = D1.IDPeople) AND (D.Family Like :FirstChar).
Оператор Like позволяет отобрать записи, которые определяются
параметром FirstChar в поле Family. Затем активизируем свойство Params и в
появившемся окне редактора параметров запроса Form1.Query1 Parameters
выполним следующее. Выберем из списка Parameter Name (Название
параметра) FirstChar, в строке ввода со списком DataType (тип данных)
выберем String и в строке Value (Значение) введем А% - начальное значение.
Завершим настройку нажатием кнопки ОК.
3.
Установим у свойств Active и RequestLive компоненты Query1 значение
True, используя инспектор объектов.
4.
Со страницы DataAccess палитры компонент поместим на форму Form1
еще одну компоненту DataSource. Активизируем ее и установим свойство
DataSet в Query1.
5.
Перейдем к форме Form1. Справа от компоненты DBGrid1 поместим со
страницы Standart палитры компонент две компоненты Label. Свойству
Caption компоненты Label6 зададим значение Постраничный, а свойству
Caption компоненты Label7 – Просмотр.
6.
Ниже, под компонентами Label6 и Label7, поместим со страницы Standart
кнопку Button. Изменим ее свойство Caption на Просмотр. При нажатии на
эту кнопку будет происходить переход на новую форму, на которой будет
реализован постраничный просмотр БД «Телефонная книжка».
Активизируем ее и в появившемся обработчике события OnClick введем
следующее:
procedure TForm1.Button1Click(Sender: TObject);

Страницы