Главная страница
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.014 c
1-89866
Varelik
2003-11-13 14:01
2003.11.27
Рассыпается дизайн при смене крупного шрифта системы на мелкий.


1-89860
Сергей Петров
2003-11-16 04:55
2003.11.27
Как открыть файл, зарегистрированный в системе (mp3,m3u,avi,...)


3-89745
Копосов Н.В.
2003-11-08 13:33
2003.11.27
пногопользовательский доступ к таблицам БД


1-89974
афвуд
2003-11-17 15:10
2003.11.27
Почему StretchDraw не работает?


1-89851
mrAld
2003-11-16 15:09
2003.11.27
Трей для чайников