19.3.1.2 使控制只讀

　　因為這個數據日歷以只讀方式響應數據，所以用戶不能在控制中改變數據并指望它們反映到數據庫中。

　　使日歷只讀包含下列兩步：

　　● 增加只讀屬性

　　● 允許所需的更新

　　1. 增加只讀屬性

　　給日歷控制增加只讀選項是直接過程。通過增加屬性，可以提供在設計時使控制只讀的方法，當屬性值被設為True，將使控制中所有元素不可被選。

　　⑴ 增加屬性聲明和保存值的private域：

　　type

　　TDBCalendar=class(TClendar)

　　private

　　FReadOnly: Boolean;

　　public

　　constructor Create (Aowner: TComponent); override;

　　published

　　property ReadOnly: Boolean read FReadOnly write FReadOnly default True;

　　end;

　　constructor TDBCalendar.Create(Aowner: TComponent);

　　begin

　　inherited Create(AOwner);

　　FReadOnly := True;

　　end;

　　⑵ 覆蓋SelectCell方法，使得當控制是只讀時，不允許選擇：

　　function TDBCalendar.SelectCell(ACol, Arow: Longint): Boolean;

　　begin

　　if FReadOnly then

　　Result := False

　　else

　　Result := inherited SelectCell(Acol，ARow);

　　end;

　　還要在TDBcalendar的聲明中聲明SelectCell。

　　如果現在將Calendar加入窗體，會發現部件完全忽略鼠標和擊鍵事件，而且當改變日期時，也不能改變選擇的位置。下面將使控制響應更新。

　　2. 允許所需的更新

　　只讀日歷使用SelectCell方法實現各種改變，包括設置Row和Col的值。當日期改變時，UpdateCalendar方法設置Row和Col的值，但因為SelectCell不允許你改變，即使日期改變了，選擇仍留在原處。

　　可以給日歷增加一個Boolean標志，當標志為True時允許改變：

　　type

　　TDBCalendar=class(TCalendar)

　　private

　　Fupdating: Boolean;

　　protected

　　function SelectCell(Acol, Arow: Longint); Boolean; override;

　　public

　　procedure UpdateCalendar; override;

　　end;

　　function TDBCalendar.SelectCell(ACol, ARow: Longint): Boolean;

　　begin

　　if (not FUpdating) and FReadOnly then

　　Result := False { 如果更新則允許選擇 }

　　else

　　Result := inherited SelectCell(ACol, ARow); { 否則調用繼承的方法 }

　　end;

　　procedure UpdateCalendar;

　　begin

　　FUpdating := True; { 將標志設為允許更新 }

　　try

　　inherited UpdateCalendar; { 象通常一樣更新 }

　　finally

　　FUpdating := False; { 總是清除標志 }

　　end;

　　end;

　　現在日歷仍舊不允許用戶修改，但當改變日期屬性時能正確反映改變;目前已有了一個真正只讀控制，下一步是增加數據瀏覽能力。

　　3. 增加數據聯接

　　控制和數據庫的聯接是由一個名為DataLink的對象處理。Delphi提供了幾種類型的Datalink。將控制與數據庫單個域相聯的DataLink對象是TFieldDatalink。Delphi也提供了與整個表相聯的DataLink。

　　一個數據相關控制擁有DataLink對象，就是說，控制負責創建和析構DataLink。

　　要建立作為擁有對象的Datalink，要執行下列三步：

　　● 聲明對象域

　　● 聲明訪問屬性

　　● 初始化DataLink

　　⑴ 聲明對象域

　　每個部件要為其擁有對象聲明一個對象域。因此，日歷對象DataLink 聲明TFieldDataLink類型的域。

　　日歷部件中DataLink的聲明如下：

　　type

　　TDBCalendar = class(TSampleCalendar)

　　private

　　FDataLink: TFieldDataLink;

　　…

　　end;

　　⑵ 聲明訪問屬性

　　每一個數據相關控制有一個DataSource屬性，該屬性描述應用程序給控制提供數據的數據源。而且，訪問單個域的數據庫還需要一個DataField 屬性描述數據源中的域。

　　下面是DataSource和DataField的聲明和它們的實現方法：

　　type

　　TDBCalendar = class(TSampleCalendar)

　　private { 屬性的實現方法是 }

　　function GetDataField: string; { 返回數據庫字段的名字 }

　　function GetDataSource: TDataSource; { 返回數據源(Data source)的引用 }

　　procedure SetDataField(const Value: string); { 給數據庫字段名賦值 }

　　procedure SetDataSource(Value: TDataSource); { 給數據源賦值 }

　　published { 使屬性在設計時可用 }

　　property DataField: string read GetDataField write SetDataField;

　　property DataSource: TDataSource read GetDataSource write SetDataSource;

　　end;

　　……

　　function TDBCalendar.GetDataField: string;

　　begin

　　Result := FDataLink.FieldName;

　　end;

　　function TDBCalendar.GetDataSource: TDataSource;

　　begin

　　Result := FDataLink.DataSource;

　　end;

　　procedure TDBCalendar.SetDataField(const Value: string);

　　begin

　　FDataLink.FieldName := Value;

　　end;

　　procedure TDBCalendar.SetDataSource(Value: TDataSource);

　　begin

　　FDataLink.DataSource := Value;

　　end;

　　現在，就建立了日歷和DataLink的鏈，此外還有一個更重要的步驟。你必須在日歷構建時創建DataLink對象，在日歷析構時，撤消DataLink對象。