trabajar con sql en conjunto de dbgrid

[chalo]

holas necesito saber como seria el codigo en tiempo de ejecucion con el componente query. estoy trabajando con varios formularios y con una db grid en cada form. y por ejemplo lo que quiero hacer es: cuando se cree el formulario mostrar en la grid los datos que quiero, yo se que en tiempo de diseño en la propiedad SQL del query es asi (por ejemplo):

select vinos.articulo_descripcion,pedidos.*
from vinos,pedidos
where vinos.id_pedido = pedidos.id_pedido;

y luego le doy active:= true y me muestra de 10, pero solo para una sola dbgrid, pero he pensado que para que me funcione con todas las dbgrid a la misma vez podria hacerlo en tiempo de ejecucion en el evento formcreate de cada formulario, pero como seria el codigo??

mas o menos tengo una idea:

conexion.qconsulta.sql.text:='select...(lo mismo que escribi arriba en tiempo de diseño);
conexion.qconsulta.active:= true;

y luego que seguiria????

espero que puedan ayudarme.

desde ya muchas gracias.

saludos.

chalo.

[ecfisa]

Hola chalo.

Te pongo un ejemplo (lógicamente vas a tener que adaptar la consulta a tus datos)

void __fastcall TForm1::FormCreate(TObject *Sender)
{
  Query1->SQL->Clear();
  Query1->SQL->Add("SELECT C1.DESCRIPCION , C2.CANTIDAD ");
  Query1->SQL->Add("FROM ARTICULOS C1, PEDIDOS C2");
  Query1->SQL->Add("WHERE C1.ID_PEDIDO = C2.ID_PEDIDO");
  Query1->Open();
}

Saludos.