5.3.3Схема программного формирования sql-запроса

Ниже приводится традиционная схема программного формирования и активизации SQL-запроса. Она состоит в следующих шагах:

1. Закрытие текущего запроса, если ранее он был открыт на этапе проектирования или выполнения программы;

2. Очистка текста – свойства SQL, текущего запроса;

3. Формирование нового текста SQL-запроса;

4. Заненсение текста SQL-запроса в свойство SQL компонента TQuery;

5. Открытие или активизация запроса;

6. В случае результативного выполнения запроса Select выполняется переход к первой записи временной таблицы, содержащей результат запроса.

Ниже приводится соответствующий фрагмент текста программы. При этом компонент quNakls расположен на главной форме.

var SQLTxt: string; … begin quNakls.Close; // Закрытие запроса quNakls.SQL.Clear; // Очистка запроса // Формирование нового текста запроса SQLTxt := 'SELECT NaklID, NDate, FName, TName, NSum, NFirm, ' + 'NPayedSum, NRetSum, NCoeff, NretDate ' + 'FROM Nakls, Firms, TypeNakl ' + 'WHERE FirmID = NFirm AND TypeID = NType AND ' + 'NSum > 10000 AND NType IN (0, 6) AND ' + 'NDate = "02.03.2000" '; quNakls.SQL.Add(SQLTxt); //Занесение нового текста запроса //в свойство SQL quNakls.Open; // Открытие запроса quNakls.First; //Переход к первой записи результата запроса end;

5.3.4Параметрические запросы

Запросы, которые рассматривались до сих пор, относятся к статическим запросам, т.е. запросам, ограничения в которых заданы явно – в виде соответствующих констант. Пусть, например, нужно создать запрос, который возвращает НД со списком партнеров, поставивших книги 02.03.2000. Такой запрос является статическим.

Рисунок 4.58 – Текст статического запроса в окне редактора кода

Возможным решением по созданию динамического вопроса ывляется использование возможности по склеиванию строк. Действительно запрос является строкой. Поэтому его можно разбить на части и затем склеивать эти части перед отправкой запроса на выполнение. При этом некоторые части перед склеиванием могут быть специально подготовлены быть изменены.

Ниже приводится соответствующий фрагмент текста программы. При этом компонент quNakls расположен на главной форме.

var SQLTxt: string; TmpTxt: string; … begin quNakls.Close; // Закрытие запроса quNakls.SQL.Clear; // Очистка запроса // Формирование нового текста запроса TmpTxt := '02.03.2000'; SQLTxt := 'SELECT NaklID, NDate, FName, TName, NSum, NFirm, ' + 'NPayedSum, NRetSum, NCoeff, NretDate ' + 'FROM Nakls, Firms, TypeNakl ' + 'WHERE FirmID = NFirm AND TypeID = NType AND ' + 'NSum > 10000 AND NType IN (0, 6) AND ' + 'NDate = ' + TmpTxt; //'NDate = ' + Edit1.txt; quNakls.SQL.Add(SQLTxt); //Занесение нового текста запроса в св-во SQL quNakls.Open; // Открытие запроса quNakls.First; //Переход к первой записи результата запроса end;

Однако такое решение не всегда удобно. Поэтому в современных языках программирования в SQL-запросах применена техника подобная процедурам с параметрами, когда SQL-запрос уточняется с помощью набора параметров.

Значения параметров могут меняться в процессе прогона программы и, в общем случае, порождают одинаковые по структуре, но разные по содержанию НД.

В тексте параметрического запроса компонента TQuery имени параметра предшествует двоеточие ":". Количество параметров не ограничено.

Пусть, например, нужно создать запрос, который во время выполнения программы возвращает НД со списком партнеров, поставивших книги в определенный день, который указывается в параметре DATA. В этом случае вместо статического запроса, показанного выше, следует использовать параметрический запрос. В тексте параметрического запроса имени параметра DATE предшествует двоеточие ":".

Рисунок 4.59 – Текст параметрического запроса в окне редактора кода

Начальное значение параметра DATE может быть задано на этапе разработки программы и изменено в процессе ее выполнения.

Для установки начального значения параметра DATE необходимо вызвать редактор свойства Params запроса (Рисунок 4 .60)

Рисунок 4.60 – Вызов редактора свойства Params

В результате появится окно редактора, содержащее заготовку для создаваемого параметра DATE. Первый по счету параметр имеет индекс 0.

Рисунок 4.61 – Содержимое редактора свойства Params

Теперь необходимо выполнить редактирование параметра DATE с помощью инспетора объектов дя этого параметра. Для этого необходимо щелкнуть мышью на DATE после чего появятся свойства параметра (Рисунок 4 .62)

Рисунок 4.62 – Определение начального значения параметра DATE

Имена параметров могут быть произвольными идентификаторами Delphi. Регистр букв в них не имеет значения. Для задания начального значения параметра обычно достаточно в окне инспектора объектов определить его свойство Value, тогда Delphi автоматически укажет его тип данных в свойстве DataType.

Если тип указан неверно (например, вместо integer среда Delphi выбрала SmallInt), следует раскрыть список этого свойства и выбрать тип данных явно.

Не следует менять имя параметра в свойстве Name на другое, так как в этом случае Delphi не корректирует текст запроса и в нем будет фигурировать прежнее имя.

Для программного задания значения параметра (см. ниже) используется свойство компонента TQuery:

property Params[Index: word]: TParams;

Можно также использовать следующий метод компонента TQuery:

function ParamByName(const Value: string): TParam;

В первом случае конкретный параметр задается индексом Index, причем первый по тексту запроса параметр имеет индекс 0, второй - 1 и т. д. Во втором случае параметр определяется своим именем в тексте запроса (но не именем в свойстве Name инспектора объектов!). В любом случае при обращении к параметру его значение нужно явно приводить к типу данных параметра свойством AsXXXX:

quNakls.Params[0].AsDate := '02.03.2000';

quNakls.ParamByName('Date').AsDate := '02.03.2000';

Если к моменту программного изменения параметра запрос был открыт, его нужно закрыть (Close) и очистить (Clear), а затем установить параметр(ы) и открыть вновь. Например:

quNakls.Close; // Закрытие запроса quNakls.SQL.Clear; // Очистка запроса // Формирование нового текста запроса SQLTxt := 'SELECT NaklID, NDate, FName, TName, NSum, NFirm, ' + 'NPayedSum, NRetSum, NCoeff, NretDate ' + 'FROM Nakls, Firms, TypeNakl ' + 'WHERE FirmID = NFirm AND TypeID = NType AND ' + 'NSum > 10000 AND NType IN (0, 6) AND ' + 'NDate = :Date' ; quNakls.SQL.Add(SQLTxt); //Занесение нового текста запроса в свойство SQL //Параметры запроса записываются после занесения нового //запроса quNakls.Params[0].AsDate := 02.03.2000; //quNakls.ParamByName('Date').AsDate := '02.03.2000'; quNakls.Open; // Открытие запроса quNakls.First; //Переход к первой записи результата запроса

Примечание. Параметры запроса в тексте программы записываются после занесения текста запроса в поле SQL.

Значение NULL свидетельствует о том, что полю не присвоено никакого значения ("пустое" поле). Значение 0 для числовых полей или пустая строка для текстовых полей - это вполне определенные, отличные от NULL значения. Чтобы присвоить параметру значение NULL при прогоне программы, следует выполнить его метод Clear (на этапе разработки нужно очистить свойство Value параметра в окне инспектора объектов). Например:

quNakls.Params[0].Clear;