Problema DBRGRid

[ecfisa]

Hola.

Siempre trata de exponer con la mayor claridad lo que deseas realizar, aportando la mayor cantidad de detalles sobre la dificultad que tenes para conseguirlo.

Según entiendo, lo que deseas hacer es que, en el evento OnClick de un botón del form principal se abra otro form que contiene un TDBGrid que debe mostrar los campos id_empresa y empresa de la tabla empresas.

Como un ejemplo en el código:

Código Delphi [-]
var
    FCEmpresas: TFCEmpresas;

no estás indicando de que componente desciende TFCEmpresas...

Entonces, suponiendo que AQEmpresas sea de tipo TADOQuery, TFCEmpresas de tipo TForm y DBGCEmpresas de tipo TDBGrid, creo que deberías probar de este modo:

Código Delphi [-]
procedure TTPrincipal.Consultar1Click(Sender: TObject);
begin
  with Datamodule2.AQEmpresas do
  begin
    Close;
    SQL.Text := 'select id_empresa, empresa from empresas order by id_empresa';
    Open;
  end;
  FCEmpresas := TFCEmpresas.Create(Self);
  with FCEmpresas do
  begin
    with DBGCEmpresas do
    begin
      Columns.Add.FieldName := 'id_empresa';
      Columns.Add.FieldName := 'empresa';
      Columns[0].Title.Caption := 'Id';
      Columns[1].Title.Caption := 'Empresa';
      DataSource := Datamodule2.DSEmpresas;
    end;
    Visible := True; 
  end;
end;

Eso si mi conjetura anterior hubiera sido acertada...

Un saludo.