Como saber se registro foi atualizado: DSP + CDS?

Delphi

01/09/2014

olá amigos,

Gostaria da ajuda de vcs. Tenho uma tela de cadastro, e o usuário pode alterar quaisquer campos (normal). Mas preciso saber se o usuário de fato alterou algum campo, ou se apenas clicou no botão "editar" e depois "Salvar", sem ter feito nenhuma alteração. No "salvar", tem apenas o comando post e applyupdates(0). Tem como saber, através de eventos como OnAfterUpdateRecord ou OnUpdateData do datasetprovider (DSP)?

Uso clientdataset + datasetprovider + dbx.

Eu estava testando uma rotina, porém não funcionou conforme esperado.


 procedure TdmModulo.dspPRODUTOSUpdateData(Sender: TObject;
  DataSet: TCustomClientDataSet);
begin
  with DataSet do
  begin
    First;
    while not Eof do
    begin
      if UpdateStatus = usUnmodified then
      begin
        ShowMessage('Registro não modificado');
      end;
      Next;
    end;
  end;
end;


Grato.
Fernando

Fernando

Curtidas 0
POSTAR