Auto Inc

Delphi

21/02/2004

preciso fazer um cadstro de alunos onde o numero de controle de cada aluno comece em 1000 e a cada aluno incluso o numero aumente de 1 em 1.

Obs. estou usando tabela paradox7 e não pode ser um campo de Auto Inclementação.

por favor mande um exemplo


Rafael Santana

Rafael Santana

Curtidas 0

Respostas

Marcelo

Marcelo

21/02/2004

Bom cara, você pode optar por criar uma outra tabla: codigos.db, onde terá um camo chamado ´cadastro´ do tipo ´Inteiro´. Quando você for fazer um novo cadastro, o código é inserido com o número do campo, e quando você gravar o cadastro o campo recebe o valor atual + 1.

Valeu?


GOSTEI 0
Tnaires

Tnaires

21/02/2004

A dica q vou postar aqui é mais complicada q a do marcelo, mas lá vai:
- crie um Query com o seguinte SQL:
SELECT MAX(CODALUNO) AS MAX FROM ALUNOS

- na hora d cadastrar, faça:
procedure blablabla
  var CodAluno: integer;
begin
  blablabla...
  QueryMax.Open;
  if QueryMax.IsEmpty then
    CodAluno := 1000
  else
    CodAluno := QueryMaxMAX.AsInteger + 1;
  QueryMax.Close;
  blablabla...
end;

Após isso, a variável CodAluno terá o valor apropriado para o cadastro.
Sucesso


GOSTEI 0
POSTAR