30.3. Пример использования запросов в Delphi

Сформируем форму так, как это показано на рис.30.1, и напишем обработчики событий создания формы и нажатия кнопки «Выполнить» следующим образом:

Procedure TForm1.FormCreate(Sender:TObject);

Begin // Связь в БД определяется в файле DB1.udl

ADOConnection1.ConnectionString:=’File Name=DB1.udl’;

ADOConnection1.Open; // Открываем соединение с БД

// Связываем компоненты доступа и управления БД

ADOQuery1.Connection:=ADOConnection1;

DataSource1.DataSet:=ADOQuery1;

DBGrid1.DataSource:=DataSource1;

End;

Procedure TForm1.Button1Click(Sender:TObject);

Begin

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

If ADOQuery1.Active then ADOQuery1.Close;

ADOQuery1.SQL.Clear; // Очищаем текст запроса

ADOQuery1.SQL.Add(’Select * From TSpis;’); // Записываем запрос

// Выполняем запрос и выводим результат запроса в DBGrid1.

ADOQuery1.Open;

End;

Рис.30.1. Форма с компонентами для работы с запросами