Ver Mensaje Individual
  #4  
Antiguo 18-04-2014
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
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; // DataSource asociado a IBQueryGenero
    Open;
  end;
end;
Y ya tenes establecida la relación master/detail para usarla con cualquier data control (DBGrid's por ejemplo).

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita