Una forma sencilla de hacer lo que quieres es dividir la clave principal en dos, creando un campo para el año y otro para el número. Así, incrementarías más fácilmente la parte que te interesa y, además, podrías calcular el año según, por ejemplo, el año actual.
Si la clave principal siempre la va a generar tu programa, entonces, podrías crearte un campo calculado que tendría como función la presentación de la clave en la forma que quieres: 00/000
Cálculo de la clave:
Código Delphi
[-]
var
Q: TQuery;
Numero, Anno: integer;
begin
Q := TQuery.Create(Self);
Q.DatabaseName := 'C:\Archivos de programa\Presupuestos 1.0';
Anno := YearOf(Now);
try
Q.SQL.Text := 'select max(Numero) from TPresupuestos.DB where Anno = ' +
IntToStr(Anno);
Q.Open;
if Q.Fields[0].IsNull then
Numero := 0
else
Numero := Q.Fields[0].AsInteger;
finally
FreeAndNil(Q);
end;
Table1.FieldByName('Numero').AsInteger := Numero + 1;
Table1.FieldByName('Anno').AsInteger := Anno;
end;
Para presentar la clave al usuario (en cualquier control asociado a datos), crearíamos un campo calculado (por ejemplo, campo 'Presupuesto') y especificaremos en el evento 'OnCalcFields' de la tabla lo siguiente:
Código Delphi
[-]
begin
Table1.FieldByName('Presupuesto').AsString := Copy(Table1.FieldByName('Anno').AsString,
2, 2) + '/' + Table1.FieldByName('Numero').AsString;
end;
Saludos!