Fórum ZeosLib AutoIncrento Delphi 7 #351488
07/01/2008
0
Vagner.oliveira
Curtir tópico
+ 0Post mais votado
10/01/2008
No componente TTABLE (que presumo esteja usando a da paleta ZEOS) aponte a propriedade Sequence para o componente TzSequence configurado.
Aponte a propriedade da TTABLE SEQUENCE_FIELD para o campo que contém o autoincremento do GENERATOR. Depois basta ir no evento ONNEWRECORD da TTABLE e adicionar a linha que cito abaixo como exemplo de acordo com as suas configurações.
dm.tblClientes.FieldByName(´Codigo´).Value := sqClientes.GetNextValue;
Quando você incluir um novo código na tabela, o generator será disparado e retornará o código correspondente.
Qualquer dúvida, retorne e a gente vai tentar resolver!
Abraços!
:lol:
Microbios
Gostei + 1
Mais Posts
09/01/2008
Vagner.oliveira
Gostei + 0
10/01/2008
Vagner.oliveira
No evento OnNewRecord do Ztable1 Ficou assim:
ZTable1.FieldByName(´INDICE´).Value := ZSequence1.GetNextValue;
Gostei + 0
14/07/2017
Fabio Gilberto
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)