Mostrar Auto Increment no TDEdit

Question

Ol�.Tenho um campo Auto Increment e n�o aparece no TDEdit antes de incluiro registro estou usando o PARADOX, j� tentei de algumas formas, mas n�o deu certo.Se alguem tiver alguma dica ou o c�digo.Desd...

Godzilla_xf · Answer

[quote:387b25a6f8=�Mano_Froids�]Ol�.Tenho um campo Auto Increment e n�o aparece no TDEdit antes de incluiro registro estou usando o PARADOX, j� tentei de algumas formas, mas n�o deu certo.Se alguem tiver alguma dica ou o c�digo.Desde j� muito obrigado.[/quote:387b25a6f8]O Incremento automatico do codigo so acontece depois que vc der um post na tabela, caso vc queira que ele crie um codigo antes de salvar, vc tem que desenvolver uma pequena rotina que verifica qual o maior codigo e acrescentar + 1;...

Mano_froids · Answer

Algu�m tem o c�digo para fazer isso usando o PARADOX?...

Godzilla_xf · Answer

[quote:c3c925a9fc=�Mano_Froids�]Algu�m tem o c�digo para fazer isso usando o PARADOX?[/quote:c3c925a9fc]Digamos que vc tenha uma tabela de nome cad_alunos[b:c3c925a9fc]cad_alunos[i:c3c925a9fc]id_alunonomeenderecoblabla[/i:c3c925a9fc][/b:c3c925a9fc]e na sua aplica��o vc tem um form com os campos desta tabela, para insert delete edit e assim por diante.bem fa�a da seguinte forma:Antes de dar um post por de ser no evendo [b:c3c925a9fc]BeforePost[/b:c3c925a9fc] da tabela cad_alunos, vc coloca o seguinte codigo.[code:1:c3c925a9fc]procedure TForm1.cad_alunosBeforePost(DataSet: TDataSet);var  incremento: TQuery;begin  incremento := TQuery.Create(nil);  try    with incremento do      begin        close;        DatabaseName := �C:Documents and SettingsAlunoDesktopteste�;        SQL.Add(�Select Max(id_aluno) from cad_alunos�);        open;        if Fields&#91;0&93;.IsNull then          cad_alunos.FieldByName(�id_aluno�).AsInteger := 1        else          cad_alunos.FieldByName(�id_aluno�).AsInteger := Fields&91;0&93;.AsInteger + 1      end;  finally    incremento.Free;  end;end;[/code:1:c3c925a9fc]...

Mano_froids · Answer

O que eu coloco no DATABASENAME? Pois j� tentei colocar a base de dados e da erro no diretorio, acho que ele n�o acha ... tamb�m j� tentei o caminho da tabela e da a mesma coisa....

Martins · Answer

[quote:36f265c302=�Mano_Froids�]O que eu coloco no DATABASENAME? Pois j� tentei colocar a base de dados e da erro no diretorio, acho que ele n�o acha ... tamb�m j� tentei o caminho da tabela e da a mesma coisa.[/quote:36f265c302]Vamos tentar assim:[code:1:36f265c302]procedure TForm1.cad_alunosBeforePost(DataSet: TDataSet); var   incremento: TQuery; begin   incremento := TQuery.Create(Self);   try     with incremento do       begin         close; //DataBaseName - Informe a pasta aonde est� sua tabela.        DatabaseName := �C:Documents and SettingsAlunoDesktopteste�;         SQL.Add(�Select Max(id_aluno) from cad_alunos�);         open;         if Fields&#91;0&93;.IsNull then           cad_alunos.FieldByName(�id_aluno�).AsInteger := 1         else           cad_alunos.FieldByName(�id_aluno�).AsInteger := Fields&91;0&93;.AsInteger + 1       end;   Except     ShowMessage(�Houve um erro na cria��o do objeto!�);   end; end; [/code:1:36f265c302]Assim deve lhe retornar algo, qualquer coisa estaremos as ordens.bons c�digos....

F�rum Mostrar Auto Increment no TDEdit #348426