Gerar um codigo do tipo autoincrement apartir do ultimo Regs
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;
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;
Kalleby
Curtidas 0
Respostas
Aroldo Zanela
22/05/2003
Colega,
Veja um exemplo mais simples.
Para ambientes multiusuário. Use uma tabela auxiliar para controlar a numeração e ao invés de OnNewRecord, substitua por BeforePost.
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.
GOSTEI 0