Editado: Mostrar o último dado cadastrado
OLA, VOU TENTAR DIZER O QUE PRECISO.
TENHO UM CADASTRO DE CARTOES DE FIRMA, É PARA UM CARTORIO, [b:8481e350e8]TENHO UM CAMPO QUE É CHAMADA NUMEROCARTAO, ESSE CAMPO TEM QUE SER SEMPRE ACRESCIDO DE 1, QUANDO UM NOVO REGISTRO É CADASTRADO, POR EXEMPLO:
CADASTRO A SEGUINTE PESSOA:
FULA DE TAL
CARTAO NUMERO 01
CPF 123.123.123-12
QUANDO FOR CADASTRAR UMA SEGUNDA PESSOA, PRECISO QUE APAREÇA NO CAMPO NUMERO DO CARTAO JÁ O NUMERO 02, MAS PRECISO TER COMO EXCLUIR DETERMINADO REGISTRO, E O NUMEROCARTAO, TAMBEM DIMINUIR, NA MESMA PROPORÇÃO QUE DELETO[/b:8481e350e8], SERA QUE VCS ENTENDERAM?
TENHO 02 PESSOAS CADASTRADAS, CADASTRO UMA TERCEIRA, NOTO QUE NAO ERA PARA SER CADASTRADA, AI DELETO E O NUMEROCARTAO QUE MOSTRAVA 03, VOLTA PARA 02
SE ALGUEM PUDER ME AJUDAR, FICAREI GRATO!
OBRIGADO.
JUPA
[color=red:8481e350e8][b:8481e350e8]Editado pelo moderador(Beppe): Use a capitalização correta nos títulos e texto. Verifique as regras de conduta.[/b:8481e350e8][/color:8481e350e8]
TENHO UM CADASTRO DE CARTOES DE FIRMA, É PARA UM CARTORIO, [b:8481e350e8]TENHO UM CAMPO QUE É CHAMADA NUMEROCARTAO, ESSE CAMPO TEM QUE SER SEMPRE ACRESCIDO DE 1, QUANDO UM NOVO REGISTRO É CADASTRADO, POR EXEMPLO:
CADASTRO A SEGUINTE PESSOA:
FULA DE TAL
CARTAO NUMERO 01
CPF 123.123.123-12
QUANDO FOR CADASTRAR UMA SEGUNDA PESSOA, PRECISO QUE APAREÇA NO CAMPO NUMERO DO CARTAO JÁ O NUMERO 02, MAS PRECISO TER COMO EXCLUIR DETERMINADO REGISTRO, E O NUMEROCARTAO, TAMBEM DIMINUIR, NA MESMA PROPORÇÃO QUE DELETO[/b:8481e350e8], SERA QUE VCS ENTENDERAM?
TENHO 02 PESSOAS CADASTRADAS, CADASTRO UMA TERCEIRA, NOTO QUE NAO ERA PARA SER CADASTRADA, AI DELETO E O NUMEROCARTAO QUE MOSTRAVA 03, VOLTA PARA 02
SE ALGUEM PUDER ME AJUDAR, FICAREI GRATO!
OBRIGADO.
JUPA
[color=red:8481e350e8][b:8481e350e8]Editado pelo moderador(Beppe): Use a capitalização correta nos títulos e texto. Verifique as regras de conduta.[/b:8481e350e8][/color:8481e350e8]
Jupa
Curtidas 0
Respostas
Maurício Santos
31/01/2004
Olá!!!
Primeiro: Quando postar mensagem neste fórum, por favor, escreva com letras minúsculas, fica melhor para ler (Veja Regas de Conduta)
Segundo: Que banco de dados vc está usando?
Terceiro: O campo utilizado para numerar os cartões é autonumeração?
[/i]
Primeiro: Quando postar mensagem neste fórum, por favor, escreva com letras minúsculas, fica melhor para ler (Veja Regas de Conduta)
Segundo: Que banco de dados vc está usando?
Terceiro: O campo utilizado para numerar os cartões é autonumeração?
[/i]
GOSTEI 0
Jupa
31/01/2004
[quote:49575c6852=´Maurício dos Santos´]Olá!!!
Primeiro: Quando postar mensagem neste fórum, por favor, escreva com letras minúsculas, fica melhor para ler (Veja Regas de Conduta)
Segundo: Que banco de dados vc está usando?
Terceiro: O campo utilizado para numerar os cartões é autonumeração?
[/quote:49575c6852]
Poxa, desculpe, não fiz por mal...
Mas é o seguinte, utilizo o Paradox, uso Table, esse campo para numerar tem que adicionar 1 a cada cartao cadastrado, mas se eu deletar, ele tambem tem que diminuir 1.
Se voce puder me ajudar, ficarei grato.
JuPa
Primeiro: Quando postar mensagem neste fórum, por favor, escreva com letras minúsculas, fica melhor para ler (Veja Regas de Conduta)
Segundo: Que banco de dados vc está usando?
Terceiro: O campo utilizado para numerar os cartões é autonumeração?
[/quote:49575c6852]
Poxa, desculpe, não fiz por mal...
Mas é o seguinte, utilizo o Paradox, uso Table, esse campo para numerar tem que adicionar 1 a cada cartao cadastrado, mas se eu deletar, ele tambem tem que diminuir 1.
Se voce puder me ajudar, ficarei grato.
JuPa
GOSTEI 0
Chico Gois
31/01/2004
Beleza!
Experimenta isto:
function ResetAutoInc(FileName: TFileName; Base: Longint): Boolean;
begin
with TFileStream.Create(FileName, fmOpenReadWrite) do
Result := (Seek($49, soFromBeginning) = $49) and (Write(Base, 4) = 4);
end;
O parâmetro FileName é o nome da tabela, incluindo o caminho. E o parâmetro Base é o valor inicial para o contador do AutoIncremento.
Espero que te ajude!
Inté+
Experimenta isto:
function ResetAutoInc(FileName: TFileName; Base: Longint): Boolean;
begin
with TFileStream.Create(FileName, fmOpenReadWrite) do
Result := (Seek($49, soFromBeginning) = $49) and (Write(Base, 4) = 4);
end;
O parâmetro FileName é o nome da tabela, incluindo o caminho. E o parâmetro Base é o valor inicial para o contador do AutoIncremento.
Espero que te ajude!
Inté+
GOSTEI 0