Hola feliz-58.
Supongamos que tenes las tablas:
Código SQL
[-]
CREATE TABLE GENERO (
ID INTEGER,
NOMBRE VARCHAR(30),
ESPECIE_ID INTEGER,
CONSTRAINT PK_GENERO PRIMARY KEY (ID)
);
CREATE TABLE ESPECIES (
ID INTEGER,
NOMBRE VARCHAR(30),
ESPECIE_ID INTEGER,
CONSTRAINT PK_ESPECIES PRIMARY KEY (ID)
);
Agrega dos componentes Query (TQuery, TIBQuery, etc) y lo siguiente:
Código Delphi
[-]
procedure TForm1.FormCreate(Sender: TObject);
begin
with IBQueryGenero do
begin
Close;
SQL.Text:= 'SELECT * FROM GENERO';
Open;
end;
with IBQueryEspecies do
begin
Close;
SQL.Clear;
SQL.Text:= 'SELECT * FROM ESPECIES WHERE ESPECIE_ID = :ESPECIE_ID';
DataSource:= dsGenero; Open;
end;
end;
Y ya tenes establecida la relación master/detail para usarla con cualquier data control (DBGrid's por ejemplo).
Saludos