Banco de dados em Rede - como controlar codigo primario em novo registro

Top  Previous  Next

  A tecnica é bem simples, antes de fazer o insert, faça um conferencia

  para ver se o codigo a ser inserido já existe (no meio tempo outro

  usuario pode ter incluido). Se existir basta pegar um novo ANTES da inserção.

 

 

 Botao_Novo:

 -----------

 

   CodigoEdit.Text := Select Max(Codigo)+1 from clientes // novo codigo

 

 

 Botao_Confirmar_Gravacao:

 -------------------------

  

   if not Select * from clientes where codigo = CodigoEdit.Text then

   begin

     // Pode gravar

     ShowMessage('O codigo é: Z');

   end  

   else

   begin

     // pega novo codigo

     CodigoEdit.Text := Select Max(Codigo)+1 from clientes // novo codigo

     Botao_Confirmar_Gravacao.Click;

   end;