天天看点

delphi开发学习四:TClientDataSet与TDataSetProvider控件使用实例

1、TClientDataSet控件

通过TClientDataSet控件可以建立瘦客户端的应用程序,且数据执行效率较高,但它不能和数据库自动连接,程序中必须制定它如何获取数据。一般情况下,TClientDataSet 控件获取数据的方式主要有 3 种:从本地文件中获取、从本地的另外一个数据集对象中获取以及通过 IAppServer 接口来获取。

2.TDataSetProvider 控件

TDataSetProvider 控件基于数据集为应用程序中的其他控件提供数据, 并将对数据的更新传回数据集或数据集相关的数据库服务器。

3.TClientDataSet 控件与 TDataSetProvider 控件应用实例

在这里依旧使用delphi开发学习一中建立的工程Adotest,在工程ADOtest里新建窗体TCDatafrm,在窗体上添加

控件ADOQuery1,DataSetProvide1,ClientDataSet1,DataSource1,DBGrid1,Button1,

并设置其属性:ADOQuery1.connection      =dlinkfrm.ADOConnection1;

    DataSetProvide1.DataSet  =ADOQuery1;

                            DataSource1.DataSet         =ClientDataSet1,

    DBGrid1.DataSource           =DataSource1;

这些属性都可以在视图中直接选择设置,如下图所示:

delphi开发学习四:TClientDataSet与TDataSetProvider控件使用实例
delphi开发学习四:TClientDataSet与TDataSetProvider控件使用实例
delphi开发学习四:TClientDataSet与TDataSetProvider控件使用实例
delphi开发学习四:TClientDataSet与TDataSetProvider控件使用实例

通过以上控件的使用及其属性设置后,在“查询”按钮的单击事件里添加适当代码后就可以实现数据的查询与显示。以下代码为“查询”按钮的单击事件代码:

procedure TTCDatafrm.Button1Click(Sender: TObject);

begin

ADOQuery1.close;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('SELECT * FROM BASE_DATA');

ADOQuery1.open;

//将 DataSetProvide1 提供的数据传给 ClientDataSet1

ClientDataSet1.Data:=DataSetProvide1.Data;

end;

运行程序后,单击“查询”按钮,得到如下图所示的查询结果。

delphi开发学习四:TClientDataSet与TDataSetProvider控件使用实例

该例控件实现的功能与前文开发学习三中ADOQuery,DataSource控件实现的功能的结果相同。但在开发操作中由于将数据库操作封装在

类中,因此数据的查询与显示通过ADO控件和DataSource控件实现起来相对比较困难,所以一般可以通过TClientDataSet控件和TDataSetProvider控件进行中间数据的传递。

---------------------

作者:FreeSoar1