Скачать: CL | DM;

Подскажите, как сделать запрос на сохранение, если запись была   Найти похожие ветки 

← →
Layner ©   (2003-11-10 15:44) [0]

изменена:
procedure Tdm.q1BeforePost(DataSet: TDataSet);
begin
if MessageDlg (Хотите внести ихменения?", mtConfirmation, [mbYes, mbNo], 0) = IdYes then
q1.Post
.... а что в случае если нет?
end;

---

← →
bushmen ©   (2003-11-10 15:47) [1]

q1.Cancel

---

← →
Layner ©   (2003-11-10 16:01) [2]

Не, значит так не прокатит. У меня Lookup поля. Если без этого кода, в q1BeforePost все нормально, сохраняет. Но вот если вешаю этот код, Lookup поля лезут в сохранение вместо KeyField :( Что вызывает ошибку...

---

← →
stone ©   (2003-11-10 16:36) [3]

procedure Tdm.q1BeforePost(DataSet: TDataSet);
begin
if MessageDlg (Хотите внести ихменения?", mtConfirmation, [mbYes, mbNo], 0) = IdNo then
Abort;
end;

---

← →
Layner ©   (2003-11-10 16:46) [4]

stone © (10.11.03 16:36)
Классно, спасибо. Одно но, придётся два раза жать esс, первый раз для отмены, второй раз для выхода из редактирования. Но это уже другой вопрос.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.015 c