请问如何实现录入完数据后关闭,为什么我调用了close却无法关闭

                            
procedure   Tczd.Button1Click(Sender:   TObject);   
  begin  
  adodataset1.Active:=true;  
  with   adodataset1   do  
  begin  
  append;  
  fieldvalues['zbianhao']:=edit1.Text;  
  fieldvalues['bianhao']:=edit2.Text;  
  fieldvalues['blh']:=edit3.Text;  
  fieldvalues['kahao']:=edit4.Text;  
  fieldvalues['beizhu']:=memo.text;  
  fieldvalues['bumen']:=findbingli.cap;  
  post;  
  adodataset1.Active:=false;  
  close  
  end;  
  end;  
   
  无法关闭窗口呢?

查看回复