[ecfisa]

Hola.

Empezado por ramiromd90

pero creo que ambos sabemos que la manera que tiene el usuario es mediante una opción la manera que tiene el usuario es mediante una opción.

No, en realidad yo me acabo de enterar.

Entonces es muy simple, como te dije al principio se reduce a verificar la existencia o no de un proyecto luego de que el usuario ingrese el identificador.

A modo de ejemplo, una función que devuelve True si el proyecto existe en la tabla PROYECTOS o False de otro modo:

Código Delphi [-]
function ProyectExists(const Id: Integer): boolean;
begin
  with IBQuery do
  begin
    Close;
    SQL.Text := 'SELECT * FROM PROYECTOS WHERE ID = :PID';
    ParamByName('PID').AsInteger :=Id;
    Open;
    Result := not IsEmpty;
    Close;
  end;
end;

Saludos.