Guest joseueg Postado Outubro 2, 2006 Denunciar Share Postado Outubro 2, 2006 Gente como faço para incrementar código manualmente no delphi?Desde já obrigada Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Churc Postado Outubro 2, 2006 Denunciar Share Postado Outubro 2, 2006 oiexplica melhor o que você quer fazer euhahueabs Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Erso Postado Outubro 3, 2006 Denunciar Share Postado Outubro 3, 2006 se for quabto ao banco que você esta per guntando seria assim:varx:integer;beginquery.sql.clear;query.sql.add('select * from tabela order by codigo');query.open;query.last;x:=query.fields[0].integer +1;query.insert;query.fields[1].asinteger:= x;query.post;foi feita uma consulta no banco ordenando por codigo(chave primaria), depois move ao fimpega o ultimo valor e acrecenta +1;depois grava esse x comosendo o proximo codigoespero que seja isto que você tenha perguntado. se não espliva melhor como o Churc falou!! Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Micheus Postado Outubro 4, 2006 Denunciar Share Postado Outubro 4, 2006 Erso, permita-me sugerir o uso mais comum desta sua idéia:Utiliza-se uma query auxiliar, apenas para obter o maior valor presente na tabela. Depois, soma-se 1 a este valor para gerar o próximo número.A obtenção e atribuição deste item deve preferencialmente ser feito no momento imediatamente anterior a gravação definitiva no banco (BeforePost). Isto porque, em sistemas com múltiplos usuários, obter este número em outro momento pode resultar que na hora da gravação efetiva um usuário já tenha gravado os dados utilizando o código que um segundo tentará utilizar - resultando em key-violation.Este procedimento não garante que tal fato não possa ocorrer, entretanto, minimiza esta possibilidade. Ex.:procedure TabNOMEBeforePost(DataSet: TDataSet); begin QryCodigo.SQL.Clear; QryCodigo.SQL.Add('select MAX(codigo) from tabela order by codigo'); QryCodigo.SQL.Open; TabNOMECodigo.Value := QryCodigo.Fields[0].AsInteger +1; end;[]s Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Erso Postado Outubro 5, 2006 Denunciar Share Postado Outubro 5, 2006 Cara verdade!!!!! :( , prefiro ainda usar autoincremento, ou nocaso de interbase um trigger para fazer isso!!!!ai não a problemas de codigos repetidos......o que v6 acham ???????, um professor meu disse que é melhor fazer incremento no proprio sistema. Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Guest joseueg
Gente como faço para incrementar código manualmente no delphi?
Desde já obrigada
Link para o comentário
Compartilhar em outros sites
4 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.