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

2023-07-23 16:06:22

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按钮。