Como gerar codigos automáticos sem autoincremento?

Delphi

13/02/2005

Gostaria de saber como eu faço para gerar codigos automaticamente sem ser através de autoincremento?

Existe essa possibilidade? e como eu faço?


Obrigado pela atenção...


Curinga

Curinga

Curtidas 0

Respostas

Gandalf.nho

Gandalf.nho

13/02/2005

[b:18ad77efa7][color=red:18ad77efa7]Notificação de Infração às Regras de Conduta :[/color:18ad77efa7][/b:18ad77efa7]

Duplicidade
[url]http://forum.clubedelphi.net/viewtopic.php?p=185030[/url]

Para maiores esclarecimentos pode mandar-me uma [url=http://delphiforum.icft.com.br/forum/privmsg.php?mode=post&u=8378]Mensagem Particular[/url].


GOSTEI 0
Renato_sp

Renato_sp

13/02/2005

Amigo voce precisava dar mais detalhes, bom mas vamos la, se vc tiver utilizando paradox com o dataset table ou query voce poderia colocar outro dataset auxiliar ou seja


Table
TableAux

Ligue os dois na mesma tabela e faz assim no botao Inserir

   begin
      Table.insert;        
      TableAux.Last;     // Vai para o ultimo registro da table auxiliar
      TableCodigo.value = TableAuxCodigo.value + 1;   // Adiciona no codigo + 1
   end;


Agora se for em interbase/firebird o mais correto seria utilizando mesmo o generator, que na parte de firebird indo no pesquisar acha muito sobre generator.

Se nao for isso que gostaria so avisar que te ajudarei.
Valeu

Renato / SP


GOSTEI 0
POSTAR