Fórum Atualização Sincronizada #244587

Olá a Todos,

Desenvolvi um sistema Client/Servidor, e para q o sistema faça uma atualização sincronizada, ou seja a hora q alguém adiciona algum registro é atualizado na mesmo hora para os outros usuários. Para isso criei uma Tabela Auxiliar (TableAux) com dois campos, uma para o Nome da tabela q irei atualizar (TableName) e outro com a Data e Hora para Atualizar (UpdateDateTime).


Desenvolvi a seguinte rotina :


Variáveis Globais:
ErroTransacao : Boolean;

// ************* Transações *************** //

function TDMprinc.IniciarTransacao(aValorTransacao : Integer) : Boolean;
begin
try
Transacao.TransactionID := aValorTransacao;
Transacao.IsolationLevel := xilREPEATABLEREAD; // Só aqui q estou em Dúvida ....
Conexao.StartTransaction(Transacao);
Result := True;
ErroTransacao := Result;
except
Result := false;
ErroTransacao := Result;
end;
end;

procedure TDMprinc.FinalizarTransacao;
var
Msg : PAnsiChar;
begin
try
if (ErroTransacao <> False) then Conexao.Commit(Transacao);
except
on Exc:Exception do
begin
Msg := Pchar(´Ocorreu um erro na Transação do registro: ´ + Exc.Message);
Application.MessageBox(Msg, ´Transações´,mb_ok+mb_iconError);
Conexao.Rollback(Transacao);
end;
end;
end;

function TDMprinc.UpdateSystem(aTabela : String) : Boolean;
var
DataBanco : String;
begin
with qUpdate do
begin
Close;
SQL.Clear;
SQL.Add(´SELECT * FROM TableAux´);
SQL.Add(´WHERE UpdateDateTime > :DataHora´);
SQL.Add(´AND TableName = :NomeTable´);
///// ************************************************** //////
if (aTabela = ´Clientes´) then
Params[0].AsString := DateTimeToStr(DataHoraClientes);
if (aTabela = ´Generos´) then
Params[0].AsString := DateTimeToStr(DataHoraGeneros);
if (aTabela = ´Fitas´) then
Params[0].AsString := DateTimeToStr(DataHoraFitas);
if (aTabela = ´Compras´) then
Params[0].AsString := DateTimeToStr(DataHoraCompras);
if (aTabela = ´Locação´) then
Params[0].AsString := DateTimeToStr(DataHoraLocacao);
if (aTabela = ´Devolução´) then
Params[0].AsString := DateTimeToStr(DataHoraDevolucao);
///// ************************************************ //////
Params[1].AsString := aTabela;
Prepared := true;
Open;
DataBanco := FindField(´UpdateDateTime´).AsString;
Close;
end;
if (DataBanco <> ´´) then
begin
IniciarTransacao(1); // Inicar Transação
With qUpdate do
begin
SQL.Clear;
SQL.Add(´UPDATE TableAux ´);
SQL.Add(´SET UpdateDateTime = :UpdateDateTime ´);
SQL.Add(´WHERE TableName = :NomeTable´);
Params[0].AsDateTime := Now;
Params[1].AsString := aTabela;
ExecSQL;
end;
FinalizarTransacao; // Finalizar Transação
Result := true;
end
else
Result := false;
end;
// ****************** Transações - FIM - ****************** //


Modo de Utilizar, na tela q achar necessário utilizar um componente Ttimer.

Evento OnTimer (TTimer) :

if (DMprinc.UpdateSystem(´Clientes´) = True) then
begin
DMprinc.CDSClientes.Close;
DMprinc.CDSClientes.Open;
DMprinc.CDSClientes.Last;
MostrarDados;
end;


Gostaria q comentassem, sugestões. Utilizei os Componentes dbExpress e TclientDateSet.
Banco de Dados FIREBIRD.

Grato,

Christian.