Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.11.27;
Скачать: 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 вся ветка

Текущий архив: 2003.11.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.019 c
4-90173
frost63
2003-10-02 07:21
2003.11.27
Планировшик заданий Windows.


14-90123
Ivankkk
2003-11-02 21:19
2003.11.27
Учебники по Delphi/Object_Pascal


6-90018
MakNik
2003-10-03 11:25
2003.11.27
Socket


6-90034
Garin
2003-09-11 12:33
2003.11.27
Отправка почты (SMS)


1-89921
radiosoft
2003-11-18 09:59
2003.11.27
Как убрать прокрутку в MDI окне?