Delphi 開發數據庫控件的方法

　Delphi作為一種目前十分流行的數據庫開發語言，在數據庫開發領域有著十分重要的地位，它不僅提供了可視化的開發環境，使得開發變得相對容易；而且還是一種面向對象的語言， 使得程序員能夠充分利用面向對象編程的種種優勢——如封裝、繼承等等，從而大大減輕了開發的難度和工作量。下面，我們就談一談利用面向對象的特性來開發數據庫控件的方法。

　　Delphi本身提供了一些數據庫控件，如DBGrid、Table等，它們給開發帶來了很多方便。下面我們來以一個能夠顯示數據表中的所有字段的控件為例來說明如何用Delphi來進行控件的編程。

　　首先要為控件選擇一個合適的父類。Windows的一個好處就在於它將許多操作標准化了，通過這些標准的操作，使得學習和使用都有章可循，用戶就很容 易融會貫通地掌握整個系統。在Delphi中提供了許多控件，這些控件生成的應用程序足以滿足Windows編程的要求。而一些新的控件也可以在此基礎上 產生。它一方面繼承了一部分控件標准的操作，另一方面也在程序中加入一些代碼來實現特定的功能，這樣用戶使用起來不會覺得突兀，也簡化了程序的開發。根據 我們的目標可以看出，利用“下拉框”控件作為新控件的父類比較合適。因為它提供了下拉框中的所有標准操作，這就可以大大減少我們的編程量。　　然後就是為 特定的功能編寫代碼。我們應該想到，如果一個下拉框能夠顯示一個數據庫中的所有字段，那麼它一定有一個屬性能夠與數據庫相連。我們將這個屬性定名為 DataSource，並將這一屬性添加到控件中。添加的方法是，首先在Private段中加入如下代碼：

　　 FDataLink:TFIEldDataLink;
　　 function GetDataSource:TDataSource;
　　 Procedure SetDataSource( Value:TDataSource);　　其中TfIEldDataLink是一個十分重要的類，我們之所以能夠很容易地進行數據庫控件的開發全是拜它之賜。它有一些十分有用的屬性，如：DataSource，利用這個屬性，我們就能很容易地指定新控件的DataSource屬性。

　第三步就是為控件的功能編寫代碼。可以想到，如果我們想要在拉下下拉框時顯示數據庫中的所有字段，就要在它的DropDown事件中加入代碼來將所有 的字段加入到下拉框的下拉區域中。這應該分兩步走，第一就是要取得指定數據庫的所有字段，第二就是將這些字段以字符串的格式加入到下拉框中（而拉下時顯示 所有字段的功能則由下拉框控件自己完成）。在取得數據庫的字段時，用到了我們上面提到的TfIEldDataLink類，下面的代碼就可以獲得指定數據庫 的字段數目：

　　 j:=0;
　　 j:=FDataLink.DataSource.DataSet .FIEldCount ;//取得數據庫中的所有字段的名字
　　 I:=0;

　　然後再用下面的代碼將這些字段的名字加入到下拉框的items屬性中，值得注意的是在每次拉下這個下拉框時都要將items屬性清空，否則這個下拉框將每次都會因加入重復的內容而變得越來越長，並且一次選擇可以選定許多項。使得控件看起來有點怪。

　　items.Clear ; //清空items屬性

　　repeat //循環操作將字段加入下拉框中。

　　items.Add (FDataLink.DataSet.Fields[I].FIEldName ); //將字段名加入到下拉框中。

　　I:=I＋1;

　　until I>j－1; //直到所有的字段加入完為止

　　第四步，就是將以上代碼加入到Delphi的控件編輯窗口中去，點擊Delphi的“Component/New Component”菜單，系統出現一個對話框，將對話框如圖1所示填寫：

　　填寫完畢點擊“OK”按鈕，就可以創建一個文件，將上面提供的代碼加入到文件的適當位置，就可以完成這個控件的編寫。圖2是帶有這個控件的程序的例子：

　　可以想見，這個控件有著十分廣泛的功能，例如，我們能夠利用它設置指定字段的值來運行查詢，也可以返回數據庫中指定字段的數據類型、長度等信息，給我們的編程提供了極大的方便。

　但是也應該看到，這個控件也有一些缺點，那就是它只能顯示字段的名稱，一般的數據庫中字段的名稱都是英文的，這給中文版的應用軟件帶來不便，下面我們 就用FdataLink的另一個屬性來顯示中文化的字段。這個屬性就是DisplayName,它所指定的是數據庫字段的顯示名稱，而這個名稱我們可以在 設計時將其漢化，這樣在應用程序中顯示出來的就是有意義的中文了。

