Gerar um codigo do tipo autoincrement apartir do ultimo Regs

22/05/2003

1

Caros amigos programadores.....

Estou precisando urgentemente gerar um codigo do tipo autoincrement no delphi, apartir do ultimo registro gravado a função que estou utilizando e a seguinte:
var
J:integer;
Valor: TstringField;
Id:TstringField;
begin
valor:=Table1.FindField(´identificacao´) as TstringField;
if valor.value <>´´ then
begin
{Id:=Table1.FindLast (´identificacao´) as TstringField;}
J:=inttostr(Table1.FindLast[´identificacao´] + 1);
end;
Campo.text:=inttostr(J);
Table1.Insert;
botao1.enabled:=true;
botao2.enabled:=false;
end;


Responder

Posts

22/05/2003

Aroldo Zanela

Colega,

Veja um exemplo mais simples.

var 
FormX: TFormX;
Numero: Integer;

...

// Obtem o número do último número (ambiente mono-usuário)
OnBeforeInsert;
TabelaX.Last;
Numero := TabelaXCAMPO_NUMERO.Value + 1;


// Armazena o novo número
OnNewRecord;
TabelaXCAMPO_NUMERO.Value := Numero;


Para ambientes multiusuário. Use uma tabela auxiliar para controlar a numeração e ao invés de OnNewRecord, substitua por BeforePost.


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira