那用这个也行,如何判断编辑了那个字段:procedure TDanJia.adqAfterEdit(DataSet: TDataSet); begin end;
可以在POST前事件通过每个字段的新值与旧值对比判断是否修改,如: procedure TForm1.ADODataSet1BeforePost(DataSet: TDataSet); begin if DataSet.Fields[0].OldValue <>DataSet.Fields[0].NewValue then showmessage('Fields[0] is Changed') if DataSet.Fields[1].OldValue <>DataSet.Fields[1].NewValue then showmessage('Fields[1] is Changed') //... end;
begin
end;
procedure TForm1.ADODataSet1BeforePost(DataSet: TDataSet);
begin
if DataSet.Fields[0].OldValue <>DataSet.Fields[0].NewValue then
showmessage('Fields[0] is Changed')
if DataSet.Fields[1].OldValue <>DataSet.Fields[1].NewValue then
showmessage('Fields[1] is Changed')
//...
end;
如何写在BeforePost事件里写取消Post的命令? DataSet.Cancel;这样写有问题.
如何写在BeforePost事件里写取消Post的命令? DataSet.Cancel;这样写有问题.
以 Abort 取消Post的命令