使用数据集缓存更新数据库

procedure TForm1.Uadate_DatabaseBtnClick(Sender: Tobject)；begin  with Update_Query do  //使用更新查询  begin  Update_Database.StartTransaction；  //调用数据库组件的StartTransaction方法开始一个新的事务    try      ApplyUpdates；      //将更新的数据写到数据库中      Update_Database.Commit；      //提交已做的更改    except      Update_Database.Rollback；      //如提交出现错误，则取消对数据库所做的修改      Raise；      //产生一个异常，以防止调用CommitUpdates方法    End；  CommitUpdates；  //更新成功后，清除缓冲区中的数据  End；End；