Delphi开发学习三：TdataSource 控件与 TDBGrid 控件使用实例

本是古典何须时尚 2021-06-10 20:41 799阅读 0赞

TdataSource 控件与 TDBGrid 控件在数据库开发中经常是成对出现的。作为数据库感应控件，TDBGrid控件主要作用是通过TdataSource控件连接数据集（如TADOQUery）以各

种方式显示数据库中的数据，并提供客户端浏览的界面。

1．TdataSource 控件  
TdataSource 控件是不可视的， 是联系数据感应控件 （TDBGrid） 和数据集 （TADOQuery）的桥梁，它位于数据访问控件板上，如图 所示：

![Center][]

2．TDBGrid 控件

TDBGrid控件是显示和编辑数据库中表的重要控件，利用该控件可以设计一个灵活的用户界面。它位于数据控制Data Controls控件板上，如图 所示：

![Center 1][]

3．TdataSource 控件与 TDBGrid 控件使用实例：

在这里依然使用delphi开发学习一中创建的工程ADOtest。在工程ADOtest下新建Tdatafrm窗体，作为TdataSource 与 TDBGrid 控件使用实例界面。

（1）在窗体Tdatafrm上创建控件对象dataSource1、DBGride1和ADOQuery1，及按钮控件对象Button1，如下图所示：

![Center 2][]

(2)将DBGrid1的DataSource属性设为DataSource1，Options 下的 dgEditing、dgRowSelect,和 dgAlwaysShowSelection 属性分别设为 False、True、True。如下图所示：

![Center 3][]

（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 显示出来，运行后效果如图所示：

![Center 4][]

对于 DBGrid1 的 Options 属性下的不同选项的不同设置会使最后的数据显示产生不同的效果。

下面附上实例开发的源代码下载链接：

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

[Center]: /images/20210522/f032d7ffea6f421ea4fbbb9d02cee1a0.png
[Center 1]: /images/20210522/4125d771dd664f6fbbd0989ee53f72b2.png
[Center 2]: /images/20210522/89807a648e0d47aca6ddf58412ae2715.png
[Center 3]: /images/20210522/48d3700659544b0c945068a6773eb3b7.png
[Center 4]: /images/20210522/2c014cdd51b4499b9d6c0a3fc66a5ec4.png