VPF::ADOQuery1.Post отмена редактирования

admus

Дата 21.10.2013, 23:21 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 30
Регистрация: 4.4.2009
Где: Пермь

Репутация: нет
Всего: нет

Подскажите пожалуйста.
После открывания формы для редактирования записи,
пользователь нажимает ОК, но редактирование не делает.
Команда стоит ADOQuery1.Post
Как быть?
Выпадпает ошика....

Данкинг

Дата 22.10.2013, 00:47 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Как понять "редактирование не делает"? Если есть .Post - то сначала должен быть и .Edit. А так, в общем случае - ну, можно просто ошибку отлавливать.

--------------------

There's nothing left but silent epitaphs.

admus

Дата 22.10.2013, 08:49 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 30
Регистрация: 4.4.2009
Где: Пермь

Репутация: нет
Всего: нет

Цитата(Данкинг @ 22.10.2013, 00:47)

После открытия формы для редактирования записи открываются поля для редактирования базы. После этого пользователь нажимает ОК (ADOQuery1.Post). Есть кнопка Отмена (Close).
Проблема с ошибкой возникает, когда пользователь открыл это окно и не стал в этой форме ни чего редактировать. При этом же нажимает ОК, подтверждения записи.
Короче, редактирование в записи (DBEdit1) не произошло, а Post случайно нажимается. Вылетает при этом ошибка.

superVad

Дата 22.10.2013, 17:46 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 735
Регистрация: 6.4.2006
Где: Черкассы, Украина

Репутация: 7
Всего: 15

admus, проверяй состояние набора данных перед постом.

БелАмор

Дата 22.10.2013, 20:13 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 209
Регистрация: 10.6.2010
Где: Россия

Репутация: 7
Всего: 17

Цитата(admus @ 22.10.2013, 00:21

)

Команда стоит ADOQuery1.Post
Как быть?
Выпадпает ошика....

Точно такой-же вопрос:
http://www.delphikingdom.com/asp/answer.asp?IDAnswer=77422
Смотрите там приведённые мной ссылки.

По поводу кнопок и закрытия формы:
http://www.delphikingdom.com/asp/answer.asp?IDAnswer=61703

Пример обработки закрытия формы отсюда:
http://www.delphikingdom.com/asp/answer.asp?IDAnswer=80530

Код


procedure TRecEditForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if ModalResult = mrOk then
  try
    FDataSet.Post;
    if FDataSet is TBDEDataSet then
      TBDEDataSet(FDataSet).FlushBuffers;
  except
    ShowMessage('Ошибка при сохранении');
    Action := caNone;
  end
  else
    FDataSet.Cancel;
end;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »