Delphi - DBGrid 不显示 ADO 表的内容

问题描述

所以我尝试在运行时将我所有的 ADO 表加载到它们各自的 DBGrids 中。我没有收到错误，但网格中没有显示任何内容？我在这里做错了什么？

我正在使用的代码：

procedure TfrmEntry.FormActivate(Sender: TObject);
begin
  GridSetupContainer;
end;

procedure TfrmEntry.GridSetupContainer;
begin

  with dmArchive do
  begin
    GridSetup(dbgA16,dsr1660);
    GridSetup(dbgA2P1,dsrTwoPointOne);
    GridSetup(dbgAXKarts,dsrXKarts);
    GridSetup(dbgAHM,dsrHeavyMetals);
    GridSetup(dbgAHR,dsrHotrods);
    GridSetup(dbgAMIDA,dsrMidA);
    GridSetup(dbgAMIDB,dsrMidB);
    GridSetup(dbgAMinis,dsrMinis);
    GridSetup(dbgAPink,dsrPinkrods);
    GridSetup(dbgASpr,dsrSprints);
    GridSetup(dbgASR,dsrStockrods);
    GridSetup(dbgADev,dsrDev);
    GridSetup(dbgAV8,dsrV8);
    GridSetup(dbgALM,dsrLateModels);
  end;

  with dmRacers do
  begin
    GridSetup(dbgR16,dsr1660);
    GridSetup(dbgR2P1,dsrTwoPointOne);
    GridSetup(dbgRXKarts,dsrXKarts);
    GridSetup(dbgRHM,dsrHeavyMetals);
    GridSetup(dbgRHR,dsrHotrods);
    GridSetup(dbgRMIDA,dsrMidA);
    GridSetup(dbgRMIDB,dsrMidB);
    GridSetup(dbgRMini,dsrMinis);
    GridSetup(dbgRPink,dsrPinkrods);
    GridSetup(dbgRSP,dsrSprints);
    GridSetup(dbgRSR,dsrStockrods);
    GridSetup(dbgRDev,dsrDev);
    GridSetup(dbgRV8,dsrV8);
    GridSetup(dbgRLM,dsrLateModels);
  end;

end;

procedure TfrmEntry.GridSetup(grid: TDBGrid; source: TDataSource);
begin
  grid.DataSource:=source;
end;

预先感谢您的帮助！

亲切的问候 PrimeBeat

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

ado dbgrid delphi