Свойство SQL - вероятно, самая важная часть TQuery. Доступ к этому свойству происходит либо через Инспектор Объектов во время конструирования проекта (design time), или программно во время выполнения программы (run time).

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

Свойство SQL имеет тип TStrings, который означает что это ряд строк, сохраняемых в списке. Список действует также, как и массив, но, фактически, это специальный класс с собственными уникальными возможностями. В следующих нескольких абзацах будут рассмотрены наиболее часто используемые свойства.

При программном использовании TQuery, рекомендуется сначала закрыть текущий запрос и очистить список строк в свойстве SQL:

Query1.Close;

Query1.SQL.Clear;

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

Следующий шаг - добавление новых строк в запрос:

Query1.SQL.Add(‘Select * from Country’);

Query1.SQL.Add(‘where Name = ’’Argentina’’’);

Метод Add используется для добавления одной или нескольких строк к запросу SQL. Общий объем ограничен только количеством памяти на вашей машине.

Чтобы Delphi отработал запрос и возвратил курсор, содержащий результат в виде таблицы, можно вызвать метод:

Query1.Open;

Например, следующий SQL запрос:

Select * form Country where Name like ’C%’ возвращает DataSet, содержащий все записи, где поле Name начинается с буквы ‘C’. Следующий запрос позволит увидеть все страны, в названии которых встречается буква ‘C’:

Select * from Country where Name like ‘%C%’;

Вот запрос, которое находит все страны, название которых заканчивается на ‘ia’:

Select * from Country where Name like ‘%ia’;

TQuery и Параметры

Delphi позволяет составить “гибкую” форму запроса, называемую параметризованным запросом. Такие запросы позволяют подставить значение переменной вместо отдельных слов в выражениях “where” или “insert”. Эта переменная может быть изменена практически в любое время. (Если используется локальный SQL, то можно сделать замену почти любого слова в утверждении SQL, но при этом та же самая возможность не поддерживается большинством серверов.)

Перед тем, как начать использовать параметризованные запросы, рассмотрим снова одно из простых вышеупомянутых предложений SQL:

Select * from Country where Name like ’C%’

Можно превратить это утверждение в параметризованный запрос заменив правую часть переменной NameStr: select * from County where Name like :NameStr

В этом предложении SQL, NameStr не является предопределенной константой и может изменяться либо во время дизайна, либо во время выполнения. SQL parser (программа, которая разбирает текст запроса) понимает, что он имеет дело с параметром, а не константой потому, что параметру предшествует двоеточие ":NameStr". Это двоеточие сообщает Delphi о необходимости заменить переменную NameStr некоторой величиной, которая будет известна позже.

Нужно обратите внимание, что слово NameStr было выбрано абсолютно случайно. Использовать можно любое допустимое имя переменной, точно также, как выбирается идентификатор переменной в программе.

Есть два пути присвоить значение переменной в параметризованном запросе
SQL. Один способ состоит в том, чтобы использовать свойство Params объекта
TQuery. Второй - использовать свойство DataSource для получения информации из другого DataSet. Вот ключевые свойства для достижения этих целей:

property Params[Index: Word]; function ParamByName(const Value: string); property DataSource;

Если подставлять значение параметра в параметризованный запрос через свойство Params, то обычно нужно сделать четыре шага:

1. Закрыть TQuery
1. Подготовить объект TQuery, вызвав метод Prepare
2. Присвоить необходимые значения свойству Params
3. Открыть TQuery

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

Вот фрагмент кода, показывающий как это может быть выполнено практически:

Query1.Close;

Query1.Prepare;

Query1.Params[0].AsString := ‘Argentina’;

Query1.Open;

Params - это индексированное свойство, которое имеет синтаксис как у свойства Fields для TDataSet. Например, можно получить доступ к первой переменной в SQL запросе, адресуя нулевой элемент в массиве Params:

Params[0].AsString := ‘”Argentina”’;

Если параметризованный SQL запрос выглядит так: select * from Country where Name = :NameStr то конечный результат (т.е. то, что выполнится на самом деле) - это следующее предложение SQL: select * from Country where Name = “Argentina”

Все, что произошло, это переменной :NameStr было присвоено значение
"Аргентина" через свойство Params.

Если в запросе содержится более одного параметра, для того чтобы иметь доступ к ним нужно изменить индекс у свойства Params

Params[1].AsString :=‘SomeValue’; либо используя доступ по имени параметра

ParamByName(‘NameStr’).AsString:=’”Argentina”’;

Итак, параметризованные SQL запросы используют переменные, которые всегда начинаются с двоеточия, определяя места, куда будут переданы значения параметров.

Прежде, чем использовать переменную Params, сначала можно вызвать
Prepare. Этот вызов заставляет Delphi разобрать ваш SQL запрос и подготовить свойство Params так, чтобы оно "было готово принять” соответствующее количество переменных. Можно присвоить значение переменной
Params без предварительного вызова Prepare, но это будет работать несколько медленнее.

После того, как был вызыван метод Prepare, и после того, как были присвоены необходимые значения переменной Params, Нужно вызвать метод Open, чтобы закончить привязку переменных и получить желаемый DataSet. В нашем случае, DataSet должен включать записи где в поле “Name” стоит “Argentina”.

Open или ExecSQL?

После того, как составлен SQL запрос, есть два различных способа выполнить его. Если нужно получить курсор, то нужно вызывать Open. Если выражение SQL не подразумевает возвращение курсора, то нужно вызывать
ExecSQL. Например, если происходит вставка, удаление или обновление данных
(т.е. SQL запросы INSERT, DELETE, UPDATE), то нужно вызывать ExecSQL. Тоже самое можно сказать по-другому: Open вызывается при запросе типа SELECT, а
ExecSQL - во всех остальных случаях.

