Limitar quantidade de registros na tabela

[Faccruz 0]

Boa tarde,

 

Como posso fazer o sistema cadastrar, por exemplo, 10 clientes/fornecedores, etc ?

 

Tava pensando assim:

 

var
  iQtd : Integer;
Begin
  Query.Open;
  iQtd := Query.RecordCount;
  if (iQtd > 10) and (sDemo = 'S') then
  begin
    ShowMessage('Esta é uma versão de teste. Apenas 10 clientes podem ser cadastrados');
    exit;
  end;
end;

Ou existe outra forma de se fazer isso?

 

PS: Já estou trabalhando com o RDAcesso para deixar o sistema liberado apenas alguns dias/semanas

[bdexterholland 0]

Sinceramente, não consigo pensar em outra forma... =/