F�rum Verificar se o registro foi alterado #60809

19/08/2009

Ol� galera do Firebird. N�o sei se � nesse f�rum ou de Delphi mas vamos l�. Tenho uma tela de cadastro de cliente com ClienteID e Nome, quando o usu�rio edita e grava � alterado o campo dtalt com a data do servidor e at� ai tudo bem. A quest�o � que essa data � gravada independente se foi realmente alterado alguma coisa no registro, se simplesmente o usu�rio clicar em editar e depois gravar o campo dtalt vai ser gravado. Gostaria de saber se � poss�vel gravar o dtalt se o registro foi realmente alterado em algum campo. Ex:
ClienteID Nome
27 Carlos

Se eu editar a alterar o nome para Carlos da Silva vai gravar o dtalt por que que realmente alterei o registro no campo Nome, mas se eu clicar em editar e gravar eu n�o alterei nada e nesse caso o campo dtalt n�o pode ser mudado.

Obrigado.

Developer1978

Curtir t�pico

+ 0

Responder

Posts

19/08/2009

Emerson Nascimento

a atribui��o do campo Dtalt � feita no Delphi ?

Responder

Gostei + 0

19/08/2009

Developer1978

a atribui��o do campo Dtalt � feita no Delphi ?

Sim, no Delphi assim

procedure TFormCadCliente.btnGravarClick(Sender: TObject);
begin
if cdsCadClientes.State = dsEdit then
begin
cdsCadClienteDtAlt.AsDateTime := Lib001.ServerDate;
cdsCadClientes.Post;
cdsCadClientes.ApplyUpdates(0);
end;
end;

Conex�o usando dbexpress com firebird e delphi 7

Responder

Gostei + 0

20/08/2009

Emerson Nascimento

pelo Delphi:

procedure TFormCadCliente.btnGravarClick(Sender: TObject);
begin
  if (cdsCadClientes.State = dsEdit) and
  (cdsCadClientesNome.OldValue <> cdsCadClientesNome.NewValue) then
    cdsCadClienteDtAlt.AsDateTime := Lib001.ServerDate;

  cdsCadClientes.Post;
  cdsCadClientes.ApplyUpdates(0);
end;

[size=18:faf2e754ce][b:faf2e754ce]ou[/b:faf2e754ce][/size:faf2e754ce] crie um TRIGGER para executar esta tarefa. caso opte pelo TRIGGER, n�o � necess�rio qualquer tratamento pelo Delphi.

CREATE OR ALTER TRIGGER ATU_CLI FOR CLIENTE
ACTIVE BEFORE UPDATE POSITION 0
AS
begin
  if (new.NOME <> old.NOME) then
    new.DTALT = current_date; -- ou current_timestamp, para data e hora
end

Responder

Gostei + 0

25/08/2009

Developer1978

pelo Delphi:

procedure TFormCadCliente.btnGravarClick(Sender: TObject);
begin
  if (cdsCadClientes.State = dsEdit) and
  (cdsCadClientesNome.OldValue <> cdsCadClientesNome.NewValue) then
    cdsCadClienteDtAlt.AsDateTime := Lib001.ServerDate;

  cdsCadClientes.Post;
  cdsCadClientes.ApplyUpdates(0);
end;

[size=18:4404c0e9e2][b:4404c0e9e2]ou[/b:4404c0e9e2][/size:4404c0e9e2] crie um TRIGGER para executar esta tarefa. caso opte pelo TRIGGER, n�o � necess�rio qualquer tratamento pelo Delphi.

CREATE OR ALTER TRIGGER ATU_CLI FOR CLIENTE
ACTIVE BEFORE UPDATE POSITION 0
AS
begin
  if (new.NOME <> old.NOME) then
    new.DTALT = current_date; -- ou current_timestamp, para data e hora
end

No Delphi n�o rolou por que tenho que tirar o foco do componente que eu editeim mas vou criar a trigger via IBExpert para testar.

Responder

Gostei + 0

04/07/2010

Carlos Mazzi

Resolvido ?

Responder

Gostei + 0

04/07/2010

Jordelino Santos

Resolvido. Obrigado.

Responder

Gostei + 0