[强][关注]常见的数据集的错误

alang

1.数据集是一次只编辑一条记录，因此数据集的状态也是针对某一条记录的，而不是针对所有记录的
DataSet.First;
DataSet.Edit;
While not DataSet.Eof do
begin
  DataSet.FieldByName('ZD1').AsString := ‘aaa’;
  DataSet.Next;
End;
DataSet.Post
应该写成
DataSet.First;
While not DataSet.Eof do
begin
  DataSet.Edit;
  DataSet.FieldByName('ZD1').AsString := ‘aaa’;
  DataSet.Post;
DataSet.Next;
End;
在每一次循环时候，设置数据集状态，而不是在循环开始前设置数据集状态。

alang

错误写法：
DataSet.First;
While not DataSet.Eof do
begin
  DataSet.Edit;
  DataSet.FieldByName(‘’).AsString := ‘aaa’;
  DataSet.Post;
  DataSet.ApplyUpdates(True);
DataSet.Next;
End;
应该写成：
DataSet.First;
While not DataSet.Eof do
begin
  DataSet.Edit;
  DataSet.FieldByName(‘’).AsString := ‘aaa’;
  DataSet.Post;
  DataSet.Next;
End;
DataSet.ApplyUpdates(True);

数据集的Post是客户端保存，当前数据的修改保存在客户端。ApplyUpdates是提交服务端动作，把客户端数据集作的所有数据修改、删除、增加等都提交给业务服务器，由业务服务器提交给数据库。
如果每个循环中都提交服务器，那么由于服务器交互频繁，数据量大的情况下，会造成速度慢。

alang

procedure DataSetBZSJJ1.AfterPost(..)
begin
  btnSave.Enabled := False;
end;

由TAction直接决定按钮的状态，而不应该在事件中修改按钮状态，如果按钮状态比较复杂，可以在TAction的OnUpdate事件中写。