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

Озеров Валентин

Листинг 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 содержит код, поясняющий сказанное на примере.

Листинг 6

procedure Form1.BitBtnClick(sender : TObject)

begin

 Query1.Close;

 Query1.Clear;

 Query1.SQL.Add('Update SALARY from EMPLOYEE ' +'where SALARY<:salary values (SALARY*(1+:raise)');

 Query1.paramByName('salary').asString := edit1.text;

 Query1.paramByName('raise').asString := edit2.text;

 try

Query1.ExecSQL;

 except On e : EDatabaseError do

messageDlg(e.message, mtError, [mbOK], 0);

 end;

end;

Все приведенные выше примеры предполагают использования в ваших приложениях запросов. Они могут дать солидное основание для того, чтобы начать использовать в ваших приложениях TQuery. Но все же нельзя прогнозировать конец использования SQL в ваших приложених. Типичные серверы могут предложить вам другие характеристики, типа хранимых процедур и транзакций. В следующих двух секциях приведен краткий обзор этих средств.