DataSetProvider - DataSet to ClientDataSet

Question

EDIT: Кажется, что DataSetProvider не имеет необходимых функций для этого проекта, поэтому я буду внедрять пользовательский класс для загрузки данных в ClientDataSet.

Я пытаюсь взять данные из TMSQuery, который подключен к моей базе данных, и заполнить ClientDataSet некоторыми из этих данных с помощью DataSetProvider.

Моя проблема в том, что мне нужно будет изменить некоторые из этих данных, прежде чем она сможет войти в мой ClientDataSet. У ClientDataSet есть постоянные поля, которые не совпадают с необработанными данными БД. Я даже не могу получить строку из базы данных в поле memo в ClientDataSet.

ClientDataSet является частью моего уровня данных, поэтому мне нужно будет сопоставить данные из базы данных с полем ClientDataSet по полю (большинство из них смогут пройти прямо, но многие из них потребуют маршрутизации и/или преобразования).

У кого-нибудь есть опыт?

Answer 1

Если мне нужен ClientDataSet, чтобы иметь данные, которые точно не соответствуют схеме базы данных, я пишу запрос для компонента TQuery, который возвращает данные в том формате, который я хочу. Затем я пишу свои собственные, отдельные, удалять, вставлять, обновлять и обновлять запросы для компонента TQuery.

В качестве альтернативы вы можете создать представление в базе данных и использовать представление в своем компоненте TQuery.

Если вам нужен пользовательский ClientDataSet, который не зависит от базы данных, вам нужен набор данных в памяти. Если у вас нет компонента набора данных в памяти, Google для «TClientDataSet как в наборе данных в памяти». Что вы в конечном итоге, но, в основном, является прославленным компонентом просмотра списка. Конечно, вы можете подключиться к OnUpdateRecord набора данных в памяти, чтобы узнать, когда обновлять реальный набор данных.

Answer 2

Вы ищете событие TDataSetProvider.BeforeUpdateRecord. Напишите обработчик события для этого события, и вы можете вручную управлять тем, как данные будут применены обратно к базе данных.

Что-то вроде этого

procedure TDataModule1.DataSetProvider1BeforeUpdateRecord(Sender: TObject; SourceDS: TDataSet; DeltaDS: TCustomClientDataSet; UpdateKind: TUpdateKind; var Applied: Boolean); 
begin 
    { Set applied to tell DataSnap that you have applied this record yourself } 
    Applied := True; 

    case UpdateKind of 
    ukModify: 
     begin 
     Table1.Edit; 
     { set the values of the fields something like this } 
     if not VarIsEmpty(DeltaDS.FieldByName('NewValue')) then 
      Table1['SomeField'] := DeltaDS.FieldByName('SomeField').NewValue; 
     Table1.Post; 
    end; 

    ukInsert: 
     begin 
     Table1.Insert; 
     { set the values of the fields } 
     Table1['SomeField'] := DeltaDS['SomeField'] 
     Table1.Post; 
     end; 

    ukDelete: 
     if Table1.Locate('PrimaryKeyField', DeltaDS['PrimaryKeyField'], []) then 
     Table1.Delete; 
    end; // case 
end; 

Answer 3

Вы можете изменить данные, идущие к ClientDataSet, реализовав событие TDataSetProvider.OnGetData.

procedure TDataModule1.DataSetProvider1GetData(Sender: TObject; DataSet: TCustomClientDataSet); 
begin 
    DataSet.First; 
    while not DataSet.Eof do begin 
    DataSet.Edit; 
    DataSet['Surname'] := UpperCase(DataSet['Surname']); 
    DataSet.Post; 
    DataSet.Next; 
    end; // while 
end; 

При применении обновлений с ClientDataSet вы можете использовать событие TDataSetProvider.OnUpdateData. Как и событие OnGetData, вы работаете со всем набором данных, а не с одной записью.

procedure TDataModule1.DataSetProvider1UpdateData(Sender: TObject; DataSet: TCustomClientDataSet); 
begin 
    DataSet.First; 
    while not DataSet.Eof do begin 
    DataSet.Edit; 
    DataSet['Surname'] := LowerCase(DataSet['Surname']); 
    DataSet.Post; 
    DataSet.Next; 
    end; // while 
end; 

Это OnUpdateData событие вызывается перед событием OnBeforeUpdateRecord. Кроме того, события OnGetData и OnUpdateData работают со всем набором данных, а OnBeforeUpdateRecord вызывается один раз для каждой модифицированной записи.