









//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); //表头显示与后继处理
此内容由惯性聚合(RSS阅读器)自动聚合整理,仅供阅读参考。 原文来自 — 版权归原作者所有。