Хранимые процедуры

113

1.Производительность.

2.Преимущества при разработке систем клиент-сервер.

3.Безопасность.

4.Поддержание дополнительных бизнес-правил на ввод данных.

Для создания хранимой процедуры применяется команда CREATE PROCEDURE. Например: ниже предложен код хранимой процедуры позволяющей добавлять в таблицу континентов новый материк:

CREATE PROCEDURE Continent_Insert (@Continent CHAR(15), @Continent_ID INT

OUTPUT)

AS

IF NOT EXISTS (Select * FROM Continent WHERE Continent=@Continent)

BEGIN

INSERT INTO Continent (Continent) VALUES (@Continent) SET @CONTINENT_ID=@@IDENTITY

END ELSE @CONTINENT_ID=-1

Процедура с именем “Continent_Insert” обладает двумя параметрами: @Continent (в него передаётся название материка) и выходной параметр @Continent_ID (он возвращает значение первичного ключа вновь вставленной записи). Перед добавлением новой строки процедура проверяет нет ли в таблице континентов материка с названием @Continent, и только после этого добавляет новую запись.

Для создания новой хранимой процедуры:

1.Запустите SQL Server Enterprise Manager.

2.Выберите базу данных, а в ней элемент Stored Procedures.

3.Из контекстного меню элемента Stored Procedures выполните команду New Store Procedure.

4.В окне Stored Procedure Properties введите код процедуры и нажмите кнопку ОК.

Триггеры

Сервер БД способен осуществлять контроль за логикой работы приложения и прохождении данных по таблицам. Один из мощнейших инструментов такого рода называется триггером.

Триггер – специальный тип процедуры, которая выполняется при вставке, модификации или удалении данных в некоторой таблице. Триггеры запускаются в самую последнюю очередь, и если работа триггера завершается аварийно, то информация в БД не обновляется.

Синтаксическая конструкция описания триггера выглядит следующим образом:

CREATE TRIGGER имя_триггера

ON имя_таблицы

FOR [INSERT, UPDATE, DELETE]

AS Операторы

По сути, триггер – это событие, возникающее после вставки (insert), редактирования (update) или удаления записей (delete) из таблицы.

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

© 2011 г. Д.Л. Осипов

114

CREATE TRIGER Continent_TR_DELETE

ON Continent

FOR DELETE

AS

DECLARE @Continent _ID INT

Select @ Continent _ID = Continent_ID From INSERTED

DELETE FROM Country WHERE Continent_ID=@Continent_ID

Задание

На основе БД разработанной на 17 лабораторной работе. Разработайте хранимые процедуры предназначенные для:

1.вставки, редактирования и удаления данных из таблиц;

2.просмотра данных в отдельных таблицах БД;

3.просмотра сводных данных (объединение всех таблиц БД);

4.поиска данных;

5.фильтрации данных.

© 2011 г. Д.Л. Осипов

115

XIX. Разработка приложений по технологии клиентсервер, просмотр и редактирование данных

Вид занятия – лабораторное занятие. Время занятия – 2 часа.

Программное обеспечение – Microsoft SQL Server, Delphi

Занятие посвящено изучению ряда компонентов Delphi предназначенных для просмотра, вставки, редактирования и удаления данных с применением команд на языке структурированных запросов SQL. Рассматриваемые на занятии компоненты обычно применяются для построения клиентских приложений БД.

Запрос TADOQuery

Компонент TADOQuery предназначен для взаимодействия с базой данных на основе структурированного языка запросов SQL. Для этих целей он инкапсулирует команду на языке SQL и отправляет её в адрес сервера БД по команде клиентского приложения.

Ключевым свойством компонента является property SQL: TStrings;

Это набор строк, в котором программист описывает команды на языке SQL. Для заполнения набора строк можно использовать все функциональные возможности инкапсулированные в классе TStrings. А как минимум надо помнить о существовании пары методов: Clear() – очистка содержимого набора строк и Add() – добавить новую строку в конец набора.

With ADOQuery1 do

Begin

SQL.Clear;

SQL.ADD('Select * from writer'); Open;

End;

Весь текст запроса можно проконтролировать, обратившись к свойству: property Text: String; //только для чтения

Перед началом работы с компонентом TADOQuery надо обязательно подключить компонент к БД. Для этого следует воспользоваться свойством ConnectionString или Connection

Подготовка SQL-команд к выполнению

Если компонент TADOQuery работает с серверной СУБД, то сразу после заполнения текста запроса вызывается метод:

procedure Prepare;

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

Чтобы дважды не заставлять сервер подготавливать к работе один и тот же запрос перед вызовом метода Prepare() целесообразно проверить – не была ли данная команда SQL оптимизирована ранее:

property Prepared: Boolean;

Если мы обнаружим это свойство в состоянии true, то необходимости в повторном вызове метода Prepare() нет.

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

© Осипов Д.Л., 2011

116

procedure UnPrepare;

With ADOQuery1 Do

Begin

Close;

SQL.Clear;

SQL.Add('Delete from Towns where TownName = :TownName'); if not Prepared then SQL.Prepare;

ExecSQL;

SQL.Unprepare;

End;

Выполнение запроса SQL

После того, как программист опишет текст SQL он получает право отправить команду на выполнение. Для этого компонент TQuery вооружён двумя методами, отправляющими команду на выполнение запроса SQL:

procedure Open; procedure ExecSQL;

Метод Open() унаследован ещё от старозаветного универсального набора данных TDataSet. Он применяется только тогда, когда при помощи компонента TQuery программист планирует получить некоторый массив строк. Метод ExecSQL() просто приказывает БД отработать поступившую команду SQL.

Для того, чтобы раз и навсегда запомнить к какому из методов Open() или ExecSQL() надо обратиться в том или ином случае – руководствуйтесь следующим правилом. Если текст запроса SQL начинается с команды SELECT (другими словами мы планируем получить от БД информацию) смело используйте метод Open(). Если же мы редактируем данные (ко-

манды INSERT, UPDATE, DELETE), создаём объекты БД (команды CREATE ….), уни-

чтожаем объекты (DROP …), то в этом случае наш верный союзник метод ExecSQL().

Параметры запроса

Для нас уже не секрет, что по сравнению с TADOTable компонент TADOQuery предлагает программисту весьма гибкий способ получения набора данных. Дело за малым

– на языке SQL описываем текст запроса и наш новый знакомый позволит объединять данные из нескольких таблиц, отбирать только требуемые поля, наложить ограничения на получаемые данные, сортировать их в указанной последовательности. Взглянем на строки, в которых предложен способ получения перечня стран с населением более 100 000 человек:

Query1.SQL.Clear;

Query1.SQL.Add('SELECT * FROM Country WHERE Population>=100000');

Беда в одном, при необходимости поменять условия отбора данных приходится очищать предыдущие SQL-инструкции и писать всё заново, а это весьма неудобно. Хотя, проявив немного изобретательности, мы вместо статичного запроса сможем создать более эффективную конструкцию:

procedure TForm1.Edit1Change(Sender: TObject); var X : integer;

begin

X:= StrToIntDef(Edit1.Text,0); with ADOQuery1 do

begin

If Active Then Close;

© 2011 г. Д.Л. Осипов