如何释放表单 ( 积分: 10 )

kensoft · 2005-04-11

Application.CreateForm(Tf_Rjs, f_Rjs);
f_rjs.ShowModal;
之后，检测到进入f_rjs表单的sql条件未满足，应该如何在它显示出来之前关闭它？
本人试在表单的 onshow中close不行, oncreate中close也不行。谢谢。

kensoft · 2005-04-11

Application.CreateForm(Tf_Rjs, f_Rjs);
f_rjs.ShowModal;
之后，检测到进入f_rjs表单的sql条件未满足，应该如何在它显示出来之前关闭它？
本人试在表单的 onshow中close不行, oncreate中close也不行。谢谢。

victor_zh · 2005-04-11

你不會把query或者table控件放在這個窗體且設置為active為true吧
不要設為靜態時候就打開,動態的打開,formcreate或者formshow的時候根據sql語句決定要不要打開

wolf_cyj · 2005-04-11

Application.CreateForm(TMyForm, MyForm);
if(Check(sql)) then
begin
if(MyForm.ShowModal() == mrOk) then
Do....
end;

引力 · 2005-04-11

OK,同上。
窗体打开的时候再和数据进行连接。
如：
默认ADODataSet1是关闭的。
在form的oncreate事件中：
with ADODataSet1 do
begin
close;
CommandText := 'select * from 表名';
open;
end;

kensoft · 2005-04-11

我想把表单关闭释放该表单.... f_rjs.free.但无效。表单照样会显示出来。在哪里加上f_rjs.free好？

victor_zh · 2005-04-13

在f_rjs的onclose事件裡面加上Query1.close;

kensoft · 2005-04-17

我是说释放该表单，不是释放SQL。但加分鼓励你们。谢谢。

引力 · 2005-04-21

你可以在窗体创建之前加上判别语句，
如果条件未满足则不执行你的窗体创建语句，反之创建就好了。