Gerar codigo

Delphi

25/11/2003

e ai gente , blz ? bom , to com um problema aki ....é o seguinte ..

eu crio uma uma variável chamada Ultimo..
dai coloco la nos evento ON ACTVIVET ..

DataModule.tabela.last;
Ultimo:=strtoint (Nome do datamodule.NomedatabelaCampo.value);

no ON Click do botao NOVO

Ultimo:=Ultimo +1;

No Onclick do salvar

datamodule.tabelaCampo.value:=ultimo;

bom ja tentei de tudo e naum consigo galera.. ajuda eu ai vei ... por favor....

ta dando um erro falando ´IS NOT VALID VALUE´ ou seja ..o valor naum é valido .......


Milhouse

Milhouse

Curtidas 0

Respostas

Orc

Orc

25/11/2003

var
aux:integer;
begin
tabela.last;
aux:=tabelacodigo.value;
tabela.insert;
if aux = 0 then
dbedit1.text:=´1´ ;
else
dbedit.text:=inttostr(aux+1);
end;


blzz tomara que te ajude falow


GOSTEI 0
Polastri

Polastri

25/11/2003

Primeiro utilize uma query, chame ela de query1
dentro dela coloque o seguinte código:
Ex: select max(cdaluno) as maiorcodigo from tbaluno
Depois no evento onclique do botão salvar faça:
query1.open;
edit1.text:= inttostr(query1.fieldbyname(´maiorcodigo´).asinteger + 1);


GOSTEI 0
POSTAR