mostrar datos de varias tablas relacionadas

[marcos_0586]

gracias neftali, yo habia echo una consulta con un componente query pero al parecer la debo haber echo mal ya que cuando quiero relacionar el dbedit con el datafield me aparece en blanco, ahora probare tu opcion y trabajare sobre ella muchas gracias.

[[BlueSteel]]

Empezado por marcos_0586

gracias neftali, yo habia echo una consulta con un componente query pero al parecer la debo haber echo mal ya que cuando quiero relacionar el dbedit con el datafield me aparece en blanco, ahora probare tu opcion y trabajare sobre ella muchas gracias.

Hola.

Igual seria bueno que indicaras el codigo que utilizastes, y asi te podemos decir que estaba mal.

Salu2

[marcos_0586]

Empezado por BlueSteel

Hola.

Igual seria bueno que indicaras el codigo que utilizastes, y asi te podemos decir que estaba mal.

Salu2

Hola, el tema es que no tengo un codigo solamente relacione los dbedit a la tabla solo tengo esto:

Código Delphi [-]
procedure TForm23.Button1Click(Sender: TObject); 
begin  
     if form1.table7.findkey([edit1.Text])= true  then
     panel1.visible:=true; end;

en el cual el edit1.text contendra el numero de pedido buscado, si lo encuentra me muestra los dbedit con sus respectivos datos que estan dentro del panel1, el problema esta que el dbedit de empleado es un valor numerico que hace referencia a la tabla empleado y queria saber la forma para que en lugar del numero me muestre el nombre del empleado

[ecfisa]

Hola Marcos.

A ver si te entedí bien...

Tenés dos tablas: PEDIDOS y CLIENTES, supongamos que están definidas así:

TABLA PEDIDOS
COD_PEDIDO
COD_CLIENTE
DESCRIPCION

TABLA CLIENTES
COD_CLIENTE
NOMBRE
DIRECCION

Y, dado el número de pedido (que está en un edit) querés obtener los datos de la tabla PEDIDOS más algunos de la tabla CLIENTES ?

Si es eso, haría:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin 
  with IBQuery do
  begin
    Close;
    SQL.Text:= 'SELECT COD_PEDIDO,COD_CLIENTE,DESCRIPCION,NOMBRE,DIRECCION '+
               'FROM PEDIDOS, CLIENTES '+
               'WHERE PEDIDOS.COD_PEDIDO = ' + QuotedStr(Edit1.Text)+
               'AND PEDIDOS.COD_CLIENTE = CLIENTES.COD_CLIENTE';
    Open;
  end;
end;

Saludos.