Delphi TDataSource 元件詳解：屬性、事件與狀態驅動 UI 控制實戰

15.5 TDataSource：資料集與資料感知元件的橋樑

TDataSource 本身簡單輕量，屬性/事件/方法寥寥數個，却是連結 TTable/TQuery 與 DBGrid/DBEdit 等視覺元件的關鍵。若無資料感知元件，甚至不需放置。

15.5.1 核心屬性

15.5.2 三大事件與實戰模式

OnDataChange：記錄指標移動同步

資料集指標變動（Next/Prior/Insert/Append 等）觸發。常用於多元件同步，如 Detail Grid 隨 Master 移動自動重查。

OnUpdateData：寫入前攔截

Post 呼叫後、資料真正寫回磁碟前觸發。非資料感知元件（如自訂編輯框）需在此同步資料集。

OnStateChange：狀態驅動 UI 啟用/禁用

資料集 State 屬性變化時觸發。State 值：dsInactive/dsBrowse/dsEdit/dsInsert/dsSetKey。

範例 1：狀態列顯示目前模式

procedure TForm1.DataSource1StateChange(Sender: TObject);
var S: string;
begin
  case Table1.State of
    dsInactive: S := 'Inactive';
    dsBrowse:   S := 'Browse';
    dsEdit:     S := 'Edit';
    dsInsert:   S := 'Insert';
    dsSetKey:   S := 'SetKey';
  end;
  Label1.Caption := S;
end;

範例 2：按鈕啟用邏輯綁定狀態

procedure TForm1.DataSource1StateChange(Sender: TObject);
begin
  InsertBtn.Enabled  := (Table1.State = dsBrowse);                    // 只在瀏覽態可新增
  CancelBtn.Enabled  := Table1.State in [dsInsert, dsEdit, dsSetKey]; // 編輯/新增/查找態可取消
end;

善用 OnStateChange 可讓 UI 即時反映資料操作狀態，避免使用者誤操作。

15.6 字段元件型別體系

本書重點介紹常用型別，其餘請參閱線上說明。