在报表页面,quickrep有一个属性dataset,我想调用数据模块dm中的Adoquery组件,
于是在报表窗体中加了uses dm(如下)
implementation
   uses dm;
{$R *.dfm}
按道理,dataset下拉框会显示出ADOquery,但却没有
我不想在报表窗体上放一个adoquery组件(因为那样设置起来很麻烦),
我试过在窗体初始化的时候加如下代码:
procedure Tfrm_baobiao.FormCreate(Sender: TObject);
begin
  with frm_dm.xueji_query do
  begin
     sql.Clear;
     sql.Add('select basic_info.xh,xm,bj,idm,xn,xq,bdyy,qx,bz1 from basic_info,xueji_info where  basic_info.xh=xueji_info.xh ');
     open;
quickrep1.DataSet:=frm_dm.xueji_query;
qrdbtext1.DataSet:=frm_dm.xueji_query;
qrdbtext2.DataSet:=frm_dm.xueji_query;
qrdbtext3.DataSet:=frm_dm.xueji_query;
qrdbtext4.DataSet:=frm_dm.xueji_query;
qrdbtext5.DataSet:=frm_dm.xueji_query;
qrdbtext6.DataSet:=frm_dm.xueji_query;
qrdbtext7.DataSet:=frm_dm.xueji_query;
qrdbtext8.DataSet:=frm_dm.xueji_query;
那样是可以,但很麻烦,请问还有别的方法吗?