Delphi DBGrid未显示数据

Question

我有一个TFDConnection，TFDQuery，TDataSource和TDBGrid的德尔菲表单。我希望显示我的查询获得的数据(从table_1中选择*)，并将其放入我的DBGrid中。我已经在组件之间建立了所有的连接，但是在我启动我的DBGrid中的查询(返回12行)之后，会显示12行，但它们是空的。显然，我忘记了一些阻止我在DBGrid中看到数据的东西。你能帮我在我的行动中失去什么吗？

• 1-向表单中添加所有组件。
• 2-连接FDQuery与FDConnection，TDataSource与FDQuery，DBGrid与TDataSource。
• 3-连接参数在测试中成功(问题不在我的连接参数中)
• 4-行数放置在我的DBGrid (12)中，但没有任何信息可见。
• 5-如果我循环我的FDQuery，我可以看到我需要的所有信息，但这并不能帮助我填充我的DBGrid。

Answer 1

你能试试这个吗？

在表单的TFDQuery代码中显式地激活OnShow。像这样，

procedure TForm.FormShow(Sender: TObject);
begin
    FDQuery.Active:= True;
end;

它对我有用，希望它能帮上忙。

Answer 2

若要修复此问题(我也有此问题)，请在打开查询后设置：

datasource.dataset := Query

问题就会解决。

Answer 3

您将得到这样的行为:您将在DBGrid中看到正确的行数，但是如果DBGrid的DefaultDrawing属性设置为False，则网格的单元格是空的。如果您的DBGrid是这样的，那么显然只需将DefaultDrawing设置为True即可。