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

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

  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

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

  end;

 end;

end;

Этот пример показывает как можно осуществить подключение к серверу без создания псевдонима. Ключевыми моментами здесь являются определение DriverName и заполнение Params информацией, необходимой для подключения. Вам не нужно определять все параметры, вам необходимо задать только те, которые не устанавливаются в конфигурации BDE определенным вами драйвером базы данных. Введенные в свойстве Params данные перекрывают все установки конфигурации BDE. Записывая параметры, Delphi заполняет оставшиеся параметры значениями из BDE Config для данного драйвера. Приведенный выше пример также вводит такие понятия, как сессия и метод GetTableNames. Это выходит за рамки обсуждаемой темы, достаточно упомянуть лишь тот факт, что переменная session является дескриптором database engine. В примере она добавлена только для «показухи».

Другой темой является использование SQLPASSTHRU MODE. Этот параметр базы данных отвечает за то, как натив-команды базы данных, такие, как TTable.Append или TTable.Insert будут взаимодействовать с TQuery, подключенной к той же базе данных. Существуют три возможных значения: NOT SHARED, SHARED NOAUTOCOMMIT и SHARED AUTOCOMMIT. NOT SHARED означает, что натив-команды используют одно соединение с сервером, тогда как запросы – другое. Со стороны сервера это видится как работа двух разных пользователей. В любой момент времени, пока транзакция активна, натив-команды не будут исполняться (committed) до тех пор, пока транзакция не будет завершена. Если был выполнен TQuery, то любые изменения, переданные в базу данных, проходят отдельно от транзакции.