Mostrar el Número de CLiente en un Mantenimiento

[[Caral]]

Hola

Código Delphi [-]
Query1.Sql.text:= 'Select Max(No) form Clientes';
Query1.Open;
Edit1.text:= IntToStr(query1.Fields[0].asinteger);

Saludos

[hondaalberto]

Probé haciéndolo así utilizando la función max (no.) de Sql, pero lo que me muestra es el último cliente que se creo y lo que necesito hacer es lo siguiente:

Ej.: Tengo dos clientes ya creados en la Base de datos Cliente 1 y Cliente 2 cuando el usuario hace clic en el botón nuevo para crear el cliente numero 3 se debería mostrar que es el cliente No. 3 que es lo que no me sale con el código que me mostraste caral.

[[duilioisola]]

Pues es tan simple como sumar 1...

Código SQL [-]
Query1.Sql.text:= 'Select Max(No) form Clientes';
Query1.Open;
Edit1.text:= IntToStr(query1.Fields[0].asinteger + 1);

[ecfisa]

Si, y como otra alternativa, también debería funcionar:

Código SQL [-]
SELECT MAX(NO)+1 FROM CLIENTES

Saludos.

[[Caral]]

Hola
O Tambien.....

Código Delphi [-]
Var Caral: Integer;
Begin
 Caral := 1;
Query1.Sql.text:= 'Select Max(No)+'+Caral+' form Clientes';
Query1.Open;
Edit1.text:= IntToStr(query1.Fields[0].asinteger);

Saludos

[ecfisa]

Me encanta este código:

Código Delphi [-]
   Query1.Sql.text:= 'Select Max(No)+'+Caral+' form Clientes';

Está cargado de sincera humildad

[[Caral]]

Hola
Venga hombre que ahora le generara un error:

El código (novato) no se puede ejecutar,
A la variable Caral le falta experiencia.

Saludos

[hondaalberto]

Ok, Con esto si me da el número de cliente 3 pero si varios usuarios al mismo tiempo intentan crear un cliente le mostrara el número 3 a todos, como se podria corregir eso.