help~!help~!

Question

一、通过对数据库的有条件查询，怎么样把某一个特定的值赋给一个变量。如：我在edit1中录入一个数据，怎么把这个数据找出来放到一个变量里。如果表里没有这个数据怎么处理。
二、在一个窗体(S)中通过按扭button1调出另一个窗体(M)而后怎么彻底关掉窗体(S)
，但不是隐藏窗体(S)。
三、在MDI窗体中，主窗体所执行的时候，而所有的子窗体也跟着出来，可我不想让子窗体显示出来，怎么样解决？

Answer 1

一. 我不明白你到底想干什么.二. procedure s.buttonClick(Sender: TObject)
    begin
      m.show;
      s.free;
    end;三.在project--->options菜单中,把子窗体设为变量型.就可以了. 不过以后在主窗体中调用它时,必须先创建.

Answer 2

一. 我也没有听懂.二. close就可以啦 在onclose中写 action:=cafree;三.同上，在project option 中设置为非自动创建的窗体就可以了

Answer 3

a:=edit1.text;
//没有怎么处理要问你自己了!
自动创建你吧那些MDI Chiled从自动创建中去掉就是了!

Answer 4

通过对数据库的有条件查询，怎么样把某一个特定的值赋给一个变量。如：我在edit1中录入一个数据，怎么把这个数据表找出来放到一个变量里。如果表里没有这个数据怎么处理？

Answer 5

一、通过对数据库的有条件查询，怎么样把某一个特定的值赋给一个变量。如：我在edit1中录入一个数据，怎么把这个数据找出来放到一个变量里。如果表里没有这个数据怎么处理。
{
IW：你要的值的字段
ITable:你要的值的表
IField:条件字段
}
Query1.close
Query1.sql.clear
Query1.sql.add('select iw from ITable where IField =:IFI');
query1.Params[0].asstring :=edit1.text;
query1.open
if query1.recordCount <> 0 then
  edit2.text :=query.fields[0].displaytext;
query1.close;
二、在一个窗体(S)中通过按扭button1调出另一个窗体(M)而后怎么彻底关掉窗体(S)
，但不是隐藏窗体(S)。
Procedure.s.Buttonclick(sender:Tobject)
begin
  Munit.M:=Munit.Tm.Create(self);
  close;
end;又击S的onclose;
输入 Action:=Cafree;
  
三、在MDI窗体中，主窗体所执行的时候，而所有的子窗体也跟着出来，可我不想让子窗体显示出来，怎么样解决？
在project option 中设置为非自动创建的窗体就可以了