在顯示DBGrid單元格內容之前修改它

我想在加載數據庫時修改dbgrid控件中特定單元格的內容。例如，假設我不希望任何數據庫字段在dbgrid中顯示，如果它等於「禁止」。有什麼辦法可以做到嗎？在顯示DBGrid單元格內容之前修改它

來源

2011-02-04 Azad Salahli

可以使用DataSetNotifyEvent Afteropen

DBGrid.Datasource.Dataset.Afteropen：=

，您可以使用隱藏字段：

如果條件那麼 DBGrid.columns [X] .visible：= false

替代方法您可以檢查OnDrawColumnCell事件的條件以覆蓋/刪除特定單元格中的某些內容

來源

2011-02-04 20:44:53 CloudyMarble

非常感謝。它的工作:) – 2011-02-04 20:51:05

使用DataSet事件來同步UI並不是一個好習慣。您可以依靠DataSource事件來實現這一點，將UI邏輯與業務邏輯分開。

由於DataSet的狀態將從dsInactive更改爲dsBrowse，因此可以依賴DataSource OnState更改，以便在數據從數據庫加載數據時進行與UI相關的任何操作。

您可以依靠Auxiliar字段跟蹤以前的狀態，以避免代碼執行超過需要。

例如（未測試的代碼）

procedure TForm1.DataSource1StateChange(Sender: TObject); 
begin 
    if (DataSource1.State = dsBrowse) and (not FUIStateInSync) then 
    begin 
    //dataset is open, change UI accordingly 
    DBGrid1.Columns[0].Visible := SomeCondition(); 
    //this will prevent the code to be executed again 
    //as state comes to dsBrowse after posting changes, etc. 
    FUIStateInSync := True; 
    end 
    else if (DataSource1.State = dsInactive) then 
    FUIStateInSync := False; //to let it happen again when opened. 
end;

我出版這甚至當你有一個公認的答案，因爲外徑建議正是你應該避免的。

來源

2011-02-04 21:28:53 jachguate

我接受了O.D.因爲它的效果很好，這對我有很大的幫助。對所有答案+1。謝謝你的幫助。 – 2011-02-07 05:05:21

去你原來的問題：

使用OnGetText事件的字段提供從什麼是存儲在數據庫中，以用於演示在不同的值。

DisplayText如果需要將值呈現給用戶，則布爾型參數將爲True，如果該值對於其他用途是必需的，則該值爲False。對數據集

procedure TForm1.SQLQuery1Field1GetText(Sender: TField; 
    var Text: string; DisplayText: Boolean); 
begin 
    if (Sender.AsString = 'forbidden') and (DisplayText) 
    and (PrivilegeLevel(CurrentUser) < 10) then 
    Text := '********' 
    else 
    Text := Sender.AsString; 
end;

來源

2011-02-04 21:36:56 jachguate

聯播OnAfterOpen事件。獲取隱藏字段和它的Visible屬性設爲False和您的DBGrid不會顯示出來

乾杯

來源

2011-02-04 21:37:38 APZ28