Restrição de acesso com Interbase
14/02/2006
0
Como eu faço de maneira bem simples (pois sou novato) para restringir o acesso ao banco de dados de um programa que desenvolvi ?
Na máquina do cliente, eu quero instalar o programa e tenho que instalar o interbase também, certo ?
Só que eu queria que o cliente tivesse algumas limitações no banco de dados, como por exemplo só adicionar 100 registros na tabela produtos.
Já que o interbase será instalado no cliente e se ele souber e com certeza se ele quiser saberá que a senha e o login do interbase é MASTERKEY E SYSDBA, sendo assim ele poderá modificar, incluir algum registro na tabela produtos através do Interbase.
Não sei se me expressei ao certo, me perdoem as falhas, mas preciso da ajuda de alguém.
Muito Obrigado desde já !
Maiabrasil
Posts
14/02/2006
Edilcimar
14/02/2006
Maiabrasil
procedure TMeuFormCliente.BotaoIncluirClienteClick(Sender:TObject);
begin
if Tabela.RecordCount >= 100 then
ShowMessage(´Esse software é apenas uma demonstração e possui número limitado de registros. Para cadastrar tranquilamente compre o meus sistema.´)
else begin
Tabela.Append;
É isso ? Será que se eu introduzir esse cod vai funcionar ?
Obrigado desde já amigo.
15/02/2006
Paullsoftware
o melhor seria fazer com que quando o sistema atingi-se um quantidade x de registro no seu banco ele simplesmente pedisse uma senha(chave) para entrar no sistema novamente...
vc pode limitar o total de cadastro na tabela mais dependendo de onde será implementado esse sistema e se ele der a louca e ficar apagando os últimos registros?
o ideal é seria travar o acesso ao sistema quando ele atingir determinada quantidade de registros, ou melhor travar o acesso a janela onde o limite excedeu! :wink:
15/02/2006
Maiabrasil
Sou novo na área se puder me dar um exemplo, te agradeço de montão.
Té mais !
16/02/2006
Paullsoftware
você poderia tratar via código mesmo no próprio delphi, por exemplo:
if MinhaTabela.RecordCount >= VarChecaTotalPermitido then
begin
MessageDlg(´Limite de Registros permitidos expirado para essa versão do programa!´,mtWarning,[mbOK],0);
exit;
MinhaTabela.Cancel;
end
else
begin
//Comandos normais para inserção dos dados
end;ainda poderia tratar tb na hora de abrir o formulário..
if MinhaTabela.RecordCount >= VarChecaTotalPermitido then
begin
MessageDlg(´A exibição dessa janela foi cancelada, devido ao numero de registros permitidos terem esgotado, favor entre em contado com desenvolvedor do sistema para maiores informações!´,mtWarning,[mbOK],0);
exit;
end
else
begin
//Comandos normais para inserção dos dados
end;isso é só um exemplo do que vc pode fazer... espero ter ajudado!
Clique aqui para fazer login e interagir na Comunidade :)
