ActiveDelphi

[jhonata0802]

Pessoal estou com uma dificuldade ao inserir um registro automático em um campo no delphi. Vou explicar:

Estou com um form (cidade) com 3 campos (dbedit's), código, cidade, UF ligados com 3 tabelas e um dbgrid que exibe os campos. Estou com um código para inserir automaticamente o código da cidade, para inserir o codigo estou usando um dbnavigator. Porém ao inserir uma vez tudo bem, ele faz todo o algoritimo certinho, porém na segunda vez ele repete o campo no dbgrid, quando atualizo ele me mostra os dados certinhos, eu queria um jeito de ao inserir de novo ele atualizasse automaticamente. Por favor me ajudem.. ja tentei colocar uns refresh e nada.. noob em progamação desculpe alguma coisa.

procedure TfrmCidade.DBNavigator1Click(Sender: TObject;
Button: TNavigateBtn);
var
ultcod:integer;

begin
if dm_dados.ds_cidade.state in [dsinsert] then

begin
tblAuxCidade.last;
ultcod:= tblAuxCidadeCID_CODIGO.Value +1;
dm_dados.tbl_cidadeCID_CODIGO.value:= ultcod;

end;

[itasouza]

Amigo

A sua tabela tem chave primaria? Tem auto incremento? Se tem este código e preenchido na gravação, agora se você quer dar um código especifico para a cidade a cada gravação, você pode fazer uma consulta SQL dinâmica para ir no banco pegar o ultimo número e adicionar +1

Veja se lhe ajuda!

[taviu522]

amigo, aconselho você não usar esse tipo de "auto incremento".

a melhor forma seria ter uma tabela de números sequenciais onde você colocaria o último número toda vez que inserisse um registro.