Научите в ODAC обрабатывать ошибки.

← →
12 © (2011-01-31 11:56) [0]

Как ошибку остановить всплывать/добавить свой текст к ней?
В общем, поиметь к ней доступ.

(А в общем, стоит задача юзера ставить в известность, что запись была изменена, пока он ее редактировал.)

smrtqry1: TSmartQuery; Поставил CheckMode := cmException;

orhndlr1: TOraErrorHandler;
//срабатывает, показывает message, refreshит. Как ошибку остановить всплывать?
procedure TForm1.orhndlr1Error(Sender: TObject; E: Exception; ErrorCode: Integer; const ConstraintName: String; var Msg: String); begin ShowMessage( "Обработчик: Попробуем обновить запись" ); smrtqry1.RefreshRecord; end; procedure TForm1.aplctnvnts1Exception(Sender: TObject; E: Exception); //не ловит ошибку //aplctnvnts1: TApplicationEvents; begin ShowMessage("aplctnvnts1Exception " + E.Message ); end;

// --------- тестовые кнопочки procedure TForm1.btn3Click(Sender: TObject); begin smrtqry1.Refresh; end; procedure TForm1.btn1Click(Sender: TObject); // обновить запись в другой сессии begin oq1.SQL.Text := "update branch b set b.bname = " + QuotedStr("№1 НОВОЕ НАПРАВЛЕНИЕ")+ " where b.id_branch = 5378"; oq1.ExecSQL; end; procedure TForm1.btn2Click(Sender: TObject);// обновить запись в другой сессии begin oq1.SQL.Text := "update branch b set b.bname = " + QuotedStr("№2 новое направление")+ " where b.id_branch = 5378"; oq1.ExecSQL; end;

Ошибка рождается тут
unit DB; procedure DatabaseError(const Message: string; Component: TComponent = nil); begin if Assigned(Component) and (Component.Name <> "") then raise EDatabaseError.Create(Format("%s: %s", [Component.Name, Message])) else raise EDatabaseError.Create(Message); // <<---- end;

стек вызовов
DatabaseError("Record was changed by another user.",nil)
TCustomDADataSet.PerformSQL("SELECT * FROM branch"#$D#$A"WHERE"#$D#$A" ROWID = :OLD_ROWID"#$D#$A"FOR UPDATE NOWAIT",[stLock,stCheck])
TOraDataSet.PerformSQL("SELECT * FROM branch"#$D#$A"WHERE"#$D#$A" ROWID = :OLD_ROWID"#$D#$A"FOR UPDATE NOWAIT"#$D#$A,[stLock,stCheck])
TCustomSmartQuery.InternalBeforeEdit
TCustomDADataSet.InternalEdit
TCustomSmartQuery.InternalEdit
TDataSet.CheckOperation($923970,nil)
TDataSet.Edit
TDataSource.Edit
TDataLink.Edit
TCustomDBGridEh.CanEditModifyText
TCustomDBGridEh.CanEditModify
TInplaceEdit.KeyPress("5")
TDBGridInplaceEdit.KeyPress("5")
TWinControl.DoKeyPress((258, 53, 0, 4980737, 0))
TWinControl.WMChar((258, 53, 0, 4980737, 0))
TControl.WndProc((258, 53, 4980737, 0, 53, 0, 1, 76, 0, 0))
TWinControl.WndProc((258, 53, 4980737, 0, 53, 0, 1, 76, 0, 0))
TInplaceEdit.WndProc((258, 53, 4980737, 0, 53, 0, 1, 76, 0, 0))
TDBGridInplaceEdit.WndProc((258, 53, 4980737, 0, 53, 0, 1, 76, 0, 0))
TWinControl.MainWndProc((258, 53, 4980737, 0, 53, 0, 1, 76, 0, 0))
StdWndProc(2428022,258,53,4980737)
TApplication.ProcessMessage((2428022, 258, 53, 4980737, 171902656, (542, 410)))
TApplication.HandleMessage
TApplication.Run
Project1

← →
12 © (2011-01-31 12:02) [1]

т.е., нажимаю кнопкку, в другой сессии значение меняется.
В гриде, показавыется еще старое. Все ок.
Редактирую в гриде - вываливается "Обработчик: Попробуем обновить запись".
Запись обновляеется. Все ок.

И тут выскакивает "Record was changed by another user." - стандартное, делфевое окно с красным кружочком.
(aplctnvnts1Exception + E.Message не выскакивает)

Родили его в unit DB;
procedure DatabaseError(const Message: string; Component: TComponent = nil);
begin
if Assigned(Component) and (Component.Name <> "") then
raise EDatabaseError.Create(Format("%s: %s", [Component.Name, Message])) else
raise EDatabaseError.Create(Message); // <<----
end;

Как его перехватить?

← →
12 © (2011-01-31 12:07) [2]

причем, если пишу

procedure TForm1.orhndlr1Error(Sender: TObject; E: Exception;
ErrorCode: Integer; const ConstraintName: String; var Msg: String);
begin
ShowMessage( "Обработчик: Попробуем обновить запись" );
Msg := "asasas";
smrtqry1.RefreshRecord;
end;
стандартное, делфевое окно с красным кружочком будет "asasas";
а если Msg := "";
, то "Record was changed by another user."

← →
12 © (2011-02-01 13:20) [3]

закрыто, разобрался :)

т.е., не надо так вообще делать, смотреть надо в демку в каталоге ODAC

← →
Паша (2011-02-06 13:25) [5]

ну, вдогонку. та есть такая себе для этого случая удобная компонента. для совсем ленивых гыгы

Научите в ODAC обрабатывать ошибки. Найти похожие ветки