Opcional para Auto-incremento em Paradox

Delphi

09/05/2004

O que posso utilizar no lugar do auto-incremento?
Pode dar-me um exemplo? :oops:
{}
Andreza :)


Deza.re

Deza.re

Curtidas 0

Respostas

Fabio.hc

Fabio.hc

09/05/2004

Vc cria um campo na tabela tipo inteiro.
e no BeforePost vc coloca uma query para pegar o último numero e somar um.

procedure TForm1.Table1BeforePost(DataSet: TDataSet);
begin
   if DataSource1.State = dsinsert then
      begin
      Query1.Close;
      Query1.SQL.Text:=´select (max(CAMPO)+1) as cod from tabela´;
      Query1.Open;
      Table1.FieldByName(´CAMPO´).Value:=Query1.Fieldbyname(´cod´).Value;
      end;
end;



GOSTEI 0
Jose Luiz

Jose Luiz

09/05/2004

COLEGA USO ASSIM..

NO ON CLICK DO BOTÃO NOVO REGISTRO.

VAR PROX:INTEGER;
BEGIN
TABLECLIENTE.LAST;
PROX:=TABLECLIENTE.FIELDBYNAME(´CODIGO´).ASINTEGER+1;
TABLECLIENTE.INSERT;
TABLECLIENTE.FIELDBYNAME(´CODIGO´).ASINTEGER:=PROX;
END;

FUNCIONA BLZ..

QUAQUER DÚVIDA..

medeiros@pontenet.com.br
Jose Luiz de Medeiros


GOSTEI 0
POSTAR