推荐订阅源

//USES  哪些忘了，试验过程中，加了一大堆有用无用的

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Memo.Types,
  System.Rtti, FMX.Grid.Style, Data.Bind.EngExt, Fmx.Bind.DBEngExt,
  FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Param,
  FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf, FireDAC.DApt.Intf,
  Data.DB, FireDAC.Comp.DataSet, FireDAC.Comp.Client, Data.Bind.Components,
  Data.Bind.DBScope, FMX.Grid, FMX.StdCtrls, FMX.Controls.Presentation,
  FMX.ScrollBox, FMX.Memo, FMX.Objects , Fmx.Bind.Grid, System.Bindings.Outputs
  , Data.Bind.Grid ,System.Bindings.Helper, FMX.ListBox, Data.Bind.Controls,
  FMX.Layouts, Fmx.Bind.Navigator
 , Fmx.Bind.Editors, Data.Bind.DBLinks, Fmx.Bind.DBLinks ,System.Math;

  DataSource1 : TDataSource;
  BindScopeDB1 : TBindScopeDB;
  FDData: TFDMemTable;//数据集查询过程，略

// memResult.Lines.Insert(0,'查询返回记录数:' +FDData.RecordCount.ToString );

 // 3. 初始化数据源
                      DataSource1 := TDataSource.Create(nil);
                      DataSource1.DataSet := FDData;

                      // 4. 初始化 LiveBindings 核心组件
                      BindScopeDB1 := TBindScopeDB.Create(nil);
                      BindScopeDB1.DataSource := DataSource1;

                      BindingsList1 := TBindingsList.Create(nil);
StringGrid1 := TStringGrid.Create(nil);
                      StringGrid1.Parent := Self; // 或指定其他容器
                      StringGrid1.Align := TAlignLayout.Client;
                      StringGrid1.Options := StringGrid1.Options + [TGridOption.RowSelect]; // 推荐设置为行选择

                      // 5. 创建并激活 Grid 与数据源的绑定
                      with TBindDBGridLink.Create(BindingsList1) do
                      begin
                          GridControl := StringGrid1;
                          DataSource := BindScopeDB1;
                          Active := True;
                      end;
                   //  AutoFitAllColumns(StringGrid1); //表头显示与后继处理