Валентин Озеров - Советы по Delphi. Версия 1.4.3 от 1.1.2001

Query1.params[0].asInteger := 900;

Свойство asInteger читает данные как тип Integer (название говорит само за себя). Это не обязательно должно указывать но то, что поле имеет тип Integer. Например, если тип поля VARCHAR(10), Delphi осуществит преобразование данных. Так, приведенный выше пример мог бы быть записан таким образом:

Query1.params[0].asString := '900';

или так:

Query1.params[0].asString := edit1.text;

Если вместо номера индекса вы хотели бы использовать имя параметра, то воспользуйтесь методом ParamByName. Данный метод возвращает объект TParam с заданным именем. Например:

Query1.ParamByName('DEPT_NO').asInteger := 900;

В листинге 2 приведен полный код примера.

procedureTForm1.BitBtn1Click(Sender: TObject);

begin

Query1.close; {Деактивируем запрос в качестве одной из мер предосторожности }

if notQuery1.prepared then

Query1.prepare; {Убедимся что запрос подготовлен}

{Берем значение, введенное пользователем и заменяемим параметр.}

ifedit1.text <> '' {Проверяем на предмет пустого ввода} then

Query1.ParamByName('DEPT_NO').AsString := edit1.text

else Begin

Query1.ParamByName('DEPT_NO').AsInteger := 0;

edit1.text := '0';

end;

try {перехватчик ошибок}

Query1.Open; {Выполняем запрос и открываем набор данных}

except {секция обработки ошибок}

One : EDatabaseError do{e – новый дескриптор ошибки}

messagedlg(e.message, mtError, [mbOK],0); {показываем свойство message объекта e}

end; {окончание обработки ошибки}

end;

Обратите внимание на процедуру, первым делом подготовливающую запрос. При вызове метода prepare, Delphi посылает SQL запрос на удаленный сервер. Сервер выполняет грамматический разбор и оптимизацию запроса. Преимущество такой подготовки запроса состоит в его предварительном разборе и оптимизации. Альтернативой здесь может служить подготовка сервером запроса при каждом его выполнении. Как только запрос подготовлен, подставляются необходимые новые параметры, и запрос выполняется.

В предыдущем примере пользователь мог ввести номер отдела, и после выполнения запроса отображался список сотрудников этого отдела. А как насчет использования таблицы DEPARTMENT, позволяющей пользователю легко перемещаться между пользователями и отделами?

Примечание: Следующий пример использует TTable с именем Table1. Для Table1 имя базы данных IBLOCAL, имя таблицы – DEPARTMENT. DataSource2 TDatasource связан с Table1. Таблица также активна и отображает записи в TDBGrid.

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

procedureTForm1.DataSource2DataChange(Sender: TObject; Field: TField);

begin

Query1.Close;

if notQuery1.prepared thenQuery1.prepare;

Query1.ParamByName('Dept_no').asInteger := Table1Dept_No.asInteger;

try

Query1.Open;

except One : EDatabaseError do

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

end;

end;

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

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

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

select * from EMPLOYEE

where DEPT_NO = :dept_no

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

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

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

procedureTForm1.BitBtn1Click(Sender: TObject);

var

sqlString : string; {здесь хранится SQL-запрос}

fmtStr1, fmtStr2 : string; {здесь хранится строка, передаваемая для форматирования}

begin

{ Создание каркаса запроса }

sqlString := 'Select EMP_NO %s from employee where SALARY %s';

ifshowSalaryChkBox.checked {Если checkbox Salary отмечен} then

fmtStr1 := ', SALARY'

elsefmtStr1 := '';

ifsalaryEdit.text <> '' { Если поле редактирования Salary не пустое } then

fmtStr2 := salaryEdit.text

elsefmtStr2 := '>0';

Query1.Close; {Деактивируем запрос в качестве одной из мер предосторожности }

Query1.SQL.Clear; {Стираем любой предыдущий запрос}

Query1.SQL.Add(Format(sqlString,[fmtStr1, fmtStr2])); {Добавляем}

{форматированную строку к свойству SQL}

try{перехватчик ошибок}

Query1.Open; {Выполняем запрос и открываем набор данных}

except{секция обработки ошибок}

One : EDatabaseError do{e – новый дескриптор ошибки}

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

{показываем свойство message объекта e}

end; {окончание обработки ошибки}

end;

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