Código
var cod: integer;
Begin
cod := 0;
SQLquery1.Close;
SQLquery1.SQL.Clear;
SQLquery1.SQL.Add('Select max(campo) from tabela');
SQLquery1.Open;
cod := SQLquery1.Fields.Fields[0].AsInteger + 1;
Label1.caption := InttoStr(cod);
end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009