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

女爷i 2021-09-10 14:08 592阅读 0赞

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;

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

![Center][]![Center 1][]![Center 2][]![Center 3][]

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

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;

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

![Center 4][]

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

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

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

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

[Center]: https://img-blog.csdn.net/20150819193239874?watermark/2/text/aHR0cDovL2Jsb2cuY3Nkbi5uZXQv/font/5a6L5L2T/fontsize/400/fill/I0JBQkFCMA==/dissolve/70/gravity/Center
[Center 1]: https://img-blog.csdn.net/20150819193244118?watermark/2/text/aHR0cDovL2Jsb2cuY3Nkbi5uZXQv/font/5a6L5L2T/fontsize/400/fill/I0JBQkFCMA==/dissolve/70/gravity/Center
[Center 2]: https://img-blog.csdn.net/20150819193317129?watermark/2/text/aHR0cDovL2Jsb2cuY3Nkbi5uZXQv/font/5a6L5L2T/fontsize/400/fill/I0JBQkFCMA==/dissolve/70/gravity/Center
[Center 3]: /images/20210522/46407d423f6e4038a7c0e7e6fe4d7c29.png
[Center 4]: /images/20210522/eac6486673e8407790ad7066828c14a5.png