Foros Club Delphi - Incrementar un campo numerio

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - Incrementar un campo numerio (https://www.clubdelphi.com/foros/showthread.php?t=2885)

edwin1

11-08-2003 20:25:24

Incrementar un campo numerio

Hola...

Que rutina puedo inplementar en el Evento OnNewRecord o en el Evento BeforePost de mi tabla para incrementar un Campo numerico de la tabla (Codigo)...

Lo que quiero es cuando presione el boton de insertar si el codigo es igual a 1 le sume otro y seran 2 y asi sucesibamente o puede ser cuando grabe.

mucha Graciasssssssssssssss

jachguate

11-08-2003 21:32:01

Código:





Procedure Form1.Table1BeforePost(losparametros);



begin

  if Table1.State = dsInsert Then

  Begin

    Query1.sql := 'Select max(codigo) maximo from tabla'; 

    Query1.Open;

    Table1.Codigo := Query1.FieldByName('Maximo').AsInteger  + 1;

    Query1.Close;

  end;

end;

Por supuesto, esto podria dar lugar a problemas con usuarios concurrentes, cuando el evento BeforePost se genere exactamente al mismo tiempo en dos clientes distintos.
Hasta luego.

;)

La franja horaria es GMT +2. Ahora son las 17:30:50.