FROM Personnel.db

SELECT Name, Position, Salary

Begin

Queryl.Close;

Queryl.SQL.Clear;

Queryl.SQL.Add('SELECT Name, Position, Salary');

Queryl.SQL.Add('FROM Personnel.db');

Queryl.SQL.Add('WHERE Salary >= ' + Editl.Text);

Queryl.Open;

end;

С помощью параметров эту задачу можно решить проще, например, через включение в текст запроса параметра prmSalary:

WHERE Salary >=:prmSalary

Система Delphi автоматически учитывает все указанные в SQL-запросе парамет­ры в специальном списке параметров, являющемся для набора данных Query значением свойства Params типа TParams, представляющим собой массив. Это свойство позволяет получить доступ к каждому параметру как при разработке, так и при выполнении приложения. Чтобы обратиться к параметру во время выполнения приложения, следует указать его номер (индекс) в списке парамет­ров. Например, для обращения ко второму параметру указывается Params [1]. На этапе разработки приложения можно вызвать Редактор параметров (рис. 8.2) в Инспекторе объектов. Тип каждого параметра необходимо указать в свойстве DataType типа TFieldType. Например, для параметра prmSalary уста­новлен тип ftFloat.

Рис. 8.2. Окно Редактора параметров

В последующем перед выполнением запроса вместо параметра необходимо под­ставить его значение, в данном случае из редактора Editl. Ниже приведен код обработчика события нажатия кнопки Buttonl, выполняющий указанное дей­ствие.

procedure TForml.ButtonlClick(Sender: TObject);

Дата добавления: 2014-01-07