Para hacerlo desde la base de datos sin implicar a delphi para nada puedes hacerlo a traves de un trigger.
Te envio un ejemplo:
CREATE TRIGGER "RELLENA_CON_CERO" FOR TBL_LIBROS ACTIVE
BEFORE INSERT POSITION 0
AS
declare variable num integer;
BEGIN
num =2-strlen(new.id_libro);
new. id_libro = substr('00',1,num)||new.id_libro;
END
Ahh, por cierto: las funciones "strlen" y "substr" son UDFS que tienes que instalar previamente.
En la seccion de Interbase de la pagina del clubdelphi encuentras un articulo que te puede explicar las UDF's muchoi mejor que yo.
Espero te sea util.
Suerte
|