Question

delphi7 如何调用另一个窗口控件的功能？

本来设计的查询功能是没有窗口2的，代码是：
if edit1.Text<>'' then
begin
Adotable1.Close;
Adotable1.Filter:='userName like ''%'+edit1.Text+'%''';
Adotable1.Filtered:=true;
Adotable1.Open;
end
else
begin
Adotable1.Close;
Adotable1.Filter:='';
Adotable1.Filtered:=false;
Adotable1.Open;
end;
现在想多出FORM2来查询，点击form1弹出form2，代码FORM2.show已经成功了，怎么在form2利用form1的ADOTABLE来查询？？

Form2怎么调用Form1的 ADOtable进行查询？

Answer 1

1，在Unit1的 interface 下uses 里 添加 Unit2;

2,   在Unit2的 implementation 下添加 uses unit1; // 这样 两个Form 之间能互换信息 且不冲突

最后在任何窗口编辑时都可以用 另一个窗口的组件的数据 甚至在 Form2的DBedit 可以连接 Form1的 DataSource  经过测试  （使用时 Form1.****，必须添加组件所在的FORM)

Answer 2

你可以动态指定adoquery的 datasource的指向，这样就可以用其它的adotable了，不过不建议你这样做，最好是建议个datamodal 把所有的数据操作控件全放到这里，每个FORM引用就OK了

追问

datamodal怎么弄？

追答

file -> new ->other在弹出菜单里选delphi files 里面就有 data module