Codigo Automatico

[Curinga]

Olá pessoal, sou eu mais uma vez!!!!!

é, eu sei, to enchendo, mas são duvidas que eu tenho ceteza que pra vocês são bem simples.

É o seguinte:

O programa que eu estou fazendo, é um programa simples de cadastro e busca de clientes.

Nele a pessoa informa o CODIGO, NOME, RG, CPF, enfim, um programa comum, quando eu criei a tabela, do tipo PARADOX, no campo CODIGO, eu coloquei ele como chave primaria, e coloquei ele do tipo +-(autoincrement), pra que o codigo seja gerado automaticamente.

Dessa forma ele gera automaticamente o CODIGO, porém, a primeira vez que você vai cadastrar ele não da codigo nenhum, ou seja o Codigo fica em branco, quando você clica em SALVAR, salva tudo e o Proximo codigo fica sendo o 1. Só que esse não é o principal problema, quando você limpa a tabela, pode ser através do Databasedesktop mesmo, e vai registra um novo usuario, ele começa da onde paro, vou dar um exemplo:

To la cadastrando:

Codigo: 1

Nome: João da Silva

Codigo: 2

Nome: José dos Santos

Codigo: 3

Nome: Domingos da Costa

Pois bem, vou la no Databasedesktop, edito minha tabela, e apago todo mundo, ou seja, zero ela, OK!!!

Quando eu entro no meu programa pra fazer novos cadastros, ao invés dele começar do 1, ele começa do 4, é como se ele não tivesse zerado minha tabela.

porque ela não começa do 1?

onde ta errado?, qual a melhor forma de fazer com que o programa gere automaticamente o CODIGO?

pessoal, desculpa a perturbação, mas eis aqui um grande fã de Delphi, mas que não entende muito do assunto.

Fico grato mais uma vez pela atenção, e pelo espaço dado a nós, leigos no assunto!!!!

Um abraço...

[XdogX]

Bom, tem um jeito mais complicado de fazer isso, do campo Código você tira o +- (autoincrement) e faz o autoincrement por código, ou seja. No programa, toda hora de adicionar um usuário você ve o valor do campo Código anterior do que você vai adicionar, se tiver em branco ( ou seja, não tem campo ) você coloca 1 no campo código, mas se não tiver em branco, você soma o numero que tem la com 1, dando assim o campo seguinte. beleza?? Tp, você usa SQL para entrada e retirada de dados, se sim responde aqui que eu te passo o código de como fazer isso (SQL) falou

[Guest - Curinga -]

Concerteza, se você tive o codigo pra me passa eu agradeço...

beleza,,,

[XdogX]

Bom eu criei uma tabela do tipo PARADOX pra testar direitinho as rotinas que eu vou te passar, a tabela chama clientes.db, tem dois campos Cli_Codigo(codigo, que é o q eu vo fazer o auto-increment manual, ele é tipo integer) e Cli_Nome ( nome do cliente):

Ai vai a rotina pra pegar o ultimo código:

Query1.close;
Query1.Sql.Clear;
Query1.Sql.Add('SELECT MAX(Cli_Codigo) FROM Clientes');
Query1.Open;

Com esses comandos acima eu pego o valor do ultimo campo código existente. Você pode executar esse código ao a pessoa entrar no formulario de cadastro e depois que ela fizer mais um cadastro ( bom isso fica do seu jeito); Bom, pra pegar o proximo campo código é fazer o seguinte:

IntToStr(Query1.fields[0].AsInteger) +1

Dando assim o proximo código, bom, vamos supor que eu tenha guardado ele em uma variavel(tipo integer), então:

UltimoCdg := IntToStr(Query1.fields[0].AsInteger) +1

Na hora de adicionar alguém no cadastro eu faço a seguinte rotina:

Query1.close;
Query1.Sql.Clear;
Query1.Sql.Add('INSERT INTO Clientes (Cli_Codigo,Cli_Nome) VALUES (:pCodigo, "NomeDaPessoaASerAdicionado") ');
Query1.ParamByName('pCodigo').AsInteger:=UltimoCdg;
Query1.ExecSQL;

Tai, falou, qualquer coisa é so perguntar

[Curinga]

Tenho algumas duvidas:

essa rotina por exemplo, onde eu coloco ela?

UltimoCdg := IntToStr(Query1.fields[0].AsInteger) +1

O q vem a ser esse UltimoCdg?, o q ele faz?

e esse aki?

Query1.close;

Query1.Sql.Clear;

Query1.Sql.Add('INSERT INTO Clientes (Cli_Codigo,Cli_Nome) VALUES (:pCodigo, "NomeDaPessoaASerAdicionado") ');

Query1.ParamByName('pCodigo').AsInteger:=UltimoCdg;

Query1.ExecSQL;

Devo substituir esses itens pelo que?

* pCodigo (o q coloco no lugar desse item?)

* "NomeDaPessoaASerAdicionado" (o q coloco no lugar desse item?)

valeu...

[XdogX]

Tp, é assim: Agora vo usa o exemplo com o seu banco de dados. De acordo com vc , sua tabela paradox tem os campos Código, Nome, RG, CPF:

...CODIGO, NOME, RG, CPF, enfim...

e vamos supor que o nome dela seja clientes. Para não esquecer o tipo dos campos:

CODIGO -> integer;

NOME -> alpha ( mesma coisa q string)

RG -> integer;

CPF -> integer;

Então vo manter os nomes dos campos como os acima:

Primeiro defino uma variavel global com o nome UltCdg do tipo integer:

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  UltCdg: Integer; //eis a variavel citada acima

implementation

{$R *.dfm}

