Bde - bloquear um registro em ambiente de rede

// BDE - Bloquear um Registro em ambiente de rede

// Quando você construir um programa para rodar em rede e quiser controlar o bloqueio de
// registros sem que o Delphi dê sua mensagem default é só proceder assim : Dê um Edit na
// tabela onde está o registro,

// por exemplo : Table1.edit;

// Atenção :
// Caso o registro já esteja sendo editado (Alterado) por outro usuário do seu sistema,
// ele será automaticamente bloqueado e ocorrerá um erro caso você tente editá-lo, para
// testar o bloqueio você deve fazer o seguinte :

Try { serve pra não permitir que o Delphi cause uma exceção por conta própria }
Table1.Edit;
Exception
On TDBEngineError Do { Diz o seguinte ... Em caso de um erro na DBEngine (Admin de R/W) }
ShowMessage(‘Este registro está sendo alterado em outro computador ! Tecle Enter ... ');
End;

// Nota : As propriedades do seu BDE deverão estar configuradas de modo adequado para que as
// estações (computadores) dos usuários do seu sistema, enxerguem as tabelas no computador
// servidor de dados.

// Basicamente :
// 1) Vc. Deve ter acesso ao computador servidor de dados,
// 2) O Alias (caso seu aplicativo utilize) deve apontar para o local onde
// estão os arquivos no servidor de dados,
// 3) As propriedades local share do BDE das estações deverão estar setados para true.