Использование AutoInc полей в приложениях Midas

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Автор: Бушин Сергей

WEB-сайт: http://delphibase.endimus.com

{ **** UBPFD *********** by delphibase.endimus.com ****

>> Использование AutoInc полей в приложениях Midas

При использовании полей AutoInc в клиентских приложениях наблюдается

следующая ситуация: при вставке новых записей в таблицу происходит

исключение EkeyViolation. Данное исключение указывает на тот факт,

что поле с типом данных AutoInc автоматически в ClientDataSet не

инкрементируется. По этой причине необходимо постоянно применять

и обновлять данные, после каждой вставки. Т.е. использовать пару

CDS.ApplyUpdates()/CDS.Refresh. Этот прием вполне приемлем при

локальном использовании и клиента и сервера, но в сети сводит на

нет все преимущества использования DataSnap. И в таком случае клиент

не сможет вставлять данные, если у него нет соединения с сервером

или ему (клиенту) необходимо иметь постоянный доступ к серверу.

Единственный выход из данной ситуации это самому генерировать значения

для полей с типом AutoInc в клиентском приложении. А когда сервер

будет обновлять данные, полеченные от клиента, то он не будет учитывать

значения поля AutoInc при вставке.

Да еще один важный момент касается уже существующих записей. Когда

CDS обновит данные, чтобы нам не конфликтовать с уже существующими

значениями, нужно генерировать отрицательные значения. Теперь при

вставке нам нужно сгенерировать нужное значение.

Второй код — еще одна возможность: это использование агрегатов

Зависимости: DB, DBClient, MConnect, SysUtils, Classes

Автор: Бушин Сергей, sanbotech@yandex.ru, Братск

Copyright: 1)Бушин Сергей, 2)Borland Corparation

Дата: 14 января 2003 г.

***************************************************** }

MyAutoIncValue: longint;

procedure TmyModaule.ClientDSAfterInsert(DataSet: TDataSet);

begin

ClientDS.MyAutoIncField.AsInteger := MyAutoIncValue;

//генерируем новое значение

Dec(MyAutoIncValue);

end;

procedure TMyModule.ClientDSAfterRefresh(DataSet: TDataSet);

begin

//Сбрасываем значение счетчика

MyAutoIncValue := -1;

end;

//вторая возможность — использование агрегатов

var

NewID: Integer;

begin

with ClientDataSet do

begin

//вначале отключаем и очищаем агрегаты

AggregatesActive := False;

Aggregates.Clear;

//Теперь добавляем

with Aggregates.Add do

begin

//здаем ему выражение

Expression := ‘Max(AField)’;

//имя

AggregateName := ‘Runtime’;

//активизируем его

Active := True;

end;

//подключаем агрегаты

AggregatesActive := True;

try

//Теперь генерируем наше новое значение

NewID := Aggregates[0].Value;

// …или еще одна альтернатива

// NewID := Aggregates.Find(‘Runtime’).Value;

Inc(NewID);

except

on E: Exception do

SomeHandle;

end;

//вставляем и присваиваем

Insert;

FieldByName(‘AField’).AsInteger := NewID;

end;

end;

{/codecitation}

Добавить комментарий