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