При отправлении Cancel - получается ... Insert [D6, Win2k]
}|{yk © (2004-10-04 21:09:00)
if OraQueryPlateg.State = dsEdit then
begin
Text :=
'Áóëî
çì³íåíî
äàí³.
Çàíåñòè
çì³íè
äî áàçè?';
Caption := '×è
çì³íþâàòè
çàïèñ?';
if MessageBoxEx(GetForegroundWindow,
PChar(Text), PChar(Caption), MB_YESNO + MB_ICONQUESTION, 419)
ID_YES then
OraQueryPlateg.Cancel;
end;
Смотрим в sql-монитор, а подается запрос на Insert
Компоненты ODAC
ЮЮ (2004-10-05 03:02:00) [1]
Этот Cancel только для редактируеиой (а не вставляемой)
записи, а коль приходит Insert, то этот код не должен работать.
if OraQueryPlateg.State in [dsEdit,
dsInsert] then
Наверх 
ЧАТ |
Орешник |
|
