1. 程式人生 > >Delphi開發學習三:TdataSource 控制元件與 TDBGrid 控制元件使用例項

Delphi開發學習三:TdataSource 控制元件與 TDBGrid 控制元件使用例項

TdataSource 控制元件與 TDBGrid 控制元件在資料庫開發中經常是成對出現的。作為資料庫感應控制元件,TDBGrid控制元件主要作用是通過TdataSource控制元件連線資料集(如TADOQUery)以各

種方式顯示資料庫中的資料,並提供客戶端瀏覽的介面。

1.TdataSource 控制元件
TdataSource 控制元件是不可視的, 是聯絡資料感應控制元件 (TDBGrid) 和資料集 (TADOQuery)的橋樑,它位於資料訪問控制元件板上,如圖 所示:


2.TDBGrid 控制元件

TDBGrid控制元件是顯示和編輯資料庫中表的重要控制元件,利用該控制元件可以設計一個靈活的使用者介面。它位於資料控制Data Controls控制元件板上,如圖 所示:


3.TdataSource 控制元件與 TDBGrid 控制元件使用例項:

在這裡依然使用delphi開發學習一中建立的工程ADOtest。在工程ADOtest下新建Tdatafrm窗體,作為TdataSource 與 TDBGrid 控制元件使用例項介面。

(1)在窗體Tdatafrm上建立控制元件物件dataSource1、DBGride1和ADOQuery1,及按鈕控制元件物件Button1,如下圖所示:


(2)將DBGrid1的DataSource屬性設為DataSource1,Options 下的 dgEditing、dgRowSelect,和 dgAlwaysShowSelection 屬性分別設為 False、True、True。如下圖所示:


(3)將 DataSource1 的 DataSet 屬性設為 ADOQuery1。
(4)將 ADOQuery1 的 Connection 屬性值設為 dlink.adoconnection1。通過“檢視”按鈕可以將查詢的記錄在 DBGrid 中顯示出來, “檢視”按鈕的實現程式碼如下:

procedure TTdatafrm.Button1Click(Sender: TObject);
begin
ADOQuery1.close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from BASE_DATA');
ADOQuery1.Open;
end;

此例子通過控制元件物件 DataSource1 來作為資料感應控制元件 DBGrid1 和資料集 ADOQuery1的連線橋樑,將資料集查詢到的記錄資訊通過 DBGrid1 顯示出來,執行後效果如圖所示:


對於 DBGrid1 的 Options 屬性下的不同選項的不同設定會使最後的資料顯示產生不同的效果。

下面附上例項開發的原始碼下載連結:

http://download.csdn.net/detail/u011846249/9029883