Обновление данных для клона компонента ClientDataSet

[bilibian]

Привет!

Нам известно, что оригинал и клон используют общее хранилище данных и чаще всего клон в обновлении не нуждается, но в данном случае оригинал получает обновленные данные, а клон о них ничего не знает.

ClientDataSet1.CreateDataSet;
ClientDataSetClone1.CloneCursor(Self.ClientDataSet1,True); // Клонируем основной DataSet

К примеру, изменяем в таблице DBGrid ячейку и ручками вписываем туда новое значение подтверждая наши действия клавишей Enter, при этом, по другим строкам в таблице мышкой не кликаем.

Далее, получаем данные измененной ячейки из клона, которые оказались устаревшими, то есть, то что там было до ее изменения. Но, если получить данные, тем же способом, из оригинала, то ячейка имеет свежие данные.

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

Как добиться обновления данных в клоне сразу после их внесения в таблицу, без перескакивания по строкам?!

[evg_m]

Delphi Help

Call Post to commit changes to the current record. Methods that change the dataset state, such as Edit, Insert, or Append, or that move from one record to another, such as First, Last, Next, and Prior automatically call Post.

нужно после редактирования самой ячейки кликнуть на другую строку в таблице.

[bilibian]

evg_m, как это решает мою проблему?!

Если вы имеете ввиду, что перед получением данных от клона, мне нужно пройтись циклом по оригиналу используя выше указанные методы, то это не приемлемо, так как придется отнимать выделение у пользователя. Теряется вся суть использования клона.

[Serge_Bliznykov]

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

рискну предположить, что пока Вы не меняете строку в таблице, изменённые данные в ячейке ещё не записаны. Для проверки этого, например, попробуйте после редактирования, вместо того, чтобы кликнуть на другую строку, нажать клавишу "ESC".

Как с этим бороться?
я бы редактирование строки вытащил в отдельную форму. (по "Сохранить" выполняется Post). Думаю, что это решит вашу проблему.

если не хотите делать так, то делайте так, как в Excel - редактирование ячейки заканчивается либо на нажатию на кнопочку с зелёной "птичкой", либо по клику на другую ячейку, либо по нажатию клавиши Enter.

[bilibian]

Сообщение от Serge_Bliznykov

того, чтобы кликнуть на другую строку, нажать клавишу "ESC".

Данное действие отменяет сделанные изменения в ячейке.

Сообщение от Serge_Bliznykov

я бы редактирование строки вытащил в отдельную форму. (по "Сохранить" выполняется Post). Думаю, что это решит вашу проблему.

Верно, но мне не хотелось бы загромождать интерфейс. Если решение не получится найти, то в конечном счете придется поступить именно так.

Сообщение от Serge_Bliznykov

либо по нажатию клавиши Enter

С Enter-ом не работает. Или вы имеете ввиду, чтобы написать под эту клавишу действие с выполнением Post?

Сообщение от Serge_Bliznykov

либо на нажатию на кнопочку с зелёной "птичкой".

Попробую подумать над этим вариантом.

[Аватар]

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  if (Ord(Key)=VK_RETURN) and (DataSet.State=dsEdit) then DataSet.Post;
end;

[evg_m]

evg_m, как это решает мою проблему?!

Цитата:
нужно после редактирования самой ячейки кликнуть на другую строку в таблице.

при этом выполняется переход НА ДРУГУЮ запись(строку) НАБОРА ДАННЫХ.(DataSet).
В этом случае

or that move from one record to another, ... automatically call Post.

Вот и надо САМОМУ вызвать(выполнить) Post

Call Post to commit changes to the current record.

где и когда ?
пример Аватара.

[bilibian]

Сообщение от Аватар

procedure TForm1.DBGrid1ColExit(Sender: TObject);
begin
  if DataSet.State=dsEdit then DataSet.Post;
end;

Работает, но только в том случае, если не использовать Enter. Для Enter приходится писать вот такой вот бредовый колхоз:

procedure TForm1.DBGridEh1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key=VK_RETURN) then begin
    ClientDataSet1.Edit;
    ClientDataSet1.FieldByName('param1').Value := ClientDataSet1.FieldValues['param1'];
    ClientDataSet1.FieldByName('param2').Value := ClientDataSet1.FieldValues['param2'];
    ClientDataSet1.FieldByName('param3').Value := ClientDataSet1.FieldValues['param3'];
    ClientDataSet1.Post;
  end;
end;

[Serge_Bliznykov]

Аватар, хороший вариант. Намного лучше, чем у TC.
но имеет тот же недостаток, только в меньшем масштабе.
если не выйти из редактируемой ячейки, то её изменения в БД не попадают...

Для Enter приходится писать вот такой вот бредовый колхоз:

а разве так не сработает?

procedure TForm1.DBGridEh1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
   if (Key=VK_RETURN) and (DBGridEh1.DataSet.State=dsEdit) then DBGridEh1.DataSet.Post;
end;

p.s. правда, я бы всё равно рассмотрел вариант, когда запись изменений происходит разово (в рамках одной строки (== Record) и осознанно - с подтверждением пользователя.
А то можно дойти до того, чтобы повесить обработчик на изменение значения и по каждой буковке делать Post в БД. Если в БД логгирование висит, вот цирк будет!

[Аватар]

Ага, забыл, что по Enter не переходит, Можно по OnKeyPress, исправил в #6

PS вообще-то это не есть хорошо, post не должен быть после обработки каждой колонки