adodataset2.First ;
       while not adodataset2.Eof do
         begin
           adodataset2.Delete ;
           adodataset2.Next ;
         end;为什么库中的数据总是删除不彻底呢