一个问题困扰我很久，请各位大侠指点~~

Question

if adoq_clmc.active=true then close;
     adoq_clmc.sql.Clear;
     adoq_clmc.sql.Add('select * from clmc');
     adoq_clmc.open;
     datamodule1.adoq_clmc.Insert;
     adoq_clmc['dw']:=trim(combobox1.text);
     adoq_clmc['csmc']:=trim(edit5.text);
     adoq_clmc['csdz']:=trim(edit6.text);
     adoq_clmc['memo']:=memo1.Lines.Text;
     datamodule1.adoq_clmc.Post;
当执行完这些代码后，会自动把本窗体关闭~~ 我试过好几次了。郁闷中，请高手指点~~

Answer 1

if adoq_clmc.active=true then 
  adoq_clmc.close;//---就是它了！！

Answer 2

if adoq_clmc.active=true then close;
Close就是把窗体关闭呀！