ActiveDelphi

[tiagotheboy]

Ola pessoal.
Tenho um campo Codigo no meu cadastro e gostaria de fazer esse campo autoIncremento mas sem mudar o banco de dados, tipo iniciar o contador em 1000 e ir a cadas novo cadastro ele contata 1000+1 e o outro 1000+2 e assim por diante, podem me ajudar?

[rafworld]

vc pode gravar em um arquivo *.ini o ultimo Codigo (Ex.: 1000)

daí a cada novo cadastro ele pega do *.ini o codigo 1000 e grava um novo por cima 1001





t++
_________________
Rafael A Santos
Programador Delphi
MSN: rafworld@hotmail.com
D3 - D5 - D7 - D2006 (Interbase, FireBird, SQL Server)

[tiagotheboy]

sim ru tenho um arquivo ini mas como faço é preciso eu colocar contador e para ele gravar no ini? hum acho que nao entendi muito bem, amigo pode ser mais claro? aguardo.

[ricars01]

Vamos \"mastigar\" então:

1° Declare a unit [b]IniFiles[/b] se ainda não tiver ela declarada;

2° Em seguida use o seguinte código (está sendo executado num botão, jogando pra um, como exemplo):
[code]
Procedure TForm1.Button1Click(Sender: TObject);
Var
MeuINI : TINIFile;
MeuValor: Integer;
Begin
MeuINI := TINIFile.Create(\'Arquivo.INI\');
[i]// Gravando um valor no Arquivo.INI[/i]
MeuINI.WriteInteger(\'Autonumeração\', \'Próximo Valor\', StrToInt(Edit1.Text));

[i]//Lendo o valor gravado do Arquivo.INI,
//passando pra variável e jogando pra um Edit[/i]
MeuValor := MeuINI.ReadInteger(\'Autonumeração\', \'Próximo Valor\', 0);

Edit2.Text := IntToStr(MeuValor + 1);
End;
[/code]

3° Agora é só adaptar pra sua necessidade, ou seja, ligar ao banco de dados e tal.


___________________________________________________
:yltype: [i] \"Programar também é uma expressão artística.\" [/i]:yltype:
:exclam: [u] Só o up não resolve, as vezes tem que procurar [/u] :exclam:

[b]This user is compatible with: D5 - D2006 / IB&FB
This user is training to: SQL Server 2005 / Oracle 10g / JAVA[/b]

[img]http://www.delphi-jedi.org/img/btn_jedinow.gif[/img]
[url]http://www.delphi-jedi.org/[/url]

[Editado em 31/5/2006 por ricars01]
_________________
<b>Nova assinatura em elaboração... ainda!! Esta é a versão "alfa"</b>

[rafworld]

uses IniFiles;



var
Ini: TIniFile;
contador: integer;
begin
Ini:= TIniFile.Create(<NOME DO ARQUIVO INI>);

//para pegar
contador:= Ini.ReadInteger(\'CONTADOR\',\'TABELA\',0);

//para gravar
Ini.WriteInteger(\'CONTADOR\',\'TABELA\',Inc(contador));
end;



O seu arquivo Ini deve estar assim:

[CONTADOR]
tabela=1000




t++

[Editado em 31/5/2006 por rafworld]
_________________
Rafael A Santos
Programador Delphi
MSN: rafworld@hotmail.com
D3 - D5 - D7 - D2006 (Interbase, FireBird, SQL Server)

[tiagotheboy]

Funcionou Obrigado Pessoal. Sem palavras. valew mesmo.

[rafworld]

fmz.. t++
_________________
Rafael A Santos
Programador Delphi
MSN: rafworld@hotmail.com
D3 - D5 - D7 - D2006 (Interbase, FireBird, SQL Server)

[ricars01]

OK
_________________
<b>Nova assinatura em elaboração... ainda!! Esta é a versão "alfa"</b>