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

UptoLike

ВУЗ: 

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

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

Рубрика: 

3.
Выберем кнопку Button1 и изменим ее свойство Caption на «А – М».
Активизируем ее и в появившемся обработчике события OnClick введем
следующие строки:
procedure
TForm2.Button1Click(Sender: TObject);
begin
WITH
Form1.Query1
DO
BEGIN
Close;
SQL.Clear;
SQL.Add('SELECT D.*, D1.*');
SQL.Add('FROM "People.db" D, "Tel.db" D1');
SQL.Add('WHERE');
SQL.Add('(D1.IDPeople = D.IDPeople)AND(D.Family < "Н")');
SQL.Add('ORDER BY D.Family ASC');
Open;
END;
Form1.DataSource3.DataSet := Form1.Query1;
DBGrid1.DataSource := Form1.DataSource3;
end;
4.
Выберем кнопку Button3 и изменим ее свойство Caption на «Н – Я».
Активизируем ее и в появившемся обработчике события OnClick внесем
следующее:
procedure
TForm2.Button3Click(Sender: TObject);
begin
WITH
Form1.Query1
DO
BEGIN
Close;
SQL.Clear;
SQL.Add('SELECT D.*, D1.*');
SQL.Add('FROM "People.db" D, "Tel.db" D1');
SQL.Add('WHERE');
SQL.Add('(D1.IDPeople = D.IDPeople)AND(D.Family >= "Н")');
SQL.Add('ORDER BY D.Family ASC');
Open;
END;
Form1.DataSource3.DataSet := Form1.Query1;
DBGrid1.DataSource := Form1.DataSource3;
end;
5. Запустим программу командой Run|Run.
6.
Перейдем ко второй форме, нажав кнопку Просмотр. Нажимая кнопки «А
– М» и «Н – Я», можем видеть, как меняется набор отображаемых записей.
7.
Завершим работу приложения.
8.
Сохраним все изменения в проекте.
Задание к лабораторной работе № 4.

Страницы