ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Achar primeiro código numerico, chave primaria

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
claudioforca
Novato
Novato


Registrado: Terça-Feira, 12 de Novembro de 2019
Mensagens: 1

MensagemEnviada: Ter Nov 12, 2019 1:16 pm    Assunto: Achar primeiro código numerico, chave primaria Responder com Citação

Tenho hoje um código que pega o ultimo registro e adiciona o valor da chave primaria numérica + 1 e cria um novo registro na propriedade query new record pega o ultimo numero +1; mas além disso quero, que quando um usuário excluir um registro com código igual a 3 por exemplo, que o próximo query new record coloque o numero 3, como faço? lembro quero adicionar e manter a lógica anterior caso não ache um registro excluído.
O código atual é:

procedure TFrmClientes.QryFormNewRecord(DataSet: TDataSet);
begin
inherited;
with DM.qryFreeSQL do
begin
SQL.Clear;
SQL.Text := 'SELECT MAX(CodIrmao) FROM Irmaos';
Open;
If FIELDS[0].IsNull then
qryFormCodIrmao.value := 1
else
qryFormCodIrmao.value := Fields[0].AsInteger + 1;
Close;
end;
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB