Auto Incrementar String

Delphi

06/04/2004

Tenho em uma tabela Paradox um campo A (6) que é a Key. Nele cadastro o códigos dos produtos (só números). Gostaria que esse código sempre sugerisse o último + 1. por exemplo o último código cadastrado foi 0981 então ele vai aparecer no DBEdit 0982 na próxima vez qeu eu for cadastrar o novo produto.
Dá pra fazer, tem outras formas melhores?
Valeu...

Farias

farias@bol.com.br


Fariasps

Fariasps

Curtidas 0

Respostas

Andcarpi

Andcarpi

06/04/2004

Olá, voce poderia ver a quantidade de registros existentes no banco, ai voce pegaria o ultimo registro, e incrementaria + 1 e atribuiria ao seu edit, ou label o que for......

+/- assim.....

table1.findkey[table1.recordcount]; não lembro do findkey, to fazendo d kbca
text1.text:=inttostr(strtoint(table1.fieldbyname(´a´).asstring)+1);

é bom tambem testar se a tabela acha ou nao o registro.......
acho q da certo

ou senao voce pode criar a tabela com o campo a do tipo autoincremento


GOSTEI 0
POSTAR