Auto Numeração A Partir de um Certo Numero

Delphi

22/03/2004

Tenho um banco de dados no qual já existe alguns registro, estou usando Adoquery, gostaria saber quando incluir um novo registro, o cod do cliente que já está em 41800 passar 41801 automaticamente.


Grato.


Adriano


Xadriano

Xadriano

Curtidas 0

Respostas

Lucas Silva

Lucas Silva

22/03/2004

faz uma função para retornar o maior código da tabela..
function TForm1.MaiorCodigo(nometab, nomecampo: String): Integer;
begin
     with qryAux do
       begin
         Close();
         Sql.Clear();
         Sql.Add(´SELECT MAX(´ + nomecampo + ´) FROM ´ + nometab);
         Open();
         Result := Fields[0].AsInteger;
         Close();

       end;
end;


e pra chamar ela, faça da seguinte forma.
 if qryCliente.State = dsInsert then // se a query tiver em modo de inserção...
  qryCliente.FieldByName(´Codigo´).AsInteger := MaiorCodigo(´tabela´,´campo´) + 1;



GOSTEI 0
Xadriano

Xadriano

22/03/2004

Onde eu Coloco:
if qryCliente.State = dsInsert then // se a query tiver em modo de inserção...
qryCliente.FieldByName(´Codigo´).AsInteger := MaiorCodigo(´tabela´,´campo´) + 1;

Desculpa esta encomodando, é porque não tenho muita experiencia.

Adriano


GOSTEI 0
POSTAR