DataSetProvider - DataSet到ClientDataSet

Question

編輯：看起來好像DataSetProvider沒有我需要的這個項目的功能，所以我會實現一個自定義的類來加載數據到ClientDataSet中。

我想從一個連接到我的數據庫的TMSQuery中獲取數據，並使用DataSetProvider將一些數據填充到一個ClientDataSet中。

我的問題是，我需要修改這些數據之前，它可以進入我的ClientDataSet。 ClientDataSet具有與原始DB數據不匹配的持久字段。我甚至無法從數據庫獲取字符串到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

您可以修改數據通過實施TDataSetProvider.OnGetData事件要ClientDataSet的。

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對於每個修改的記錄都會調用一次。