程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> C語言 >> C >> C語言基礎知識 >> 在DBGrid中實現Copy、Paste功能

在DBGrid中實現Copy、Paste功能

編輯:C語言基礎知識
   Copy和Paste加速按鈕,對於使用Windows下編輯器的人來說,恐怕都是非常熟悉而且不可缺少的。Delphi中的有些控件,如:TDBEdit、TDBImage、TDBMemo、TEdit等,具有CutToClipboard、CopyToClipboard和PasteFromClipboard方法,在這些控件上,利用這幾個方法,只要通過簡單的編程,就可以實現上述加速按鈕。但TDBGrid控件卻不提供上述方法,無法直接實現這幾種功能。而在單機的數據庫應用程序中,TDBGrid卻經常被用來進行數據(包括數字和文字)的輸入,沒有Copy和Paste功能,使用起來深感不便。筆者在編程過程中,利用中間控件進行“過渡”,間接地實現了這幾種功能。
  
  主要思路:既然TDBGrid控件無法直接實現Copy和Paste編輯功能,則可以將TDBGrid控件中需要進行這幾種編輯的字段(Field)的內容,轉移到具備這幾種功能的控件(以TDBEdit為例)中去,編輯完畢後,再傳回到TDBGrid中。
  
  具體方法:在已設計好的包含有TDBGrid控件(設名為DBGrid1)的窗體中,增加一個TDBEdit(設名為DBEdit1)控件,其DataSources屬性設為與DBGrid1的DataSources屬性相同,對DBGrid1控件的OnColEnter事件編程,使DBEdit1的DataField屬性值等於DBGrid1控件的被選擇字段的字段名。再在窗體中增加兩個快速按鈕:Copy和Paste,圖形可選Delphi子目錄下ImagesιButtons子目錄裡的Copy.bmp和Paste.bmp。對Copy快速按鈕的OnClick事件編程:
  DBEdit1.CopyToClipboard;
  
  對Paste快速按鈕的OnClick事件編程:
  DBEdit1.PasteFromClipboard;
  DBGrid1.SelectedField.AsString:=DBEdit1.Text;
  
  此時,假如DBGrid1中的某一單元Cell數字需要粘貼另一單元Cell2的部分或全部內容,用鼠標單擊選擇Cell2,此時DBEdit1所顯示的內容與Cell2的內容相同。在DBEdit1中用鼠標拖曳選擇部分或全部內容,單擊Copy快速按鈕;再用鼠標單擊選擇Cell,此時DBEdit1所顯示的內容與Cell相同,在DBEdit中欲粘貼剛才所選內容的位置插入光標,單擊Paste快速按鈕,則剛才所選內容插入到光標位置,Cell的內容也隨之改變成插入後的內容,由此完成了一次Copy—Paste操作。
  
  用這種方法實現Copy—Paste操作,比正常的操作多了一次鼠標的鍵擊、兩次鼠標的移動。在重復輸入的內容不多,且操作者鍵盤輸入很快很熟練的情況下,這種實現Copy—Paste的方法,意義似乎不大。但假如應用程序的使用者是那些並沒有把握某種快速的方法的,copy—Paste方法本來就不熟練(則感覺不到這種方法的不合常規),且又非常地善於在一長串的同音字裡翻來翻去地尋找的話,這還是一種不錯的方法。假如哪位讀者有能在TDBGrid中實現常規Copy—Paste操作的方法,請不吝賜教。
  
  以下是有關的程序代碼:
  procedure TUnitDetail.DBGrid1ColEnter(Sender:TObject);
  begin
  case DBGrid1.SelectedIndex of
  0:DBEdit1.DataField:=Unit?Num;
    1:DBEdit1.DataField:=UnitName;
  2:DBEdit1.DataField:=Header;
  3:DBEdit1.DataField:=Address;
  4:DBEdit1.DataField:=Tel;
  end;
  end;
  
  
  procedure TUnitDetail.SBCopyClick(Sender:TObject);
  begin
  DBEdit1.CopyToClipboard;
  end;
  
  procedureTUnitDetail.SBPasteClick(Sender:TObject);
  begin
  DBEdit1.PasteFromClipboard;
  DBGrid1.SelectedField.AsString:=DBEdit1.text;
  end;
 
  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved