Задание8_Работа_с_БД (1076744), страница 6

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 6)

SQL.Add('FROM school.db');

SQL.Add('WHERE');

SQL.Add('(Fam = "' + fam + '")');

SQL.Add('ORDER BY Name, Fam');

Open; // активизируем выполнение запроса

end;

Следующая программа, ее текст приведен в листинге 2, а диалоговое ок­но — на рис. 26, демонстрирует возможность изменения запроса, точнее, критерия запроса, во время работы программы. Программа обеспечивает вывод как всего списка учеников, так и его части. Например, посредством выполнения запроса выводится информация только о конкретном ученике.

Для просмотра базы данных и результата выполнения запроса используется компонент DBGrid1, который через компонент DataSource1 взаимодействует с компонентом Table1 (при просмотре всей базы данных) или с компонен­том Query (при просмотре результата выполнения запроса).

Рис. 17.26. Форма приложения База данных Школа

Листинг 2. Форма приложения База данных Школа

unit school2_;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

Grids, DBGrids, Db, DBTables, ExtCtrls, DBCtrls, StdCtrls;

type

TForm1 = class(TForm)

Table1: TTable; // таблица (вся база данных)

Query1: TQuery; // запрос (записи БД, удовлетворяющие критерию выбора)

DataSource1: TDataSource; // источник данных - таблица или запрос

DBGrid1: TDBGrid;//таблица для отображения БД или результата выполнения запроса

DBNavigator1: TDBNavigator;

DBText1: TDBText;

Button1: TButton; // кнопка запрос

Button2: TButton; // кнопка Все записи

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure FormActivate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

// щелчок на кнопке Запрос

procedure TForm1.Button1Click(Sender: TObject);

var

fam: string[30];

begin

fam:=InputBox('Выборка информации из БД',

'Укажите фамилию и щелкните на OK.', '');

if fam <> '' // пользователь ввел фамилию

then

begin

with form1.Query1 do begin

Close; // закрыть файл-результат выполнения предыдущего запроса

SQL.Clear; // удалить текст предыдущего запроса

// записываем новый запрос в свойство SQL

SQL.Add('SELECT Fam, Name, Class');

SQL.Add('FROM ":Школа:school.db"');

SQL.Add('WHERE');

SQL.Add('(Fam = "'+ fam + '")');

SQL.Add('ORDER BY Name, Fam');

Open; // активизируем выполнение запроса

end;

{ *** другой вариант изменения критерия запроса

begin

Query1.Close;

Query1.SQL[3]:='(Fam="'+ fam + '")';

Query1.Open;

DataSource1.DataSet:=Query1;

end;

}

if Query1.RecordCount <> 0 then

DataSource1.DataSet:=Query1 // отобразить рез-т выполнения запроса

else begin

ShowMessage('В БД нет записей, удовлетворяющих критерию запроса.');

DataSource1.DataSet:=Table1;

end;

end;

end;

// щелчок на кнопке Все записи

procedure TForm1.Button2Click(Sender: TObject);

begin

DataSource1.DataSet:=Table1; // источник данных - таблица

end;

// активизация формы

procedure TForm1.FormActivate(Sender: TObject);

begin

DataSource1.DataSet := Table1;

Table1.Active := True;

end;

end.

Процедура TForml.Button1Click запускается щелчком кнопки Запрос. Она принимает от пользователя строку (фамилии) и записью (добавлением) строк в свойство sql формирует текст запроса. Затем эта процедура вызо­вом метода Open активизирует выполнение запроса.

Следует обратить внимание на то, что перед изменением свойства SQL-запрос должен быть закрыт при помощи метода Close (здесь надо вспом­нить, что результат выполнения запроса — это файл данных (таблица), ко­торый создается в результате выполнения запроса).

Процедура TForm1.Button2Click, которая запускается щелчком кнопки Все записи, устанавливает в качестве источника данных для компонента DataSource1 компонент Table1, тем самым обеспечивая переход в режим просмотра всей базы данных.

Если запрос записан в свойство sql во время разработки формы приложе­ния, то во время работы программы критерий запроса можно изменить простой заменой соответствующей строки текста запроса.

Например, для запроса

SELECT DISTINCT Fam, Name, Class

FROM ":Школа:school.db"

WHERE

(Class= ‘10a’) ORDER BY Name, Fam

инструкция замены критерия запроса может быть такой:

forml.Queryl.SQL[3]:='(Fam=”’ + fam+ '")'

Следует обратить внимание на то, что свойство sql является структурой типа TStrings, в которой строки нумеруются с нуля.

Характеристики

Список файлов лабораторной работы