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.