Buscar por:

Autonumeração campo código em um cadastro

Código

{Salve rapazeada aii vai um dica "caliente" de como se por uma autonumeração do campo código em um cadastro}

{Primeiramente no evento onclick do botão cadastrar deve se declarar uma variável, no caso eu coloquei PROXIMO_CODIGO}

procedure TForm1.BtnCadastrar(Sender: TObject);

var

  PROXIMO_CODIGO : integer;

begin

  Table1.Last;//Este metódo vai para o último registro da tabela

  PROXIMO_CODIGO:=Table1.FieldByName('CODIGO').AsInteger+1;//Ja aqui eu atribuo a variável PROXIMO_CODIGO o ultimo numero do campo CODIGO + 1

  Table1.Append;//Este método cria um registro em branco na table1

  Table1.FieldByName('CODIGO').AsInteger:=PROXIMO_CODIGO;

  DBEdit2.SetFocus;//Joga o foco para o proximo DBEdit no caso é o 2 ja que o 1 fica sendo o código

end;

{Filé do brasil!!! fica ai, se alguem precisar espero ter ajudado LOL::}