　　下面我們將上面提供的一段代碼作如下修改：

　　 j:=0;
　　 j:=FDataLink.DataSource.DataSet .FIEldCount;
　　 I:=0;
　　 repeat
　　 items.Add (FDataLink.DataSet.FIElds[I].DisplayName );
　　 //在items屬性中加入DisplayName的值
　　 I:=I＋1;
　　 until I>j－1;

　　另外，還要加入下面一段代碼，來判斷顯示的DisplayName和哪個FIEldName

　　相對應。

　　function TListBox1.GetFIEld:string;
　　var
　　 I,j:integer;
　　begin
　　j:=FDataLink.DataSource.DataSet .FIEldCount ;
　　 for I :=0 to j－1 do
　　 begin
　　 if FDataLink.DataSource.DataSet.FIElds[I].Displayname=text then
　　 begin
　　 Result:=FDataLink.DataSource.DataSet.Fields[I].FIEldName;
　　 exit;
　　 end;
　　 end;
　　end;　　這樣，當選擇了一個中文化的字段顯示名稱時，就將返回它的真正的字段名。這下用起來就更方便了，圖3就是我們將中文字段顯示在下拉框中的例子。

　　程序中的字段以中文顯示能夠給用戶帶來很大的方便。最後，下面附上這段程序的完整代碼，謹供參考。

　　unit DBFIEldComboBox;
　　interface
　　uses
　　 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
　　 StdCtrls,db,dbctrls;
　　type
　　 TDBFIEldComboBox = class(TComboBox)
　　 private
　　 FDataLink:TFIEldDataLink;
　　 function GetDataSource:TDataSource;
　　 function TListBox1.GetFIEld:string;
　　 Procedure SetDataSource( Value:TDataSource);
　　 procedure StartDrag(Sender: Tobject; var DragObject: TDragObject);
　　 procedure DropDown(Sender : Tobject);
　　 { Private declarations }
　　 protected
　　 { Protected declarations }
　　 public
　　constructor create(Aowner:Tcomponent);override;
　　 destructor Destroy;override;
　　 { Public declarations }
　　 published
　　 property DataSource :TDataSource read GetDataSource write SetDataSource;
　　 property text;
　　 { Published declarations }
　　 end;
　　procedure Register;
　　implementation
　　procedure Register;
　　begin
　　RegisterComponents(`Samples`, [TDBFIEldComboBox]);
　　end;
　　constructor TDBFIEldComboBox.create(Aowner:Tcomponent);
　　var I,j:integer;
　　begin
　　 inherited Create(Aowner);
　　 FDataLink:=TFIEldDataLink.Create ;
　　 ondropdown:=dropdown;
　　 text:=``;
　　end;
　　destructor TDBFIEldComboBox.Destroy;
　　begin
　　 FDataLink.Free ;
　　 inherited Destroy;
　　end;
　　function TListBox1.GetFIEld:string;
　　var
　　 I,j:integer;
　　begin
　　j:=FDataLink.DataSource.DataSet .FIEldCount ;
　　 for I :=0 to j－1 do
　　 begin
　　 if FDataLink.DataSource.DataSet.FIElds[I].Displayname=text then
　　 begin
　　 Result:=FDataLink.DataSource.DataSet.Fields[I].FIEldName;
　　 exit;
　　 end;
　　 end;
　　end;
　　procedure TDBFIEldComboBox.SetDataSource ( Value:TDataSource);
　　begin
　　 FDataLink.DataSource :=value;
　　end;
　　function TDBFIEldComboBox.GetDataSource :TDataSource;
　　begin
　　 Result:=FDataLink.DataSource ;
　　end;
　　procedure TDBFIEldComboBox.StartDrag(Sender: Tobject; var DragObject: TDragObject);
　　begin
　　end;
　　procedure TDBFIEldComboBox.DropDown(Sender: Tobject);
　　 var
　　 I,j:integer;
　　begin
　　 j:=0;
　　 j:=FDataLink.DataSource.DataSet .FIEldCount;
　　 I:=0;
　　 repeat
　　 items.Add (FDataLink.DataSet.Fields[I].DisplayName );//.FIEldName);
　　 I:=I＋1;
　　 until I>j－1;
　　end;
　　end.