关于查询记录的现实？

Question

在我的查询窗口模块，本来有一个DataSource1控件，所以我想显示动态查询的记录，如下：
procedure Txinxicx.DataSource1DataChange(Sender: TObject; Field: TField);
begin
 label4.Caption:=inttostr(DataSource1.DataSet.RecNo);
 label5.Caption:=inttostr(DataSource1.DataSet.RecordCount);
end;
但是我现在把查询窗口上的DataSource控件放到了数据模块窗体中，又该怎样东带显示查询的记录呢？

Answer 1

uses datamodule 单元
label4.Caption:=inttostr(datemodule.DataSource1.DataSet.RecNo);