Buscar

Funçao de autoincrementa em delphi

Código

Procedure TDataModule1.[nome da tabela]BeforeInsert(DataSet: TDataSet);
begin
[nome da tabela].Last;
if [nome da tabela].Bof then proxnum:=1
else proxnum:=[nome da tabela].FieldByName('id').AsInteger+1;
end;

procedure TDataModule1.[nome da tabela]NewRecord(DataSet: TDataSet);
begin
[nome da tabela].FieldByName('id').AsInteger:=proxnum;
end;

terao que declarar a variavel proxnum no private do datamodule e estruturar as bases de dados de maneira a nao terem autoincrementado.

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Banco de dados
Adicionada dia: 19/02/07
Por: Oi
Visualizada: 4000 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009