Вот типичный SQL запрос, который используется для удаления записи из таблицы:

delete from Country where Name = ‘Argentina’;

Этот запрос удалил бы любую запись из таблицы COUNTRY, которая имеет значение "Argentina" в поле Имя.

Не трудно заметить, что это тот случай, когда удобно использовать параметризованный запрос. Например, неплохо было бы менять имя страны, которую требуется удалить: delete from Country where Name = :CountryName

В этом случае переменная :CountryName может быть изменена во время выполнения:

Query2.Prepare;

Query2.Params[0] := ‘Argentina’;

Query2.ExecSQL;

Код сначала вызывает Prepare, чтобы сообщить Delphi что он должен разобрать SQL запрос и подготовить свойство Params. Следующим шагом присваивается значение свойству Params и затем выполняется подготовленный
SQL запрос. Нужно обратите внимание, что он выполняется через ExecSQL, а не Open.

6. Сходства и различия TTable и TQuery

Хотя компоненты TTable и TQuery и являются потомками класса TDataSet и во многом, методика работы с объектом TQuery похожа на методику работы с
TTable, однако есть свои особенности.

Поскольку в ряде случаев компоненты TTable и TQuery в приложениях взаимозаменяемы, то возникает вопрос – какой же из них использовать?

При работе с локальными базами данных чаще используется Table. С его помощью проще не только просматривать таблицу базы данных, но и модифицировать записи, удалять их, вставлять новые. Но при работе с клиент
- серверными базами данных компонент Table становится мало эффективным. В этом случае он создает на компьютере пользователя временную копию серверной базы данных и работает с этой копией. Естественно, что подобная процедура требует больших ресурсов и существенно загружает сеть.

Этот недостаток отсутствует в компоненте Query. Если запрос SQL сводится к просмотру таблицы (запрос Select), то результат этого запроса (а не сама исходная таблица) помещается во временном файле на компьютере пользователя.
Правда, в отличии от набора данных, создаваемого Table, это таблица только для чтения и не допускает каких-то изменений. Впрочем, это ограничение можно обойти. Если же запрос SQL связан с какими-то изменениями содержания таблицы, то никаких временных таблиц не создается. BDE передает запрос на сервер, там он обрабатывается и в приложение возвращается информация о том, успешно ли завершена соответствующая операция. Благодаря такой организации работы эффективность Query при работе в сети становится намного выше, чем эффективность Table. К тому же язык SQL,позволяет формулировать сложные запросы, которые не всегда можно реализовать в Table.

С другой стороны при работе с локальными данных эффективность Query заметно ниже эффективности Table. Замедление вычислений получается весьма ощутимым.

Исходя из этого краткого обзора возможностей Table и Query, можно заключить, что в клиент – серверных приложениях целесообразней использовать компонент Query, а при работе с локальными базами данных где не нужна мощь компонента Query проще использовать Table.

7. Заключение

Какой компонент выбрать при разработке приложений баз данных Table или
Query? Ответ на этот вопрос не сложен. Если приложение клиент – серверное, то однозначно целесообразней использовать компонент Query, поскольку во- первых, он более гибок и гораздо мощнее Table, а во-вторых не загружает сеть, а если база данных локальная, то во многих случаях можно обойтись
Table, так как работа с ним гораздо проще и где не требуется мощь SQL - запросов он вполне может заменить Query.

8. Приложение

Чтобы показать реальную работу компонентов Delphi для работы с базами данных я приведу пример приложения работающего с БД «Справочник сотрудника
ГИБДД».

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

База данных состоит из 6 таблиц:

1. Autos – данные о автомобилях

2. Colors – цвета

3. Construction – типы кузова

4. Driver – данные о водителях

5. Marks – марки автомобилей

6. Ugon – данные о угнанных автомобилях

[pic]

рис 1. Главная форма приложения

Работа приложения начинается с подключения к БД с помощью пункта меню БД-
Подключиться или нажатия комбинации клавиш “Alt+C”. Отключение – БД-
Отключиться/Выход или нажатие клавиши F10.

Пункт меню «Работа» содержит в себе следующие подпункты: «Поиск автомобиля» (рис.2) и «Приглашение на тех.осмотр» (рис.3). В первом подпункте ведется поиск, имеется возможность поиска транспортного средства по различным критериям.
[pic]

рис 2. Форма поиска для поиска транспортного средства

[pic]

рис 3. Форма транспортных средств подлежащих тех.осмотру

Во втором подпункте меню «Работа», ведется работа с владельцами транспортных средств, просрочивших дату тех.осмотра. Имеется возможность поиска владельца по фамилии, а также возможность печати приглашения на технический осмотр транспортного средства. Вид окна печати данного приглашения приведен на рис. 4.
[pic]

рис 4. Вид окна отчета «Приглашение на те.осмотр»

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

Основным справочником является справочник «Автомобили» (рис.6), здесь сосредоточены данные обо всех автомобилях и их владельцах зарегистрированных в базе данных.

[pic]

рис 5. Справочник автомобилей

Список использованной литературы:

1. В.Фаронов «Программирование баз данных в Delphi 6» Питер 2003

2. А.Я.Архангельский «Программирование в Delphi 6» Бином 2003

3. В.Бобровский «Delphi 5» Питер 2001

4. И.Ю.Баженова «Delphi 5 Самоучитель программиста» Кудиц-Образ 2001

-----------------------

Таблица базы данных

data set

Table, Query или StoredProc

data source

DataSource

Визуализация и управление: DBGrid, DBEdit, DBNavigator

[pic]
?

Страницы: 1, 2, 3