首页 > 其他分享 >DELPHI cxgrid 统计主从表中,从表的记录数量

DELPHI cxgrid 统计主从表中,从表的记录数量

时间:2024-04-16 18:59:48浏览次数:23  
标签:从表 记录 DELPHI cxgrid AMasterView ATotalSelectedCount 选中 主表

效果如图所示:

核心代码:

procedure TForm1.Button1Click(Sender: TObject);
var
  AIndex, I, ATotalSelectedCount, ASelectedRecordsCount: integer;
  AMasterView: TcxGridDBTableView;
  ADetailDataController: TcxCustomDataController;
begin
  ATotalSelectedCount := 0; // 初始化总选中记录计数为0
  ASelectedRecordsCount := cxGrid1DBTableView1.Controller.SelectedRecordCount; // 获取当前选择的主表记录数量
  AMasterView := cxGrid1DBTableView1; // 获取主视图

  // 遍历每个选中的主表之下的从表,有多少记录,然后累加.当然你如果设置了单选行模式,就没必要累加了
  for I := 0 to ASelectedRecordsCount - 1 do
  begin
    AIndex := AMasterView.Controller.SelectedRecords[i].RecordIndex; // 获取选中主记录的索引
    ADetailDataController := AMasterView.DataController.GetDetailDataController(AIndex,0) as TcxCustomDataController; // 获取从表数据控制器
    inc(ATotalSelectedCount, ADetailDataController.RecordCount); // 累加当前主表记录下的从表记录数量
  end;

  ShowMessage( IntToStr(ATotalSelectedCount)); // 显示总选中记录数量
end;

 

标签:从表,记录,DELPHI,cxgrid,AMasterView,ATotalSelectedCount,选中,主表
From: https://www.cnblogs.com/yoooos/p/18138940

相关文章

  • Delphi 编译的app无法在android 14安装
    今天用delphi12.1升级旧项目,编译正常,但安装时出下面的提示:08:48:26E/SplitApkInstaller:Failedtofinalizesession:INSTALL_PARSE_FAILED_MANIFEST_MALFORMED:FailedparseduringinstallPackageLI:/data/app/vmdl1849586780.tmp/base.apk(atBinaryXMLfileline#......
  • delphi 利用TMethod 调用事件函数过程。
    delphi利用TMethod调用事件函数过程,这里只说TNotifyEvent。可以用TNotifyEvent变量存起来,然后调用。但这样如果有多个的话,就麻烦,要定义很多个变量。可以转成 TMethod,存datacode就可以了。TMethod(SaveB.OnClick).CodeTMethod(SaveB.OnClick).Data两个可以存到stringlis......
  • DELPHI DLL的创建与调用.
    一.创建一个DLL项目 二.把验证过没有问题的函数写到DLL项目中 三.生成DLL 拿到了DLL 四.调用DLL通常DLL调用的声明语句都会写在 implementation之上或者之下,区别是作用域不同.唯一的要求是:声明语句必须要在调用语句之前!!!unitUnit1;interfaceusesWin......
  • delphi基于数据模型(data-model)JSON序列
    delphi基于数据模型(data-model)JSON序列需要DELPHI10.2以上版本才能支持。1)实现JSON序列/还原的泛型模板unitserialize;///<author>cxg2024-1-11</author>interfaceusessystem.Classes,System.SysUtils,System.JSON.Serializers;typeTSerial<T:record>......
  • delphi ORM和泛型模板
    delphiORM和泛型模板实现CRUD1)定义数据模型(data-model)数据模型是ORM数据序列/还原所必需的。TTable<T:record>=record//1个表rows:TArray<T>;//表的行end;TTable2<T,T2:record>=record//2个表table1:TTable<T>;......
  • Delphi模式编程
    文章目录Delphi模式编程涉及以下几个关键方面:**设计模式的应用****Delphi特性的利用****实际开发中的实践**Delphi模式编程的实例Delphi模式编程是指在使用Delphi这一集成开发环境(IDE)和ObjectPascal语言进行软件开发时,采用设计模式(DesignPatterns)来解决常见编程问......
  • CxGrid的终极风格设置
    凡是使用Delphi的程序员,我敢说99%使用过CxGrid。众所周知,CxGrid的套件有自己的皮肤风格管理体系,你如果用其它第三方的皮肤控件来美化你的程序,一旦进入到CxGrid则头疼不已。哪怕你专门为某一种皮肤设计了适合CxGrid的Style,一旦换肤,前功尽弃。总不能控件有100种皮肤,你设计100......
  • Delphi10.3自带FireDAC Explorer工具
     写SQL语句 键盘光标一定要在最后,或者倒数,才会出现绿箭头执行CREATETABLEMyTable(姓名string(10),语文Integer,数学Integer,英语Integer)  可以把SQL窗口拖到外面显示 ......
  • macos 连接windows后的,delphi IDE窗体设计器变小的问题
    macos连接windows清晰度但是这样之后,屏幕是清晰了,delphiIDE窗体设计器变得很小;原因:你可以理解为IDE里的设计时窗体标题栏,就是IDE自己画的一个假的,而IDE在画这个东西时,没加进去根据DPI放大的功能;解决方法:可以看到主窗体OK了;......
  • Delphi10.3主从表步骤(18)
    1.选择两个FDQuery和两个dataSource,分别命名为master,slave,然后将两个dataSource的属性Dataset设置为对应的FDQuery,假设主从表的关联字段为:从表的mainID和主表的Mid做为主从关联2.在FDQuery1的sql中写入主表语句select*frommainT3.在FDQuery2的sql中写入从表的语......