Esta variavel vai servir pra mim colocar o valor do ultimo campo CODIGO +1. Ou seja com o comando SQL que eu vou executar abaixo, que vai ser quando a pessoa abrir o formulário. Esta rotina abaixo vai pegar da sua tabela paradox o ultimo valor do campo CODIGO, assim somando a mais um, eu tenho o valor do proximo campo CODIGO.

Query1.close;
Query1.Sql.Clear;
Query1.Sql.Add('SELECT MAX(CODIGO) FROM Clientes');
{com o comando SQl acima eu seleciono o ultimo valor do campo CODIGO
da tabela clientes}
Query1.Open;
UltCdg := IntToStr(Query1.fields[0].AsInteger) +1
{aqui eu defino a nossa variavel de tipo integer como o ultimo valor
do campo CODIGO e somando 1, ou seja, assim eu consigo o próximo
código a ser adicionado.
Se Não tiver nenhum cadastro anterior retornara 0. Que
somando a 1, dara 1 ou seja, o primeiro cadastro da tabela.
Se você cadastra 5 pessoas, vai ficar em ordem(1,2,3,4,5)
se você deletar, ele vai começar do zero novamente
Entende, so que por enquanto a variavel so ta definida, vamos
usa-la mais na frente para adicionar dados na tabela.
}

Vamos supor que você usou esta rotina no OnShow do form, Então ta esperano que cadastrem algum usuário Como você tem 4 Campos na sua tabela, mas só tres em que os usuários podem alterar ( NOME, RG, CPF ) Então o form vai ter uma label mostrando o código do cadastro ( o valor da variavel UltCdg ) e tres edits, uma pra cada campo e o principal uma botão para cadastrar. ta agora vamos na rotina do botão de cadastro: Sendo edit1 -> valor a ser adicionado ao campo NOME edit2 -> valor a ser adicionado ao campo RG edit3 -> valor a ser adicionado ao campo CPF

Query1.close;
Query1.Sql.Clear;
Query1.Sql.Add('INSERT INTO Clientes (CODIGO,NOME,RG,CPF) VALUES 
(:pCodigo, :pNome, :pRg, :pCpf) ');
//comando SQL para inserir
Query1.ParamByName('pCodigo').AsInteger:=UltCdg;
//aqui você define um tipo de um atalho SQl para o valor da variavel UltCdg
Query1.ParamByName('pNome').AsString:=Edit1.text;
//aqui você define um tipo de um atalho SQl para o edit1 ( nome )
Query1.ParamByName('pRg').AsInteger:=strtoint(Edit2.text);
//aqui você define um tipo de um atalho SQl para o edit2 ( rg )
Query1.ParamByName('pCpf').AsInteger:=strtoint(Edit3.text);
//aqui você define um tipo de um atalho SQl para o edit3 ( cpf )
Query1.ExecSQL;
//executa o codigo sql

Pronto, assim, acima, você adiciona os dados na sua PARADOX, mas existe outro modo de fazer isso sem a variavel, em vez de você mandar o ultimo valor do campo codigo pra uma variavel mande pra um label.

[Curinga]

Olha o erro que da dando:

o erro ta nessa linha

UltCdg := IntTostr(Query1.Fields[0].AsInteger)+1;

o erro é o seguinte:

[Error] Cadastro_U.pas(134): Incompatible types: 'String' and 'Integer'

e eu declarei a variavel UltCdg como você mando, do tipo Inteiro, se tira o IntToStr ele roda, porem da pau, da erro, acho q eu to fazendo alguma coisa errada!!!

Esses codigos que voce me passo são colocados em q evento?: Todos eles são no evento de inicialização do Form, ou não?

Desculpa o incomodo, mas a coisa ta dificil d+

[macks]

cara tem um jeito que eu uso e sempre da certo .....não sei se vale pra você ai.....

mais eu do um last na tabela e adiciono +1.....muito simples e facil de criar ......eu vo da uma olhada aki e te passo o codigo feito e detalhado beleza.......

falou e t+++++++++++++++++++++

[Curinga]

Vlew, sem pressa também, quando você conseguir se você pode me passa, eu agradeço.

mas em todo caso eu agradeço a paciencia, e aguardo respostas, OK?

Mais uma vez obrigado...

At +

[Guest - Curinga -]

Consegui faze o codigo automatico, porem ainda tem o problema, quando eu zero minha tabela, ele continua do ultimo, e como eu faço, caso eu apague por exemplo um codigo q não esta no fim, mas sim no começo, da proxima vez q eu cadastrar, tem como ele ir nesse codigo q ficou aberto.

falow at +

[paul_andryss]

Cara eu tinha esse mesmo problema, pois enquanto estamos desenvolvendo o programa inserimos muitos registros na tabela para testar e quando terminamos o programa e limpamos a tabela ela não começa a contar de novo a partir do 1.

Bem cara não sei se você já conseguiu fazer o autoincremento via Delphi...

Mas caso você ainda queira usar o autoincrement do Database Desktop e gostaria que quando limpasse a tabela ela voltasse a marcar a aprtir do 1.

Bem ai vai a dica

Abra o database desktop

Abra sua tabela

Limpe todos os registros

Clique em RESTRUCTURE

Mude o campo do codigo para Numerico (Number)

Salve essa nova estrutura

Depois você vai em restructure de novo (na mesma tabela)

E volta o campo para Autoincrement (+-)

Salva sua tabela de novo com essa estrutura...

Pronto, sua tabela voltará a incrementar os códigos a partir do 1 de novo...

Agora não sei se tem uma maneira mais simples de fazer isso, essa foi a meneira que eu achei e que funcionou!!!!!