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

Delphi 7组件应用实例 书籍语言： 简体中文 书籍类型： 程序设计 授权方式： 免费软件 书籍大小： 105 KB

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；