Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Tablas planas (https://www.clubdelphi.com/foros/forumdisplay.php?f=20)
-   -   campo autonumerico con letra (https://www.clubdelphi.com/foros/showthread.php?t=27119)

Cosgaya 11-11-2005 21:30:29

campo autonumerico con letra
 
hola buenas:
estoi haciendo una base de datos para mis pelis de dvd y vhs
queria saber como puedo hacerl, en paradox para tener un campo autonumerico para vhs v1,v2,v3... y para dvd d1,d2,d3
gracias

dape 12-11-2005 03:48:44

Una idea
 
Hola, no conozco muy bien el paradox, pero se me ocurre que talvez puedes concatenar la letra 'v' o 'd' con un número autogenerado, una vez hecho esto puedes almacenarlos en tus tablas.

Saludos desde Tacna - Perú

David

marcoszorrilla 13-11-2005 11:52:45

Como autonumérico no vas a poder porque el autonumérico es precisamente eso, y para lograr lo que quieres tendrías que tener 2 autonuméricos, se guardarían en la tabla y luego paralelamente los 2 campos texto un comenaznado por V y otro D, es decir 4 campos para realmente solo utilizar 2.

En cuanto a la forma de numerrar la que poropones no sería buena:
V1....V10..V20..V1000 al ordenarlas te quedarían:
V1,V10, V1000,V20.

Partiendo de que no vayas a reunir más de 9999 películas de cada seríe, la numeración debiera de ser:
V0001,V0002 -- D0001,D0002.

Un manera lograr esto, sería antes de dar el alta, lanzar un SQL contra el campo que corresponda el de Video o DVD.
Código SQL [-]
Select Contador_Video
From Peliculas
Where Substring(Contador_Video From 1 For 1) ="V"
Order by Contador_Video Desc

Ahora no tienes más que tomar el valor de la primera fila y este será el último número utilizado para peliculas de video solo queda sumarle 1.
Código Delphi [-]
Var
MiContador:String
Cont:Integer,Numero,Codigo;
Begin
MiContador(Copy(Query1.fields[0].asString,2,4));
Val(MiContador,Numero,Codigo);
Cont:=Numero + 1;
//Y ya tienes el número
....
End;




Un Saludo.


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

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi