Как определить редактировались ли данные? Как редактировать данные через DBEditEh

@Tanushka=) · Регистрация: 15.06.2011

Author24 — интернет-сервис помощи студентам

Доброго времени суток!
Снова требуется ваш совет.
Пишу программу, через которую пользователь будет редактировать реквизиты по покупателям. Сохранение будет реализовано через кнопку (на скриншоте отсутствует).

Как определить редактировались ли данные? Как редактировать данные через DBEditEh

Есть форма, с DBGridEh и простыми Edit'ами.
В Edit'ах отражаются данные активной строки DBGridEh.
Если пользователь что-то редактировал, но вдруг решил перейти на другую строку или совсем закрыть форму через крестик, то должно выводиться сообщение что-то вроде "Вы хотите сохранить изменения?". Дак вот. Как узнать были ли изменения? Понятно, что у edit есть событие OnChange и можно сделать проверку, но придется ведь каждый edit так прописать, а их у меня будет еще много. И не только Edit'ы.

Изначально вместо Edit были DbEditEh, но не хватило понимания сделать через них. У DataSource поставила AutoEdit в значение false. Отредактировала один DBEdit, перехожу на другой, вылетает ошибка "dataset not in edit or insert mode delphi". Предполагаю потому, что AutoEdit=false и он требует от меня Edit, post и т.д. и т.п. Если стоит AutoEdit=true, данные конечно же меняются сразу. А мне, напоминаю, необходимо сохранение через нажатие на кнопку. Может можно прописать в BeforePost, что если запись находится в режиме редактирования (через свойство state можно это сделать, насколько верно я прочла в интернете) и пользователь не нажимал кнопку сохранить, то Abort. А на события FormClose и DBGridEhCellClick повесить диалоговое окно, если запись редактировалась, но не была сохранена. Но имеет ли место такой вариант?

Хотелось бы услышать ваше мнение, советы, ссылки, подсказки. Важна любая помощь. Заранее спасибо!

@northener · 12.02.2018, 02:51

Сообщение от Tanushka=)

Хотелось бы услышать ваше мнение

Редактирование в DBGrid это из эпохи неандертальцев. (Которые вымерли возможно именно поэтому

@D1973 · 12.02.2018, 07:24

Tanushka=),
1. В секции private класса формы объявите переменную Saved

Delphi

private { Private declarations }
    Saved: boolean;
public
    { Public declarations }
end;

2. В событии создания формы инициализируйте ее

Delphi

procedure TForm1.FormCreate(Sender: TObject);
begin
 Saved := true;
end;

3. Создайте для одного из контролов, например для Edit1 обработчик события OnChange, в котором измените значение переменной

Delphi

procedure TForm1.Edit1Change(Sender: TObject);
begin
 Saved := false
end;

4. Назначьте в инспекторе объектов этот обработчик для всех остальных нужных контролов (Эдиты, Комбобоксы, Мемо и т.д.)
5. В событии клика на кнопку сохранения измените значение переменной

Delphi

procedure TForm1.btn_SaveClick(Sender: TObject);
begin
//Тут Ваш код сохранения...
 Saved := true;
end;

6. В событии формы OnCloseQuery пропишите

Delphi

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 if not Saved then ShowMessage('Данные изменены и не сохранены! Сохраните сейчас же!');
 CanClose := Saved;
end;

и, собственно, все...

@Tanushka=) · 12.02.2018, 09:25 **[ТС]**

northener, вероятно вы не очень внимательно читали мой вопрос. dbgrid только отображает данные в моем случае.

@RatWar · 12.02.2018, 11:40

Данные в DBGrid получаете из запроса?

@Tanushka=) · 12.02.2018, 15:17 **[ТС]**

RatWar, да

D1973, спасибо большое за вариант!

@Tanushka=) 4 / 4 / 0 Регистрация: 15.06.2011 Сообщений: 75
		1
	Как определить редактировались ли данные? Как редактировать данные через DBEditEh 11.02.2018, 21:15. Показов 1895. Ответов 5 Метки нет (Все метки) Доброго времени суток! Снова требуется ваш совет. Пишу программу, через которую пользователь будет редактировать реквизиты по покупателям. Сохранение будет реализовано через кнопку (на скриншоте отсутствует). Есть форма, с DBGridEh и простыми Edit'ами. В Edit'ах отражаются данные активной строки DBGridEh. Если пользователь что-то редактировал, но вдруг решил перейти на другую строку или совсем закрыть форму через крестик, то должно выводиться сообщение что-то вроде "Вы хотите сохранить изменения?". Дак вот. Как узнать были ли изменения? Понятно, что у edit есть событие OnChange и можно сделать проверку, но придется ведь каждый edit так прописать, а их у меня будет еще много. И не только Edit'ы. Изначально вместо Edit были DbEditEh, но не хватило понимания сделать через них. У DataSource поставила AutoEdit в значение false. Отредактировала один DBEdit, перехожу на другой, вылетает ошибка "dataset not in edit or insert mode delphi". Предполагаю потому, что AutoEdit=false и он требует от меня Edit, post и т.д. и т.п. Если стоит AutoEdit=true, данные конечно же меняются сразу. А мне, напоминаю, необходимо сохранение через нажатие на кнопку. Может можно прописать в BeforePost, что если запись находится в режиме редактирования (через свойство state можно это сделать, насколько верно я прочла в интернете) и пользователь не нажимал кнопку сохранить, то Abort. А на события FormClose и DBGridEhCellClick повесить диалоговое окно, если запись редактировалась, но не была сохранена. Но имеет ли место такой вариант? Хотелось бы услышать ваше мнение, советы, ссылки, подсказки. Важна любая помощь. Заранее спасибо! 0

@northener пофигист широкого профиля 4755 / 3190 / 861 Регистрация: 15.07.2013 Сообщений: 18,461
	12.02.2018, 02:51	2
	Сообщение от Tanushka=) Хотелось бы услышать ваше мнение Редактирование в DBGrid это из эпохи неандертальцев. (Которые вымерли возможно именно поэтому 0

@Tanushka=) 4 / 4 / 0 Регистрация: 15.06.2011 Сообщений: 75
	12.02.2018, 09:25 [ТС]	4
	northener, вероятно вы не очень внимательно читали мой вопрос. dbgrid только отображает данные в моем случае. 0

@RatWar 7 / 7 / 2 Регистрация: 21.07.2016 Сообщений: 68
	12.02.2018, 11:40	5
	Данные в DBGrid получаете из запроса? 0

@Tanushka=) 4 / 4 / 0 Регистрация: 15.06.2011 Сообщений: 75
	12.02.2018, 15:17 [ТС]	6
	RatWar, да D1973, спасибо большое за вариант! 0

Опции темы