我需要避免試圖更新德爾福的TClientdataSet連接到TSQLQuery

Question

簡記非物理場：我的代碼試圖更新德爾福XE TClientDataset非物理領域，（連接到TSQLQuery其SQL屬性集），它們是由運行時Open命令創建的。

我具有連接到與連接到一個TSQLConnection一個TSQLQuery一個TDatasetProvider一個TClientDataset。這些對象中的前三個被封裝在一個庫中的幾個類中，我在很多地方使用了幾個項目。這些類在運行時創建這3個對象，並消除了大量的重複代碼，因爲我有許多這樣的三元組。

非常典型，我將在TSQLQuery的SQL屬性中指定某些SQL，並呼籲TClientDataSetOpen加載從數據庫中TClientDataset。在TClientDataset的Fields通過這個呼叫Open即創建。它們在Open之前不存在。

我遇到了一個問題，其中生成到TClientDataset的三個字段是非物理的;也就是說，SQL會進行計算以生成它們。不幸的是，在TClientDataset中，這3個字段的創建方式與物理字段不同。他們FieldKind是fkData（理想情況下是fkInternalCalc），Calculated屬性是False（理想情況下是True）及其ProviderFlags包括pfInUpdate（在理想情況下不應該）。毫不奇怪，當談到時間做對TClientDataset一個異常被拋出的ApplyUpdates ...

Project XXX.exe raised exception class TDBXError with message 
SQL State: 42S22, SQL Error Code: 207 Invalid column name 'Received'. 
SQL State: 42S22, SQL Error Code: 207 Invalid column name 'Issued'. 
SQL State: 42S22, SQL Error Code: 207 Invalid column name 'DisplayTime'. 

我可以在TDatasetProvider的OnUpdateData事件處理程序清除這些領域的pfInUpdate標誌避免這個錯誤。然而，這個解決方案要求這個函數知道特定的字段名稱，它位於上面提到的泛型類中，因此破壞了代碼的一般性。

我在尋找的是將這些字段的計算性質通知給事件處理函數的通用方法。

的Open呼叫後我不能改變他們的FieldKind或Calculated性質（以fkInternalCalc和True分別），因爲這產生一個WorkCDS: Cannot perform this operation on an open dataset異常消息。而且，由於Fields尚不存在，我無法在撥打Open之前更改這些屬性。

我可以Open之後，從這些Field的ProviderFlags屬性中刪除pfInUpdate標誌，但這沒有得到傳遞到‘三角洲’TClientDatset即到達OnUpdateData事件處理程序。我也嘗試設置字段的FieldDefs.InternalCalcField屬性;再次，這不會傳遞給Delta數據集。

所以，我嘗試過的所有信令想法都沒有奏效。我會很感激任何新的想法或替代方法。

我遇到的所有互聯網搜索結果（包括Cary Jensen的優秀文章）都涉及設計時或非SQL生成的設置，這些設置不適用於我的情況。

Answer 1

您可以在您的更新過程中創建一個機制，以便爲您想在忽略的各個字段預配置ProviderFlags。

根據你的問題的意見，我建議你在類中創建一個新的方法來打開內部的ClientDataSet，所有的魔法都會發生在這個方法內部。

首先，一個簡單的機制是包含一個新的TStringList屬性，該屬性列出了您想要忽略的所有字段，您將按名稱匹配。隨意採用這一點或創建一個更好的機制，重要的是你能夠確定你想要配置哪些字段。

type 
    TMyClass = class 
    // all your current class here 
    private 
    FUpdateIgnoredFields: TStringList; 
    public 
    property UpdateIgnoredFields: TStringList read FUpdateIgnoredFields write SetUpdateIgnoredFields; 
    //don't forget to create this in your constructor, free it in the destructor 
    //and Assign any new value in the SetUpdateIgnoreFields method, as usual. 
    procedure OpenInnerCDS; //the magic goes here 
    end; 

procedure TMyClass.OpenInnerCDS; 
var 
    FieldName: string; 
    AFieldToIgnore: TField; 
begin 
    //opens the inner cds, but before that, configures the update-ignored 
    //fields in the underlying dataset 
    //Let's call it InnerBaseDataSet; 
    FInnerBaseDataSet.Open; //this opens the DataSet and creates all the fields for it. 
    try 
    for FieldName in FUpdateIgnoredFields do 
    begin 
     AFieldToIgnore := FInnerBaseDataSet.FindField(FieldName); 
     if Assigned(AFieldToIgnore) then 
     AFieldToIgnore.ProviderFlags := AFieldToIgnore.ProviderFlags - [pfInUpdate, pfInWhere]; 
    end; 
    //now, let's open the ClientDataSet; 
    FInnerClientDataSet.Open; 
    finally 
    //I suggest no matter what happens, always close the inner data set 
    //but it depends on how the CDS->Provider->DataSet interaction is configured 
    FInnerBaseDataSet.Close; 
    end; 
end; 

//the way you use this is to replace the current ClientDataSetOpen with something like: 

var 
    MyInsance: TMyClass; 
begin 
    MyInstance := TMyInstance.Create(); //params 
    try 
    //configuration code here 
    //MyInstance.InnerCDS.Open; <-- not directly now 
    MyInstance.UpdateIgnoreFields.Add('CALCULATED_SALARY'); 
    MyInstance.OpenInnerCDS; 
    //use the CDS here. 
    MyInstance.InnerCDS.ApplyUpdates(-1); //safely apply updates now. 
    finally 
    MyInstance.Free; 
    end; 
end; 

把它作爲一個想法。

我寫了所有的代碼，可能語法錯了，但它顯示了整個想法。

Answer 2

通過在CDS上設置相應的可選參數，您可以將ProviderFlags（以及其他一些屬性）從客戶端傳遞到提供者（delta）端。不要忘記設置IncludeInDelta參數