UniDBGrid增長顯示記錄數的label及隱藏refresh按鈕

1. 在UniDBgrid的extEvent屬性中寫入如下代碼：

1. function OnAfterCreate(sender)  
2. {  
3.      var toolbar=sender.getDockedItems()[1]; //取出固定在bottom的ToolBar  
4.      toolbar.items.getAt(10).hide(); //取出ToolBar中的Refresh按鈕，序號10,隱藏他  
5.      //增長一個顯示總記錄數的tbtext  
6.      toolbar.add(  
7.      [{  
8.      'id':'pagecount99',  
9.      'xtype':'tbtext',  
10.      'text': '記錄總數:'   
11.       }  
12.      ]  
13.      );  
14. }  

2.在Delphi中數據集有變化的地方寫入相似代碼，這裏是在uniFormShow事件中：

 

 

1. procedure TMainForm.UniFormShow(Sender: TObject);  
2. begin  
3.    ClientDataSet1.Last;  
4.    UniSession.AddJS(Format('Ext.getCmp("pagecount99").setText("%s");',[' 記錄數:'+inttostr(clientdataset1.recordcount)]));  
5. end;  

實現的效果：增長了顯示記錄數的label，隱藏了refresh按鈕。