测试用程序1
procedure TMainForm.DataSetBZSJJ1BeforeApplyUpdates(Sender: TObject; var OwnerData: object);
begin
DataSetBZSJJ1.Connection.ExecuteSQL('update tdept set emanager=cast(getdate() as char(30))');
raise Exception.Create('出错了');
end;
数据集没有提交,而且这条SQL语句也没有执行
测试用程序2
procedure TMainForm.DataSetBZSJJ1BeforeApplyUpdates(Sender: TObject; var OwnerData: object);
begin
DataSetBZSJJ1.Connection.ExecuteSQL('update tdept set emanager=cast(getdate() as char(30))');
end;
数据集提交成功,而且这条SQL语句执行了