我使用DBEXPRESS
var
TD: TTransactionDesc;
begin
TD.TransactionID := 1;
TD.IsolationLevel := xilREADCOMMITTED;
SQLConnection1.StartTransaction(TD);
try
ClientDataSet1.ApplyUpdates(0);
SQLConnection1.Commit(TD); {on success, commit the changes};
Showmessage('END Commit');
except
MessageDlg('' #13 #10 '資料未存檔!!', mtInformation, [mbOK], 0);
SQLConnection1.Rollback(TD); {on failure, undo the changes};
end;
//
procedure TForm1.DataSetProvider1BeforeUpdateRecord(Sender: TObject;
SourceDS: TDataSet; DeltaDS: TCustomClientDataSet;
UpdateKind: TUpdateKind; var Applied: Boolean);
begin
Showmessage('1111');
abort
end;


我在 BeforeUpdateRecord 中下abort 不能引發錯誤 Rollback 請問在BeforeUpdateRecord 要怎樣寫 才能秀出'資料未存檔'的字樣??

編輯記錄

你好, 試試

procedure TForm1.DataSetProvider1BeforeUpdateRecord(Sender: TObject;
SourceDS: TDataSet; DeltaDS: TCustomClientDataSet;
UpdateKind: TUpdateKind; var Applied: Boolean);
begin
raise Exception.Create('1111');
end;

您好 這樣依然不會 秀出'資料未存檔'的字樣

TDatasetProvider.OnUpdateError

procedure TForm3.DataSetProvider1UpdateError(Sender: TObject;
DataSet: TCustomClientDataSet; E: EUpdateError; UpdateKind: TUpdateKind;
var Response: TResolverResponse);
begin
raise E;
end;