procedure TForm1.FormShow(Sender: TObject);
begin
ADODataSet1.LockType:=ltBatchOptimistic;
end;
procedure TForm1.ButtonCommitClick(Sender: TObject);
begin
ADODataSet1.UpdateBatch;
end;
procedure TForm1.ButtonCancelClick(Sender: TObject);
begin
ADODataSet1.CancelUpdates;
end;