btnclose.Enabled:=False;
  newpath:=edit1.Text;
  if main.conn.Connected then
   main.conn.Close;
  try
    with main.adoquery1 do
      begin
        main.adoquery1.close;
        main.adoquery1.sql.Clear;
        main.adoquery1.sql.add('restore database MHPC from disk='''+newpath+'''');
        main.adoquery1.execsql;
      end;
      showmessage('还原成功');
  except
  on e:exception do
   showmessage('还原失败');
  end;
  btnclose.Enabled:=true;
  main.conn.Open();
程序运行后 为什么说数据库还在使用啊 main.conn.Close不是已经关闭了吗,conn是connection控件 adoquery1通过conn连接数据库