制作用于日期時間型字段的DELPHI數據感知控件
用DELPHI開發C/S應用方便而快速，因為它擁有大量易于使用的數據訪問和數據感知控件。然而萬事總是難以完美，DELPHI的DBEdit控件用于輸入日期時間型字段卻很不方便，為了改善這一缺點，我開發了一個DBDateTime數據感知控件，大大方便了時間和日期的輸入。
創建一個構件時，最重要的一步是選擇正確的父類，這樣可以減少代碼的編寫。DELPHI的構件庫中已有一個TDateTimePicker構件，可以以下拉日歷或利用SpinButton遞增、遞減的方式方便地輸入和改變日期、時間，但它沒有數據感知的能力。因此，我們可以以它為父類，派生出一個新的控件，加上能與數據集通信的數據感知功能。
數據感知控件通過DataLink對象與DataSource進行交互，所以為控件增加數據感知能力需要創建一個TDataLink（或其派生類）對象作為控件的成員，并為控件創建公開的DataField和DataSource屬性；然后需響應TDataLink對象的OnDataChange和OnUpdateData事件。下面是控件的主要源代碼，并帶有相應的注釋：
{定義從TDateTimePicker派生的TDBDateTime類。注意，在單元接口的Uses中應加入DB，DBCTRLS引用}type
TDBDateTime=class(TDateTimePicker)
private
FDataLink:TFieldDataLink;
//TFieldDataLink是TDataLink的派生類，處理單個字段與DataSource的交互procedureDataChange(sender:Tobject);
//當DataSet的記錄改變（如瀏覽記錄）時觸發OnDataChange事件，DataChange將作為該事件的事件處理句柄procedureUpdateData(sender:Tobject);
//更新DataSet前觸發OnUpdateData事件，UpdateData將作為該事件的事件處理句柄functionGetDataSource:TDataSource;
procedureSetdataSource(value:TDataSource);
FunctionGetDataField:String;
procedureSetdataField(Value:String);
procedureCMexit(varMessage:TCMExit);message CM_EXIT;//當控件失去焦點時觸發CM_EXIT消息protected
procedureChange;override;//控件中日期、時間改變時觸發OnChange事件procedureNotification(AComponent:TComponent;
Operation:Toperation);override;
//當某一控件從FORM上移走時DELPHI的IDE調用該方法通知其它控件public
constructorCreate(AOwner:Tcomponent);override;
destructorDestroy;override;
published
propertyDataSource:TDataSourcereadGetDataSource
writeSetDataSource;//為控件增加DataSource屬性，使它能與DataSource構件連接propertyDataField:StringreadGetDataField
writeSetDataField;
end;//為控件增加DataField屬性，使它指向代表某一字段的TField對象procedureRegister;//注冊構件implementation
procedureTDBDateTime.CMExit;
begin
try
FDataLink.UpdateRecord;
//控件失去焦點時更新DataSet，這將觸發OnUpdateData事件except
Setfocus;
raise;
end;
DoExit;
end;
constructorTDBDateTime.Create(Aowner:Tcomponent);
begin
inheritedCreate(Aowner);
//創建DataLink對象，掛接OnDataChange、OnUpdateData事件處理句柄FDataLink:=TFieldDataLInk.Create;
FDataLink.OnDataChange:=DataChange;
FDataLink.OnUpdateData:=Updatedata;
end;
DestructorTDBDateTime.Destroy;
begin
FDataLink.OnDataChange:=nil;
FDataLink.OnUpdateData:=nil;
FDataLink.Free;
inheritedDestroy;
end;
functionTDBDateTime.GetdataSource:TdataSource;
begin
result:=FDataLink.DataSource;
end;
ProcedureTDBDateTime.SetDataSource(Value:TDataSource);
begin
FDataLink.DataSource:=Value;
end;
functionTDBDateTime.GetDatafield:String;
begin
result:=FDataLink.FieldName;
end;
procedureTDBDateTime.SetDataField(value:String);
begin
FdataLink.FieldName:=value;
end;
procedureTDBDateTime.DataChange(Sender:Tobject);
begin
DateTime:=now;
//若控件連了活動的DataSet則數據集變動時控件顯示當前記錄的相應字段值ifFDataLink.Field nilthen
ifFDataLink.Field.Text ''then
DateTime:=FDatalink.Field.AsDateTime;
end;
ProcedureTDBDateTime.UpdateData(sender:Tobject);
begin
FDatalink.Field.AsDateTime:=DateTime;
//用控件中的日期、時間更新相應字段end;
procedureTDBDateTime.Change;
begin
//當用戶改變了控件中的內容時將DataSet置為編輯狀態FDataLink.Modified;
ifnotFDataLink.Editingthen
FdataLink.Edit;
inheritedChange;
end;
procedureTDBDateTime.Notification(AComponent:
TComponent;Operation:TOperation);
begin
inheritedNotification(Acomponent
Operation);
//當與控件相連的TdataSource
被刪除時將控件的DataSource屬性置為空if(Operation=opRemove)and(FDataLink nil)
and(AComponent=Datasource)then
DataSource:=nil;
end;
procedureRegister;
begin
RegisterComponents('DataControls'
[TDBDateTime]);//控件注冊后安裝于DataControls頁end;
end.
本控件安裝后能以下拉日歷和遞增遞減方式改變數據庫的日期時間型字段，并能以長、短兩種格式顯示日期，方便實用。