Usando o locate URGENTE!!

Delphi

27/12/2003

Preciso do seguinte codigo:

no OnNewRecord da tabela ele crie o numero 001 no campo do dbedit, dando locate na tabela pra ver se ja existe o 001, caso exista mostre 002

so isso mesmo que eu quero.. somente codigo por favor

um abraço


Njunior

Njunior

Curtidas 0

Respostas

Fórum Vini

Fórum Vini

27/12/2003

Olá,
coloque um campo autoincremento na sua tabela, ele faz isso automaticamente.



Espero ter ajudado.
Vinicius.


GOSTEI 0
Njunior

Njunior

27/12/2003

Olá, coloque um campo autoincremento na sua tabela, ele faz isso automaticamente. Espero ter ajudado. Vinicius.


sem campo autoinc amigo, quero justamente como disse..
obrigado


GOSTEI 0
Fórum Vini

Fórum Vini

27/12/2003

Olá,
coloque um Query no seu formulário, mude sua propriedade DatabaseName para o nome do seu Alias e no evento OnNewRecord do seu Table, coloque esse código:
  Query1.Active:= false;
  Query1.Sql.Text:=´Select MAX(Campo) as Maior from nome_tabela;´;
  Query1.Active:= true;
  Table1.FieldByName(´Campo´).asInteger:= Query1.FieldByName(´Maior´).asInteger+1;

Substitua campo pelo nome do campo e nome_tabela pelo nome da sua tabela.

Espero ter ajudado.
Vinicius.


GOSTEI 0
Wagsilvasilva

Wagsilvasilva

27/12/2003

Eu to fazendo um sistema onde o proprio usuario digita o código do produto que deseja cadastrar. O código segue em anexo

if not udmdados.tbdadosfunccons.locate(´Codfunc´,dbedit1.Text,[]) then
begin
try
udmdados.tbdadosfunc.Append;
...

Acho que deve ser isso que tu estava procurando. Este código eu coloquei no momento em que o usuario clica no botao salvar.


GOSTEI 0
POSTAR