UniDBGrid增加显示记录数的label及隐藏refresh按钮

最新推荐文章于 2023-12-16 08:16:36 发布

原创最新推荐文章于 2023-12-16 08:16:36 发布 · 4.2k 阅读

4 ·

CC 4.0 BY-SA版权

Delphi 同时被 2 个专栏收录

31 篇文章

订阅专栏

Unigui

23 篇文章

订阅专栏

本文介绍如何在UniDBgrid中通过代码隐藏Refresh按钮并添加显示记录总数的Label。具体步骤包括在extEvent属性中编写函数以修改ToolBar，并在数据集发生变化时更新记录总数。

1. 在UniDBgrid的extEvent属性中写入以下代码：

function OnAfterCreate(sender)
{
     var toolbar=sender.getDockedItems()[1]; //取出固定在bottom的ToolBar
     toolbar.items.getAt(10).hide(); //取出ToolBar中的Refresh按钮，序号10,隐藏他
     //增加一个显示总记录数的tbtext
     toolbar.add(
     [{
     'id':'pagecount99',
     'xtype':'tbtext',
     'text': '记录总数:' 
      }
     ]
     );
}

2.在Delphi中数据集有变化的地方写入类似代码，这里是在uniFormShow事件中：

procedure TMainForm.UniFormShow(Sender: TObject);
begin
   ClientDataSet1.Last;
   UniSession.AddJS(Format('Ext.getCmp("pagecount99").setText("%s");',[' 记录数:'+inttostr(clientdataset1.recordcount)]));
end;

实现的效果：增加了显示记录数的label，隐藏了refresh按钮。