| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Подскажите, как сделать запрос на сохранение, если запись была
Layner © (2003-11-10 15:44:00)
изменена:
procedure Tdm.q1BeforePost(DataSet: TDataSet);
begin
if MessageDlg (Хотите внести ихменения?", mtConfirmation, [mbYes, mbNo], 0) = IdYes then
q1.Post
.... а что в случае если нет?
end;
Layner (2003-11-10 16:46:00) [1]
stone © (10.11.03 16:36)
Классно, спасибо. Одно но, придётся два раза жать esс, первый раз для отмены, второй раз для выхода из редактирования. Но это уже другой вопрос.
stone (2003-11-10 16:36:00) [2]
procedure Tdm.q1BeforePost(DataSet: TDataSet);
begin
if MessageDlg (Хотите внести ихменения?", mtConfirmation, [mbYes, mbNo], 0) = IdNo then
Abort;
end;
Layner (2003-11-10 16:01:00) [3]
Не, значит так не прокатит. У меня Lookup поля. Если без этого кода, в q1BeforePost все нормально, сохраняет. Но вот если вешаю этот код, Lookup поля лезут в сохранение вместо KeyField :( Что вызывает ошибку...
bushmen (2003-11-10 15:47:00) [4]
q1.Cancel
| |
