保存数据之后窗体自动关闭了？？？

我保存数据之后，这个窗体就自动关闭了。想不通了！代码里没有关闭代码啊！请大家帮我看一下！procedure Ttyfform.btnOkClick(Sender: TObject);
begin
close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('select * from 职员基本信息表 where 部门='''+trim(edit8.text)+'''');
ADOQuery2.Open;
with adoquery2 do
begin
close;
sql.clear;
sql.text :='insert into 统一发放管理 (配件编号,名称,规格,单位,单价,数量,总价,部门,发放日期,发放人员,备注,姓名,工种) select '''+trim(edit1.text)+''', '''+trim(edit2.text)+''','''+trim(edit3.text)+''','''+trim(edit4.text)+''','''+trim(edit5.text)+''','''+trim(edit6.text)+''','''+trim(edit7.text)+''','''+trim(edit8.text)+''','''+DateTimeToStr(DateTimePicker3.date)+''','''+trim(edit11.text)+''','''+trim(edit12.text)+''',姓名,工种 from 职员基本信息表 where 部门='''+trim(edit8.text)+'''';
execsql;end;
  end;