我在窗体“form1”里单击命令按钮 “button1”弹出窗体form2,form2是用来查询一个数据库里一个表格的, 现在想在form1里得到form2里查询的结果,但是我的操作结果总是不正确,请各位指点!
我的代码是这样的:
Form1:
application.CreateForm(tform2,form2);
form2.ShowModal;
form2.Free;
.........
Form2:
代码是查询数据库表格的

解决方案 »

  1.   

    use unit2
    var form2:Tform
    form2:=Tform.create(nil)
    ...
    form2.query
      

  2.   

    将Query放在Form1里,Form2关闭后在刷新Query
      

  3.   

    建议你设计一个数据结构比如tstrings来存放数据,或DATASET对象也可以
    然后作为参数取数据
      

  4.   

    form2 = Tform2.Create(nil);
    try
      if form2.showModal= mrOk then
      begin
        form2.query1.Fields[0].value;
      end;
    finally
      FreeAndNil(form2);
    end;
      

  5.   

    为什么一定要用两窗体来实现这样的一个查询呢。
    这样程序的偶和度太高了,不好
    而且如果在form2中进行查询,查询结果应该返回数据集,这个数据集你放在哪都可以。
    form1连接这个数据集。
      

  6.   

    你可以将Form2中输入的查询条件传给Form1的ADOquery进行查询,这样结果集就显示在Form1上了啊