VPF::ClientDataSet, AutoInc, Index, RecNo - Форум программистов

x0x0x0

Дата 10.3.2015, 05:51 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 10.3.2015

Репутация: нет
Всего: нет

Как в ClientDataSet автоматически присваивать комулибо field-у из записи его RecNo ?

Тоесть нужно что бы после Insert Delete и Append все записи обновляли своё поле RecID и устанавливали в него свой RecNo, конечно можно тупым перебором всё это сделать и писать отдельную процедуру, вешать событие и тд. Но неужели нету элегантного и простого решения ?

salik

Дата 10.3.2015, 08:40 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 74
Регистрация: 28.1.2011

Репутация: нет
Всего: 1

Можно создать вычисляемое поле и в событии OnCalcFields присваивать ему значение.

x0x0x0

Дата 10.3.2015, 23:45 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 10.3.2015

Репутация: нет
Всего: нет

Пытался, но что-то не получилось.

Пример кода былбы очень кстати smile

x0x0x0

Дата 11.3.2015, 01:08 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 10.3.2015

Репутация: нет
Всего: нет

Код


procedure TDataModuleDatabase.MemDataCalcFields(DataSet: TDataSet);
begin
    DataSecurity.FieldByName('RecId').AsInteger := MemData.RecNo;
end;

Вопрос снят, оказывается в Datasnap.DBClient под XE7 есть баг с подсчетом RecNo

http://qc.embarcadero.com/wc/qcmain.aspx?d=128255

Код


Eror in Datasnap.DBClient

Buggy:

function TCustomClientDataSet.GetRecNo: Integer;
var
  BufPtr: TRecBuf;
begin
  CheckActive;
  if State = dsInternalCalc then
    Result := -1
  else
  begin
    if State = dsCalcFields then
      BufPtr := TRecBuf(BytesOf(PByte(CalcBuffer), SizeOf(TRecInfo))) // -- Error
    else
      BufPtr := ActiveBuffer;
    Result := PRecInfo(PByte(BufPtr) + FRecInfoOfs).RecordNumber;
  end;
end;

Correct:

function TCustomClientDataSet.GetRecNo: Integer;
var
  BufPtr: TRecBuf;
begin
  CheckActive;
  if State = dsInternalCalc then
    Result := -1
  else
  begin
    if State = dsCalcFields then
      BufPtr := CalcBuffer // Correct
    else
      BufPtr := ActiveBuffer;
    Result := PRecInfo(PByte(BufPtr) + FRecInfoOfs).RecordNumber;
  end;
end;

Это сообщение отредактировал(а) x0x0x0 - 11.3.2015, 01:10

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »