怎样将query的结果返回给窗体？

Question

结果定义为：公共变量   c 。
然后:  窗体A...:=窗体b.c;

Answer 1

用DataModule，将Query放到DataModule中，可N个窗体公用

Answer 2

用FROM A 中的 DATASET 指向 FORM B 中的QUERY！

Answer 3

在DELPHI中，窗体有两种生成方式，一种是由Application在程序运行前生成的，一种是在程序中动态生成的  TForm1.Create(self) 等，一旦窗体生成以后就是Application的一个对象，在任何窗体中即可以自由调用，如上所言：只要该窗体没有被 Free 掉，你就可以对它进行操作。如下：
uses FormB;procedure TFormA.ButtomClick(Sender : TObject);
begin
  With TFormB.Create(Self) do 
  begin
    ShowModal;
    Query1.Assign(Query);   //使用窗体B的子对象
    //Query1是窗体A的，Query是窗体B的
    Free;  //释放掉窗体B的
  end;
end;