Delphi bookmark使用

關於書籤(BookMark)操作;    
  書籤操作主要用於在表中快速地定位記錄指針,在應用程序中常常要保存記錄指針所在的位置,在進行其他處理之後,希望能快速地返回到先前指針所在的位置,此時,使用書籤將顯得特別有用。有關書籤操作,Delphi提供了三個方法,它們是:  
  ●   GetBookMark  
  ●   GotoBookMark 
  ●   FreeBokMark  


這三個方法一般都是在一起使用,GetBookMark方法返回一個TBookMark類型的變量,該變量包含着指向當前記錄的指針,GotoMark方法用於快速地將記錄指針定位到具有書籤的記錄處。FreeBookmark方法是與GetBookMark方法相反的操作,它釋放書籤標誌。下面的程序代碼闡述了書籤操作的一般方法:

  BookMark   :   TBookMark;     
   
  BookMark   :=   Table1.GetBookMark;   {對當前記錄作書籤標誌}  
  Table1.DisableControls;   {切斷Table1與數據察覺部件的聯繫...下面有其使用解說}   
  Table.First    
  While   Not   EOF   Do   {對錶中全部記錄進行其他處理}    
  begin 

  Tabel1.Next;    
  end;  
   
  Tabel1.GotoBookMark(BookMark)    
  Table1.EnableControls;   {重新定位記錄指針回到原來的位置}  
  Tabel1.FreeBookMark(BookMark);   {刪除書籤BookMark標誌} 

 

-- - - - - - - - - - - - - - - - - - - - -- - - - - - - - - - - - - - - - - - - - -- - - - - - - - - - - - - - - - - - - - -- - - - - - - - - - - - - - - -

DisableControls方法是在程序修改或後臺有刷新記錄的時候切斷數據組件,如TTABLE、ADOQUERY等等與組件數據源的聯繫。如果沒有切斷,數據源中只要一有數據的改動,尤其是批量改動的話,每一筆的改動都會更新窗口中數據瀏覽組件的顯示,這樣會急劇減慢處理過程而且浪費時間。EnableControls的作用相反,用來恢復TTABLE等組件與DATASOURCE的聯繫,並促使數據瀏覽組件更新顯示。
      這兩個函數主要阻止組件感應顯示,以加快語句執行速度。 比如,用大量的循環的時候,最好用他們。
      1. 數據集的EnableControls, DisableControls方法成對使用的時候, 如果中間的代碼可能會導至出錯的話必須用try..finaly DisableControls; end; 否則會導致數據感知不控制不可使用;
      2. 在遍歷數據或Filter大數據的時候的要用DataSet的EnableControls與DisabbleControls, 否則窗體上的數據感知控件會閃爍.
      enablecontrols,disablecontrols是防止因數據源的改動而造成界面的閃動!在你需要刷新數據時可以調這兩個函數,但建議你把它寫在
try...finally語句塊中!  
如:  
try  
      adoQuery1.disablecontrols;  
      adoQuery1.close;  
      adoQuery1.open;  
finally  
      adoQuery1.enablecontrols;  
end;
TQuery 的EnableControls 和DisableControls 方法都是繼承自TDataSet 類的。由於TTable 和TQuery 都是TDataSet 的派生類,所以它們都有以上這兩個方法。

發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章