delphi 将数据表的数值还原为原来的数值

Question

一张表有AA,AI两个字段，AA为文本型，AI为数字型，数据库为Access,在窗体中设置一个修改按钮，用来修改AI的数值；一个还原按钮，用来为点击后还原为原先的数指，还原按钮操作如何实现？AA  AI
A   -0.11
B   -0.22
C   0.184
D   0.123

Answer 1

那先把AI读出来放到一个变量里（first），一按还原 就把first的值重新写回去，不知道还有没有更好的办法

Answer 2

显示是在DBGrid里显示的，这样恐怕不得行哦

Answer 3

用事务应该可以procedure TForm1.btnOpenClick(Sender: TObject);
begin
  ADOQuery1.Open;
  ADOConnection1.BeginTrans;  //连接后启用事务
end;procedure TForm1.btnRestoreClick(Sender: TObject);
begin
  ADOConnection1.RollbackTrans;  //回滚事务
  ADOQuery1.Requery();           //重新查询
end;
procedure TForm1.btnOKClick(Sender: TObject);
begin
  ADOConnection1.CommitTrans;  //提交事务
//  ADOQuery1.Requery();         //为下一次事务准备
//  ADOConnection1.BeginTrans;end;

Answer 4

不是很明白楼上的意思，没用过事务。不过非常感谢，我自定义过程，执行了20个(共20个记录)with ADOcommand do ，update set 事件可以实现，只是方法比较笨啊