最新消息:

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

编程 koic_zhzz 126浏览 0评论

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

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

1.TdataSource 控件
TdataSource 控件是不可视的, 是联系数据感应控件 (TDBGrid) 和数据集 (TADOQuery)的桥梁,它位于数据访问控件板上,如图 所示:

Delphi开发学习三:TdataSource 控件与 TDBGrid 控件使用实例-1

2.TDBGrid 控件

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

Delphi开发学习三:TdataSource 控件与 TDBGrid 控件使用实例-2

3.TdataSource 控件与 TDBGrid 控件使用实例:

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

(1)在窗体Tdatafrm上创建控件对象dataSource1、DBGride1和ADOQuery1,及按钮控件对象Button1,如下图所示:

Delphi开发学习三:TdataSource 控件与 TDBGrid 控件使用实例-3

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

Delphi开发学习三:TdataSource 控件与 TDBGrid 控件使用实例-4

(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 显示出来,运行后效果如图所示:

Delphi开发学习三:TdataSource 控件与 TDBGrid 控件使用实例-5

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

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

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

 

转载请注明:落伍老站长 » Delphi开发学习三:TdataSource 控件与 TDBGrid 控件使用实例

发表我的评论
取消评论
表情

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址