Советы по Delphi. Версия 1.4.3 от 1.1.2001

Способ подключения TQuery к TTable – через TDatasource. Есть два основных способа сделать это. Во-первых, разместить код в обработчике события TDatasource OnDataChange. Например, листинг 3 демонстрирует эту технику.

Листинг 3 – Использования события OnDataChange для просмотра дочерних записей

procedure TForm1.DataSource2DataChange(Sender: TObject; Field: TField);
begin
 Query1.Close;
 if not Query1.prepared then Query1.prepare;
 Query1.ParamByName('Dept_no').asInteger := Table1Dept_No.asInteger;
 try
 Query1.Open;
 except On e : EDatabaseError do
 messageDlg(e.message, mtError, [mbOK], 0);
 end;
end;

Техника с использованием OnDataChange очень гибка, но есть еще легче способ подключения Query к таблице. Компонент TQuery имеет свойство Datasource. Определяя TDatasource для свойства Datasource, объект TQuery сравнивает имена параметров в SQL-запросе с именами полей в TDatasource. В случае общих имен, такие параметры заполняются автоматически. Это позволяет разработчику избежать написание кода, приведенного в листинге 3 (*** приведен выше ***).

Фактически, техника использования Datasource не требует никакого дополнительного кодирования. Для поключения запроса к таблице DEPT_NO выполните действия, приведенные в листинге 4.

Листинг 4 – Связывание TQuery c TTable через свойство Datasource

Выберите у Query1 свойство SQL и введите:

select * from EMPLOYEE
where DEPT_NO = :dept_no

Выберите свойство Datasource и назначьте источник данных, связанный с Table1 (Datasource2 в нашем примере)

Выберите свойство Active и установите его в True

Это все, если вы хотите создать такой тип отношений. Тем не менее, существуют некоторые ограничения на параметризованные запросы. Параметры ограничены значениями. К примеру, вы не можете использовать параметр с именем Column или Table. Для создания запроса, динамически изменяемого имя таблицы, вы могли бы использовать технику конкатенации строки. Другая техника заключается в использовании команды Format.

Команда Format

Команда Format заменяет параметры форматирования (%s, %d, %n и пр.) передаваемыми значениями. Например,

Format('Select * from %s', ['EMPLOYEE'])

Результатом вышеприведенной команды будет 'Select * from EMPLOYEE'. Функция буквально делает замену параметров форматирования значениями массива. При использовании нескольких параметров форматирования, замена происходит слева направо. Например,

tblName := 'EMPLOYEE';
fldName := 'EMP_ID';
fldValue := 3;
Format('Select * from %s where %s=%d', [tblName, fldName, fldValue])

Результатом команды форматирования будет 'Select * from EMPLOYEE where EMP_ID=3'. Такая функциональность обеспечивает чрезвычайную гибкость при динамическом выполнении запроса. Пример, приведенный ниже в листинге 5, позволяет вывести в результатах поле salary. Для поля salary пользователь может задавать критерии.

Листинг 5 – Использование команды Format для создания SQL-запроса

procedure TForm1.BitBtn1Click(Sender: TObject);
var
sqlString : string; {здесь хранится SQL-запрос}
 fmtStr1, fmtStr2 : string; {здесь хранится строка, передаваемая для форматирования}
begin
 { Создание каркаса запроса }
 sqlString := 'Select EMP_NO %s from employee where SALARY %s';
 if showSalaryChkBox.checked {Если checkbox Salary отмечен} then
 fmtStr1 := ', SALARY'
 else fmtStr1 := '';
 if salaryEdit.text <> '' { Если поле редактирования Salary не пустое } then
 fmtStr2 := salaryEdit.text
 else fmtStr2 := '>0';
 Query1.Close; {Деактивируем запрос в качестве одной из мер предосторожности }
 Query1.SQL.Clear; {Стираем любой предыдущий запрос}
 Query1.SQL.Add(Format(sqlString,[fmtStr1, fmtStr2])); {Добавляем}
 {форматированную строку к свойству SQL}
 try {перехватчик ошибок}
 Query1.Open; {Выполняем запрос и открываем набор данных}
 except {секция обработки ошибок}
 On e : EDatabaseError do {e – новый дескриптор ошибки}
 messageDlg(e.message, mtError,[mbOK],0);
 {показываем свойство message объекта e}
 end; {окончание обработки ошибки}
end;

В этом примере мы используем методы Clear и Add свойства SQL. Поскольку «подготовленный» запрос использует ресурсы сервера, и нет никакой гарантии что новый запрос будет использовать те же таблицы и столбцы, Delphi, при каждом изменении свойства SQL, осуществляет операцию, обратную «подготовке» (unprepare). Если TQuery не был подготовлен (т.е. свойство Prepared установлено в False), Delphi автоматически подготавливает его при каждом выполнении. Поэтому в нашем случае, даже если бы был вызван метод Prepare, приложению от этого не будет никакой пользы.

Open против ExecSQL

В предыдущих примерах TQuerie выполняли Select-запросы. Delphi рассматривает результаты Select-запроса как набор данных, типа таблицы. Это просто один класс допустимых SQL-запросов. К примеру, команда Update обновляет содержимое записи, но не возвращает записи или какого-либо значения. Если вы хотите использовать запрос, не возвращающий набор данных, используйте ExecSQL вместо Open. ExecSQL передает запрос для выполнения на сервер. В общем случае, если вы ожидаете, что получите от запроса данные, то используйте Open. В противном случае допускается использование ExecSQL, хотя его использование с Select не будет конструктивным. Листинг 6 содержит код, поясняющий сказанное на примере.