Copiando campo autoinc para um edit

Delphi

07/04/2003

Tenho os campos:

Cod
Numero

Preciso copiar o numero autoinc do campo cod no campo numero, mostrando num edit normal

Tipo, nao quero mostrar o autoinco num dbedit, quero copiar o numero autoinc para o edit comum

[]´s


Anonymous

Anonymous

Curtidas 0

Respostas

Anonymous

Anonymous

07/04/2003

Amigo uso edit..não gosto de dbedit
uso o Seguinte codigo para pegar o ultimo codigo

With QCidade do Begin
SQL.Clear;
SQL.Add (´Select Max(Codigo) as Autonumero from Cidades´);
open;
end;
if QCidade [´Autonumero´] > 0 then
editCodigo.Text :=IntToStr(StrToInt(QCidade[´Autonumero´])+ 1 );

Espero ter ajudo.fui


GOSTEI 0
Anonymous

Anonymous

07/04/2003

Amigo uso edit..não gosto de dbedit uso o Seguinte codigo para pegar o ultimo codigo With QCidade do Begin SQL.Clear; SQL.Add (´Select Max(Codigo) as Autonumero from Cidades´); open; end; if QCidade [´Autonumero´] > 0 then editCodigo.Text :=IntToStr(StrToInt(QCidade[´Autonumero´])+ 1 ); Espero ter ajudo.fui


No meu caso ID eh autoinc e Codigo eh tipo texto


Da erro: edit1.Text:= IntToStr(StrToInt(codigo[´ID´])+ 1 );

[]´s


GOSTEI 0
POSTAR