mm:=DBEdit1.text;
ADOQuery4.Close;
   ADOQuery4.SQL.Clear;
   ADOQuery4.sql.Add('delete * from unit where name='+quotedstr(mm));
   ADOQuery4.ExecSQL;
   DBEdit1.text:='';
   self.Close;
   self.Free;
   form7.show;

解决方案 »

  1.   

    self.Free;出错,
    在类的方法中执行该类对象的释放操作。
      

  2.   

    'delete  from unit where name='+quotedstr(mm));
      

  3.   

    错误信息是什么?我发现有好几个地方不对头:1.ADOQuery4.sql.Add('delete * from unit where name='+quotedstr(mm)),应为ADOQuery4.sql.Add('delete from unit where name='+quotedstr(mm));2.里面用了unit,不知是否关键字;3.self.Close;self.Free;你这是释放父窗口吗?4.
      

  4.   

    同意 gzllich(刚从泥坑里出来)
      

  5.   

    --self.Close;
    --self.Free;
    这两句你要干什么?把你要做得说出来。