子窗体Query查询的结果怎样返回给主窗体 我在做一个数据库的应用软件。主窗体用来显示数据,在其中我定义了Query1,dataset为Query1,然后我做了一个子窗体Form2,用来选择查询条件,本来想在其中引用Query1,但是出错,于是我又在Form2中定义了Query2,用Query2来查询,但是怎样将Query2查询的结果返回到主窗体,并显示出来呢?请教各位大侠。或者能解决在Form2中引用Query1更好啊! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 你在Form2中使用Form1的Query1出错的原因是你没有在Form2中引用Form1的单元File-->Use Unit...-->选择Form1的单元,Ok,就可以在Form2中引用Form1中的Query1了 还是引用query1吧,你可以把相应的query等数据控件放在一个datamoudle中,这样调用维护能简单一些 var SetWavFrm :TSetWavFrm; value1 :string;begin SetWavFrm :=TSetWavFrm.Create(nil); value1 :=SetWavFrm.Query2.fieldbyname('id').asstring; 我的做法是将子窗体Form2中的查询条件组合成查询语句返回主窗体query1,进行查询,你也可以在查询窗体关闭后,在Form2.free之前query1.sql:=Form2.Query2.sql;query1.ExecSQL; 不建议这样引用Form2是查询条件,很明显应该是从主窗体弹出的,就是说主窗体已经引用了Form2单元应该避免这样相互引用!!! 我也想过将查询条件返回,但是我的查询按钮在Form2中啊,如果返回参数的话,还需要再在主窗体中触发一个事件啊,对了,关闭窗体能触发一个事件吗? Form := TFormCustomSelect.Create(self); if(Form.ShowModal=mrOK) then begin end把子窗体的莫个按钮设成mrok 关于跳出过程 dbGridEh里面的TreeView怎么实现? 如何取得listbox的index 控件tstringgrid的问题 ADOQuery 查询数据问题!急~~~~ 为什么把hwnd设置成为variable! 怎样对弹出的对话框进行操作??在线等候..谢谢 Delphi初学者,请教一个关于编COS(X)的问题,谢谢~ 小鸟继续求助:使自己的程序在系统后台运行,无论在桌面还是系统托盘都看不见 !!! 一个专门存放本人Delphi程序的主页,有好东西的说! SelectDirectory问题? 求选数算法
File-->Use Unit...-->选择Form1的单元,Ok,就可以在Form2中引用Form1中的Query1了
SetWavFrm :TSetWavFrm;
value1 :string;
begin
SetWavFrm :=TSetWavFrm.Create(nil);
value1 :=SetWavFrm.Query2.fieldbyname('id').asstring;
你也可以在查询窗体关闭后,在Form2.free之前
query1.sql:=Form2.Query2.sql;
query1.ExecSQL;
不建议这样引用Form2是查询条件,很明显应该是从主窗体弹出的,就是说主窗体已经引用了Form2单元
应该避免这样相互引用!!!
if(Form.ShowModal=mrOK) then
begin
end把子窗体的莫个按钮设成mrok