实例——使用数据集缓存更新数据库.txt

来自「冒泡排序延时请认真阅读您的文件包然后写出其具体功能(至少要20个字)。尽量不要让」· 文本 代码 · 共 25 行

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；