Limitar quantidade de registros na tabela
Boa tarde,
Como posso fazer o sistema cadastrar, por exemplo, 10 clientes/fornecedores, etc ?
Tava pensando assim:
Ou existe outra forma de se fazer isso?
PS: Já estou trabalhando com o RDAcesso para deixar o sistema liberado apenas alguns dias/semanas
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
Fábio Cruz
Curtidas 0
Respostas
Tiago Melo
29/07/2010
amigo vc pode criar um metodo que te retorne a quantidade de registros cadastrados na tabela como por exemplo:
...............Criando o Metodo..............
function Quantidade_Registros : boolean;
begin
with Qr do
begin
Close;
SQL.Clear;
SQL.Add('select * from Tabela');
try
Open;
if (RecordCount >= 10) then
Result := True
else
Result := False;
end;
.......Chamando o metodo....
if (Quantidade_Registro) then
ShowMessage('Voce já cadastrou o numero limite da versão de testes')
else
ShowMessage('Voce ainda pode cadastrar');
Duvida posta ai..................
GOSTEI 0
Thiago Pedro
29/07/2010
Seguindo a sugestão do colega acima, recomendo você usar uma SQL em uma Query.
Você fará a contagem na própria Instrução SQL;
Exemplo:
SELECT COUNT(*)
FROM TABELA
if 'CAMPO_COUNT_TABELA' >10 then
aborte;
Você fará a contagem na própria Instrução SQL;
Exemplo:
SELECT COUNT(*)
FROM TABELA
if 'CAMPO_COUNT_TABELA' >10 then
aborte;
GOSTEI 0