Советы по Delphi. Версия 1.4.3 от 1.1.2001

Озеров Валентин

3. Компонент TStoredProc

Хранимая процедура представляет собой список команд (SQL или определенного сервера), хранимых и выполняемых на стороне сервера. Хранимые процедуры не имеют концептуальных различий с другими типами процедур. TStoredProc наследуется от TDataset, поэтому он имеет много общих характеристик с TTable и TQuery. Особенно заметно сходство с TQuery. Поскольку хранимые процедуры не требуют возврата значений, те же правила действуют и для методов ExecProc и Open. Каждый сервер реализует работу хранимых процедур с небольшими различиями. Например, если в качестве сервера вы используете Interbase, хранимые процедуры выполняются в виде Select-запросов. Например, чтобы посмотреть на результаты

хранимой процедуры, ORG_CHART, в демонстрационной базе данных EMPLOYEE, используйте следующих SQL-запрос:

Select * from ORG_CHART

При работе с другими серверами, например, Sybase, вы можете использовать компонент TStoredProc. Данный компонент имеет свойства для имен базы данных и хранимой процедуры. Если процедура требует на входе каких-то параметров, используйте для их ввода свойство Params.

4. TDatabase

Компонент TDatabase обеспечивает функциональность, которой не хватает TQuery и TStoredProc. В частности, TDatabase позволяет создавать локальные псевдонимы BDE, так что приложению не потребуются псевдонимы, содержащиеся в конфигурационном файле BDE. Этим локальным псевдонимом в приложении могут воспользоваться все имеющиеся TTable, TQuery и TStoredProc. TDatabase также позволяет разработчику настраивать процесс подключения, подавляя диалог ввода имени и пароля пользователя, или заполняя необходимые параметры. И, наконец, самое главное, TDatabase может обеспечивать единственную связь с базой данных, суммируя все операции с базой данных через один компонент. Это позволяет элементам управления для работы с БД иметь возможность управления транзакциями.

Транзакцией можно считать передачу пакета информации. Классическим примером транзакции является передача денег на счет банка. Транзакция должна состоять из операции внесения суммы на новый счет и удаления той же суммы с текущего счета. Если один из этих шагов по какой-то причине был невыполнен, транзакция также считается невыполненной. В случае такой ошибки, SQL сервер позволяет выполнить команду отката (rollback), без внесения изменений в базу данных. Управление транзакциями зависит от компонента TDatabase. Поскольку транзакция обычно состоит из нескольких запросов, вы должны отметить начало транзакции и ее конец. Для выделения начала транзакции используйте TDatabase.BeginTransaction. Как только транзакция начнет выполняться, все выполняемые команды до вызова TDatabase.Commit или TDatabase.Rollback переводятся во временный режим. При вызове Commit все измененные данные передаются на сервер. При вызове Rollback все изменения теряют силу. Ниже в листинге 7 приведен пример, где используется таблица с именем ACCOUNTS. Показанная процедура пытается передать сумму с одного счета на другой.

Листинг 7

procedure TForm1.BitBtn1Click(Sender: TObject);

 { ПРИМЕЧАНИЕ: Поле BALANCE у ACCOUNTS имеет триггер, проверяющийситуацию, когда вычитаемая сумма превышает BALANCE. Если так, UPDATEбудет отменен}

begin

 try

database1.StartTransaction;

query1.SQL.Clear;

{ Вычитаем сумму из выбранного счета }

query1.SQL.Add(Format('update ACCOUNTS ' +'set BALANCE = BALANCE - %s ) ' +'where ACCT_NUM = %s ',[edit1.text,Table1Acct_Num.asString]));

query1.ExecSQL;

query1.SQL.Clear;

{ Добавляем сумму к выбранному счету }

query1.SQL.Add(Format('update ACCOUNTS ' +'set BALANCE = BALANCE + %s ' +'where ACCT_NUM = %s ',[edit1.text,Table2Acct_Num.asString]));

query1.ExecSQL;database1.Commit; {В

этом месте делаем все изменения}

table1.Refresh;

table2.Refresh;

 except

{При возникновении в приведенном коде любых ошибок,откатываем транзакцию назад}

 One : EDatabaseError do

begin

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

database1.rollback;

exit;

end;

 One : Exception do

begin

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

database1.rollback;

exit;

end;

 end;

end;

И последнее, что нужно учесть при соединении с базой данных. В приведенном выше примере, TDatabase использовался в качестве единственного канала для связи с базой данных, поэтому было возможным выполнение только одной транзакции. Чтобы выполнить это, было определено имя псевдонима (Aliasname). Псевдоним хранит в себе информацию, касающуюся соединения, такую, как Driver Type (тип драйвера), Server Name (имя сервера), User Name (имя пользователя) и другую. Данная информация используется для создания строки соединения (connect string). Для создания псевдонима вы можете использовать утилиту конфигурирования BDE, или, как показано в примере ниже, заполнять параметры во время выполнения приложения.

TDatabase имеет свойство Params, в котором хранится информация соединения. Каждая строка Params является отдельным параметром. В приведенном ниже примере пользователь устанавливает параметр User Name в поле редактирования Edit1, а параметр Password в поле Edit2. В коде листинга 8 показан процесс подключения к базе данных:

Листинг 8

procedure TForm1.Button1Click(Sender: TObject);

begin

 try

With database1 do begin

Close;

DriverName := 'INTRBASE';

KeepConnection := TRUE;

LoginPrompt := FALSE;

With database1.Params do begin

Clear;

Add('SERVER NAME=C:\IBLOCAL\EXAMPLES\EMPLOYEE.GDB');

Add('SCHEMA CACHE=8');

Add('OPEN MODE=READ/WRITE');

Add('SQLPASSTHRU MODE=SHARED NOAUTOCOMMIT');

Add('USER NAME=' + edit1.text);

Add('PASSWORD=' + edit2.text);

end;

Open;

end;

session.getTableNames(database1.databasename, '*', TRUE, TRUE, ComboBox1.items);

 Except One : EDatabaseError do

begin